90 var CurrentTeam: PTeam = nil;

    90 var CurrentTeam: PTeam;

    91 	PreviousTeam: PTeam = nil;

    91     PreviousTeam: PTeam;

    92 	CurrentHedgehog: PHedgehog = nil;

    92     CurrentHedgehog: PHedgehog;

    93 	TeamsArray: array[0..Pred(cMaxTeams)] of PTeam;

    93     TeamsArray: array[0..Pred(cMaxTeams)] of PTeam;

    94 	TeamsCount: Longword = 0;

    94     TeamsCount: Longword;

    95 	ClansArray: array[0..Pred(cMaxTeams)] of PClan;

    95     ClansArray: array[0..Pred(cMaxTeams)] of PClan;

    96 	ClansCount: Longword = 0;

    96     ClansCount: Longword;

    97 	LocalClan: Longword = 0;  // first non-bot, non-extdriven clan

    97     LocalClan: Longword;  // first non-bot, non-extdriven clan

    98 	CurMinAngle, CurMaxAngle: Longword;

    98     CurMinAngle, CurMaxAngle: Longword;

    99 

    99 

   100 procedure init_uTeams;

   101 procedure free_uTeams;

   405 initialization

   407 procedure init_uTeams;

   406 

   408 begin

   407 finalization

   409 	CurrentTeam:= nil;

   408 

   410 	PreviousTeam:= nil;

   409 FreeTeamsList

   411 	CurrentHedgehog:= nil;

   412 	TeamsCount:= 0;

   413 	ClansCount:= 0;

   414 	LocalClan:= 0;  // first non-bot, non-extdriven clan

   415 end;

   416 

   417 procedure free_uTeams;

   418 begin

   419 	FreeTeamsList()

   420 end;