hedgewars/uGears.pas
changeset 4359 83ef50815535
parent 4357 a1fcfc341a52
child 4365 4f2b1a152979
equal deleted inserted replaced
4357:a1fcfc341a52 4359:83ef50815535
    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, uLand, uIO, uLandGraphics,
    64      uAIMisc, uLocale, uAI, uAmmos, uStats, uVisualGears, uScript, GLunit, uMobile;
    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;
    69                 HookAngle: GLfloat;
    69                 HookAngle: GLfloat;