78 			ClanIndex: LongInt;

    78 			ClanIndex: LongInt;

    79 			TurnNumber: LongWord;

    79 			TurnNumber: LongWord;

    80 			end;

    80 			end;

    81 

    81 

    82 var CurrentTeam: PTeam = nil;

    82 var CurrentTeam: PTeam = nil;

    83 	CurrentHedgehog: PHedgehog = nil;

    84 	CurrentHedgehog: PHedgehog = nil;

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

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

    85 	TeamsCount: Longword = 0;

    86 	TeamsCount: Longword = 0;

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

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

    87 	ClansCount: Longword = 0;

    88 	ClansCount: Longword = 0;

   153     PrevHH, PrevTeam: LongWord;

   154     PrevHH, PrevTeam: LongWord;

   154 begin

   155 begin

   155 FreeActionsList;

   156 FreeActionsList;

   156 TargetPoint.X:= NoPointX;

   157 TargetPoint.X:= NoPointX;

   157 TryDo(CurrentTeam <> nil, 'nil Team', true);

   158 TryDo(CurrentTeam <> nil, 'nil Team', true);

   158 

   160 

   159 with CurrentHedgehog^ do

   161 with CurrentHedgehog^ do

   160 	if Gear <> nil then

   162 	if Gear <> nil then

   161 		begin

   163 		begin

   162 		AttacksNum:= 0;

   164 		AttacksNum:= 0;