hedgewars/GSHandlers.inc
changeset 4246 e5cb885492df
parent 4233 b4ad20bfe310
child 4254 47515c926984
--- a/hedgewars/GSHandlers.inc	Fri Nov 12 00:11:22 2010 +0100
+++ b/hedgewars/GSHandlers.inc	Fri Nov 12 14:54:53 2010 +0100
@@ -2059,6 +2059,10 @@
             2: for i:= -19 to 19 do
                    FollowGear := AddGear(hwRound(Gear^.X) + i div 3, hwRound(Gear^.Y), gtFlame, 0,
                                  _0_001 * i, _0, 0);
+            3: FollowGear := AddGear(hwRound(Gear^.X), hwRound(Gear^.Y), gtDrill, 0, cBombsSpeed *
+                             Gear^.Tag, _0, 0);
+            //4: FollowGear := AddGear(hwRound(Gear^.X), hwRound(Gear^.Y), gtWaterMelon, 0, cBombsSpeed *
+            //                 Gear^.Tag, _0, 5000);
         end;
         Gear^.dX := Gear^.dX + int2hwFloat(30 * Gear^.Tag)
     end;