{$IFDEF IPHONEOS}

unit hwengine;

interface

{$ELSE}

{$ENDIF}

{$IFDEF IPHONEOS}

procedure DoTimer(Lag: LongInt);

procedure OnDestroy;

procedure MainLoop;

procedure ShowMainWindow;

procedure Game; cdecl; export;

implementation

{$ELSE}

{$ENDIF}

	inc(RealTicks, Lag);

	case GameState of

		gsLandGen: begin

				GenMap;

				GameState:= gsStart;

				end;

		gsStart: begin

				if HasBorder then DisableSomeWeapons;

				AddClouds;

				AssignHHCoords;

				AddMiscGears;

				StoreLoad;

				InitWorld;

				ResetKbd;

				SoundLoad;

				if GameType = gmtSave then

					begin

					isSEBackup:= isSoundEnabled;

					isSoundEnabled:= false

					end;

				FinishProgress;

				PlayMusic;

				SetScale(zoom);

				GameState:= gsGame;

		gsConfirm,

		gsGame: begin

				DrawWorld(Lag); // never place between ProcessKbd and DoGameTick - bugs due to /put cmd and isCursorVisible

				ProcessKbd;

				DoGameTick(Lag);

				ProcessVisualGears(Lag);

				end;

		gsChat: begin

				DrawWorld(Lag);

				DoGameTick(Lag);

				ProcessVisualGears(Lag);

				end;

		gsExit: begin

				isTerminated:= true;

				end;

		end;

	SDL_GL_SwapBuffers();

		// not going to make captures on the iPhone

	if flagMakeCapture then

		flagMakeCapture:= false;

		s:= 'hw_' + cSeed + '_' + inttostr(GameTicks) + '.tga';

		WriteLnToConsole('Saving ' + s);

		MakeScreenshot(s);

		//SDL_SaveBMP_RW(SDLPrimSurface, SDL_RWFromFile(Str2PChar(s), 'wb'), 1)

	exit();

procedure MainLoop; 

begin

	PrevTime:= SDL_GetTicks;

	repeat

{$IFNDEF IPHONEOS}

// have to remove this cycle because otherwise it segfaults at exit

		while SDL_PollEvent(@event) <> 0 do

		begin

			case event.type_ of

				SDL_KEYDOWN: if GameState = gsChat then KeyPressChat(event.key.keysym.unicode);

{$IFDEF SDL13}

				SDL_WINDOWEVENT:

{$ELSE}

				SDL_ACTIVEEVENT:

					if (event.active.state and SDL_APPINPUTFOCUS) <> 0 then

						cHasFocus:= event.active.gain = 1;

				//SDL_VIDEORESIZE: Resize(max(event.resize.w, 600), max(event.resize.h, 450));

				SDL_MOUSEBUTTONDOWN: if event.button.button = SDL_BUTTON_WHEELDOWN then uKeys.wheelDown:= true;

				SDL_MOUSEBUTTONUP: if event.button.button = SDL_BUTTON_WHEELUP then uKeys.wheelUp:= true;

				SDL_JOYAXISMOTION: ControllerAxisEvent(event.jaxis.which, event.jaxis.axis, event.jaxis.value);

				SDL_JOYHATMOTION: ControllerHatEvent(event.jhat.which, event.jhat.hat, event.jhat.value);

				SDL_JOYBUTTONDOWN: ControllerButtonEvent(event.jbutton.which, event.jbutton.button, true);

				SDL_JOYBUTTONUP: ControllerButtonEvent(event.jbutton.which, event.jbutton.button, false);

				SDL_QUITEV: isTerminated:= true

			end; // end case event.type_ of

		end; // end while SDL_PollEvent(@event) <> 0 do

		CurrTime:= SDL_GetTicks;

		if PrevTime + cTimerInterval <= CurrTime then

		begin

			DoTimer(CurrTime - PrevTime);

			PrevTime:= CurrTime

		end else SDL_Delay(1);

		if isTerminated = false then IPCCheckSock();

	until isTerminated;

	exit();

end;

/////////////////////////

procedure ShowMainWindow;

begin

	if cFullScreen then ParseCommand('fullscr 1', true)

	else ParseCommand('fullscr 0', true);

	SDL_ShowCursor(0)

end;

///////////////

procedure Game;{$IFDEF IPHONEOS}cdecl; export;{$ENDIF}

var	p: TPathType;

	s: shortstring;

begin

{$IFDEF IPHONEOS}

	Randomize;

	val('320', cScreenWidth);

	val('480', cScreenHeight);

	cInitWidth:= cScreenWidth;

	cInitHeight:= cScreenHeight;

	cBitsStr:= '16';

	val(cBitsStr, cBits);

	val('51432', ipcPort);

	cFullScreen:= true;

	isSoundEnabled:= false;

	cVSyncInUse:= true;

	cLocaleFName:= 'en.txt';

	val('100', cInitVolume);

	val('8', cTimerInterval);

	PathPrefix:= 'Data';

	cShowFPS:= true;

	cAltDamage:= false;

	UserNick:= 'Koda'; //DecodeBase64(ParamStr(15));

	isMusicEnabled:= false;

	cReducedQuality:= false;

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

	SDL_EnableUNICODE(1);

	WriteToConsole('Init SDL_ttf... ');

	SDLTry(TTF_Init <> -1, true);

	WriteLnToConsole(msgOK);

	ShowMainWindow;

	AddProgress;

	ControllerInit; // has to happen before InitKbdKeyTable to map keys

	InitKbdKeyTable;

	if recordFileName = '' then

		InitIPC;

	WriteLnToConsole(msgGettingConfig);

	if cLocaleFName <> 'en.txt' then

		LoadLocale(Pathz[ptLocale] + '/en.txt');

	LoadLocale(Pathz[ptLocale] + '/' + cLocaleFName);

	if recordFileName = '' then

		SendIPCAndWaitReply('C')        // ask for game config

	else

		LoadRecordFromFile(recordFileName);

	s:= 'eproto ' + inttostr(cNetProtoVersion);

	SendIPCRaw(@s[0], Length(s) + 1); // send proto version

	InitTeams;

	AssignStores;

	if isSoundEnabled then

		InitSound;

	isDeveloperMode:= false;

	TryDo(InitStepsFlags = cifAllInited, 'Some parameters not set (flags = ' + inttostr(InitStepsFlags) + ')', true);

	MainLoop();

	OnDestroy();

	exit();

end;

{$IFNDEF IPHONEOS}

/////////////////////////

procedure GenLandPreview;

var Preview: TPreview;

	h: byte;

begin

	InitIPC;

	IPCWaitPongEvent;

	TryDo(InitStepsFlags = cifRandomize, 'Some parameters not set (flags = ' + inttostr(InitStepsFlags) + ')', true);

	Preview:= GenPreview;

	WriteLnToConsole('Sending preview...');

	SendIPCRaw(@Preview, sizeof(Preview));

	h:= MaxHedgehogs;

	SendIPCRaw(@h, sizeof(h));

	WriteLnToConsole('Preview sent, disconnect');

	CloseIPC();

end;

////////////////////////////////

procedure Resize(w, h: LongInt);

begin

	cScreenWidth:= w;

	cScreenHeight:= h;

	if cFullScreen then

		ParseCommand('/fullscr 1', true)

	else

		ParseCommand('/fullscr 0', true);

	for i:=0 to ParamCount do

		Write(ParamStr(i) + ' ');

	case ParamCount of

		17: begin

			val(ParamStr(2), cScreenWidth);

			val(ParamStr(3), cScreenHeight);

			cBitsStr:= ParamStr(4);

			val(ParamStr(5), ipcPort);

			cFullScreen:= ParamStr(6) = '1';

			isSoundEnabled:= ParamStr(7) = '1';

			cVSyncInUse:= ParamStr(8) = '1';

			cLocaleFName:= ParamStr(9);

			val(ParamStr(10), cInitVolume);

			val(ParamStr(11), cTimerInterval);

			PathPrefix:= ParamStr(12);

			cShowFPS:= ParamStr(13) = '1';

			cAltDamage:= ParamStr(14) = '1';

			UserNick:= DecodeBase64(ParamStr(15));

			isMusicEnabled:= ParamStr(16) = '1';

			cReducedQuality:= ParamStr(17) = '1';

		end;

		3: begin

			val(ParamStr(2), ipcPort);

			GameType:= gmtLandPreview;

			if ParamStr(3) <> 'landpreview' then 

				OutError(errmsgShouldntRun, true);

		end;

		2: begin

			PathPrefix:= ParamStr(1);

			recordFileName:= ParamStr(2);

		end;

		6: begin

			PathPrefix:= ParamStr(1);

			recordFileName:= ParamStr(2);

			if ParamStr(3) = '--set-video'	then

				val(ParamStr(4), cScreenWidth);

				val(ParamStr(5), cScreenHeight);

				cInitWidth:= cScreenWidth;

				cInitHeight:= cScreenHeight;

				cBitsStr:= ParamStr(6);

				val(cBitsStr, cBits);

				if ParamStr(3) = '--set-audio' then

				begin

					val(ParamStr(4), cInitVolume);

					isMusicEnabled:= ParamStr(5) = '1';

					isSoundEnabled:= ParamStr(6) = '1';

				end

				else

					if ParamStr(3) = '--set-other' then

					begin

						cLocaleFName:= ParamStr(4);

						cFullScreen:= ParamStr(5) = '1';

						cShowFPS:= ParamStr(6) = '1';

					end

					else DisplayUsage;

			end;

		11: begin

			PathPrefix:= ParamStr(1);

			recordFileName:= ParamStr(2);

			if ParamStr(3) = '--set-multimedia' then

			begin

				val(ParamStr(4), cScreenWidth);

				val(ParamStr(5), cScreenHeight);

				cInitWidth:= cScreenWidth;

				cInitHeight:= cScreenHeight;

				cBitsStr:= ParamStr(6);

				val(cBitsStr, cBits);

				val(ParamStr(7), cInitVolume);

				isMusicEnabled:= ParamStr(8) = '1';

				isSoundEnabled:= ParamStr(9) = '1';

				cLocaleFName:= ParamStr(10);

				cFullScreen:= ParamStr(11) = '1';

			end

			else DisplayUsage;

		end;

		15: begin

			PathPrefix:= ParamStr(1);

			recordFileName:= ParamStr(2);

			if ParamStr(3) = '--set-everything' then

			begin

				val(ParamStr(4), cScreenWidth);

				val(ParamStr(5), cScreenHeight);

				cInitWidth:= cScreenWidth;

				cInitHeight:= cScreenHeight;

				cBitsStr:= ParamStr(6);

				val(cBitsStr, cBits);

				val(ParamStr(7), cInitVolume);

				isMusicEnabled:= ParamStr(8) = '1';

				isSoundEnabled:= ParamStr(9) = '1';

				cLocaleFName:= ParamStr(10);

				cFullScreen:= ParamStr(11) = '1';

				cAltDamage:= ParamStr(12) = '1';

				cShowFPS:= ParamStr(13) = '1';

				val(ParamStr(14), cTimerInterval);

				cReducedQuality:= ParamStr(15) = '1';

			end

			else DisplayUsage;

		end;

	AddFileLog('Prefix: "' + PathPrefix +'"');

	for i:= 0 to ParamCount do

		AddFileLog(inttostr(i) + ': ' + ParamStr(i));

	if GameType = gmtLandPreview	then GenLandPreview

					else Game;

{$ENDIF}