hedgewars: comparison hedgewars/hwengine.pas

equal deleted inserted replaced

-:31570b766315
+:ed5a6478e710
 (*
 * Hedgewars, a free turn based strategy game
-* Copyright (c) 2004-2013 Andrey Korotaev <unC0Rr@gmail.com>
+* Copyright (c) 2004-2015 Andrey Korotaev <unC0Rr@gmail.com>
 *
 * This program is free software; you can redistribute it and/or modify
 * it under the terms of the GNU General Public License as published by
 * the Free Software Foundation; version 2 of the License
 *
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 * GNU General Public License for more details.
 *
 * You should have received a copy of the GNU General Public License
 * along with this program; if not, write to the Free Software
-* Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA
+* Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301  USA
 *)
 {$INCLUDE "options.inc"}
 {$IFDEF WIN32}
-{$R hwengine.rc}
+{$R res/hwengine.rc}
 {$ENDIF}
 {$IFDEF HWLIBRARY}
 unit hwengine;
 interface
 {$ELSE}
 program hwengine;
 {$ENDIF}
-uses SDLh, uMisc, uConsole, uGame, uConsts, uLand, uAmmos, uVisualGears, uGears, uStore, uWorld, uInputHandler
+uses {$IFDEF IPHONEOS}cmem, {$ENDIF} SDLh, uMisc, uConsole, uGame, uConsts, uLand, uAmmos, uVisualGears, uGears, uStore, uWorld, uInputHandler
 , uSound, uScript, uTeams, uStats, uIO, uLocale, uChat, uAI, uAIMisc, uAILandMarks, uLandTexture, uCollisions
 , SysUtils, uTypes, uVariables, uCommands, uUtils, uCaptions, uDebug, uCommandHandlers, uLandPainted
-, uPhysFSLayer, uCursor, uRandom, ArgParsers, uVisualGearsHandlers, uTextures
+, uPhysFSLayer, uCursor, uRandom, ArgParsers, uVisualGearsHandlers, uTextures, uRender
 {$IFDEF USE_VIDEO_RECORDING}, uVideoRec {$ENDIF}
 {$IFDEF USE_TOUCH_INTERFACE}, uTouch {$ENDIF}
 {$IFDEF ANDROID}, GLUnit{$ENDIF}
 ;
 {$IFDEF HWLIBRARY}
+procedure RunEngine(argc: LongInt; argv: PPChar); cdecl; export;
 procedure preInitEverything();
 procedure initEverything(complete:boolean);
 procedure freeEverything(complete:boolean);
-procedure Game(argc: LongInt; argv: PPChar); cdecl; export;
-procedure GenLandPreview(port: Longint); cdecl; export;
 implementation
 {$ELSE}
 procedure preInitEverything(); forward;
 procedure initEverything(complete:boolean); forward;
 {$ENDIF}
 ///////////////////////////////////////////////////////////////////////////////
 function DoTimer(Lag: LongInt): boolean;
 var s: shortstring;
+t: LongWord;
 begin
 DoTimer:= false;
 inc(RealTicks, Lag);
 case GameState of
 gsStart:
 begin
 SetDefaultBinds;
 if HasBorder then
 DisableSomeWeapons;
-AddClouds;
+// wave "clouds" on underwater theme look weird w/ weSea, esp the blended bottom portion
+if (WorldEdge <> weSea) or (Theme <> 'Underwater') then
+AddClouds;
 AddFlakes;
 SetRandomSeed(cSeed, false);
 AssignHHCoords;
 AddMiscGears;
 StoreLoad(false);
 ResetKbd;
 if GameType = gmtSave then
 SetSound(false);
 FinishProgress;
 PlayMusic;
-SetScale(zoom);
+InitZoom(zoom);
 ScriptCall('onGameStart');
+for t:= 0 to Pred(TeamsCount) do
+with TeamsArray[t]^ do
+MaxTeamHealth:= TeamHealth;
+RecountAllTeamsHealth;
 GameState:= gsGame;
 end;
 gsConfirm, gsGame, gsChat:
 begin
-if not cOnlyStats then DrawWorld(Lag);
+if not cOnlyStats then
+// never place between ProcessKbd and DoGameTick - bugs due to /put cmd and isCursorVisible
+DrawWorld(Lag);
 DoGameTick(Lag);
 if not cOnlyStats then ProcessVisualGears(Lag);
 end;
 gsExit:
 begin
 {$ENDIF}
 if flagMakeCapture then
 begin
 flagMakeCapture:= false;
-s:= '/Screenshots/hw_' + FormatDateTime('YYYY-MM-DD_HH-mm-ss', Now()) + inttostr(GameTicks);
+if flagDumpLand then
+s:= '/Screenshots/mapdump_'
+else s:= '/Screenshots/hw_';
+{$IFDEF PAS2C}
+s:= s + inttostr(GameTicks);
+{$ELSE}
+s:= s + FormatDateTime('YYYY-MM-DD_HH-mm-ss', Now()) + inttostr(GameTicks);
+{$ENDIF}
 // flash
 playSound(sndShutter);
 ScreenFade:= sfFromWhite;
 ScreenFadeValue:= sfMax;
 ScreenFadeSpeed:= 5;
-if MakeScreenshot(s, 1) then
+if (not flagDumpLand and MakeScreenshot(s, 1, 0)) or
+(flagDumpLand and MakeScreenshot(s, 1, 1) and ((cReducedQuality and rqBlurryLand <> 0) or MakeScreenshot(s, 1, 2))) then
 WriteLnToConsole('Screenshot saved: ' + s)
 else
 begin
 WriteLnToConsole('Screenshot failed.');
 AddChatString(#5 + 'screen capture failed (lack of memory or write permissions)');
 end;
 ///////////////////////////////////////////////////////////////////////////////
 procedure MainLoop;
 var event: TSDL_Event;
-PrevTime, CurrTime: Longword;
+PrevTime, CurrTime: LongWord;
 isTerminated: boolean;
 previousGameState: TGameState;
 begin
 isTerminated:= false;
 PrevTime:= SDL_GetTicks;
 while SDL_PeepEvents(@event, 1, SDL_GETEVENT, SDL_FIRSTEVENT, SDL_LASTEVENT) > 0 do
 begin
 case event.type_ of
 SDL_KEYDOWN:
-if (GameState = gsChat) then
+if GameState = gsChat then
-KeyPressChat(event.key.keysym.sym)
+begin
-else if (GameState >= gsGame) then
+// sdl on iphone supports only ashii keyboards and the unicode field is deprecated in sdl 1.3
-ProcessKey(event.key);
+KeyPressChat(SDL_GetKeyFromScancode(event.key.keysym.sym), event.key.keysym.sym, event.key.keysym.modifier);
+end
+else
+if GameState >= gsGame then ProcessKey(event.key);
 SDL_KEYUP:
 if (GameState <> gsChat) and (GameState >= gsGame) then
 ProcessKey(event.key);
 SDL_MOUSEBUTTONDOWN:
 ParseCommand('fullscr '+intToStr(LongInt(cFullScreen)), true);
 WriteLnToConsole('window resize: ' + IntToStr(cScreenWidth) + ' x ' + IntToStr(cScreenHeight));
 ScriptOnScreenResize();
 InitCameraBorders();
 InitTouchInterface();
+InitZoom(zoomValue);
 SendIPC('W' + IntToStr(cScreenWidth) + 'x' + IntToStr(cScreenHeight));
 end;
 CurrTime:= SDL_GetTicks();
 if PrevTime + longword(cTimerInterval) <= CurrTime then
 begin
-isTerminated := isTerminated or DoTimer(CurrTime - PrevTime);
+isTerminated:= isTerminated or DoTimer(CurrTime - PrevTime);
-PrevTime:= CurrTime
+PrevTime:= CurrTime;
 end
 else SDL_Delay(1);
 IPCCheckSock();
 end;
 end;
 {$IFDEF USE_VIDEO_RECORDING}
 procedure RecorderMainLoop;
 StopVideoRecording();
 end;
 {$ENDIF}
 ///////////////////////////////////////////////////////////////////////////////
-procedure Game{$IFDEF HWLIBRARY}(argc: LongInt; argv: PPChar); cdecl; export{$ENDIF};
+procedure Game;
 //var p: TPathType;
 var s: shortstring;
 i: LongInt;
 begin
-{$IFDEF HWLIBRARY}
-preInitEverything();
-parseCommandLine(argc, argv);
-{$ENDIF}
 initEverything(true);
 WriteLnToConsole('Hedgewars engine ' + cVersionString + '-r' + cRevisionString +
 ' (' + cHashString + ') with protocol #' + inttostr(cNetProtoVersion));
-AddFileLog('Prefix: "' + PathPrefix +'"');
+AddFileLog('Prefix: "' + shortstring(PathPrefix) +'"');
-AddFileLog('UserPrefix: "' + UserPathPrefix +'"');
+AddFileLog('UserPrefix: "' + shortstring(UserPathPrefix) +'"');
 for i:= 0 to ParamCount do
 AddFileLog(inttostr(i) + ': ' + ParamStr(i));
 WriteToConsole('Init SDL... ');
 WriteLnToConsole(msgOK);
 //SDL_StartTextInput();
 SDL_ShowCursor(0);
-WriteToConsole('Init SDL_ttf... ');
+if not cOnlyStats then
-SDLTry(TTF_Init() <> -1, 'TTF_Init', true);
+begin
-WriteLnToConsole(msgOK);
+WriteToConsole('Init SDL_ttf... ');
+SDLTry(TTF_Init() <> -1, 'TTF_Init', true);
+WriteLnToConsole(msgOK);
+end;
 {$IFDEF USE_VIDEO_RECORDING}
 if GameType = gmtRecord then
 InitOffscreenOpenGL()
 else
 end
 else cLocale := 'en';
 WriteLnToConsole(msgGettingConfig);
-if recordFileName = '' then
+if cTestLua then
 begin
-InitIPC;
+ParseCommand('script ' + cScriptName, true);
-SendIPCAndWaitReply(_S'C');        // ask for game config
 end
 else
-LoadRecordFromFile(recordFileName);
+begin
+if recordFileName = '' then
+begin
+InitIPC;
+SendIPCAndWaitReply(_S'C');        // ask for game config
+end
+else
+LoadRecordFromFile(recordFileName);
+end;
 ScriptOnGameInit;
 s:= 'eproto ' + inttostr(cNetProtoVersion);
 SendIPCRaw(@s[0], Length(s) + 1); // send proto version
 TryDo(InitStepsFlags = cifAllInited, 'Some parameters not set (flags = ' + inttostr(InitStepsFlags) + ')', true);
 //ParseCommand('rotmask', true);
 {$IFDEF USE_VIDEO_RECORDING}
 if GameType = gmtRecord then
-RecorderMainLoop()
+begin
-else
+RecorderMainLoop();
-{$ENDIF}
+freeEverything(true);
-MainLoop();
+exit;
+end;
+{$ENDIF}
+MainLoop;
 // clean up all the memory allocated
 freeEverything(true);
 end;
 ///////////////////////////////////////////////////////////////////////////////
 uCommandHandlers.initModule;    // registers all messages from frontend
 uLand.initModule;               // computes land
 uLandPainted.initModule;        // computes drawn land
 uIO.initModule;                 // sets up sockets
+uPhysFSLayer.initModule;
+uScript.initModule;
 if complete then
 begin
-uPhysFSLayer.initModule;
 uTextures.initModule;
 {$IFDEF ANDROID}GLUnit.initModule;{$ENDIF}
 {$IFDEF USE_TOUCH_INTERFACE}uTouch.initModule;{$ENDIF}
 {$IFDEF USE_VIDEO_RECORDING}uVideoRec.initModule;{$ENDIF}
 uAI.initModule;
 uCollisions.initModule;
 uGears.initModule;
 uInputHandler.initModule;
 uMisc.initModule;
 uLandTexture.initModule;    //stub
-uScript.initModule;
 uSound.initModule;
 uStats.initModule;
 uStore.initModule;
+uRender.initModule;
 uTeams.initModule;
 uVisualGears.initModule;
 uVisualGearsHandlers.initModule;
 uWorld.initModule;
 end;
 end;
 procedure freeEverything (complete:boolean);
 begin
 if complete then
 begin
 WriteLnToConsole('Freeing resources...');
 uAI.freeModule;             // AI things need to be freed first
 uAIMisc.freeModule;         //stub
 uAILandMarks.freeModule;
 uCaptions.freeModule;
 uVisualGears.freeModule;
 uTeams.freeModule;
 uInputHandler.freeModule;
 uStats.freeModule;          //stub
 uSound.freeModule;
-uScript.freeModule;
 uMisc.freeModule;
 uLandTexture.freeModule;
 uGears.freeModule;
 uCollisions.freeModule;     //stub
 uChat.freeModule;
 uAmmos.freeModule;
+uRender.freeModule;
 uStore.freeModule;          // closes SDL
 {$IFDEF USE_VIDEO_RECORDING}uVideoRec.freeModule;{$ENDIF}
 {$IFDEF USE_TOUCH_INTERFACE}uTouch.freeModule;{$ENDIF}  //stub
 {$IFDEF ANDROID}GLUnit.freeModule;{$ENDIF}
 uTextures.freeModule;
-uPhysFSLayer.freeModule;
+end;
-end;
 uIO.freeModule;
 uLand.freeModule;
 uLandPainted.freeModule;
 uCommandHandlers.freeModule;
 uCommands.freeModule;
 uVariables.freeModule;
 uUtils.freeModule;              // closes debug file
-end;
+uPhysFSLayer.freeModule;
+uScript.freeModule;
-///////////////////////////////////////////////////////////////////////////////
+end;
-procedure GenLandPreview{$IFDEF HWLIBRARY}(port: LongInt); cdecl; export{$ENDIF};
+///////////////////////////////////////////////////////////////////////////////
+procedure GenLandPreview;
+{$IFDEF MOBILE}
 var Preview: TPreview;
+{$ELSE}
+var Preview: TPreviewAlpha;
+{$ENDIF}
 begin
 initEverything(false);
-{$IFDEF HWLIBRARY}
-WriteLnToConsole('Preview connecting on port ' + inttostr(port));
-ipcPort:= port;
-InitStepsFlags:= cifRandomize;
-{$ENDIF}
 InitIPC;
 IPCWaitPongEvent;
 TryDo(InitStepsFlags = cifRandomize, 'Some parameters not set (flags = ' + inttostr(InitStepsFlags) + ')', true);
+ScriptOnPreviewInit;
+{$IFDEF MOBILE}
 GenPreview(Preview);
+{$ELSE}
+GenPreviewAlpha(Preview);
+{$ENDIF}
 WriteLnToConsole('Sending preview...');
 SendIPCRaw(@Preview, sizeof(Preview));
 SendIPCRaw(@MaxHedgehogs, sizeof(byte));
 WriteLnToConsole('Preview sent, disconnect');
 freeEverything(false);
 end;
-{$IFNDEF HWLIBRARY}
+{$IFDEF HWLIBRARY}
+procedure RunEngine(argc: LongInt; argv: PPChar); cdecl; export;
+begin
+operatingsystem_parameter_argc:= argc;
+operatingsystem_parameter_argv:= argv;
+{$ELSE}
+begin
+{$ENDIF}
 ///////////////////////////////////////////////////////////////////////////////
 /////////////////////////////////// m a i n ///////////////////////////////////
 ///////////////////////////////////////////////////////////////////////////////
-begin
+{$IFDEF PAS2C}
+// workaround for pascal's ParamStr and ParamCount
+init(argc, argv);
+{$ENDIF}
 preInitEverything();
-cTagsMask:= htTeamName or htName or htHealth; // this one doesn't fit nicely w/ reset of other variables. suggestions welcome
 GetParams();
 if GameType = gmtLandPreview then
 GenLandPreview()
 else if GameType <> gmtSyntax then
 Game();
 // return 1 when engine is not called correctly
-halt(LongInt(GameType = gmtSyntax));
+if GameType = gmtSyntax then
-{$ENDIF}
+{$IFDEF PAS2C}
+exit(HaltUsageError);
+{$ELSE}
+halt(HaltUsageError);
+{$ENDIF}
+if cTestLua then
+begin
+WriteLnToConsole(errmsgLuaTestTerm);
+{$IFDEF PAS2C}
+exit(HaltTestUnexpected);
+{$ELSE}
+halt(HaltTestUnexpected);
+{$ENDIF}
+end;
+{$IFDEF PAS2C}
+exit(HaltNoError);
+{$ELSE}
+{$IFDEF IPHONEOS}
+exit;
+{$ELSE}
+halt(HaltNoError);
+{$ENDIF}
+{$ENDIF}
+{$IFDEF HWLIBRARY}
+end;
+{$ENDIF}
 end.

branch	sdl2transition
changeset 11362	ed5a6478e710
parent 11360	7a7611adf715
parent 11317	62287d4044e7
child 11365	b8b208501475