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); |
462 PlaySound(sndGun, false, nil); |
464 PlaySound(sndGun, false, nil); |
463 Gear^.doStep:= @doStepBulletWork |
465 Gear^.doStep:= @doStepBulletWork |
464 end; |
466 end; |
465 |
467 |
466 procedure doStepSniperRifleShot(Gear: PGear); |
468 procedure doStepSniperRifleShot(Gear: PGear); |
2247 Active:= true; |
2249 Active:= true; |
2248 State:= State or gstMoving |
2250 State:= State or gstMoving |
2249 end; |
2251 end; |
2250 DeleteGear(Gear); |
2252 DeleteGear(Gear); |
2251 isCursorVisible:= false; |
2253 isCursorVisible:= false; |
2252 AddCaption('Fuel: '+inttostr(round(Gear^.Health/20))+'%', $FFFFFF, capgrpAmmostate); |
2254 AddCaption(trmsg[sidFuel]+': '+inttostr(round(Gear^.Health/20))+'%', $FFFFFF, capgrpAmmostate); |
2253 end |
2255 end |
2254 end; |
2256 end; |
2255 |
2257 |
2256 procedure doStepJetpack(Gear: PGear); |
2258 procedure doStepJetpack(Gear: PGear); |
2257 var HHGear: PGear; |
2259 var HHGear: PGear; |