equal
deleted
inserted
replaced
308 |
308 |
309 //////////////////////////////////////////////////////////////////////////////// |
309 //////////////////////////////////////////////////////////////////////////////// |
310 procedure PickUp(HH, Gear: PGear); |
310 procedure PickUp(HH, Gear: PGear); |
311 var s: shortstring; |
311 var s: shortstring; |
312 a: TAmmoType; |
312 a: TAmmoType; |
313 i: Integer; |
313 i: LongInt; |
314 vga: PVisualGear; |
314 vga: PVisualGear; |
315 begin |
315 begin |
316 Gear^.Message:= gm_Destroy; |
316 Gear^.Message:= gm_Destroy; |
317 PlaySound(sndShotgunReload); |
317 PlaySound(sndShotgunReload); |
318 case Gear^.Pos of |
318 case Gear^.Pos of |