diff -r 803b277e4894 -r 3f21a9dc93d0 hedgewars/hwengine.pas --- a/hedgewars/hwengine.pas Sat Mar 06 10:54:24 2010 +0000 +++ b/hedgewars/hwengine.pas Sat Mar 06 10:59:20 2010 +0000 @@ -28,7 +28,7 @@ {$ELSE} program hwengine; {$ENDIF} -uses SDLh in 'SDLh.pas', +uses SDLh in 'SDLh.pas', uConsts in 'uConsts.pas', uGame in 'uGame.pas', uMisc in 'uMisc.pas', @@ -229,7 +229,7 @@ {$ELSE} procedure Game;cdecl; export; {$ENDIF} -var p: TPathType; +var p: TPathType; s: shortstring; begin {$IFDEF HWLIBRARY} @@ -321,7 +321,7 @@ begin init_uConsts(); init_uMisc(); - init_uConsole(); // MUST happen after uMisc + init_uConsole(); // MUST happen after uMisc init_uAI(); //uAIActions does not need initialization @@ -341,7 +341,7 @@ //uLandTemplates does not need initialization //uLandTexture does not need initialization //uLocale does not need initialization - init_uRandom(); + init_uRandom(); //uSHA does not need initialization init_uSound(); init_uStats(); @@ -356,21 +356,21 @@ procedure freeEverything; begin free_uWorld(); - free_uVisualGears(); //stub - free_uTriggers(); //stub + free_uVisualGears(); //stub + free_uTriggers(); //stub free_uTeams(); free_uStore(); - free_uStats(); //stub - free_uSound(); //stub + free_uStats(); //stub + free_uSound(); //stub //uSHA does not need to be freed - free_uRandom(); //stub + free_uRandom(); //stub //uLocale does not need to be freed //uLandTemplates does not need to be freed //uLandTexture does not need to be freed //uLandObjects does not need to be freed //uLandGraphics does not need to be freed free_uLand(); - free_uKeys(); //stub + free_uKeys(); //stub free_uIO(); free_uGears(); //uGame does not need to be freed @@ -378,14 +378,14 @@ free_uCollisions(); free_uChat(); free_uAmmos(); - free_uAIMisc(); //stub + free_uAIMisc(); //stub //uAIAmmoTests does not need to be freed //uAIActions does not need to be freed - free_uAI(); //stub + free_uAI(); //stub free_uConsole(); free_uMisc(); - free_uConsts(); //stub + free_uConsts(); //stub free_uScript(); end; @@ -485,7 +485,7 @@ PathPrefix:= ParamStr(1); recordFileName:= ParamStr(2); - if ParamStr(3) = '--set-video' then + if ParamStr(3) = '--set-video' then begin val(ParamStr(4), cScreenWidth); val(ParamStr(5), cScreenHeight);