hedgewars/uIO.pas
changeset 112 ca5f06017e99
parent 95 1ef5e2c41115
child 154 5667e6f38704
equal deleted inserted replaced
111:30ca06092a64 112:ca5f06017e99
   202         'P': begin
   202         'P': begin
   203              CursorPoint.X:= extcmd[cmdcurpos].X + WorldDx;
   203              CursorPoint.X:= extcmd[cmdcurpos].X + WorldDx;
   204              CursorPoint.Y:= extcmd[cmdcurpos].Y + WorldDy;
   204              CursorPoint.Y:= extcmd[cmdcurpos].Y + WorldDy;
   205              end;
   205              end;
   206         '1'..'5': ParseCommand('timer ' + extcmd[cmdcurpos].cmd);
   206         '1'..'5': ParseCommand('timer ' + extcmd[cmdcurpos].cmd);
   207         #128..#134: ParseCommand('slot ' + char(byte(extcmd[cmdcurpos].cmd) - 79))
   207         #128..char(128 + cMaxSlotIndex): ParseCommand('slot ' + char(byte(extcmd[cmdcurpos].cmd) - 79))
   208         end;
   208         end;
   209    inc(cmdcurpos)
   209    inc(cmdcurpos)
   210    end;
   210    end;
   211 isInLag:= (cmdcurpos > cmdendpos) and tmpflag
   211 isInLag:= (cmdcurpos > cmdendpos) and tmpflag
   212 end;
   212 end;