changeset 57 | e1a77ae57065 |
parent 56 | a29135563e94 |
child 64 | 9df467527ae5 |
56:a29135563e94 | 57:e1a77ae57065 |
---|---|
73 procedure AssignHHCoords; |
73 procedure AssignHHCoords; |
74 |
74 |
75 var CurAmmoGear: PGear = nil; |
75 var CurAmmoGear: PGear = nil; |
76 |
76 |
77 implementation |
77 implementation |
78 uses uWorld, uMisc, uStore, uConsole, uSound, uTeams, uRandom, uCollisions, uLand, uIO, uGraphics; |
78 uses uWorld, uMisc, uStore, uConsole, uSound, uTeams, uRandom, uCollisions, uLand, uIO, uLandGraphics; |
79 var GearsList: PGear = nil; |
79 var GearsList: PGear = nil; |
80 RopePoints: record |
80 RopePoints: record |
81 Count: Longword; |
81 Count: Longword; |
82 HookAngle: integer; |
82 HookAngle: integer; |
83 ar: array[0..300] of record |
83 ar: array[0..300] of record |