equal
deleted
inserted
replaced
299 var s: shortstring; |
299 var s: shortstring; |
300 a: TAmmoType; |
300 a: TAmmoType; |
301 i: Integer; |
301 i: Integer; |
302 begin |
302 begin |
303 Gear^.Message:= gm_Destroy; |
303 Gear^.Message:= gm_Destroy; |
304 if Gear^.Pos = posCaseAmmo then PlaySound(sndShotgunReload, false, nil) |
304 PlaySound(sndShotgunReload, false, nil) |
305 else PlaySound(sndPlaced, false, nil); |
|
306 case Gear^.Pos of |
305 case Gear^.Pos of |
307 posCaseUtility, |
306 posCaseUtility, |
308 posCaseAmmo: begin |
307 posCaseAmmo: begin |
309 a:= TAmmoType(Gear^.State); |
308 a:= TAmmoType(Gear^.State); |
310 AddAmmo(PHedgehog(HH^.Hedgehog)^, a); |
309 AddAmmo(PHedgehog(HH^.Hedgehog)^, a); |