equal
deleted
inserted
replaced
596 end; |
596 end; |
597 |
597 |
598 //////////////////////////////////////////////////////////////////////////////// |
598 //////////////////////////////////////////////////////////////////////////////// |
599 procedure PickUp(HH, Gear: PGear); |
599 procedure PickUp(HH, Gear: PGear); |
600 var s: shortstring; |
600 var s: shortstring; |
601 a: TAmmoType; |
|
602 i: LongInt; |
601 i: LongInt; |
603 vga: PVisualGear; |
602 vga: PVisualGear; |
604 ag, gi: PGear; |
603 ag, gi: PGear; |
605 begin |
604 begin |
606 Gear^.Message:= gmDestroy; |
605 Gear^.Message:= gmDestroy; |