changeset 100 | f324a18698fe |
parent 95 | 1ef5e2c41115 |
child 107 | b08ce0293a51 |
99:fd9613278d1b | 100:f324a18698fe |
---|---|
77 GearsList: PGear = nil; |
77 GearsList: PGear = nil; |
78 GearsListMutex: PSDL_mutex; |
78 GearsListMutex: PSDL_mutex; |
79 |
79 |
80 implementation |
80 implementation |
81 uses uWorld, uMisc, uStore, uConsole, uSound, uTeams, uRandom, uCollisions, |
81 uses uWorld, uMisc, uStore, uConsole, uSound, uTeams, uRandom, uCollisions, |
82 uLand, uIO, uLandGraphics, uAIMisc, uLocale; |
82 uLand, uIO, uLandGraphics, uAIMisc, uLocale{$IFDEF FPC}, Math{$ENDIF}; |
83 var RopePoints: record |
83 var RopePoints: record |
84 Count: Longword; |
84 Count: Longword; |
85 HookAngle: integer; |
85 HookAngle: integer; |
86 ar: array[0..300] of record |
86 ar: array[0..300] of record |
87 X, Y: real; |
87 X, Y: real; |