hedgewars/uIO.pas
changeset 6874 b9e2e509a42d
parent 6700 e04da46ee43c
child 6876 f588dfc27da3
equal deleted inserted replaced
6873:30840365af0a 6874:b9e2e509a42d
   345              end;
   345              end;
   346         'w': ParseCommand('setweap ' + headcmd^.str[2], true);
   346         'w': ParseCommand('setweap ' + headcmd^.str[2], true);
   347         't': ParseCommand('taunt ' + headcmd^.str[2], true);
   347         't': ParseCommand('taunt ' + headcmd^.str[2], true);
   348         'h': ParseCommand('hogsay ' + copy(headcmd^.str, 2, Pred(headcmd^.len)), true);
   348         'h': ParseCommand('hogsay ' + copy(headcmd^.str, 2, Pred(headcmd^.len)), true);
   349         '1'..'5': ParseCommand('timer ' + headcmd^.cmd, true);
   349         '1'..'5': ParseCommand('timer ' + headcmd^.cmd, true);
   350         #128..char(128 + cMaxSlotIndex): ParseCommand('slot ' + char(byte(headcmd^.cmd) - 79), true)
       
   351         else
   350         else
   352             OutError('Unexpected protocol command: ' + headcmd^.cmd, True)
   351             if headcmd^.cmd >= #128 and headcmd^.cmd <= char(128 + cMaxSlotIndex) then
       
   352                 ParseCommand('slot ' + char(byte(headcmd^.cmd) - 79), true)
       
   353                 else
       
   354                 OutError('Unexpected protocol command: ' + headcmd^.cmd, True)
   353         end;
   355         end;
   354     RemoveCmd
   356     RemoveCmd
   355     end;
   357     end;
   356 
   358 
   357 if (headcmd <> nil) and tmpflag and (not CurrentTeam^.hasGone) then
   359 if (headcmd <> nil) and tmpflag and (not CurrentTeam^.hasGone) then