hedgewars/uTeams.pas
changeset 4368 b89235e401e5
parent 4361 64ea345ab655
child 4374 bcefeeabaa33
--- 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;