hedgewars/uGears.pas
changeset 4378 91655618a510
parent 4377 43945842da0c
child 4380 b78638b36b89
equal deleted inserted replaced
4377:43945842da0c 4378:91655618a510
    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, 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, uRender;
    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;