--- a/hedgewars/uTeams.pas Wed Nov 17 22:07:03 2010 +0300
+++ b/hedgewars/uTeams.pas Wed Nov 17 22:14:41 2010 +0300
@@ -22,18 +22,6 @@
interface
uses uConsts, uKeys, uGears, uRandom, uFloat, uStats, uVisualGears, uCollisions, GLunit, uSound, uTypes;
-var CurrentTeam: PTeam;
- PreviousTeam: PTeam;
- CurrentHedgehog: PHedgehog;
- TeamsArray: array[0..Pred(cMaxTeams)] of PTeam;
- TeamsCount: Longword;
- ClansArray: array[0..Pred(cMaxTeams)] of PClan;
- ClansCount: Longword;
- LocalClan: LongInt; // last non-bot, non-extdriven clan
- LocalAmmo: LongInt; // last non-bot, non-extdriven clan's first team's ammo index
- CurMinAngle, CurMaxAngle: Longword;
- GameOver: boolean;
-
procedure initModule;
procedure freeModule;
function AddTeam(TeamColor: Longword): PTeam;