hedgewars/uTeams.pas
changeset 6543 697e9b730189
parent 6450 14224c9b4594
child 6580 6155187bf599
equal deleted inserted replaced
6542:936956dfa6c9 6543:697e9b730189
    34 procedure RestoreTeamsFromSave;
    34 procedure RestoreTeamsFromSave;
    35 function  CheckForWin: boolean;
    35 function  CheckForWin: boolean;
    36 procedure TeamGoneEffect(var Team: TTeam);
    36 procedure TeamGoneEffect(var Team: TTeam);
    37 
    37 
    38 implementation
    38 implementation
    39 uses uLocale, uAmmos, uChat, uMobile, uVariables, uUtils, uIO, uCaptions, uCommands, uDebug, uScript;
    39 uses uLocale, uAmmos, uChat, uMobile, uVariables, uUtils, uIO, uCaptions, uCommands, uDebug, uScript,
       
    40     uGearsUtils, uGearsList;
    40 
    41 
    41 const MaxTeamHealth: LongInt = 0;
    42 const MaxTeamHealth: LongInt = 0;
    42 
    43 
    43 function CheckForWin: boolean;
    44 function CheckForWin: boolean;
    44 var AliveClan: PClan;
    45 var AliveClan: PClan;