hedgewars/uGears.pas
changeset 4375 ae5507ddb989
parent 4374 bcefeeabaa33
child 4377 43945842da0c
equal deleted inserted replaced
4374:bcefeeabaa33 4375:ae5507ddb989
    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, uUtils;
    50      uCommands, uUtils, uTextures;
    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;