hedgewars/HHHandlers.inc
changeset 4238 6f1631765ebd
parent 4233 b4ad20bfe310
child 4241 835fd7a0e1bf
equal deleted inserted replaced
4237:ef9b201c97fe 4238:6f1631765ebd
   449 Gear^.Message:= gmDestroy;
   449 Gear^.Message:= gmDestroy;
   450 PlaySound(sndShotgunReload);
   450 PlaySound(sndShotgunReload);
   451 case Gear^.Pos of
   451 case Gear^.Pos of
   452        posCaseUtility,
   452        posCaseUtility,
   453        posCaseAmmo: begin
   453        posCaseAmmo: begin
   454                     a:= TAmmoType(Gear^.State);
   454                     a:= Gear^.AmmoType;
   455                     AddAmmo(PHedgehog(HH^.Hedgehog)^, a);
   455                     AddAmmo(PHedgehog(HH^.Hedgehog)^, a);
   456 // Possibly needs to check shared clan ammo game flag once added.
   456 // Possibly needs to check shared clan ammo game flag once added.
   457 // On the other hand, no obvious reason that clan members shouldn't know what ammo another clan member picked up
   457 // On the other hand, no obvious reason that clan members shouldn't know what ammo another clan member picked up
   458                     if (not (PHedgehog(HH^.Hedgehog)^.Team^.ExtDriven 
   458                     if (not (PHedgehog(HH^.Hedgehog)^.Team^.ExtDriven 
   459                       or (PHedgehog(HH^.Hedgehog)^.BotLevel > 0)))
   459                       or (PHedgehog(HH^.Hedgehog)^.BotLevel > 0)))