| changeset 54 | 839fd258ae6f |
| parent 53 | 0e27949850e3 |
| child 56 | a29135563e94 |
| 53:0e27949850e3 | 54:839fd258ae6f |
|---|---|
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; |
78 uses uWorld, uMisc, uStore, uConsole, uSound, uTeams, uRandom, uCollisions, uLand, uIO, uGraphics; |
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 |