--[[																	]]--
--[[						ºÒŸ´Â ¾Æµ¨¸®¾Æ 							]]--
--[[							1Áö¿ª									]]--
--[[																	]]--

function Zone1_Setting( Var )
cExecCheck "Zone1_Setting"

	if Var == nil then
		return
	end


	-- ¾îµÒÀǵ¹ ¼Òȯ
	Var.Zone_1_Darkstone_1 = cMobRegen_XY( Var.MapIndex, RegenInfo.DStone1.Index,
															RegenInfo.DStone1.x,
															RegenInfo.DStone1.y,
															RegenInfo.DStone1.dir )

	-- °ø°Ý ´çÇҽà ȸÀü ÇÏ´Â ¹®Á¦ ¶§¹®¿¡ ´Ù½Ã Ãß°¡
	cSetAIScript( "ID/AdlFH/AdlFH", Var.Zone_1_Darkstone_1 )

	-- ·ç½Ã¿¡ ¼Òȯ
	-- ·ç½Ã¿¡ HP 50% »óÅ·Π¸®Á¨ ÇÏ´Â ³»¿ë Á¦°Å
	Var.LoussierHandle = cMobRegen_XY( Var.MapIndex, RegenInfo.Loussier.Index, RegenInfo.Loussier.x, RegenInfo.Loussier.y, RegenInfo.Loussier.dir )
	Var.Loussier_Stop  = 1	-- ·ç½Ã¿¡ ¸ØÃã »óÅÂ

	-- ¸¶·»´À, °æºñº´2¸í ¼Òȯ
	Var.Marlene        = cMobRegen_XY( Var.MapIndex, RegenInfo.Marlene.Index,  RegenInfo.Marlene.x,  RegenInfo.Marlene.y,  RegenInfo.Marlene.dir  )
	Var.Guard1         = cMobRegen_XY( Var.MapIndex, RegenInfo.Guard1.Index,   RegenInfo.Guard1.x,   RegenInfo.Guard1.y,   RegenInfo.Guard1.dir   )
	Var.Guard2         = cMobRegen_XY( Var.MapIndex, RegenInfo.Guard2.Index,   RegenInfo.Guard2.x,   RegenInfo.Guard1.y,   RegenInfo.Guard2.dir   )

	if Var.LoussierHandle == nil then
		cDebugLog( "Default_Setting : Fail cMobRegen_XY Loussier" )
		return
	end
	if Var.Marlene == nil then
		cDebugLog( "Default_Setting : Fail cMobRegen_XY Marlene" )
		return
	end
	if Var.Guard1 == nil then
		cDebugLog( "Default_Setting : Fail cMobRegen_XY Guard1" )
		return
	end
	if Var.Guard2 == nil then
		cDebugLog( "Default_Setting : Fail cMobRegen_XY Guard2" )
		return
	end


	-- ·ç½Ã¿¡ ½ºÅ©¸³Æ® ¼ÂÆÃ
	if cSetAIScript( "ID/AdlFH/AdlFH", Var.LoussierHandle ) == nil then
		cDebugLog( "Default_Setting : Fail cSetAIScript Loussier" )
		return
	end


	-- ¸¶·»´À, °æºñº´ ½ºÅ©¸³Æ® ¼ÂÆÃ
	if cSetAIScript( "ID/AdlFH/AdlFH", Var.Marlene ) == nil then
		cDebugLog( "Default_Setting : Fail cSetAIScript Marlene" )
		return
	end
	if cSetAIScript( "ID/AdlFH/AdlFH", Var.Guard1 ) == nil then
		cDebugLog( "Default_Setting : Fail cSetAIScript Guard1" )
		return
	end
	if cSetAIScript( "ID/AdlFH/AdlFH", Var.Guard2 ) == nil then
		cDebugLog( "Default_Setting : Fail cSetAIScript Guard2" )
		return
	end

	-- ±×·ì ¸÷ ¸®Á¨
	for i=1, #RegenInfo.Zone1_Regen_Group do

		cGroupRegenInstance( Var.MapIndex, RegenInfo.Zone1_Regen_Group[i] )

	end

	-- Á¤ÂûÀÚ ¼Òȯ, »óÅÂÀÌ»ó ¼ÂÆÃ
	for i=1, #RegenInfo.Zone1_Regen_Franger do

		local franger = cMobRegen_XY( Var.MapIndex,
									RegenInfo.Zone1_Regen_Franger[i].Index,
									RegenInfo.Zone1_Regen_Franger[i].x,
									RegenInfo.Zone1_Regen_Franger[i].y,
									RegenInfo.Zone1_Regen_Franger[i].dir )

		cSetAbstate( franger, "StaHideWC", 1, 20000000 )

	end


	Var.StepFunc = Zone1_LoussierRescueEvent

	return
end


-- ·ç½Ã¿¡ ±¸Ãâ À̺¥Æ® ó¸®
function Zone1_LoussierRescueEvent( Var )
cExecCheck "Zone1_LoussierRescueEvent"

	if Var == nil then
		return
	end

	local CurSec = cCurrentSecond()

	-- À̺¥Æ® ½ÃÀÛ Ã¼Å©
	if Var.Zone1_EventStep == nil then

		-- Áö¿ª¾È¿¡ ¿ÀºêÁ§Æ® ù¹ø°°¡ ÀÖ´ÂÁö¸¸ üũ
		local Object = cGetAreaObjectList( Var.MapIndex, AreaIndex.Zone1_1, ObjectType.Player )

		if Object == nil then
			return
		end

		Var.Dialog				= nil
		Var.DialogStep			= nil

		Var.Zone1_EventStep		= 1
		Var.Zone1_EventPlayTime = CurSec

		return
	end


	--  1_1, 1_2
	-- Ç÷¹À̾î ÇൿÀ» ¸·±âÀ§ÇØ »óÅÂÀÌ»óÀ» °É°í, ·ç½Ã¿¡ ÂÊÀ¸·Î Ä«¸Þ¶ó À̵¿
	if Var.Zone1_EventStep == 1 then

		if Var.Zone1_EventPlayTime > CurSec then
			return
		end

		local PlayerList	= { cGetPlayerList( Var.MapIndex ) }
		for i=1, #PlayerList do
			if cSetAbstate( PlayerList[i], STUN, 1, 200000 ) == nil then
				cDebugLog( "Zone1_LoussierRescueEvent : cSetAbstate" )
			end
		end

		cCameraMove( Var.MapIndex,
						CameraMoveInfo[1].x,
						CameraMoveInfo[1].y,
						CameraMoveInfo[1].AngleXZ,
						CameraMoveInfo[1].AngleY,
						CameraMoveInfo[1].Dist,		1 )


		Var.Zone1_EventStep		= 2
		Var.Zone1_EventPlayTime	= CurSec + 2

		return
	end


	-- 1_3
	-- ¸¶·»´À, °æºñº´ÂÊÀ¸·Î Ä«¸Þ¶ó À̵¿
	if Var.Zone1_EventStep == 2 then

		if Var.Zone1_EventPlayTime > CurSec then
			return
		end

		local PlayerList	= { cGetPlayerList( Var.MapIndex ) }
		for i=1, #PlayerList do
			if cSetAbstate( PlayerList[i], STUN, 1, 200000 ) == nil then
				cDebugLog( "Zone1_LoussierRescueEvent : cSetAbstate" )
			end
		end

		cCameraMove( Var.MapIndex,
				CameraMoveInfo[2].x,
				CameraMoveInfo[2].y,
				CameraMoveInfo[2].AngleXZ,
				CameraMoveInfo[2].AngleY,
				CameraMoveInfo[2].Dist,		1 )



		Var.Zone1_EventStep		= 3
		Var.Zone1_EventPlayTime	= CurSec + 2

		return
	end


	-- 1_4
	-- NPC ´ëÈ­
	if Var.Zone1_EventStep == 3 then

		if Var.Zone1_EventPlayTime > CurSec then
			return
		end

		if Var.Dialog == nil then
			Var.Dialog		= DialogInfo.Loussier_Rescue_Event
			Var.DialogStep	= 1

		end

		if Var.DialogStep <= #Var.Dialog then

			cMobDialog( Var.MapIndex,
						Var.Dialog[Var.DialogStep].Portrait,
						Var.Dialog[Var.DialogStep].FileName,
						Var.Dialog[Var.DialogStep].Index )

			Var.Zone1_EventPlayTime	= CurSec + Var.Dialog[Var.DialogStep].Delay

			Var.DialogStep = Var.DialogStep + 1

			return
		end


		Var.Dialog				= nil
		Var.DialogStep			= nil

		Var.Zone1_EventStep		= 4
		Var.Zone1_EventPlayTime	= CurSec

		return
	end


	-- 1_5
	-- Ä«¸Þ¶ó ·ç½Ã¿¡ À§Ä¡·Î À̵¿
	if Var.Zone1_EventStep == 4 then

		if Var.Zone1_EventPlayTime > CurSec then
			return
		end

		local PlayerList	= { cGetPlayerList( Var.MapIndex ) }
		for i=1, #PlayerList do
			if cSetAbstate( PlayerList[i], STUN, 1, 200000 ) == nil then
				cDebugLog( "Zone1_LoussierRescueEvent : cSetAbstate" )
			end
		end

		cCameraMove( Var.MapIndex,
				CameraMoveInfo[3].x,
				CameraMoveInfo[3].y,
				CameraMoveInfo[3].AngleXZ,
				CameraMoveInfo[3].AngleY,
				CameraMoveInfo[3].Dist,		1 )


		Var.Zone1_EventStep		= 5
		Var.Zone1_EventPlayTime	= CurSec + 1

		return
	end


	-- 1_6, ( 1_7 )
	-- ¸÷ ¼Òȯ
	if Var.Zone1_EventStep == 5 then

		if Var.Zone1_EventPlayTime > CurSec then
			return
		end


		Var.Zone1_Event_Mob = {}

		for i=1, #RegenInfo.Zone1_Event do
			Var.Zone1_Event_Mob[i] = cMobRegen_XY( Var.MapIndex, RegenInfo.Zone1_Event[i].Index,
																	RegenInfo.Zone1_Event[i].x,
																	RegenInfo.Zone1_Event[i].y,
																	RegenInfo.Zone1_Event[i].dir )
		end

		Var.Zone1_EventStep		= 6
		Var.Zone1_EventPlayTime	= CurSec + 2

		return
	end


	-- 1_8
	-- Ä«¸Þ¶ó ¿øÀ§Ä¡·Î ÇϱâÀü »óÅÂÀÌ»ó Á¦°Å
	if Var.Zone1_EventStep == 6 then

		if Var.Zone1_EventPlayTime > CurSec then
			return
		end

		local PlayerList	= { cGetPlayerList( Var.MapIndex ) }
		for i=1, #PlayerList do
			if cResetAbstate( PlayerList[i], STUN ) == nil then
				cDebugLog( "Zone1_LoussierRescueEvent : Fail cResetAbstate" )
			end
		end

		Var.Zone1_EventStep		= 7
		Var.Zone1_EventPlayTime	= CurSec

		return
	end


	-- 1_8
	-- Ä«¸Þ¶ó ¿øÀ§Ä¡
	if Var.Zone1_EventStep == 7 then

		if Var.Zone1_EventPlayTime > CurSec then
			return
		end


		cCameraMove( Var.MapIndex, 0, 0, 0, 0, 0, 0 )


		Var.Zone1_EventStep		= 8
		Var.Zone1_EventPlayTime	= CurSec + 1

		return
	end


	-- 1_9
	-- °æºñº´, ¸¶·»´À ·ç½Ã¿¡ÂÊÀ¸·Î À̵¿
	if Var.Zone1_EventStep == 8 then

		if Var.Zone1_EventPlayTime > CurSec then
			return
		end

		cNPCVanish( Var.Marlene )
		cNPCVanish( Var.Guard1 )
		cNPCVanish( Var.Guard2 )

		Var.Marlene	= cMobRegen_Obj( RegenInfo.Marlene.Index, Var.LoussierHandle )
		Var.Guard1	= cMobRegen_Obj( RegenInfo.Guard1.Index,  Var.LoussierHandle )
		Var.Guard2	= cMobRegen_Obj( RegenInfo.Guard2.Index,  Var.LoussierHandle )


		-- ¸¶·»´À ¹× °æºñº´ ·ç½Ã¿¡ Á×À»¶§, ¸¶·»´À Á×À»¶§ 󸮵îÀÇ ¹®Á¦·Î ¼öÁ¤
		cSetAIScript( "ID/AdlFH/AdlFH", Var.Marlene )
		cSetAIScript( "ID/AdlFH/AdlFH", Var.Guard1  )
		cSetAIScript( "ID/AdlFH/AdlFH", Var.Guard2  )


		Var.Loussier_Stop  = nil -- ·ç½Ã¿¡ ¸ØÃã »óÅ ÇØÁ¦

		Var.Zone1_EventStep		= 9
		Var.Zone1_EventPlayTime	= CurSec

		return
	end


	-- 1_10
	-- °øÁö Ãâ·Â
	if Var.Zone1_EventStep == 9 then

		if Var.Zone1_EventPlayTime > CurSec then
			return
		end


		-- ¸¶·»´À ¹× °æºñº´ ·ç½Ã¿¡ Á×À»¶§, ¸¶·»´À Á×À»¶§ 󸮵îÀÇ ¹®Á¦·Î ¼öÁ¤
		if GuardMemBlock[Var.Marlene] ~= nil then
			GuardMemBlock[Var.Marlene].StepFunc = GuarderActivity
		end
		if GuardMemBlock[Var.Guard1] ~= nil then
			GuardMemBlock[Var.Guard1].StepFunc = GuarderActivity
		end
		if GuardMemBlock[Var.Guard2] ~= nil then
			GuardMemBlock[Var.Guard2].StepFunc = GuarderActivity
		end

		cScriptMessage( Var.MapIndex, AnnounceInfo.AdlF_Mission_01_001 )

		Var.Zone1_EventStep		= 10
		Var.Zone1_EventPlayTime	= CurSec

		return
	end



	Var.Zone1_EventStep		= nil
	Var.Zone1_EventPlayTime	= nil

	Var.StepFunc			= Zone1_LoussierRescueEnd

	return
end


-- ·ç½Ã¿¡ ±¸Ãâ À̺¥Æ® Á¾·á
function Zone1_LoussierRescueEnd( Var )
cExecCheck "Zone1_LoussierRescueEnd"

	if Var == nil then
		return
	end


	local CurSec = cCurrentSecond()

	-- 1_11, 1_12
	-- ±¸ÃâÀ̺¥Æ® Á¾·á Á¶°Ç üũ
	if Var.Zone1_EventStep == nil then

		-- ·ç½Ã¿¡°¡ Á×¾úÀ» °æ¿ì, ( stepcontrol ¿¡¼­ ¸Å·çƾ ·ç½Ã¿¡ üũ )
		if Var.LoussierHandle == nil then

			Var.Dialog				= DialogInfo.Loussier_Rescue_Fail
			Var.DialogStep			= 1

			Var.Zone1_EventStep		= 1
			Var.Zone1_EventPlayTime = CurSec + 2

			return
		end

		local chkEventMob = 0
		-- ¸÷ ÀüºÎ Á×¾ú´ÂÁö üũ
		for index, value in pairs( Var.Zone1_Event_Mob ) do
			if value ~= nil then
				if cIsObjectDead( value ) ~= nil then
					Var.Zone1_Event_Mob[index] = nil
				end

				chkEventMob = 1
			end
		end


		if chkEventMob == 1 then
			return
		end

		-- ¸÷ÀÌ ´Ù Á×¾úÀ» °æ¿ì
		Var.Zone1_Event_Mob		= nil

		Var.Dialog				= DialogInfo.Loussier_Rescue_Succ
		Var.DialogStep			= 1

		Var.Zone1_EventStep		= 1
		Var.Zone1_EventPlayTime = CurSec + 2

		return
	end


	if Var.Zone1_EventStep == 1 then

		if Var.Zone1_EventPlayTime > CurSec then
			return
		end

		-- ¸¶·»´À ¹× °æºñº´ ·ç½Ã¿¡ Á×À»¶§, ¸¶·»´À Á×À»¶§ 󸮵îÀÇ ¹®Á¦·Î ¼öÁ¤
		if GuardMemBlock[Var.Marlene] ~= nil then
			GuardMemBlock[Var.Marlene].StepFunc = GuarderStop
		end
		if GuardMemBlock[Var.Guard1] ~= nil then
			GuardMemBlock[Var.Guard1].StepFunc = GuarderStop
		end
		if GuardMemBlock[Var.Guard2] ~= nil then
			GuardMemBlock[Var.Guard2].StepFunc = GuarderStop
		end


		cFollow( Var.Marlene, Var.LoussierHandle, 100, 1000 )
		cFollow( Var.Guard1,  Var.LoussierHandle, 100, 1000 )
		cFollow( Var.Guard2,  Var.LoussierHandle, 100, 1000 )


		Var.Zone1_EventStep		= 2
		Var.Zone1_EventPlayTime = CurSec

		return
	end



	-- 1_13_S, 1_14_S, 1_13_F
	-- ÇØ´ç ´ëÈ­ Ãâ·Â
	if Var.Zone1_EventStep == 2 then

		if Var.Zone1_EventPlayTime > CurSec then
			return
		end

		if Var.DialogStep <= #Var.Dialog then

			cMobDialog( Var.MapIndex,
						Var.Dialog[Var.DialogStep].Portrait,
						Var.Dialog[Var.DialogStep].FileName,
						Var.Dialog[Var.DialogStep].Index )

			Var.Zone1_EventPlayTime	= CurSec + Var.Dialog[Var.DialogStep].Delay

			Var.DialogStep = Var.DialogStep + 1

			return
		end


		Var.Dialog				= nil
		Var.DialogStep			= nil

		Var.Zone1_EventStep		= 3
		Var.Zone1_EventPlayTime	= CurSec + 4

		return
	end


	-- 1_14_F
	-- °øÁö Ãâ·Â
	if Var.Zone1_EventStep == 3 then

		if Var.Zone1_EventPlayTime > CurSec then
			return
		end

		cScriptMessage( Var.MapIndex, AnnounceInfo.AdlF_Mission_01_002H )

		Var.Zone1_EventStep		= 4
		Var.Zone1_EventPlayTime	= CurSec

		return
	end


	if Var.Zone1_EventStep == 4 then

		if Var.FountainOfLife_Use == false then
			return
		end

		cScriptMessage( Var.MapIndex, AnnounceInfo.AdlF_Mission_01_002 )

		Var.Zone1_EventStep		= 5
		Var.Zone1_EventPlayTime	= CurSec
	
		return
	end


	Var.Zone1_EventStep		= nil
	Var.Zone1_EventPlayTime	= nil

	Var.StepFunc			= Dummy

	return
end