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; |
40 uses uMisc, uWorld, uLocale, uAmmos, uChat, uMobile, uVariables, uUtils; |
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; |
411 end; |
411 end; |
412 |
412 |
413 function GetTeamStatString(p: PTeam): shortstring; |
413 function GetTeamStatString(p: PTeam): shortstring; |
414 var s: ansistring; |
414 var s: ansistring; |
415 begin |
415 begin |
416 s:= p^.TeamName + ':' + inttostr(p^.TeamHealth) + ':'; |
416 s:= p^.TeamName + ':' + IntToStr(p^.TeamHealth) + ':'; |
417 GetTeamStatString:= s; |
417 GetTeamStatString:= s; |
418 end; |
418 end; |
419 |
419 |
420 procedure initModule; |
420 procedure initModule; |
421 begin |
421 begin |