hedgewars/uWorld.pas
changeset 15209 fe79f62ef158
parent 15206 d48eba5ac715
child 15436 617f4c092e3d
equal deleted inserted replaced
15208:13e3e643b4f5 15209:fe79f62ef158
  1142 var i, t: LongInt;
  1142 var i, t: LongInt;
  1143     spr: TSprite;
  1143     spr: TSprite;
  1144     r: TSDL_Rect;
  1144     r: TSDL_Rect;
  1145     s: shortstring;
  1145     s: shortstring;
  1146     offsetX, offsetY, screenBottom: LongInt;
  1146     offsetX, offsetY, screenBottom: LongInt;
  1147     replicateToLeft, replicateToRight, tmp, isNotHiddenByCinematic: boolean;
  1147     replicateToLeft, replicateToRight, isNotHiddenByCinematic: boolean;
  1148 {$IFDEF USE_VIDEO_RECORDING}
  1148 {$IFDEF USE_VIDEO_RECORDING}
  1149     a: Byte;
  1149     a: Byte;
  1150 {$ENDIF}
  1150 {$ENDIF}
  1151 begin
  1151 begin
  1152 if WorldEdge <> weWrap then
  1152 if WorldEdge <> weWrap then
  1223     UnshiftWorld();
  1223     UnshiftWorld();
  1224     end;
  1224     end;
  1225 
  1225 
  1226 DrawWater(255, 0, 0);
  1226 DrawWater(255, 0, 0);
  1227 
  1227 
  1228 tmp:= bShowFinger;
       
  1229 bShowFinger:= false;
       
  1230 
       
  1231 if replicateToLeft then
  1228 if replicateToLeft then
  1232     begin
  1229     begin
  1233     ShiftWorld(-1);
  1230     ShiftWorld(-1);
  1234     DrawVisualGears(1, true);
  1231     DrawVisualGears(1, true);
  1235     DrawGears();
  1232     DrawGears();
  1243     DrawVisualGears(1, true);
  1240     DrawVisualGears(1, true);
  1244     DrawGears();
  1241     DrawGears();
  1245     DrawVisualGears(6, true);
  1242     DrawVisualGears(6, true);
  1246     UnshiftWorld();
  1243     UnshiftWorld();
  1247     end;
  1244     end;
  1248 
       
  1249 bShowFinger:= tmp;
       
  1250 
  1245 
  1251 DrawVisualGears(1, false);
  1246 DrawVisualGears(1, false);
  1252 DrawGears;
  1247 DrawGears;
  1253 DrawVisualGears(6, false);
  1248 DrawVisualGears(6, false);
  1254 
  1249