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, uSound, uTeams, uRandom, uCollisions, uIO, uLandGraphics, |
48 uses uWorld, 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, uUtils, uTextures; |
50 uCommands, uUtils, uTextures; |
51 |
51 |
52 const MAXROPEPOINTS = 384; |
52 const MAXROPEPOINTS = 384; |
53 var RopePoints: record |
53 var RopePoints: record |