hedgewars/uGears.pas
changeset 3165 3ec07a7d8456
parent 3161 cb5f04cc9d76
child 3172 ae5c7f97df44
equal deleted inserted replaced
3164:569fd65261d0 3165:3ec07a7d8456
    94 function ModifyDamage(dmg: Longword; Gear: PGear): Longword;
    94 function ModifyDamage(dmg: Longword; Gear: PGear): Longword;
    95 procedure FindPlace(var Gear: PGear; withFall: boolean; Left, Right: LongInt);
    95 procedure FindPlace(var Gear: PGear; withFall: boolean; Left, Right: LongInt);
    96 
    96 
    97 implementation
    97 implementation
    98 uses uWorld, uMisc, uStore, uConsole, uSound, uTeams, uRandom, uCollisions, uLand, uIO, uLandGraphics,
    98 uses uWorld, uMisc, uStore, uConsole, uSound, uTeams, uRandom, uCollisions, uLand, uIO, uLandGraphics,
    99     uAIMisc, uLocale, uAI, uAmmos, uStats, uVisualGears, uScript, 
    99     uAIMisc, uLocale, uAI, uAmmos, uStats, uVisualGears, uScript, GLunit;
   100 {$IFDEF GLES11}
       
   101     gles11;
       
   102 {$ELSE}
       
   103     GL;
       
   104 {$ENDIF}
       
   105 
   100 
   106 const MAXROPEPOINTS = 384;
   101 const MAXROPEPOINTS = 384;
   107 var RopePoints: record
   102 var RopePoints: record
   108                 Count: Longword;
   103                 Count: Longword;
   109                 HookAngle: GLfloat;
   104                 HookAngle: GLfloat;