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