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