diff -r 26d3b13ee553 -r ed7e7eb3f9ed hedgewars/uGears.pas --- a/hedgewars/uGears.pas Sun Jun 21 15:46:48 2009 +0000 +++ b/hedgewars/uGears.pas Sun Jun 21 17:47:57 2009 +0000 @@ -388,7 +388,6 @@ Result^.Radius:= 8; end; gtJetpack: begin - Result^.Timer:= 20000; Result^.Health:= 2000; end; end; @@ -1098,7 +1097,8 @@ end; defaultPos:= false - end + end; + end else // not gstHHDriven begin if (Gear^.Damage > 0) @@ -1163,7 +1163,27 @@ hwSign(Gear^.dX)*m, 32); end; - +if (Gear^.State and gstHHDriven) <> 0 then + begin + if (CurAmmoGear = nil) then + begin + amt:= CurrentHedgehog^.Ammo^[CurrentHedgehog^.CurSlot, CurrentHedgehog^.CurAmmo].AmmoType; + case amt of + amJetpack: DrawSprite(sprJetpack, sx-32, sy-32, 0); + end + end; + if CurAmmoGear <> nil then + begin + case CurAmmoGear^.Kind of + gtJetpack: begin + DrawSprite(sprJetpack, sx-32, sy-32, 0); + if (CurAmmoGear^.MsgParam and gm_Up) <> 0 then DrawSprite(sprJetpack, sx-32, sy-32, 1); + if (CurAmmoGear^.MsgParam and gm_Left) <> 0 then DrawSprite(sprJetpack, sx-32, sy-32, 2); + if (CurAmmoGear^.MsgParam and gm_Right) <> 0 then DrawSprite(sprJetpack, sx-32, sy-32, 3); + end; + end; + end + end; with PHedgehog(Gear^.Hedgehog)^ do begin