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 var MaxTeamHealth: LongInt;

    42 var MaxTeamHealth: LongInt;

    43 

    44 

    44 function CheckForWin: boolean;

    45 function CheckForWin: boolean;

    45 var AliveClan: PClan;

    46 var AliveClan: PClan;

    46     s: shortstring;

    47     s: shortstring;

    47     t, AliveCount, i, j: LongInt;

    48     t, AliveCount, i, j: LongInt;