94 begin |
94 begin |
95 StopSound(sndThrowPowerUp); |
95 StopSound(sndThrowPowerUp); |
96 PlaySound(sndThrowRelease, false); |
96 PlaySound(sndThrowRelease, false); |
97 end; |
97 end; |
98 xx:= SignAs(AngleSin(Angle), dX); |
98 xx:= SignAs(AngleSin(Angle), dX); |
99 yy:= -AngleCos(Angle); |
99 yy:= -AngleCos(Angle); |
|
100 |
|
101 if ((Gear^.State and gstHHHJump) <> 0) then xx:= - xx; |
100 case Ammo^[CurSlot, CurAmmo].AmmoType of |
102 case Ammo^[CurSlot, CurAmmo].AmmoType of |
101 amGrenade: FollowGear:= AddGear(hwRound(X), hwRound(Y), gtAmmo_Bomb, 0, xx*Power/cPowerDivisor, yy*Power/cPowerDivisor, Ammo^[CurSlot, CurAmmo].Timer); |
103 amGrenade: FollowGear:= AddGear(hwRound(X), hwRound(Y), gtAmmo_Bomb, 0, xx*Power/cPowerDivisor, yy*Power/cPowerDivisor, Ammo^[CurSlot, CurAmmo].Timer); |
102 amClusterBomb: FollowGear:= AddGear(hwRound(X), hwRound(Y), gtClusterBomb, 0, xx*Power/cPowerDivisor, yy*Power/cPowerDivisor, Ammo^[CurSlot, CurAmmo].Timer); |
104 amClusterBomb: FollowGear:= AddGear(hwRound(X), hwRound(Y), gtClusterBomb, 0, xx*Power/cPowerDivisor, yy*Power/cPowerDivisor, Ammo^[CurSlot, CurAmmo].Timer); |
103 amBazooka: FollowGear:= AddGear(hwRound(X), hwRound(Y), gtAmmo_Grenade, 0, xx*Power/cPowerDivisor, yy*Power/cPowerDivisor, 0); |
105 amBazooka: FollowGear:= AddGear(hwRound(X), hwRound(Y), gtAmmo_Grenade, 0, xx*Power/cPowerDivisor, yy*Power/cPowerDivisor, 0); |
104 amUFO: FollowGear:= AddGear(hwRound(X), hwRound(Y), gtUFO, 0, xx*Power/cPowerDivisor, yy*Power/cPowerDivisor, 0); |
106 amUFO: FollowGear:= AddGear(hwRound(X), hwRound(Y), gtUFO, 0, xx*Power/cPowerDivisor, yy*Power/cPowerDivisor, 0); |