| changeset 4403 | 0dfe26f48ec1 |
| parent 4401 | 9cb6990af584 |
| child 4404 | 6bae4e9461aa |
| 4402:54a78ec6aac4 | 4403:0dfe26f48ec1 |
|---|---|
36 procedure TeamGone(s: shortstring); |
36 procedure TeamGone(s: shortstring); |
37 procedure TeamGoneEffect(var Team: TTeam); |
37 procedure TeamGoneEffect(var Team: TTeam); |
38 function GetTeamStatString(p: PTeam): shortstring; |
38 function GetTeamStatString(p: PTeam): shortstring; |
39 |
39 |
40 implementation |
40 implementation |
41 uses uLocale, uAmmos, uChat, uMobile, uVariables, uUtils, uIO, uCaptions, uCommands; |
41 uses uLocale, uAmmos, uChat, uMobile, uVariables, uUtils, uIO, uCaptions, uCommands, uDebug; |
42 |
42 |
43 const MaxTeamHealth: LongInt = 0; |
43 const MaxTeamHealth: LongInt = 0; |
44 |
44 |
45 function CheckForWin: boolean; |
45 function CheckForWin: boolean; |
46 var AliveClan: PClan; |
46 var AliveClan: PClan; |