hedgewars/uWorld.pas
branchtransitional_engine
changeset 15900 128ace913837
parent 15835 f0f615dcbe7c
equal deleted inserted replaced
15899:73cdc306888f 15900:128ace913837
  1163         end;
  1163         end;
  1164 end;
  1164 end;
  1165 
  1165 
  1166 var preShiftWorldDx: LongInt;
  1166 var preShiftWorldDx: LongInt;
  1167 
  1167 
  1168 procedure ShiftWorld(Dir: LongInt); inline;
  1168 procedure ShiftWorld(Dir: LongInt); 
  1169 begin
  1169 begin
  1170     preShiftWorldDx:= WorldDx;
  1170     preShiftWorldDx:= WorldDx;
  1171     Dir := Dir * LongInt(playWidth);
  1171     Dir := Dir * LongInt(playWidth);
  1172     WorldDx:= WorldDx + Dir;
  1172     WorldDx:= WorldDx + Dir;
  1173 end;
  1173 end;
  1174 
  1174 
  1175 procedure UnshiftWorld(); inline;
  1175 procedure UnshiftWorld(); 
  1176 begin
  1176 begin
  1177     WorldDx:= preShiftWorldDx;
  1177     WorldDx:= preShiftWorldDx;
  1178 end;
  1178 end;
  1179 
  1179 
  1180 procedure DrawWorldStereo(Lag: LongInt; RM: TRenderMode);
  1180 procedure DrawWorldStereo(Lag: LongInt; RM: TRenderMode);