hedgewars/GSHandlers.inc
changeset 3020 9b443edb8dd1
parent 3019 d6e19f35d98d
child 3032 9c190d3c165b
--- a/hedgewars/GSHandlers.inc	Thu Mar 18 09:55:22 2010 +0000
+++ b/hedgewars/GSHandlers.inc	Thu Mar 18 17:52:56 2010 +0000
@@ -81,12 +81,12 @@
     
     if not cReducedQuality then 
         begin
-        AddVisualGear(hwRound(Gear^.X), LAND_HEIGHT, vgtSplash);
+        AddVisualGear(hwRound(Gear^.X), cWaterLine, vgtSplash);
        
         maxDrops := (Gear^.Radius div 2) + hwRound(Gear^.dX * Gear^.Radius * 2) + hwRound(Gear^.dY * Gear^.Radius * 2);
         for i:= max(maxDrops div 3, min(32, Random(maxDrops))) downto 0 do 
             begin
-            particle := AddVisualGear(hwRound(Gear^.X) - 3 + Random(6), LAND_HEIGHT, vgtDroplet);
+            particle := AddVisualGear(hwRound(Gear^.X) - 3 + Random(6), cWaterLine, vgtDroplet);
             if particle <> nil then
                 begin
                 particle^.dX := particle^.dX - (Gear^.dX / 10);
@@ -166,6 +166,7 @@
 ////////////////////////////////////////////////////////////////////////////////
 procedure doStepFallingGear(Gear: PGear);
 var isFalling: boolean;
+    //tmp: QWord;
     tdX, tdY: hwFloat;
     collV, collH: LongInt;
 begin
@@ -1578,7 +1579,7 @@
     if (hwRound(Gear^.Y) > cWaterLine) then
         begin
         for i:= 0 to 3 do
-            AddVisualGear(hwRound(Gear^.X) - 16 + Random(32), hwRound(Gear^.Y) - 16 + Random(16), vgtSteam);
+            AddVisualGear(hwRound(Gear^.X) - 16 + Random(32), cWaterLine - 16 + Random(16), vgtSteam);
         PlaySound(sndVaporize);
         DeleteGear(Gear);
         exit