hedgewars/uGears.pas
changeset 4367 f4a0ec067601
parent 4365 4f2b1a152979
child 4368 b89235e401e5
equal deleted inserted replaced
4365:4f2b1a152979 4367:f4a0ec067601
    58 procedure FindPlace(var Gear: PGear; withFall: boolean; Left, Right: LongInt);
    58 procedure FindPlace(var Gear: PGear; withFall: boolean; Left, Right: LongInt);
    59 function  GetLaunchX(at: TAmmoType; dir: LongInt; angle: LongInt): LongInt;
    59 function  GetLaunchX(at: TAmmoType; dir: LongInt; angle: LongInt): LongInt;
    60 function  GetLaunchY(at: TAmmoType; angle: LongInt): LongInt;
    60 function  GetLaunchY(at: TAmmoType; angle: LongInt): LongInt;
    61 
    61 
    62 implementation
    62 implementation
    63 uses uWorld, uMisc, uStore, uConsole, uSound, uTeams, uRandom, uCollisions, uLand, uIO, uLandGraphics,
    63 uses uWorld, uMisc, uStore, uConsole, uSound, uTeams, uRandom, uCollisions, uIO, uLandGraphics,
    64      uAIMisc, uLocale, uAI, uAmmos, uStats, uVisualGears, uScript, GLunit, uMobile, uVariables;
    64      uAIMisc, uLocale, uAI, uAmmos, uStats, uVisualGears, uScript, GLunit, uMobile, uVariables;
    65 
    65 
    66 const MAXROPEPOINTS = 384;
    66 const MAXROPEPOINTS = 384;
    67 var RopePoints: record
    67 var RopePoints: record
    68                 Count: Longword;
    68                 Count: Longword;