--- a/hedgewars/uGears.pas	Thu Sep 18 14:44:44 2008 +0000
+++ b/hedgewars/uGears.pas	Thu Sep 18 16:16:41 2008 +0000
@@ -141,7 +141,9 @@
 			@doStepCake,
 			@doStepSeduction,
 			@doStepBomb,
-			@doStepCluster
+			@doStepCluster,
+			@doStepBomb,
+			@doStepSmokeTrace
 			);
 
 procedure InsertGearToList(Gear: PGear);
@@ -245,7 +247,8 @@
                 Result^.Radius:= 10;
                 Result^.Timer:= 4000
                 end;
-  gtSmokeTrace: begin
+  gtSmokeTrace,
+   gtEvilTrace: begin
                 Result^.X:= Result^.X - _16;
                 Result^.Y:= Result^.Y - _16;
                 Result^.State:= 8
@@ -327,6 +330,11 @@
                 Result^.Z:= cOnHHZ;
                 if hwSign(dX) > 0 then Result^.Angle:= 1 else Result^.Angle:= 3
                 end;
+ gtHellishBomb: begin
+                Result^.Radius:= 4;
+                Result^.Elasticity:= _0_5;
+                Result^.Friction:= _0_96;
+                end;
      end;
 InsertGearToList(Result);
 AddGear:= Result
@@ -1088,7 +1096,9 @@
                      DrawRotatedf(sprCakeDown, hwRound(Gear^.X) + WorldDx, hwRound(Gear^.Y) + WorldDy, 5 - Gear^.Pos, hwSign(Gear^.dX), 0);
       gtWatermelon: DrawRotatedf(sprWatermelon, hwRound(Gear^.X) + WorldDx, hwRound(Gear^.Y) + WorldDy, 0, 0, Gear^.DirAngle);
       gtMelonPiece: DrawRotatedf(sprWatermelon, hwRound(Gear^.X) + WorldDx, hwRound(Gear^.Y) + WorldDy, 1, 0, Gear^.DirAngle);
-              end;
+     gtHellishBomb: DrawRotated(sprHellishBomb, hwRound(Gear^.X) + WorldDx, hwRound(Gear^.Y) + WorldDy, 0, Gear^.DirAngle);
+      gtEvilTrace: if Gear^.State < 8 then DrawSprite(sprEvilTrace, hwRound(Gear^.X) + WorldDx, hwRound(Gear^.Y) + WorldDy, Gear^.State);
+         end;
       Gear:= Gear^.NextGear
       end;
 end;