hedgewars/GSHandlers.inc
changeset 6120 85d99bbe074c
parent 6112 7839a2ae90ae
child 6121 895115acb8c5
--- a/hedgewars/GSHandlers.inc	Mon Oct 10 15:25:59 2011 -0400
+++ b/hedgewars/GSHandlers.inc	Mon Oct 10 15:45:19 2011 -0400
@@ -452,7 +452,7 @@
                         begin
                         dX := rndSign(GetRandom * _0_1) + Gear^.dX / 5;
                         dY := (GetRandom - _3) * _0_08;
-                        AddGear(x, y, gtCluster, 0, dX, dY, 25);
+                        FollowGear := AddGear(x, y, gtCluster, 0, dX, dY, 25)
                         end
                 end;
             gtWatermelon: 
@@ -464,7 +464,8 @@
                     begin
                     dX := rndSign(GetRandom * _0_1) + Gear^.dX / 5;
                     dY := (GetRandom - _1_5) * _0_3;
-                    AddGear(x, y, gtMelonPiece, 0, dX, dY, 75)^.DirAngle := i * 60;
+                    FollowGear:= AddGear(x, y, gtMelonPiece, 0, dX, dY, 75);
+                    FollowGear^.DirAngle := i * 60
                     end
                 end;
             gtHellishBomb: 
@@ -490,7 +491,7 @@
                     begin
                     x:= GetRandom(60);
                     y:= GetRandom(40);
-                    AddGear(hwRound(Gear^.X) - 30 + x, hwRound(Gear^.Y) - 20 + y, gtPoisonCloud, 0, _0, _0, 0);
+                    FollowGear:= AddGear(hwRound(Gear^.X) - 30 + x, hwRound(Gear^.Y) - 20 + y, gtPoisonCloud, 0, _0, _0, 0);
                     end
                 end;
         end;