equal
deleted
inserted
replaced
128 procedure HHSetWeapon(Gear: PGear); forward; |
128 procedure HHSetWeapon(Gear: PGear); forward; |
129 procedure doStepCase(Gear: PGear); forward; |
129 procedure doStepCase(Gear: PGear); forward; |
130 |
130 |
131 function GetLaunchX(at: TAmmoType; dir: LongInt; angle: LongInt): LongInt; |
131 function GetLaunchX(at: TAmmoType; dir: LongInt; angle: LongInt): LongInt; |
132 begin |
132 begin |
133 GetLaunchX:= dir * (8 + hwRound(AngleSin(angle) * Ammoz[at].ejectX) + hwRound(AngleCos(angle) * Ammoz[at].ejectY)) |
133 GetLaunchX:= sign(dir) * (8 + hwRound(AngleSin(angle) * Ammoz[at].ejectX) + hwRound(AngleCos(angle) * Ammoz[at].ejectY)) |
134 end; |
134 end; |
135 |
135 |
136 function GetLaunchY(at: TAmmoType; angle: LongInt): LongInt; |
136 function GetLaunchY(at: TAmmoType; angle: LongInt): LongInt; |
137 begin |
137 begin |
138 GetLaunchY:= hwRound(AngleSin(angle) * Ammoz[at].ejectY) - hwRound(AngleCos(angle) * Ammoz[at].ejectX) - 2; |
138 GetLaunchY:= hwRound(AngleSin(angle) * Ammoz[at].ejectY) - hwRound(AngleCos(angle) * Ammoz[at].ejectX) - 2; |