diff -r c11abf387a7d -r d5b30d6373fc hedgewars/hwengine.pas --- a/hedgewars/hwengine.pas Sat Jul 31 10:52:43 2010 +0200 +++ b/hedgewars/hwengine.pas Sat Jul 31 11:24:53 2010 +0200 @@ -29,9 +29,9 @@ program hwengine; {$ENDIF} -uses SDLh, uMisc, uConsole, uGame, uConsts, uLand, uAmmos, uVisualGears, uGears, uStore, uWorld, uKeys, uSound, +uses SDLh, uMisc, uConsole, uGame, uConsts, uLand, uAmmos, uVisualGears, uGears, uStore, uWorld, uKeys, uSound, uScript, uTeams, uStats, uIO, uLocale, uChat, uAI, uAIMisc, uRandom, uLandTexture, uCollisions, sysutils; - + var isTerminated: boolean = false; alsoShutdownFrontend: boolean = false; @@ -137,7 +137,7 @@ end; /////////////////// -procedure MainLoop; +procedure MainLoop; var PrevTime, CurrTime: Longword; event: TSDL_Event; begin @@ -181,7 +181,7 @@ begin DoTimer(CurrTime - PrevTime); PrevTime:= CurrTime - end + end else SDL_Delay(1); IPCCheckSock(); end; @@ -229,7 +229,7 @@ val(gameArgs[6], cScreenHeight); val(gameArgs[7], cScreenWidth); recordFileName:= gameArgs[8]; - + val(gameArgs[9], cReducedQuality); {$ENDIF} @@ -243,7 +243,7 @@ for p:= Succ(Low(TPathType)) to High(TPathType) do if p <> ptMapCurrent then Pathz[p]:= PathPrefix + '/' + Pathz[p]; - + WriteToConsole('Init SDL... '); SDLTry(SDL_Init(SDL_INIT_VIDEO) >= 0, true); WriteLnToConsole(msgOK); @@ -276,7 +276,7 @@ if cLocaleFName <> 'en.txt' then begin // Try two letter locale first before trying specific locale overrides - if (Length(cLocaleFName) > 6) and (Copy(cLocaleFName,1,2)+'.txt' <> 'en.txt') then + if (Length(cLocaleFName) > 6) and (Copy(cLocaleFName,1,2)+'.txt' <> 'en.txt') then LoadLocale(Pathz[ptLocale] + '/' + Copy(cLocaleFName,1,2)+'.txt'); LoadLocale(Pathz[ptLocale] + '/' + cLocaleFName); end; @@ -321,7 +321,7 @@ uLand.initModule; uIO.initModule; - + if complete then begin uAI.initModule; @@ -340,7 +340,7 @@ //uLandTemplates does not need initialization uLandTexture.initModule; //uLocale does not need initialization - uRandom.initModule; + uRandom.initModule; uScript.initModule; uSound.initModule; uStats.initModule; @@ -380,7 +380,7 @@ //uAIActions does not need to be freed uAI.freeModule; //stub end; - + uIO.freeModule; //stub uLand.freeModule; @@ -461,7 +461,7 @@ if GameType = gmtLandPreview then GenLandPreview() else if GameType = gmtSyntax then DisplayUsage() else Game(); - + if GameType = gmtSyntax then ExitCode:= 1 else