SigFiesta/LuaScript/ID/AdlFH/AdlFH_Karen.lua

require("common")


KarenMemBlock = {}

function AdlFH_Karen( Handle, MapIndex )
cExecCheck "AdlFH_Karen"

	local Var = KarenMemBlock[Handle]

	if cIsObjectDead( Handle ) then	-- <EFBFBD>׾<EFBFBD><EFBFBD><EFBFBD>

		cAIScriptSet( Handle )		-- <EFBFBD><EFBFBD>ũ<EFBFBD><EFBFBD>Ʈ <EFBFBD><EFBFBD><EFBFBD><EFBFBD>
		KarenMemBlock[Handle] = nil	-- <EFBFBD>޸<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>

		return ReturnAI.END
	end


	if Var == nil then
		KarenMemBlock[Handle] = {}

		Var					= KarenMemBlock[Handle]

		Var.Handle			= Handle
		Var.MapIndex		= MapIndex

		Var.ActChk			= cCurrentSecond()
		Var.StepFunc		= KarenDummy
	end


	return Var.StepFunc( Var )

end


function KarenDummy( Var )

	local CurSec = cCurrentSecond()

	if Var.ActChk > CurSec then
		return ReturnAI.END
	end

	Var.ActChk = CurSec + 1

	-- ī<EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>̻<EFBFBD><EFBFBD><EFBFBD> <EFBFBD>ƴ<EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> HPȸ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> ó<EFBFBD><EFBFBD> - 4/20
	local CurHP, MaxHP = cObjectHP( Var.Handle )

	cHeal( Var.Handle, MaxHP )

	-- ī<EFBFBD><EFBFBD> -> <EFBFBD>̱׷<EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ٴ<EFBFBD>
	local Field = InstanceField[Var.MapIndex]


	-- ī<EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD>ϵ<EFBFBD><EFBFBD><EFBFBD> <EFBFBD>ٽ<EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD> 5/3

	if Field == nil then
		return ReturnAI.END
	end

	if Field.Eglack == nil then
		return ReturnAI.END
	end


	cFollow( Var.Handle, Field.Eglack, 150, 9999 )


	return ReturnAI.END
end