87 procedure SetAllHHToActive; |
87 procedure SetAllHHToActive; |
88 procedure DrawGears; |
88 procedure DrawGears; |
89 procedure FreeGearsList; |
89 procedure FreeGearsList; |
90 procedure AddMiscGears; |
90 procedure AddMiscGears; |
91 procedure AssignHHCoords; |
91 procedure AssignHHCoords; |
92 function GearByUID(uid : Longword) : PGear; |
92 function GearByUID(uid : Longword) : PGear; |
93 procedure InsertGearToList(Gear: PGear); |
93 procedure InsertGearToList(Gear: PGear); |
94 procedure RemoveGearFromList(Gear: PGear); |
94 procedure RemoveGearFromList(Gear: PGear); |
95 function ModifyDamage(dmg: Longword; Gear: PGear): Longword; |
95 function ModifyDamage(dmg: Longword; Gear: PGear): Longword; |
96 procedure FindPlace(var Gear: PGear; withFall: boolean; Left, Right: LongInt); |
96 procedure FindPlace(var Gear: PGear; withFall: boolean; Left, Right: LongInt); |
97 |
97 |
98 implementation |
98 implementation |
99 uses uWorld, uMisc, uStore, uConsole, uSound, uTeams, uRandom, uCollisions, uLand, uIO, uLandGraphics, |
99 uses uWorld, uMisc, uStore, uConsole, uSound, uTeams, uRandom, uCollisions, uLand, uIO, uLandGraphics, |
100 uAIMisc, uLocale, uAI, uAmmos, uStats, uVisualGears, uScript, GLunit; |
100 uAIMisc, uLocale, uAI, uAmmos, uStats, uVisualGears, uScript, GLunit; |