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(sndShotgunFire, false, nil) |
|
305 else PlaySound(sndPlaced, false, nil); |
304 case Gear^.Pos of |
306 case Gear^.Pos of |
305 posCaseUtility, |
307 posCaseUtility, |
306 posCaseAmmo: begin |
308 posCaseAmmo: begin |
307 a:= TAmmoType(Gear^.State); |
309 a:= TAmmoType(Gear^.State); |
308 AddAmmo(PHedgehog(HH^.Hedgehog)^, a); |
310 AddAmmo(PHedgehog(HH^.Hedgehog)^, a); |