hedgewars/uGears.pas
changeset 2177 c045698e044f
parent 2168 5ffb01c3b176
child 2182 ed7e7eb3f9ed
--- a/hedgewars/uGears.pas	Sat Jun 20 07:50:03 2009 +0000
+++ b/hedgewars/uGears.pas	Sun Jun 21 15:31:09 2009 +0000
@@ -162,7 +162,8 @@
 			@doStepBallgun,
 			@doStepBomb,
 			@doStepRCPlane,
-			@doStepSniperRifleShot
+			@doStepSniperRifleShot,
+			@doStepJetpack
 			);
 
 procedure InsertGearToList(Gear: PGear);
@@ -386,6 +387,10 @@
                 Result^.Health:= 3;
                 Result^.Radius:= 8;
                 end;
+     gtJetpack: begin
+                Result^.Timer:= 20000;
+                Result^.Health:= 2000;
+                end;
      end;
 InsertGearToList(Result);
 AddGear:= Result