hedgewars/uGears.pas
changeset 1207 ceaab010269e
parent 1200 b92323ccce45
child 1221 51e3f3cfdca5
equal deleted inserted replaced
1206:d852883fcefe 1207:ceaab010269e
    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, uVisualGears;
    75      uStats, uVisualGears;
    76 
    76 
    77 const MAXROPEPOINTS = 300;
    77 const MAXROPEPOINTS = 384;
    78 var RopePoints: record
    78 var RopePoints: record
    79                 Count: Longword;
    79                 Count: Longword;
    80                 HookAngle: GLfloat;
    80                 HookAngle: GLfloat;
    81                 ar: array[0..MAXROPEPOINTS] of record
    81                 ar: array[0..MAXROPEPOINTS] of record
    82                                   X, Y: hwFloat;
    82                                   X, Y: hwFloat;