hedgewars/uWorld.pas
changeset 10533 57b4d411f77d
parent 10532 28651db3f90e
child 10562 3388822b3914
equal deleted inserted replaced
10532:28651db3f90e 10533:57b4d411f77d
  1352         DrawWaves(-1, 100 + WorldDx div 14, offsetY div 70, -7, 24);
  1352         DrawWaves(-1, 100 + WorldDx div 14, offsetY div 70, -7, 24);
  1353     end
  1353     end
  1354 else
  1354 else
  1355     DrawWaves(-1, 100, - cWaveHeight div 2, - cWaveHeight div 2, 0);
  1355     DrawWaves(-1, 100, - cWaveHeight div 2, - cWaveHeight div 2, 0);
  1356 
  1356 
  1357     changeDepth(RM, cStereo_Land);
  1357 ChangeDepth(RM, cStereo_Land);
  1358     DrawVisualGears(5);
  1358 DrawVisualGears(5);
       
  1359 DrawLand(WorldDx, WorldDy);
       
  1360 
       
  1361 if replicateToLeft then
       
  1362     begin
       
  1363     ShiftWorld(-1);
  1359     DrawLand(WorldDx, WorldDy);
  1364     DrawLand(WorldDx, WorldDy);
  1360 
  1365     UnshiftWorld();
  1361     if replicateToLeft then
  1366     end;
  1362         begin
  1367 
  1363         ShiftWorld(-1);
  1368 if replicateToRight then
  1364         DrawLand(WorldDx, WorldDy);
  1369     begin
  1365         UnshiftWorld();
  1370     ShiftWorld(1);
  1366         end;
  1371     DrawLand(WorldDx, WorldDy);
  1367 
  1372     UnshiftWorld();
  1368     if replicateToRight then
  1373     end;
  1369         begin
  1374 
  1370         ShiftWorld(1);
  1375 DrawWater(255, 0, 0);
  1371         DrawLand(WorldDx, WorldDy);
       
  1372         UnshiftWorld();
       
  1373         end;
       
  1374 
       
  1375     DrawWater(255, 0, 0);
       
  1376 
  1376 
  1377 (*
  1377 (*
  1378 // Attack bar
  1378 // Attack bar
  1379     if CurrentTeam <> nil then
  1379     if CurrentTeam <> nil then
  1380         case AttackBar of
  1380         case AttackBar of