92 const MaxTeamHealth: LongInt = 0;

    92 const MaxTeamHealth: LongInt = 0;

    93 

    93 

    94 procedure FreeTeamsList; forward;

    94 procedure FreeTeamsList; forward;

    95 

    95 

    96 function CheckForWin: boolean;

    96 function CheckForWin: boolean;

    99     s: shortstring;

    98     s: shortstring;

   100     t, AliveCount: LongInt;

    99     t, AliveCount: LongInt;

   101 begin

   100 begin

   102 AliveCount:= 0;

   101 AliveCount:= 0;

   103 for t:= 0 to Pred(ClansCount) do

   102 for t:= 0 to Pred(ClansCount) do

   131 SendStats

   130 SendStats

   132 end;

   131 end;

   133 

   132 

   134 procedure SwitchHedgehog;

   133 procedure SwitchHedgehog;

   135 var c: LongWord;

   134 var c: LongWord;

   137     g: PGear;

   135     g: PGear;

   138     PrevHH, PrevTeam: LongWord;

   136     PrevHH, PrevTeam: LongWord;

   139 begin

   137 begin

   140 FreeActionsList;

   138 FreeActionsList;

   141 TargetPoint.X:= NoPointX;

   139 TargetPoint.X:= NoPointX;