equal
deleted
inserted
replaced
126 procedure ShotgunShot(Gear: PGear); forward; |
126 procedure ShotgunShot(Gear: PGear); forward; |
127 procedure PickUp(HH, Gear: PGear); forward; |
127 procedure PickUp(HH, Gear: PGear); forward; |
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; |
|
132 begin |
|
133 GetLaunchX:= dir * (8 + hwRound(AngleSin(angle) * Ammoz[at].ejectX) + hwRound(AngleCos(angle) * Ammoz[at].ejectY)) |
|
134 end; |
|
135 |
|
136 function GetLaunchY(at: TAmmoType; angle: LongInt): LongInt; |
|
137 begin |
|
138 GetLaunchY:= hwRound(AngleSin(angle) * Ammoz[at].ejectY) - hwRound(AngleCos(angle) * Ammoz[at].ejectX) - 2; |
|
139 end; |
131 |
140 |
132 {$INCLUDE "GSHandlers.inc"} |
141 {$INCLUDE "GSHandlers.inc"} |
133 {$INCLUDE "HHHandlers.inc"} |
142 {$INCLUDE "HHHandlers.inc"} |
134 |
143 |
135 const doStepHandlers: array[TGearType] of TGearStepProcedure = ( |
144 const doStepHandlers: array[TGearType] of TGearStepProcedure = ( |