--- a/hedgewars/uGears.pas	Sat Mar 19 16:00:10 2011 -0400
+++ b/hedgewars/uGears.pas	Sat Mar 19 17:49:27 2011 -0400
@@ -129,7 +129,8 @@
             @doStepNapalmBomb,
             @doStepSnowball,
             @doStepSnowflake,
-            @doStepPlaceStructure
+            @doStepPlaceStructure,
+            @doStepLandGun
             );
 
 procedure InsertGearToList(Gear: PGear);
@@ -263,6 +264,7 @@
      gtFlake: begin
                 with Gear^ do
                     begin
+                    Radius:= 1;
                     DirAngle:= random * 360;
                     dx.isNegative:= GetRandom(2) = 0;
                     dx.QWordValue:= GetRandom(100000000);
@@ -497,6 +499,12 @@
                 gear^.Health:= 500;
                 gear^.Damage:= 100;
                 end;
+     gtLandGun: begin
+                gear^.Tag:= 10;
+                gear^.Timer:= 10;
+                gear^.Health:= 1000;
+                gear^.Damage:= 100;
+                end;
  gtPoisonCloud: begin
                 gear^.Timer:= 5000;
                 gear^.dY:= int2hwfloat(-4 + longint(getRandom(8))) / 1000;