--- a/hedgewars/uGears.pas	Sun Nov 07 18:39:34 2010 +0300
+++ b/hedgewars/uGears.pas	Sun Nov 07 19:24:37 2010 +0300
@@ -155,7 +155,7 @@
 const doStepHandlers: array[TGearType] of TGearStepProcedure = (
             @doStepBomb,
             @doStepHedgehog,
-            @doStepGrenade,
+            @doStepShell,
             @doStepGrave,
             @doStepBee,
             @doStepShotgunShot,
@@ -292,7 +292,7 @@
     end;
 
 case Kind of
-     gtAmmo_Bomb,
+     gtBomb,
      gtClusterBomb,
      gtGasBomb: begin
                 gear^.ImpactSound:= sndGrenadeImpact;
@@ -325,7 +325,7 @@
                     if PHedgehog(gear^.Hedgehog)^.BotLevel > 0 then
                         PHedgehog(gear^.Hedgehog)^.Effects[heResurrectable] := true;
                 end;
-gtAmmo_Grenade: begin // bazooka
+       gtShell: begin
                 gear^.Radius:= 4;
                 end;
        gtGrave: begin