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