equal
deleted
inserted
replaced
415 procedure RopeRemoveFromAmmo(Gear, HHGear: PGear); |
415 procedure RopeRemoveFromAmmo(Gear, HHGear: PGear); |
416 begin |
416 begin |
417 if (Gear^.State and gstAttacked) = 0 then |
417 if (Gear^.State and gstAttacked) = 0 then |
418 begin |
418 begin |
419 OnUsedAmmo(HHGear^.Hedgehog^); |
419 OnUsedAmmo(HHGear^.Hedgehog^); |
420 Gear^.State := Gear^.State or gstAttacked |
420 Gear^.State := Gear^.State or gstAttacked; |
421 end; |
421 ApplyAmmoChanges(HHGear^.Hedgehog^); |
422 ApplyAmmoChanges(HHGear^.Hedgehog^) |
422 end; |
423 end; |
423 end; |
424 |
424 |
425 procedure doStepRopeAttach(Gear: PGear); |
425 procedure doStepRopeAttach(Gear: PGear); |
426 var |
426 var |
427 HHGear: PGear; |
427 HHGear: PGear; |