hedgewars/uIO.pas
changeset 1035 6f5842bc481b
parent 978 4d4f290d05c5
child 1038 3c843ce630ea
equal deleted inserted replaced
1034:05f003ad3caa 1035:6f5842bc481b
   250 		'P': begin
   250 		'P': begin
   251 			CursorPoint.X:= SmallInt(SDLNet_Read16(@(headcmd^.X)) + WorldDx);
   251 			CursorPoint.X:= SmallInt(SDLNet_Read16(@(headcmd^.X)) + WorldDx);
   252 			CursorPoint.Y:= SmallInt(SDLNet_Read16(@(headcmd^.Y)) + WorldDy);
   252 			CursorPoint.Y:= SmallInt(SDLNet_Read16(@(headcmd^.Y)) + WorldDy);
   253 			end;
   253 			end;
   254 		'w': ParseCommand('setweap ' + headcmd^.str[2], true);
   254 		'w': ParseCommand('setweap ' + headcmd^.str[2], true);
       
   255 		't': ParseCommand('taunt ' + headcmd^.str[2], true);
   255 		'1'..'5': ParseCommand('timer ' + headcmd^.cmd, true);
   256 		'1'..'5': ParseCommand('timer ' + headcmd^.cmd, true);
   256 		#128..char(128 + cMaxSlotIndex): ParseCommand('slot ' + char(byte(headcmd^.cmd) - 79), true)
   257 		#128..char(128 + cMaxSlotIndex): ParseCommand('slot ' + char(byte(headcmd^.cmd) - 79), true)
       
   258 		else
       
   259 			OutError('Unexpected protocol command: ' + headcmd^.cmd, True)
   257 		end;
   260 		end;
   258 	RemoveCmd
   261 	RemoveCmd
   259 	end;
   262 	end;
   260 
   263 
   261 if (headcmd <> nil) then
   264 if (headcmd <> nil) then