--- a/hedgewars/uGears.pas	Sat May 10 13:44:30 2008 +0000
+++ b/hedgewars/uGears.pas	Sat May 10 14:46:02 2008 +0000
@@ -133,7 +133,8 @@
                                                                @doStepTeleport,
                                                                @doStepHealthTag,
                                                                @doStepSwitcher,
-                                                               @doStepCase
+                                                               @doStepCase,
+                                                               @doStepMortar
                                                                );
 
 procedure InsertGearToList(Gear: PGear);
@@ -298,6 +299,10 @@
                 Result^.Radius:= 16;
                 Result^.Elasticity:= _0_3
                 end;
+      gtMortar: begin
+                Result^.Elasticity:= _0_2;
+                Result^.Friction:= _0_08
+                end;
      end;
 InsertGearToList(Result);
 AddGear:= Result