hedgewars/uIO.pas
changeset 392 25be13ae29da
parent 371 731ad6d27bd1
child 526 e3689572bb15
equal deleted inserted replaced
391:e7565bb852a2 392:25be13ae29da
   205         'N': begin
   205         'N': begin
   206              tmpflag:= false;
   206              tmpflag:= false;
   207              {$IFDEF DEBUGFILE}AddFileLog('got cmd "N": time '+inttostr(extcmd[cmdcurpos].Time)){$ENDIF}
   207              {$IFDEF DEBUGFILE}AddFileLog('got cmd "N": time '+inttostr(extcmd[cmdcurpos].Time)){$ENDIF}
   208              end;
   208              end;
   209         'p': begin
   209         'p': begin
   210              TargetPoint.X:= SDLNet_Read16(@extcmd[cmdcurpos].X);
   210              TargetPoint.X:= SmallInt(SDLNet_Read16(@extcmd[cmdcurpos].X));
   211              TargetPoint.Y:= SDLNet_Read16(@extcmd[cmdcurpos].Y);
   211              TargetPoint.Y:= SmallInt(SDLNet_Read16(@extcmd[cmdcurpos].Y));
   212              ParseCommand('put', true)
   212              ParseCommand('put', true)
   213              end;
   213              end;
   214         'P': begin
   214         'P': begin
   215              CursorPoint.X:= SDLNet_Read16(@extcmd[cmdcurpos].X) + WorldDx;
   215              CursorPoint.X:= SmallInt(SDLNet_Read16(@extcmd[cmdcurpos].X) + WorldDx);
   216              CursorPoint.Y:= SDLNet_Read16(@extcmd[cmdcurpos].Y) + WorldDy;
   216              CursorPoint.Y:= SmallInt(SDLNet_Read16(@extcmd[cmdcurpos].Y) + WorldDy);
   217              end;
   217              end;
   218         '1'..'5': ParseCommand('timer ' + extcmd[cmdcurpos].cmd, true);
   218         '1'..'5': ParseCommand('timer ' + extcmd[cmdcurpos].cmd, true);
   219         #128..char(128 + cMaxSlotIndex): ParseCommand('slot ' + char(byte(extcmd[cmdcurpos].cmd) - 79), true)
   219         #128..char(128 + cMaxSlotIndex): ParseCommand('slot ' + char(byte(extcmd[cmdcurpos].cmd) - 79), true)
   220         end;
   220         end;
   221    inc(cmdcurpos)
   221    inc(cmdcurpos)