hedgewars/uGears.pas
changeset 1045 ea195268734f
parent 1034 05f003ad3caa
child 1049 741513156331
equal deleted inserted replaced
1044:f759aae1062f 1045:ea195268734f
    70     KilledHHs: Longword = 0;
    70     KilledHHs: Longword = 0;
    71 
    71 
    72 implementation
    72 implementation
    73 uses uWorld, uMisc, uStore, uConsole, uSound, uTeams, uRandom, uCollisions,
    73 uses uWorld, uMisc, uStore, uConsole, uSound, uTeams, uRandom, uCollisions,
    74      uLand, uIO, uLandGraphics, uAIMisc, uLocale, uAI, uAmmos, uTriggers, GL,
    74      uLand, uIO, uLandGraphics, uAIMisc, uLocale, uAI, uAmmos, uTriggers, GL,
    75      uStats;
    75      uStats, uVisualGears;
    76 
    76 
    77 const MAXROPEPOINTS = 300;
    77 const MAXROPEPOINTS = 300;
    78 var RopePoints: record
    78 var RopePoints: record
    79                 Count: Longword;
    79                 Count: Longword;
    80                 HookAngle: GLfloat;
    80                 HookAngle: GLfloat;