--- a/hedgewars/HHHandlers.inc	Mon May 02 02:07:28 2011 +0200
+++ b/hedgewars/HHHandlers.inc	Mon May 02 01:55:14 2011 -0400
@@ -317,6 +317,7 @@
                    amDrillStrike: AddGear(CurWeapon^.Pos, 0, gtAirAttack, 3, _0, _0, CurWeapon^.Timer);
                    //amMelonStrike: AddGear(CurWeapon^.Pos, 0, gtAirAttack, 4, _0, _0, 0);
                      amStructure: CurAmmoGear:= AddGear(hwRound(X), hwRound(Y), gtStructure, 0, _0, _0, 0);
+                        amTardis: CurAmmoGear:= AddGear(hwRound(X), hwRound(Y), gtTardis, 0, _0, _0, 5000);
                   end;
 
         // Clear FollowGear if using on a rope/parachute/saucer etc so focus stays with the hog's movement
@@ -996,3 +997,13 @@
     doStepHedgehogDriven(Gear)
     end;
 end;
+
+procedure doStepHedgehogReturn(Gear: PGear);
+begin
+if (Gear^.Timer > 0) and ((GameTicks mod 20) = 0) then dec(Gear^.Timer)
+else if (Gear^.Timer = 0) then
+    begin
+    Gear^.doStep:= @doStepHedgehog;
+    Gear^.State:= Gear^.State and not gstTmpFlag;
+    end
+end;