43 procedure FindPlace(var Gear: PGear; withFall: boolean; Left, Right: LongInt); |
43 procedure FindPlace(var Gear: PGear; withFall: boolean; Left, Right: LongInt); |
44 function GetLaunchX(at: TAmmoType; dir: LongInt; angle: LongInt): LongInt; |
44 function GetLaunchX(at: TAmmoType; dir: LongInt; angle: LongInt): LongInt; |
45 function GetLaunchY(at: TAmmoType; angle: LongInt): LongInt; |
45 function GetLaunchY(at: TAmmoType; angle: LongInt): LongInt; |
46 |
46 |
47 implementation |
47 implementation |
48 uses uWorld, uMisc, uStore, uConsole, uSound, uTeams, uRandom, uCollisions, uIO, uLandGraphics, |
48 uses uWorld, uMisc, uStore, uSound, uTeams, uRandom, uCollisions, uIO, uLandGraphics, |
49 uAIMisc, uLocale, uAI, uAmmos, uStats, uVisualGears, uScript, GLunit, uMobile, uVariables; |
49 uAIMisc, uLocale, uAI, uAmmos, uStats, uVisualGears, uScript, GLunit, uMobile, uVariables, |
|
50 uCommands; |
50 |
51 |
51 const MAXROPEPOINTS = 384; |
52 const MAXROPEPOINTS = 384; |
52 var RopePoints: record |
53 var RopePoints: record |
53 Count: Longword; |
54 Count: Longword; |
54 HookAngle: GLfloat; |
55 HookAngle: GLfloat; |