29 program hwengine;

    29 program hwengine;

    30 {$ENDIF}

    30 {$ENDIF}

    31 

    31 

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

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

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

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

    35 

    35 

    36 var isTerminated: boolean = false;

    36 var isTerminated: boolean = false;

    37     alsoShutdownFrontend: boolean = false;

    37     alsoShutdownFrontend: boolean = false;

    38 

    38 

    39 {$IFDEF HWLIBRARY}

    39 {$IFDEF HWLIBRARY}

   317 procedure initEverything (complete:boolean);

   317 procedure initEverything (complete:boolean);

   318 begin

   318 begin

   319     Randomize();

   319     Randomize();

   320 

   320 

   321     // uConsts does not need initialization as they are all consts

   321     // uConsts does not need initialization as they are all consts

   322     uMisc.initModule;

   323     uMisc.initModule;

   323     uVariables.initModule;

   324     uVariables.initModule;

   324     uConsole.initModule;    // MUST happen after uMisc

   325     uConsole.initModule;    // MUST happen after uMisc

   325     uCommands.initModule;

   326     uCommands.initModule;

   326 

   327 

   390     uLand.freeModule;

   391     uLand.freeModule;

   391 

   392 

   392     uCommands.freeModule;

   393     uCommands.freeModule;

   393     uConsole.freeModule;

   394     uConsole.freeModule;

   394     uVariables.freeModule;

   395     uVariables.freeModule;

   395     uMisc.freeModule;           // uMisc closes the debug log.

   397     uMisc.freeModule;           // uMisc closes the debug log.

   396 end;

   398 end;

   397 

   399 

   398 /////////////////////////

   400 /////////////////////////

   399 procedure GenLandPreview{$IFDEF HWLIBRARY}(port: LongInt); cdecl; export{$ENDIF};

   401 procedure GenLandPreview{$IFDEF HWLIBRARY}(port: LongInt); cdecl; export{$ENDIF};