hedgewars/HHHandlers.inc
changeset 1964 dc9ea05c9d2f
parent 1922 88cdabb51995
child 2017 7845c77c8d31
equal deleted inserted replaced
1963:58c29439225d 1964:dc9ea05c9d2f
   272 var s: shortstring;
   272 var s: shortstring;
   273     a: TAmmoType;
   273     a: TAmmoType;
   274 begin
   274 begin
   275 Gear^.Message:= gm_Destroy;
   275 Gear^.Message:= gm_Destroy;
   276 case Gear^.Pos of
   276 case Gear^.Pos of
   277        posCaseUtility, 
   277        posCaseUtility,
   278        posCaseAmmo: begin
   278        posCaseAmmo: begin
   279                     a:= TAmmoType(Gear^.State);
   279                     a:= TAmmoType(Gear^.State);
   280                     AddAmmo(PHedgehog(HH^.Hedgehog)^, a);
   280                     AddAmmo(PHedgehog(HH^.Hedgehog)^, a);
   281                     if (not (PHedgehog(HH^.Hedgehog)^.Team^.ExtDriven
   281                     if (not (PHedgehog(HH^.Hedgehog)^.Team^.ExtDriven
   282                       or (PHedgehog(HH^.Hedgehog)^.BotLevel > 0)))
   282                       or (PHedgehog(HH^.Hedgehog)^.BotLevel > 0)))