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

    37 

    35 

    38 {$IFDEF HWLIBRARY}

    36 {$IFDEF HWLIBRARY}

    39 procedure initEverything(complete:boolean);

    37 procedure initEverything(complete:boolean);

    40 procedure freeEverything(complete:boolean);

    38 procedure freeEverything(complete:boolean);

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

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

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

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

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

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

   461         uAI.initModule;

   459         uAI.initModule;

   462         //uAIActions does not need initialization

   460         //uAIActions does not need initialization

   463         //uAIAmmoTests does not need initialization

   461         //uAIAmmoTests does not need initialization

   464         uAIMisc.initModule;

   463         uAIMisc.initModule;

   465         uAmmos.initModule;

   464         uAmmos.initModule;

   466         uChat.initModule;

   465         uChat.initModule;

   467         uCollisions.initModule;

   466         uCollisions.initModule;

   468         //uFloat does not need initialization

   467         //uFloat does not need initialization

   490 begin

   489 begin

   491     if complete then

   490     if complete then

   492     begin

   491     begin

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

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

   494         uAI.freeModule;

   493         uAI.freeModule;

   495         uAIMisc.freeModule;         //stub

   495         uAIMisc.freeModule;         //stub

   496         uCaptions.freeModule;

   496         uCaptions.freeModule;

   497         uWorld.freeModule;

   497         uWorld.freeModule;

   498         uVisualGears.freeModule;

   498         uVisualGears.freeModule;

   499         uTeams.freeModule;

   499         uTeams.freeModule;