44     uGearsUtils, uGearsList

    44     uGearsUtils, uGearsList

    45     {$IFDEF USE_TOUCH_INTERFACE}, uTouch{$ENDIF};

    45     {$IFDEF USE_TOUCH_INTERFACE}, uTouch{$ENDIF};

    46 

    46 

    47 var MaxTeamHealth: LongInt;

    47 var MaxTeamHealth: LongInt;

    48     GameOver: boolean;

    48     GameOver: boolean;

    49 

    50 

    50 function CheckForWin: boolean;

    51 function CheckForWin: boolean;

    51 var AliveClan: PClan;

    52 var AliveClan: PClan;

    52     s: shortstring;

    53     s: shortstring;

    53     t, AliveCount, i, j: LongInt;

    54     t, AliveCount, i, j: LongInt;