SigFiesta/LuaScript/AIScript/Defense.lua

--[[
<EFBFBD><EFBFBD><EFBFBD>潺<EFBFBD><EFBFBD><EFBFBD><EFBFBD>
MasterNPC<EFBFBD><EFBFBD> WOOD7, GateNPC<EFBFBD><EFBFBD> DLich<EFBFBD><EFBFBD> <EFBFBD>ӽ÷<EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD>. <EFBFBD><EFBFBD><EFBFBD>߿<EFBFBD> <EFBFBD>ٸ<EFBFBD> NPC<EFBFBD><EFBFBD> <EFBFBD≯<EFBFBD> <EFBFBD>ٲܰ<EFBFBD>
<EFBFBD>¸<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> : GateNPC<EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>߸<EFBFBD><EFBFBD>ų<EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ŵ(Master_Success<EFBFBD>Լ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> ó<EFBFBD><EFBFBD>)
<EFBFBD>й<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> : <EFBFBD><EFBFBD><EFBFBD><EFBFBD> NPC <EFBFBD>Զ<EFBFBD>(Master_Fail<EFBFBD><EFBFBD><EFBFBD><EFBFBD> ó<EFBFBD><EFBFBD>)
Damage<EFBFBD><EFBFBD> Castle<EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD> HP<EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD>߾<EFBFBD> <EFBFBD><EFBFBD><EFBFBD>ҽ<EFBFBD>Ŵ. - <EFBFBD><EFBFBD>û<EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD> <EFBFBD>ֵ<EFBFBD><EFBFBD><EFBFBD>
		<EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> 1000, NPC<EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD> HP 900<EFBFBD≯<EFBFBD>, <EFBFBD><EFBFBD> NPC<EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>߸<EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD> NPC<EFBFBD><EFBFBD> 100<EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
<EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> Hold<EFBFBD><EFBFBD> SpeedDown <EFBFBD> <EFBFBD>ɷ<EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD>ڵ<EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> Ȯ<EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, Ȯ<EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD>
]]

-- <EFBFBD><EFBFBD>ũ<EFBFBD><EFBFBD>Ʈ<EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD>ϰ<EFBFBD>
ReturnAI = {}
ReturnAI.END = 1    -- Return_AI_END = 1;//    -- <EFBFBD><EFBFBD><EFBFBD><EFBFBD> AI<EFBFBD><EFBFBD>ƾ <EFBFBD><EFBFBD>
ReturnAI.CPP = 2    -- Return_AI_CPP = 2;//    -- <EFBFBD><EFBFBD><EFBFBD>Ʒ<EFBFBD> <EFBFBD>Ϻ<EFBFBD> ó<EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD> cpp<EFBFBD><EFBFBD> AI<EFBFBD><EFBFBD>ƾ <EFBFBD><EFBFBD><EFBFBD><EFBFBD>


Course = {
			{X = 6489, Y =  5994,},
			{X = 6487, Y =  6805,},		-- <EFBFBD>ڽ<EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD> <EFBFBD><EFBFBD>ǥ
			{X = 6609, Y =  6982,},
			{X = 7526, Y =  6882,},
			{X = 7618, Y =  5769,},
			{X = 5428, Y =  5725,},
			{X = 5466, Y =  6878,},
			{X = 6528, Y =  6853,},
			{X = 6585, Y =  7424,},
			{X = 6551, Y =  7943,},
			{X = 6516, Y =  8749,},
			{X = 7091, Y =  8799,},
			{X = 7125, Y =  9306,},
			{X = 6943, Y =  9616,},
			{X = 6550, Y =  9999,},
			{X = 6475, Y = 10418,},
		 }

Castle = {
			{NPC = "Job2_BraveR", X = 6487, Y = 6805, HP = 1000},	-- <EFBFBD><EFBFBD> <EFBFBD>Ʊ<EFBFBD> NPC<EFBFBD><EFBFBD> <EFBFBD><EFBFBD>ġ, ü<EFBFBD><EFBFBD>, ID
			{NPC = "Job2_BraveR", X = 7526, Y = 6882, HP = 1000},
			{NPC = "Job2_BraveR", X = 7618, Y = 5769, HP = 1000},
			{NPC = "Job2_BraveR", X = 5428, Y = 5725, HP = 1000},
			{NPC = "Job2_YongE",  X = 6585, Y = 7424, HP = 1000},
			{NPC = "Job2_YongE",  X = 6516, Y = 8749, HP = 1000},
			{NPC = "Job2_YongE",  X = 7091, Y = 8799, HP = 1000},
			{NPC = "Job2_YongE",  X = 6550, Y = 9999, HP = 1000},
		 }

-- MobResist.shn <EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD>ǵ<EFBFBD> <EFBFBD≯<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD>
ResistNormalMob = {ResDot = 0, ResStun = 0, ResMoveSpeed = 0, ResFear = 0, ResBinding = 0, ResReverse = 0, ResMesmerize = 0, ResSeverBone = 0, ResKnockBack = 0, ResTBMinus = 0}
ResistBossMob   = {ResDot = 0, ResStun = 0, ResMoveSpeed = 0, ResFear = 0, ResBinding = 0, ResReverse = 0, ResMesmerize = 0, ResSeverBone = 0, ResKnockBack = 0, ResTBMinus = 0}

Wave = {
		{Mob = "Slime",       Num = 30, Damage =  300, HP = 3000, EXP = 2, AC =  50, MR =  50, SpeedRate = 300, Interval = 1, Resist = ResistNormalMob,},
		{Mob = "MushRoom",    Num = 30, Damage =  330, HP = 3000, EXP = 3, AC =  50, MR =  50, SpeedRate = 300, Interval = 2, Resist = ResistNormalMob, WaitSecond =  5},
		{Mob = "Crab",        Num = 30, Damage =  370, HP = 3000, EXP = 4, AC =  50, MR =  50, SpeedRate = 300, Interval = 3, Resist = ResistNormalMob, WaitSecond =  5},
		{Mob = "Honeying",    Num = 30, Damage =  400, HP = 3000, EXP = 5, AC =  50, MR =  50, SpeedRate = 290, Interval = 3, Resist = ResistNormalMob, WaitSecond =  5},
		{Mob = "Boogy",       Num = 30, Damage =  430, HP = 3000, EXP = 6, AC =  50, MR =  50, SpeedRate = 320, Interval = 3, Resist = ResistNormalMob, WaitSecond = 10},
		{Mob = "Kebing",      Num = 30, Damage =  470, HP = 3000, EXP = 7, AC =  50, MR =  50, SpeedRate = 290, Interval = 3, Resist = ResistNormalMob, WaitSecond = 10},
		{Mob = "MageBook",    Num = 30, Damage =  500, HP = 3000, EXP = 8, AC =  50, MR =  50, SpeedRate = 290, Interval = 3, Resist = ResistNormalMob, WaitSecond = 10},
		{Mob = "Skeleton",    Num = 30, Damage =  530, HP = 3000, EXP = 9, AC =  50, MR =  50, SpeedRate = 215, Interval = 4, Resist = ResistNormalMob, WaitSecond = 10},
		{Mob = "Bat",         Num = 30, Damage =  570, HP = 3000, EXP = 2, AC =  50, MR =  50, SpeedRate = 290, Interval = 4, Resist = ResistNormalMob, WaitSecond = 15},
		{Mob = "Spider",      Num =  3, Damage = 1000, HP = 5000, EXP = 2, AC = 100, MR = 100, SpeedRate = 290, Interval = 4, Resist = ResistBossMob,   WaitSecond = 15},
		{Mob = "FlyingStaff", Num = 20, Damage =  630, HP = 3000, EXP = 2, AC =  50, MR =  50, SpeedRate = 320, Interval = 4, Resist = ResistNormalMob, WaitSecond = 15},
		{Mob = "Zombie",      Num = 20, Damage =  670, HP = 3000, EXP = 2, AC =  50, MR =  50, SpeedRate = 215, Interval = 5, Resist = ResistNormalMob, WaitSecond = 15},
		{Mob = "OldFox",      Num = 20, Damage =  700, HP = 3000, EXP = 2, AC =  50, MR =  50, SpeedRate = 290, Interval = 5, Resist = ResistNormalMob, WaitSecond = 15},
		{Mob = "FireViVi",    Num = 20, Damage =  730, HP = 3000, EXP = 2, AC =  50, MR =  50, SpeedRate = 290, Interval = 5, Resist = ResistNormalMob, WaitSecond = 15},
		{Mob = "Ghost",       Num =  1, Damage = 3000, HP = 8000, EXP = 2, AC = 300, MR = 300, SpeedRate = 250, Interval = 5, Resist = ResistBossMob,   WaitSecond = 25},
	   } 	-- <EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD>̺<EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD>, <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, ü<EFBFBD><EFBFBD>, <EFBFBD><EFBFBD><EFBFBD><EFBFBD>, <EFBFBD><EFBFBD><EFBFBD><EFBFBD>, <EFBFBD>ӵ<EFBFBD>(õ<EFBFBD><EFBFBD><EFBFBD><EFBFBD>), ID, <EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ð<EFBFBD>


GateLoc = {X = 6444, Y = 5734, HP = 50000, AC = 1000, MR = 1000, EXP = 0}	-- <EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ʈ<EFBFBD><EFBFBD> <EFBFBD><EFBFBD>ġ, ü<EFBFBD><EFBFBD>, <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
-- Hold

MemBlock = {}
MainHandle = nil

function DefenseStart(act)
cExecCheck "DefenseStart"
	MemBlock[MainHandle].StepFunc = Master_Start
end

function Dummy()
	return ReturnAI.END
end

function WOOD7(Handle, MapIndex)
cExecCheck "WOOD7"
	local Var = MemBlock[Handle]
	if Var == nil then
		MainHandle = Handle
		MemBlock[Handle] = {}
		Var = MemBlock[Handle]
		Var.Handle = Handle
		Var.MapIndex = MapIndex
		Var.StepFunc = Dummy
	end
	Var.StepFunc(Var)
	return ReturnAI.END
end

function Master_Start(Var)
cExecCheck "Master_Start"

	Var.Castle = {}
	for k = 1, #Castle do
		Var.Castle[k] = {}
		Var.Castle[k].Master = Var
		Var.Castle[k].Handle = cMobRegen_XY(Var.MapIndex, Castle[k].NPC, Castle[k].X, Castle[k].Y, 180)
		cAIScriptSet(Var.Castle[k].Handle, Var.Handle)
		cAIScriptFunc(Var.Castle[k].Handle, "Entrance", "CastleMain") --<EFBFBD>Ա<EFBFBD><EFBFBD>Լ<EFBFBD><EFBFBD><EFBFBD> HorseMain
		cSetNPCParam(Var.Castle[k].Handle, "MaxHP", Castle[k].HP)
		cSetNPCParam(Var.Castle[k].Handle, "HP", Castle[k].HP)
		MemBlock[Var.Castle[k].Handle] = Var.Castle[k]
	end
	Var.TargetCastle = 1

	Var.Gate = {}
	Var.Gate.Master = Var
	Var.Gate.Handle = cMobRegen_XY(Var.MapIndex, "DLich", GateLoc.X, GateLoc.Y, 0)
	cAIScriptSet(Var.Gate.Handle, Var.Handle)
	cSetNPCParam(Var.Gate.Handle, "MaxHP", GateLoc.HP)
	cSetNPCParam(Var.Gate.Handle, "EXP",   GateLoc.EXP)
	cSetNPCParam(Var.Gate.Handle, "HP",    GateLoc.HP)
	cSetNPCParam(Var.Gate.Handle, "AC",    GateLoc.AC)
	cSetNPCParam(Var.Gate.Handle, "MR",    GateLoc.MR)
	cSetNPCIsItemDrop(Var.Gate.Handle, 0)
	Var.Gate.ActivRunner = 0	-- Ȱ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD>ϵ<EFBFBD>
	Var.Gate.RegenTick = cCurSec()
	Var.Gate.Wave = {}
	Var.Gate.Wave.Step = 1
	Var.Gate.Wave.Number = 0
	Var.Gate.StepFunc = Gate_Summon
	MemBlock[Var.Gate.Handle] = Var.Gate
	cNPCChatTest(Var.Gate.Handle, "Wave 1 Start")

	Var.StepFunc = Dummy
end

-- -- --  -- --  -- --  -- --  -- --  -- --  -- --  -- --  -- --  -- --  -- --  -- --

function Master_Success(Var)
cExecCheck "Master_Success"
	cDebugLog("<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>")
	for k = 1, #Castle do
		if MemBlock[Var.Castle[k].Handle] ~= nil then
			cDebugLog(" Castle vanish " .. Var.Castle[k].Handle)
			cNPCVanish(Var.Castle[k].Handle);
			Var.Castle[k] = {}
		end
	end
end

function Master_Fail(Var)
cExecCheck "Master_Fail"
	cDebugLog("<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>")
	cNPCVanish(Var.Gate.Handle)
end

-----------------------------------------------------------------------------------------

function DLich(Handle, MapIndex)
cExecCheck "DLich"
	local Var = MemBlock[Handle]

	if cIsObjectDead(Var.Handle) then
		Master_Success(Var.Master)
		cAIScriptFunc(Var.Handle, "Entrance", "Dummy") --<EFBFBD>Ա<EFBFBD><EFBFBD>Լ<EFBFBD><EFBFBD><EFBFBD> HorseMain
		return ReturnAI.END
	end

	Var.StepFunc(Var, MapIndex)
	return ReturnAI.END
end

function Gate_Summon(Var, MapIndex)
cExecCheck "Gate_Summon"
	if Var.Wave.Step > #Wave then
		Var.StepFunc = Gate_SummonEnd
		return
	end

	local CurSec = cCurSec()
	if CurSec >= Var.RegenTick + Wave[Var.Wave.Step].Interval then
		local Runner = {}
		--Var.Wave.Step = 1
		--Var.Wave.Number = 0

		Runner.Handle = cMobRegen_XY(MapIndex, Wave[Var.Wave.Step].Mob, GateLoc.X, GateLoc.Y, 0)
		cAIScriptSet(Runner.Handle, Var.Handle)
		cAIScriptFunc(Runner.Handle, "Entrance", "RunnerMain") --<EFBFBD>Ա<EFBFBD><EFBFBD>Լ<EFBFBD><EFBFBD><EFBFBD> HorseMain
		cSetNPCParam (Runner.Handle, "MaxHP",  Wave[Var.Wave.Step].HP)
		cSetNPCParam (Runner.Handle, "MobEXP", Wave[Var.Wave.Step].EXP)
		cSetNPCParam (Runner.Handle, "HP",     Wave[Var.Wave.Step].HP)
		cSetNPCParam (Runner.Handle, "AC",     Wave[Var.Wave.Step].AC)
		cSetNPCParam (Runner.Handle, "MR",     Wave[Var.Wave.Step].MR)
		cSetNPCResist(Runner.Handle,           Wave[Var.Wave.Step].Resist)
		cSetNPCIsItemDrop(Runner.Handle, 0)
		Runner.Damage = Wave[Var.Wave.Step].Damage
		Runner.SpeedRate = Wave[Var.Wave.Step].SpeedRate
		Runner.Master = Var.Master
		Runner.Gate = Var
		Runner.Interval = 1
		Runner.StepFunc = Runner_Interval
		MemBlock[Runner.Handle] = Runner

		Var.Wave.Number = Var.Wave.Number + 1
		if Var.Wave.Number >= Wave[Var.Wave.Step].Num then
			Var.Wave.Step = Var.Wave.Step + 1
			Var.Wave.Number = 0

			Var.WaitSec = cCurSec() + Wave[Var.Wave.Step].WaitSecond
			Var.StepFunc = Gate_WaitNextWave
			--cNPCChatTest(Var.Handle, "Wave " .. Var.Wave.Step .. " Start")
			return
		end

		Var.RegenTick = CurSec
	end
end

function Gate_SummonEnd(Var)
cExecCheck "Gate_SummonEnd"
	if Var.ActivRunner == 0 then
		Master_Success(Var.Master)
		cNPCVanish(Var.Handle)
	end
	Var.ActivRunner = 0
end

function Gate_WaitNextWave(Var)
cExecCheck "Gate_WaitNextWave"
	if cCurSec() > Var.WaitSec then
		Var.StepFunc = Gate_Summon
	end
end
-----------------------------------------------------------------------------------------

function CastleMain(Handle, MapIndex)
cExecCheck "CastleMain"
	local Var = MemBlock[Handle]
	if cObjectHP(Var.Handle) < 10 then
		MemBlock[Handle] = nil
		cNPCVanish(Var.Handle)
		Var.Master.TargetCastle = Var.Master.TargetCastle + 1
	end

	return ReturnAI.END
end

-----------------------------------------------------------------------------------------

function RunnerMain(Handle, MapIndex)
cExecCheck "RunnerMain"
	local Var = MemBlock[Handle]

	if cIsObjectDead(Var.Gate.Handle) then
		cNPCVanish(Var.Handle)
		return ReturnAI.END
	end

	Var.StepFunc(Var)
	Var.Gate.ActivRunner = Var.Gate.ActivRunner + 1	-- Ȱ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD>ϵ<EFBFBD>
	return ReturnAI.END
end

function Runner_Interval(Var)
cExecCheck "Runner_Interval"
	if cIsObjectDead(Var.Handle) then
		Var.StepFunc = Dummy
		return
	end

	local interval = cRandomInt(10, 25) * 20	-- 200~500
	local intervalsquar = interval * interval
	local cur = {}
	cur.X, cur.Y = cObjectLocate(Var.Handle)
	local goal = {}
	goal.X = Course[Var.Interval].X
	goal.Y = Course[Var.Interval].Y

	-- <EFBFBD>Ÿ<EFBFBD><EFBFBD><EFBFBD> interval <EFBFBD><EFBFBD><EFBFBD>ϰ<EFBFBD> <EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD> ã<EFBFBD><EFBFBD>
	while true do
		local dx = goal.X - cur.X
		local dy = goal.Y - cur.Y
		local distsquar = dx * dx + dy * dy
		if distsquar < 100 then  -- <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> 10grid <EFBFBD><EFBFBD><EFBFBD><EFBFBD>(<EFBFBD><EFBFBD><EFBFBD>ƿ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> double<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD>ϹǷ<EFBFBD> int<EFBFBD><EFBFBD> cObjectLocate()<EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD>ϰ<EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD>߳<EFBFBD>)
			if Var.Interval >= #Course then
				MemBlock[Var.Handle] = nil
				cNPCVanish(Var.Handle)
			else
				Var.Interval = Var.Interval + 1
			end
			return
		end
		if distsquar < intervalsquar then
			break
		end
		goal = Runner_CenterFunc(cur, goal)
	end

	cRunTo(Var.Handle, goal.X, goal.Y, Var.SpeedRate)

	Var.IntervalGoal = goal
	Var.StepFunc = Runner_Step
end

function Runner_Step(Var)
cExecCheck "Runner_Step"
	if cIsObjectDead(Var.Handle) then
		Var.StepFunc = Dummy
		return
	end

	if cIsMovable(Var.Handle) == nil then	-- <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD>
		--cDebugLog("Step Not movable " .. Var.Handle)
		Var.StepFunc = Runner_WaitCanMove
		return
	end

	local cur = {}
	cur.X, cur.Y = cObjectLocate(Var.Handle)

	-- Ÿ<EFBFBD>ٰ<EFBFBD><EFBFBD><EFBFBD> <EFBFBD>Ÿ<EFBFBD> üũ
	local Target = Var.Master.Castle[Var.Master.TargetCastle];
	if Target == nil then -- <EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD> <EFBFBD>Զ<EFBFBD>
		Master_Fail(Var.Master)
		return
	end
	if cDistanceSquar(Target.Handle, Var.Handle) < 15 * 15 then
		cDebugLog "Explose"

		local damage = Var.Damage;
		local hp = cObjectHP(Target.Handle)
		if damage > hp then
			damage = hp
		end
		cDebugLog("Damage " .. damage)

		cDamaged(Target.Handle, damage)
		Var.Damage = Var.Damage - damage
		cDebugLog("  Rest " .. Var.Damage)
		if Var.Damage <= 0 then
			MemBlock[Var.Handle] = nil
			cNPCVanish(Var.Handle)
			return
		end
	end


	-- <EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD> ã<EFBFBD><EFBFBD>
	local goal = Var.IntervalGoal
	local dx = goal.X - cur.X
	local dy = goal.Y - cur.Y
	local distsquar = dx * dx + dy * dy

	if distsquar < 100 then  -- <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> 10grid <EFBFBD><EFBFBD><EFBFBD><EFBFBD>(0<EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD>ص<EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD>Ȯ<EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD>찡 <EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD>Ƽ<EFBFBD>)
		Var.StepFunc = Runner_Interval
	end
end

function Runner_WaitCanMove(Var)
cExecCheck "Runner_WaitCanMove"
	--cDebugLog("Runner_WaitCanMove " .. Var.Handle)
	if cIsMovable(Var.Handle) ~= nil then	-- <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD> <EFBFBD>ִ<EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD>
		--cDebugLog("Runner_WaitCanMove esc " .. Var.Handle)
		Var.StepFunc = Horse_Interval
	end
end

-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- --

function Runner_CenterFunc(a, b)
cExecCheck "Runner_CenterFunc"
	return {X = (a.X + b.X) / 2, Y = (a.Y + b.Y) / 2,}
end