75 procedure FreeTeamsList; forward;

    75 procedure FreeTeamsList; forward;

    76 

    76 

    77 function CheckForWin: boolean;

    77 function CheckForWin: boolean;

    78 var team, AliveTeam: PTeam;

    78 var team, AliveTeam: PTeam;

    79     AliveCount: Longword;

    79     AliveCount: Longword;

    80 begin

    81 begin

    81 Result:= false;

    82 Result:= false;

    82 AliveCount:= 0;

    83 AliveCount:= 0;

    83 AliveTeam:= nil;

    84 AliveTeam:= nil;

    84 team:= TeamsList;

    85 team:= TeamsList;

    97 

    98 

    98 TurnTimeLeft:= 0;

    99 TurnTimeLeft:= 0;

    99 if AliveCount = 0 then

   100 if AliveCount = 0 then

   100    begin // draw

   101    begin // draw

   101    AddCaption(trmsg[sidDraw], $FFFFFF, capgrpGameState);

   102    AddCaption(trmsg[sidDraw], $FFFFFF, capgrpGameState);

   102    AddGear(0, 0, gtATFinishGame, 0, 0, 0, 2000)

   104    AddGear(0, 0, gtATFinishGame, 0, 0, 0, 2000)

   103    end else // win

   105    end else // win

   104    begin

   106    begin

   106    AddGear(0, 0, gtATFinishGame, 0, 0, 0, 2000)

   110    AddGear(0, 0, gtATFinishGame, 0, 0, 0, 2000)

   107    end;

   111    end;

   108 end;

   112 end;

   109 

   113 

   110 procedure SwitchHedgehog;

   114 procedure SwitchHedgehog;