hedgewars/uWorld.pas
changeset 1045 ea195268734f
parent 1023 2a32ee7affa3
child 1066 1f1b3686a2b0
--- a/hedgewars/uWorld.pas	Tue Jul 01 22:26:36 2008 +0000
+++ b/hedgewars/uWorld.pas	Fri Jul 04 14:40:52 2008 +0000
@@ -189,7 +189,7 @@
 DrawRepeated(sprSky, WorldDx * 3 div 8);
 DrawRepeated(sprHorizont, WorldDx * 3 div 5);
 
-DrawVisualGears;
+DrawVisualGears(0);
 
 // Waves
 {$WARNINGS OFF}
@@ -220,6 +220,8 @@
 
 DrawGears;
 
+DrawVisualGears(1);
+
 // Waves
 {$WARNINGS OFF}
 for i:= -1 to cWaterSprCount do DrawSprite(sprWater,  i * 256  + ((WorldDx + (RealTicks shr 6) +  64) and $FF), cWaterLine + WorldDy - 32, 0);