30 {$ENDIF}

    30 {$ENDIF}

    31 

    31 

    32 uses SDLh, uMisc, uConsole, uGame, uConsts, uLand, uAmmos, uVisualGears, uGears, uStore, uWorld, uInputHandler, uSound,

    32 uses SDLh, uMisc, uConsole, uGame, uConsts, uLand, uAmmos, uVisualGears, uGears, uStore, uWorld, uInputHandler, uSound,

    33      uScript, uTeams, uStats, uIO, uLocale, uChat, uAI, uAIMisc, uRandom, uLandTexture, uCollisions,

    33      uScript, uTeams, uStats, uIO, uLocale, uChat, uAI, uAIMisc, uRandom, uLandTexture, uCollisions,

    34      SysUtils, uTypes, uVariables, uCommands, uUtils, uCaptions, uDebug, uCommandHandlers, uLandPainted

    34      SysUtils, uTypes, uVariables, uCommands, uUtils, uCaptions, uDebug, uCommandHandlers, uLandPainted

    36 

    36 

    37 {$IFDEF HWLIBRARY}

    37 {$IFDEF HWLIBRARY}

    38 procedure initEverything(complete:boolean);

    38 procedure initEverything(complete:boolean);

    39 procedure freeEverything(complete:boolean);

    39 procedure freeEverything(complete:boolean);

    40 procedure Game(gameArgs: PPChar); cdecl; export;

    40 procedure Game(gameArgs: PPChar); cdecl; export;

   399 {$IFDEF ANDROID}GLUnit.init;{$ENDIF}

   399 {$IFDEF ANDROID}GLUnit.init;{$ENDIF}

   400 {$IFDEF SDL13}uTouch.initModule;{$ENDIF}

   400 {$IFDEF SDL13}uTouch.initModule;{$ENDIF}

   401         uAI.initModule;

   401         uAI.initModule;

   402         //uAIActions does not need initialization

   402         //uAIActions does not need initialization

   403         //uAIAmmoTests does not need initialization

   403         //uAIAmmoTests does not need initialization

   404         uAIMisc.initModule;

   405         uAIMisc.initModule;

   405         uAmmos.initModule;

   406         uAmmos.initModule;

   406         uChat.initModule;

   407         uChat.initModule;

   407         uCollisions.initModule;

   408         uCollisions.initModule;

   408         //uFloat does not need initialization

   409         //uFloat does not need initialization

   430 begin

   431 begin

   431     if complete then

   432     if complete then

   432     begin

   433     begin

   433         WriteLnToConsole('Freeing resources...');

   434         WriteLnToConsole('Freeing resources...');

   434         uAI.freeModule;

   435         uAI.freeModule;

   435         uAIMisc.freeModule;         //stub

   437         uAIMisc.freeModule;         //stub

   436         uCaptions.freeModule;

   438         uCaptions.freeModule;

   437         uWorld.freeModule;

   439         uWorld.freeModule;

   438         uVisualGears.freeModule;

   440         uVisualGears.freeModule;

   439         uTeams.freeModule;

   441         uTeams.freeModule;