hedgewars/uGears.pas
changeset 789 3d976d2579eb
parent 785 ac538f1a629e
child 802 ed5450a89b96
equal deleted inserted replaced
788:00720357601f 789:3d976d2579eb
    69     KilledHHs: Longword = 0;
    69     KilledHHs: Longword = 0;
    70 
    70 
    71 implementation
    71 implementation
    72 uses uWorld, uMisc, uStore, uConsole, uSound, uTeams, uRandom, uCollisions,
    72 uses uWorld, uMisc, uStore, uConsole, uSound, uTeams, uRandom, uCollisions,
    73      uLand, uIO, uLandGraphics, uAIMisc, uLocale, uAI, uAmmos, uTriggers, GL;
    73      uLand, uIO, uLandGraphics, uAIMisc, uLocale, uAI, uAmmos, uTriggers, GL;
       
    74 
       
    75 const MAXROPEPOINTS = 300;
    74 var RopePoints: record
    76 var RopePoints: record
    75                 Count: Longword;
    77                 Count: Longword;
    76                 HookAngle: GLfloat;
    78                 HookAngle: GLfloat;
    77                 ar: array[0..300] of record
    79                 ar: array[0..MAXROPEPOINTS] of record
    78                                   X, Y: hwFloat;
    80                                   X, Y: hwFloat;
    79                                   dLen: hwFloat;
    81                                   dLen: hwFloat;
    80                                   b: boolean;
    82                                   b: boolean;
    81                                   end;
    83                                   end;
    82                  end;
    84                  end;