1234567891011121314151617181920 |
- { %NORUN }
- program tw37286;
- {$mode objfpc}
- var preShiftWorldDx: LongInt;
- WorldDx: LongInt;
- playWidth: LongInt;
- procedure ShiftWorld(Dir: LongInt); inline;
- begin
- preShiftWorldDx:= WorldDx;
- WorldDx:= WorldDx + LongInt(Dir * LongInt(playWidth));
- end;
- begin
- ShiftWorld(-1);
- end.
|