equal
deleted
inserted
replaced
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 uMisc, uWorld, uLocale, uAmmos, uChat, uMobile, uVariables, uUtils; |
40 uses uMisc, uWorld, uLocale, uAmmos, uChat, uMobile, uVariables, uUtils, uIO; |
41 const MaxTeamHealth: LongInt = 0; |
41 const MaxTeamHealth: LongInt = 0; |
42 |
42 |
43 function CheckForWin: boolean; |
43 function CheckForWin: boolean; |
44 var AliveClan: PClan; |
44 var AliveClan: PClan; |
45 s: shortstring; |
45 s: shortstring; |