63 			Hedgehogs: array[0..cMaxHHIndex] of THedgehog;

    63 			Hedgehogs: array[0..cMaxHHIndex] of THedgehog;

    64 			CurrHedgehog: LongWord;

    64 			CurrHedgehog: LongWord;

    65 			NameTagTex: PTexture;

    65 			NameTagTex: PTexture;

    66 			CrosshairTex,

    66 			CrosshairTex,

    67 			GraveTex,

    67 			GraveTex,

    69 			GraveName: string;

    71 			GraveName: string;

    70 			FortName: string;

    72 			FortName: string;

    71 			TeamHealth: LongInt;

    73 			TeamHealth: LongInt;

    72 			TeamHealthBarWidth,

    74 			TeamHealthBarWidth,

    73 			NewTeamHealthBarWidth: LongInt;

    75 			NewTeamHealthBarWidth: LongInt;

   257 New(team);

   259 New(team);

   258 TryDo(team <> nil, 'AddTeam: team = nil', true);

   260 TryDo(team <> nil, 'AddTeam: team = nil', true);

   259 FillChar(team^, sizeof(TTeam), 0);

   261 FillChar(team^, sizeof(TTeam), 0);

   260 team^.AttackBar:= 2;

   262 team^.AttackBar:= 2;

   261 team^.CurrHedgehog:= cMaxHHIndex;

   263 team^.CurrHedgehog:= cMaxHHIndex;

   262 

   265 

   263 TeamsArray[TeamsCount]:= team;

   266 TeamsArray[TeamsCount]:= team;

   264 inc(TeamsCount);

   267 inc(TeamsCount);

   265 

   268 

   266 c:= Pred(ClansCount);

   269 c:= Pred(ClansCount);