hedgewars/uGears.pas
changeset 81 d74e0e914b50
parent 80 3c3dc6a148ca
child 82 2f4f3236cccc
equal deleted inserted replaced
80:3c3dc6a148ca 81:d74e0e914b50
    74 
    74 
    75 var CurAmmoGear: PGear = nil;
    75 var CurAmmoGear: PGear = nil;
    76     GearsList: PGear = nil;
    76     GearsList: PGear = nil;
    77 
    77 
    78 implementation
    78 implementation
    79 uses uWorld, uMisc, uStore, uConsole, uSound, uTeams, uRandom, uCollisions, uLand, uIO, uLandGraphics, uAIMisc;
    79 uses uWorld, uMisc, uStore, uConsole, uSound, uTeams, uRandom, uCollisions,
       
    80      uLand, uIO, uLandGraphics, uAIMisc, uLocale;
    80 var RopePoints: record
    81 var RopePoints: record
    81                 Count: Longword;
    82                 Count: Longword;
    82                 HookAngle: integer;
    83                 HookAngle: integer;
    83                 ar: array[0..300] of record
    84                 ar: array[0..300] of record
    84                                   X, Y: real;
    85                                   X, Y: real;