hedgewars/uTeams.pas
changeset 4393 883b979697e4
parent 4391 de9e1a5102b4
child 4398 36d7e4b6ca81
equal deleted inserted replaced
4392:95e27e12d0e9 4393:883b979697e4
    35 procedure TeamGone(s: shortstring);
    35 procedure TeamGone(s: shortstring);
    36 procedure TeamGoneEffect(var Team: TTeam);
    36 procedure TeamGoneEffect(var Team: TTeam);
    37 function  GetTeamStatString(p: PTeam): shortstring;
    37 function  GetTeamStatString(p: PTeam): shortstring;
    38 
    38 
    39 implementation
    39 implementation
    40 uses uWorld, uLocale, uAmmos, uChat, uMobile, uVariables, uUtils, uIO;
    40 uses uLocale, uAmmos, uChat, uMobile, uVariables, uUtils, uIO, uCaptions;
    41 
    41 
    42 const MaxTeamHealth: LongInt = 0;
    42 const MaxTeamHealth: LongInt = 0;
    43 
    43 
    44 function CheckForWin: boolean;
    44 function CheckForWin: boolean;
    45 var AliveClan: PClan;
    45 var AliveClan: PClan;