equal
deleted
inserted
replaced
1166 var preShiftWorldDx: LongInt; |
1166 var preShiftWorldDx: LongInt; |
1167 |
1167 |
1168 procedure ShiftWorld(Dir: LongInt); inline; |
1168 procedure ShiftWorld(Dir: LongInt); inline; |
1169 begin |
1169 begin |
1170 preShiftWorldDx:= WorldDx; |
1170 preShiftWorldDx:= WorldDx; |
1171 WorldDx:= WorldDx + LongInt(Dir * LongInt(playWidth)); |
1171 Dir := Dir * LongInt(playWidth); |
1172 |
1172 WorldDx:= WorldDx + Dir; |
1173 end; |
1173 end; |
1174 |
1174 |
1175 procedure UnshiftWorld(); inline; |
1175 procedure UnshiftWorld(); inline; |
1176 begin |
1176 begin |
1177 WorldDx:= preShiftWorldDx; |
1177 WorldDx:= preShiftWorldDx; |