changeset 6982 | 8d41d22a291d |
parent 6963 | 0c181b88daff |
child 6990 | 40e5af28d026 |
6981:045e8162c9cd | 6982:8d41d22a291d |
---|---|
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{$IFDEF SDL13}, uTouch{$ENDIF}; |
40 uGearsUtils, uGearsList{$IFDEF SDL13}, uTouch{$ENDIF}; |
41 |
41 |
42 const MaxTeamHealth: LongInt = 0; |
42 var MaxTeamHealth: LongInt; |
43 |
43 |
44 function CheckForWin: boolean; |
44 function CheckForWin: boolean; |
45 var AliveClan: PClan; |
45 var AliveClan: PClan; |
46 s: shortstring; |
46 s: shortstring; |
47 t, AliveCount, i, j: LongInt; |
47 t, AliveCount, i, j: LongInt; |
622 LocalClan:= -1; |
622 LocalClan:= -1; |
623 LocalTeam:= -1; |
623 LocalTeam:= -1; |
624 LocalAmmo:= -1; |
624 LocalAmmo:= -1; |
625 GameOver:= false; |
625 GameOver:= false; |
626 NextClan:= true; |
626 NextClan:= true; |
627 MaxTeamHealth:= 0; |
|
627 end; |
628 end; |
628 |
629 |
629 procedure freeModule; |
630 procedure freeModule; |
630 var i, h: LongWord; |
631 var i, h: LongWord; |
631 begin |
632 begin |