hedgewars/uIO.pas
changeset 16 b6f4b413dd41
parent 4 bcbd7adb4e4b
child 17 a6bed8d31444
equal deleted inserted replaced
15:6200cca92480 16:b6f4b413dd41
   197         'P': begin
   197         'P': begin
   198              CursorPoint.X:= extcmd[cmdcurpos].X + WorldDx;
   198              CursorPoint.X:= extcmd[cmdcurpos].X + WorldDx;
   199              CursorPoint.Y:= extcmd[cmdcurpos].Y + WorldDy;
   199              CursorPoint.Y:= extcmd[cmdcurpos].Y + WorldDy;
   200              end;
   200              end;
   201         '1'..'5': ParseCommand('/timer ' + extcmd[cmdcurpos].cmd);
   201         '1'..'5': ParseCommand('/timer ' + extcmd[cmdcurpos].cmd);
   202         #128..#131: ParseCommand('/slot ' + char(byte(extcmd[cmdcurpos].cmd) - 79))
   202         #128..#134: ParseCommand('/slot ' + char(byte(extcmd[cmdcurpos].cmd) - 79))
   203         end;
   203         end;
   204    inc(cmdcurpos)
   204    inc(cmdcurpos)
   205    end;
   205    end;
   206 isInLag:= (cmdcurpos > cmdendpos) and tmpflag
   206 isInLag:= (cmdcurpos > cmdendpos) and tmpflag
   207 end;
   207 end;