93 function GearByUID(uid : Longword) : PGear; |
93 function GearByUID(uid : Longword) : PGear; |
94 procedure InsertGearToList(Gear: PGear); |
94 procedure InsertGearToList(Gear: PGear); |
95 procedure RemoveGearFromList(Gear: PGear); |
95 procedure RemoveGearFromList(Gear: PGear); |
96 function ModifyDamage(dmg: Longword; Gear: PGear): Longword; |
96 function ModifyDamage(dmg: Longword; Gear: PGear): Longword; |
97 procedure FindPlace(var Gear: PGear; withFall: boolean; Left, Right: LongInt); |
97 procedure FindPlace(var Gear: PGear; withFall: boolean; Left, Right: LongInt); |
98 function GetLaunchX(at: TAmmoType; dir: LongInt; angle: LongInt): LongInt; |
98 function GetLaunchX(at: TAmmoType; dir: LongInt; angle: LongInt): LongInt; |
99 function GetLaunchY(at: TAmmoType; angle: LongInt): LongInt; |
99 function GetLaunchY(at: TAmmoType; angle: LongInt): LongInt; |
100 |
100 |
101 implementation |
101 implementation |
102 uses uWorld, uMisc, uStore, uConsole, uSound, uTeams, uRandom, uCollisions, uLand, uIO, uLandGraphics, |
102 uses uWorld, uMisc, uStore, uConsole, uSound, uTeams, uRandom, uCollisions, uLand, uIO, uLandGraphics, |
103 uAIMisc, uLocale, uAI, uAmmos, uStats, uVisualGears, uScript, GLunit; |
103 uAIMisc, uLocale, uAI, uAmmos, uStats, uVisualGears, uScript, GLunit; |
104 |
104 |
992 |
992 |
993 glLineWidth(4.0); |
993 glLineWidth(4.0); |
994 |
994 |
995 Tint($C0, $C0, $C0, $FF); |
995 Tint($C0, $C0, $C0, $FF); |
996 |
996 |
997 glEnableClientState(GL_VERTEX_ARRAY); |
|
998 glVertexPointer(2, GL_FLOAT, 0, @RopePoints.rounded[0]); |
997 glVertexPointer(2, GL_FLOAT, 0, @RopePoints.rounded[0]); |
999 glDrawArrays(GL_LINE_STRIP, 0, RopePoints.Count + 2); |
998 glDrawArrays(GL_LINE_STRIP, 0, RopePoints.Count + 2); |
1000 Tint($FF, $FF, $FF, $FF); |
999 Tint($FF, $FF, $FF, $FF); |
1001 |
1000 |
1002 glPopMatrix; |
1001 glPopMatrix; |