sigonasr2/SigFiesta
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity
SigFiesta/LuaScript/ID/AdlF/AdlF_Zone4.lua

540 lines
10 KiB
Lua
Raw Normal View History

Private server state setup
2023-06-26 04:40:53 -07:00
--[[ ]]--
--[[ <09><>Ÿ<EFBFBD><C5B8> <20>Ƶ<EFBFBD><C6B5><EFBFBD><EFBFBD><EFBFBD> ]]--
--[[ 4<><34><EFBFBD><EFBFBD> ]]--
--[[ ]]--
function Zone4_Setting( Var )
cExecCheck "Zone4_Setting"
if Var == nil then
return
end
Var.Eglack = cMobRegen_XY( Var.MapIndex, RegenInfo.Eglack.Index,
RegenInfo.Eglack.x,
RegenInfo.Eglack.y,
RegenInfo.Eglack.dir )
if Var.Eglack == nil then
cDebugLog( "Default_Setting : Fail cMobRegen_XY Eglack" )
return
end
cSetAbstate( Var.Eglack, "StaSalare00", 1, 20000000 )
if Var.SummonStone_Active ~= "Loussier" then
cSetDeadDelayTime ( Var.Eglack, 9999 )
end
Var.StepFunc = Dummy
return
end
function Zone4_Event_1( Var )
cExecCheck "Zone4_Event_1"
if Var == nil then
return
end
local CurSec = cCurrentSecond()
-- <20><><EFBFBD>ÿ<EFBFBD><C3BF><EFBFBD> <20>ְ<EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><>ȭ <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD>
if Var.Zone4_Event_1_Step == nil then
if Var.SummonStone_Active == "Loussier" then
Var.Dialog = DialogInfo.Zone4_Event1_alive
else
Var.Dialog = DialogInfo.Zone4_Event1_Dead
end
Var.DialogStep = 1
Var.Zone4_Event_1_Step = 1
Var.Zone4_EventPlayTime = CurSec
return
end
-- <20><>ȭ, <20><><EFBFBD>ÿ<EFBFBD><C3BF><EFBFBD> <20>ִٸ<D6B4> <20><> <20><><EFBFBD><EFBFBD> <20>ܰ<EFBFBD> <20><><EFBFBD><EFBFBD>
if Var.Zone4_Event_1_Step == 1 then
if Var.Zone4_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.Zone4_EventPlayTime = CurSec + Var.Dialog[Var.DialogStep].Delay
Var.DialogStep = Var.DialogStep + 1
return
end
Var.Dialog = nil
Var.DialogStep = nil
if Var.SummonStone_Active == "Loussier" then
Var.Zone4_Event_1_Step = 2
else
Var.Zone4_Event_1_Step = 99
end
Var.Zone4_EventPlayTime = CurSec
return
end
if Var.Zone4_Event_1_Step == 2 then
if Var.Zone4_EventPlayTime > CurSec then
return
end
-- <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><>ų
if cSkillBlast( Var.LoussierHandle, Var.Eglack, "AdlF_Loussier_Skill01_N", 9999 ) == nil then
cDebugLog( "Eglack Debuff Fail" )
end
-- <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD>
cResetAbstate( Var.Eglack, "StaSalare00" )
Var.Zone4_Event_1_Step = 3
Var.Zone4_EventPlayTime = CurSec + 4
return
end
if Var.Zone4_Event_1_Step == 3 then
if Var.Zone4_EventPlayTime > CurSec then
return
end
-- <20><><EFBFBD>ÿ<EFBFBD> <20><><EFBFBD><EFBFBD>
if cSkillBlast( Var.LoussierHandle, Var.LoussierHandle, "AdlF_Loussier_Skill03_N" ) == nil then
cDebugLog( "Loussier Immortal Fail" )
end
Var.Zone4_Event_1_Step = 4
Var.Zone4_EventPlayTime = CurSec
return
end
-- <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ų <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>̻<EFBFBD> <20>ɾ<EFBFBD><C9BE>ִ<EFBFBD> <20>ܰ<EFBFBD><DCB0><EFBFBD> <20><><EFBFBD><EFBFBD>
-- ActiveSkill <20><><EFBFBD><EFBFBD> ij<><C4B3><EFBFBD><EFBFBD> <20>ð<EFBFBD>, <20>ɸ<EFBFBD><C9B8><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>̻<EFBFBD>, Ȯ<><C8AE> <20><><EFBFBD><EFBFBD>
-- SubAbstate <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>̻<EFBFBD> <20><><EFBFBD>ӽð<D3BD> <20><><EFBFBD><EFBFBD>
-- <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> - <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20>׿<EFBFBD><D7BF><EFBFBD>
cScriptMessage( Var.MapIndex, AnnounceInfo.AdlF_Mission_04_001 )
Var.Zone4_Event_1_Step = nil
Var.Zone4_EventPlayTime = nil
Var.StepFunc = Dummy
end
function Zone4_Event_2( Var )
cExecCheck "Zone4_Event_2"
if Var == nil then
return
end
local CurSec = cCurrentSecond()
-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- --
-- <20><><EFBFBD>ÿ<EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> ó<><C3B3>
if Var.SummonStone_Active == "Loussier" then
if Var.Zone4_Event_2_Step == nil then
-- <20><><EFBFBD>ÿ<EFBFBD> <20>̵<EFBFBD>
local louNewX, louNewY = cGetAroundCoord( Var.Eglack, Var.EglackDeadDir, 100 )
cNPCVanish( Var.LoussierHandle )
Var.LoussierHandle = cMobRegen_XY( Var.MapIndex, RegenInfo.Loussier.Index,
louNewX,
louNewY,
Var.EglackDeadDir )
cSetAIScript( "ID/AdlF/AdlF", Var.LoussierHandle )
Var.Dialog = DialogInfo.Zone4_Event2_alive
Var.DialogStep = 1
Var.Zone4_Event_2_Step = 1
Var.Zone4_EventPlayTime = CurSec + 3
return
end
-- <20><><EFBFBD>̾<EFBFBD><CCBE>α<EFBFBD> <20><><EFBFBD><EFBFBD>
if Var.Zone4_Event_2_Step == 1 then
if Var.Zone4_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.Zone4_EventPlayTime = CurSec + Var.Dialog[Var.DialogStep].Delay
Var.DialogStep = Var.DialogStep + 1
return
end
-- <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> ó<><C3B3>
-- <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20>ڵ<EFBFBD><DAB5><EFBFBD><EFBFBD><EFBFBD> <20>ϱ<EFBFBD><CFB1><EFBFBD><EFBFBD><EFBFBD>
cQuestMobKill_AllInMap( Var.MapIndex, 2681, "Daliy_Check_Adlf", 5 )
Var.Dialog = nil
Var.DialogStep = nil
Var.Zone4_Event_2_Step = 2
Var.Zone4_EventPlayTime = CurSec + 1
return
end
-- <20>ⱸ <20><><EFBFBD><EFBFBD>Ʈ <20><><EFBFBD><EFBFBD>
if Var.Zone4_Event_2_Step == 2 then
if Var.Zone4_EventPlayTime > CurSec then
return
end
Var.CompleteGate = cMobRegen_XY( Var.MapIndex, RegenInfo.CompleteGate.Index,
Var.EglackDeadLocX,
Var.EglackDeadLocY,
0 )
if Var.CompleteGate == nil then
cDebugLog( "Default_Setting : Fail cMobRegen_XY CompleteGate" )
return
end
if cSetAIScript( "ID/AdlF/AdlF", Var.CompleteGate ) == nil then
cDebugLog( "Default_Setting : Fail cSetAIScript CompleteGate" )
return
end
if cAIScriptFunc( Var.CompleteGate, "NPCClick", "CompleteGateFunc" ) == nil then
cDebugLog( "Default_Setting : Fail cAIScriptFunc CompleteGate" )
return
end
Var.Zone4_Event_2_Step = 3
Var.Zone4_EventPlayTime = CurSec + 1
end
Var.Zone4_Event_2_Step = nil
Var.Zone4_EventPlayTime = nil
Var.StepFunc = Dummy
-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- --
-- <20><><EFBFBD>ÿ<EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> ó<><C3B3>
else
if Var.Zone4_Event_2_Step == nil then
local kerenNewX, kerenNewY = cGetAroundCoord( Var.Eglack, Var.EglackDeadDir, 116 )
Var.Karen = cMobRegen_XY( Var.MapIndex, RegenInfo.Karen.Index,
kerenNewX,
kerenNewY,
Var.EglackDeadDir )
cSetAIScript( "ID/AdlF/AdlF", Var.Karen )
Var.Zone4_Event_2_Step = 1
Var.Zone4_EventPlayTime = CurSec + 1
return
end
if Var.Zone4_Event_2_Step == 1 then
if Var.Zone4_EventPlayTime > CurSec then
return
end
if cSkillBlast( Var.Karen, Var.Karen, "AdlF_Karen_Skill02_W" ) == nil then
cDebugLog( "Karen Sleep Fail" )
end
Var.Zone4_Event_2_Step = 2
Var.Zone4_EventPlayTime = CurSec + 4.5
return
end
if Var.Zone4_Event_2_Step == 2 then
if Var.Zone4_EventPlayTime > CurSec then
return
end
local player = { cGetAreaObjectList( Var.MapIndex, AreaIndex.Zone4_2, ObjectType.Player ) }
for i=1, #player do
cSetAbstate( player[i], "StaMesmerize", 1, 22000 )
end
Var.Zone4_Event_2_Step = 3
Var.Zone4_EventPlayTime = CurSec
Var.Dialog = DialogInfo.Zone4_Event2_Dead_1
Var.DialogStep = 1
return
end
if Var.Zone4_Event_2_Step == 3 then
if Var.Zone4_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.Zone4_EventPlayTime = CurSec + Var.Dialog[Var.DialogStep].Delay
Var.DialogStep = Var.DialogStep + 1
return
end
Var.Dialog = nil
Var.DialogStep = nil
Var.Zone4_Event_2_Step = 4
Var.Zone4_EventPlayTime = CurSec
return
end
if Var.Zone4_Event_2_Step == 4 then
if Var.Zone4_EventPlayTime > CurSec then
return
end
if cSkillBlast( Var.Karen, Var.Eglack, "AdlF_Karen_Skill03_N" ) == nil then
cDebugLog( "Karen Revive Fail" )
end
Var.Zone4_Event_2_Step = 5
Var.Zone4_EventPlayTime = CurSec + 3.5
return
end
if Var.Zone4_Event_2_Step == 5 then
if Var.Zone4_EventPlayTime > CurSec then
return
end
local eglNewX, eglNewY = cGetAroundCoord( Var.Eglack, Var.EglackDeadDir+180, 100 )
cNPCVanish( Var.Eglack )
Var.Eglack = cMobRegen_XY( Var.MapIndex, RegenInfo.EglackMad.Index,
eglNewX,
eglNewY,
Var.EglackDeadDir )
Var.Zone4_Event_2_Step = 6
Var.Zone4_EventPlayTime = CurSec + 1
return
end
Var.Zone4_Event_2_Step = nil
Var.Zone4_EventPlayTime = nil
Var.StepFunc = Zone4_Eglack_Mad
end
-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- --
-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- --
end
function Zone4_Eglack_Mad( Var )
cExecCheck "Zone4_Eglack_Mad"
if Var == nil then
return
end
local CurSec = cCurrentSecond()
if Var.Zone4_Event_3_Step == nil then
if cIsObjectDead( Var.Eglack ) ~= nil then
Var.EglackDeadLocX, Var.EglackDeadLocY = cObjectLocate( Var.Eglack )
Var.Zone4_Event_3_Step = 1
Var.Zone4_EventPlayTime = CurSec + 1
Var.Dialog = DialogInfo.Zone4_Event3_Dead
Var.DialogStep = 1
end
return
end
if Var.Zone4_Event_3_Step == 1 then
if Var.Zone4_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.Zone4_EventPlayTime = CurSec + Var.Dialog[Var.DialogStep].Delay
Var.DialogStep = Var.DialogStep + 1
return
end
Var.Dialog = nil
Var.DialogStep = nil
Var.Zone4_Event_3_Step = 2
Var.Zone4_EventPlayTime = CurSec
return
end
if Var.Zone4_Event_3_Step == 2 then
if Var.Zone4_EventPlayTime > CurSec then
return
end
cNPCVanish( Var.Karen )
-- <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> ó<><C3B3>
-- <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20>ڵ<EFBFBD><DAB5><EFBFBD><EFBFBD><EFBFBD> <20>ϱ<EFBFBD><CFB1><EFBFBD><EFBFBD><EFBFBD>
cQuestMobKill_AllInMap( Var.MapIndex, 2681, "Daliy_Check_Adlf", 5 )
Var.Zone4_Event_3_Step = 3
Var.Zone4_EventPlayTime = CurSec
return
end
if Var.Zone4_Event_3_Step == 3 then
if Var.Zone4_EventPlayTime > CurSec then
return
end
Var.CompleteGate = cMobRegen_XY( Var.MapIndex, RegenInfo.CompleteGate.Index,
Var.EglackDeadLocX,
Var.EglackDeadLocY,
0 )
if Var.CompleteGate == nil then
cDebugLog( "Default_Setting : Fail cMobRegen_XY CompleteGate" )
return
end
if cSetAIScript( "ID/AdlF/AdlF", Var.CompleteGate ) == nil then
cDebugLog( "Default_Setting : Fail cSetAIScript CompleteGate" )
return
end
if cAIScriptFunc( Var.CompleteGate, "NPCClick", "CompleteGateFunc" ) == nil then
cDebugLog( "Default_Setting : Fail cAIScriptFunc CompleteGate" )
return
end
Var.Zone4_Event_3_Step = 4
Var.Zone4_EventPlayTime = CurSec
return
end
Var.Zone4_Event_3_Step = nil
Var.Zone4_EventPlayTime = nil
Var.StepFunc = Dummy
end
Reference in New Issue Copy Permalink