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 

    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 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