equal
deleted
inserted
replaced
457 end; |
457 end; |
458 end; |
458 end; |
459 |
459 |
460 procedure doStepDEagleShot(Gear: PGear); |
460 procedure doStepDEagleShot(Gear: PGear); |
461 begin |
461 begin |
462 if Ammoz[amDEagle].Ammo.NumPerTurn>CurrentHedgehog^.AttacksNum then |
|
463 AddCaption(inttostr(Ammoz[amDEagle].Ammo.NumPerTurn-CurrentHedgehog^.AttacksNum)+' '+trmsg[sidRemaining], $FFFFFF, capgrpAmmostate); |
|
464 PlaySound(sndGun, false, nil); |
462 PlaySound(sndGun, false, nil); |
465 Gear^.doStep:= @doStepBulletWork |
463 Gear^.doStep:= @doStepBulletWork |
466 end; |
464 end; |
467 |
465 |
468 procedure doStepSniperRifleShot(Gear: PGear); |
466 procedure doStepSniperRifleShot(Gear: PGear); |