hedgewars/uGears.pas
changeset 4374 bcefeeabaa33
parent 4373 fe0e3903bb9e
child 4375 ae5507ddb989
equal deleted inserted replaced
4373:fe0e3903bb9e 4374:bcefeeabaa33
    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, 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      uCommands, uUtils;
    51 
    51 
    52 const MAXROPEPOINTS = 384;
    52 const MAXROPEPOINTS = 384;
    53 var RopePoints: record
    53 var RopePoints: record
    54                 Count: Longword;
    54                 Count: Longword;
    55                 HookAngle: GLfloat;
    55                 HookAngle: GLfloat;