equal
deleted
inserted
replaced
1127 var preShiftWorldDx: LongInt; |
1127 var preShiftWorldDx: LongInt; |
1128 |
1128 |
1129 procedure ShiftWorld(Dir: LongInt); inline; |
1129 procedure ShiftWorld(Dir: LongInt); inline; |
1130 begin |
1130 begin |
1131 preShiftWorldDx:= WorldDx; |
1131 preShiftWorldDx:= WorldDx; |
1132 WorldDx:= WorldDx + LongInt(Dir * LongInt(playWidth)); |
1132 Dir := Dir * LongInt(playWidth); |
1133 |
1133 WorldDx:= WorldDx + Dir; |
1134 end; |
1134 end; |
1135 |
1135 |
1136 procedure UnshiftWorld(); inline; |
1136 procedure UnshiftWorld(); inline; |
1137 begin |
1137 begin |
1138 WorldDx:= preShiftWorldDx; |
1138 WorldDx:= preShiftWorldDx; |