-- ※"require"のある行からコピペで、AI.luaへ上書き貼り付けして使用してください※
-- ※使用は自己責任で※
-------------------------------------------------
-- デフォルトで先行型になっているので、非先行型が好みの方は
-- function GetMyEnemy (myid)内の GetMyEnemyB (myid) を GetMyEnemyA (myid)に変えて使用してください
-------------------------------------------------
-------------------------------------------------
-- 参考ＡＩ
-- The Winter's Tale
-- http://www.sgv417.jp/~winter/index.html

-- 0-MATERIAL (ぜろ・まてりある)
-- http://www.kogarashi.jp/0-material/

-- 工体研究所rev10
-- http://blog.livedoor.jp/aidev/archives/50119284.html

-- アルケミストのAIを語るスレ2
-- http://enif.mmobbs.com/test/read.cgi/livero/1140506800/l50

-- ホムンクルスのAIを語るスレ　その3
-- http://enif.mmobbs.com/test/read.cgi/livero/1142535070/l50
-------------------------------------------------

require "./AI/Const.lua"
require "./AI/Util.lua"		
		
-----------------------------
-- state
-----------------------------
IDLE_ST					= 0	-- 待機状態
FOLLOW_ST				= 1	-- 所持者追従状態	
CHASE_ST				= 2	-- ターゲット追跡状態
ATTACK_ST				= 3	-- 攻撃状態
MOVE_CMD_ST				= 4
STOP_CMD_ST				= 5
ATTACK_OBJECT_CMD_ST			= 6
ATTACK_AREA_CMD_ST			= 7
PATROL_CMD_ST				= 8
HOLD_CMD_ST				= 9
SKILL_OBJECT_CMD_ST			= 10
SKILL_AREA_CMD_ST			= 11
FOLLOW_CMD_ST				= 12
RUNAWAY_ST				= 13
----------------------------

------------------------------------------
-- global variable
------------------------------------------
MyState				= IDLE_ST	-- ホムの現在状態(初期値は待機状態)
MyEnemy				= 0		-- ホムがターゲットしている敵のキャラクターID
MyDestX				= 0		-- ホムの目標座標X(移動先 / スキル使用座標)
MyDestY				= 0		-- ホムの目標座標Y(移動先 / スキル使用座標)
MyPatrolX				= 0		-- ホムの偵察目的地 x座標
MyPatrolY				= 0		-- ホムの偵察目的地 y座標
ResCmdList				= List.new()	-- 予約コマンドリスト
MyID					= 0		-- ホムンクルス自身のid
MySkill					= 0		-- ホムンクルスの使用スキル
MySkillLevel				= 0		-- ホムンクルスの使用スキルレベル
------------------------------------------
------------------------------------------
-- 追加分global variable
------------------------------------------
AttackArea				= 6		-- アクティブ状態の時、主人からこの距離のMobを殴りに行く
AwayRange				= 4		-- 主人からどのくらい離れたところまで逃げるか
AwayHP					= 20		-- 何％でホムが逃げるか

Timer1					= GetTick()	-- タイマー1、現在時刻格納
MoveTime				= 500		-- 移動時の座標更新間隔
MoveTime2				= 0		-- 移動時の座標更新用タイマー1

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

----------------------------------------------------
-- 手動(予約)処理
------------- command process  ---------------------
-- 移動命令
function	OnMOVE_CMD (x,y)
	TraceAI ("OnMOVE_CMD")
	if ( x == MyDestX and y == MyDestY and MOTION_MOVE == GetV(V_MOTION,MyID)) then
		return		-- 目的地と現在地が同一の場合は、処理しない
	end
	local curX, curY = GetV (V_POSITION,MyID)		-- ホム自身の座標を代入
	-- ホムの自動戻り処理
	if (math.abs(x-curX)+math.abs(y-curY) > 15) then	-- 目的地が一定距離(15セル)以上なら (サーバーで遠距離は処理しないため)
		List.pushleft (ResCmdList,{MOVE_CMD,x,y})	-- 元の目的地への移動を予約する
		x = math.floor((x+curX)/2)					-- 予約した地点と現在位置の中間地点へ移動する
		y = math.floor((y+curY)/2)					-- 同上
	end
	-- 移動処理
	Move (MyID,x,y)	
	MyState = MOVE_CMD_ST -- 移動状態へ、以下初期化
	MyDestX = x
	MyDestY = y
	MyEnemy = 0
	MySkill = 0
end
-- 停止命令
function	OnSTOP_CMD ()
	TraceAI ("OnSTOP_CMD")

	if (GetV(V_MOTION,MyID) ~= MOTION_STAND) then	-- 現在の命令がSTANDでない場合
		Move (MyID,GetV(V_POSITION,MyID))	-- ホム自身の座標へ移動(その場で停止)
	end
	MyState = IDLE_ST	-- 待機状態へ、以下初期化
	MyDestX = 0
	MyDestY = 0
	MyEnemy = 0
	MySkill = 0
end
-- 指定目標への攻撃命令
function	OnATTACK_OBJECT_CMD (id)
	TraceAI ("OnATTACK_OBJECT_CMD")

	MySkill = 0
	MyEnemy = id 		-- 指定目標のidをホムのターゲットに指定
	MyState = CHASE_ST 	-- 指定目標を追跡

end
-- 指定座標への攻撃命令
function	OnATTACK_AREA_CMD (x,y)
	TraceAI ("OnATTACK_AREA_CMD")
	if (x ~= MyDestX or y ~= MyDestY or MOTION_MOVE ~= GetV(V_MOTION,MyID)) then
		Move (MyID,x,y)		-- 座標目標と指定座標が違う、または現在の状態が移動状態ではない場合、指定座標まで移動
	end
	MyDestX = x
	MyDestY = y
	MyEnemy = 0	-- ターゲットリセット
	MyState = ATTACK_AREA_CMD_ST	-- 範囲攻撃開始
end
-- 偵察(移動)命令
function	OnPATROL_CMD (x,y)

	TraceAI ("OnPATROL_CMD")

	MyPatrolX , MyPatrolY = GetV (V_POSITION,MyID)	-- 偵察目的地に現在のホムの座標を代入
	MyDestX = x		-- 指定座標を目標座標に設定
	MyDestY = y
	Move (MyID,x,y)
	MyState = PATROL_CMD_ST		-- 偵察開始

end

function	OnHOLD_CMD ()
	TraceAI ("OnHOLD_CMD")
	MyDestX = 0
	MyDestY = 0
	MyEnemy = 0
	MyState = HOLD_CMD_ST
end
-- 指定目標へスキルを使う命令
function	OnSKILL_OBJECT_CMD (level,skill,id)
	TraceAI ("OnSKILL_OBJECT_CMD")
	MySkillLevel = level
	MySkill = skill
	MyEnemy = id
	MyState = CHASE_ST 
end
-- 指定座標へスキルを使う命令
function	OnSKILL_AREA_CMD (level,skill,x,y)
	TraceAI ("OnSKILL_AREA_CMD")
	Move (MyID,x,y)
	MyDestX = x
	MyDestY = y
	MySkillLevel = level
	MySkill = skill
	MyState = SKILL_AREA_CMD_ST
end
-- 主人追尾命令
function	OnFOLLOW_CMD ()
	-- 待機命令は、待機状態と休息状態を互いに転換させる
	if (MyState ~= FOLLOW_CMD_ST) then	-- 現在状態が待機コマンド実行中でない場合
		MoveToOwner (MyID)		-- ホム所持者(ケミ)の元まで移動
		MyState = FOLLOW_CMD_ST
		MyDestX, MyDestY = GetV (V_POSITION,GetV(V_OWNER,MyID)) -- 所持者の座標を目標に指定
		MyEnemy = 0 
		MySkill = 0
		TraceAI ("OnFOLLOW_CMD")
	else
		MyState = IDLE_ST		-- 待機コマンド実行中だった場合、待機状態に
		MyEnemy = 0 
		MySkill = 0
		TraceAI ("FOLLOW_CMD_ST --> IDLE_ST")
	end
end
-- 手動(予約)処理、本体
function	ProcessCommand (msg)
	if		(msg[1] == MOVE_CMD) then	-- msg[1]が移動コマンドだった場合
		OnMOVE_CMD (msg[2],msg[3])		-- msg[2]とmsg[3]の値をそれぞれOnMOVE_CMDのｘとｙへ
		TraceAI ("MOVE_CMD")
	elseif	(msg[1] == STOP_CMD) then		-- msg[1]が停止コマンドだった場合
		OnSTOP_CMD ()
		TraceAI ("STOP_CMD")
	elseif	(msg[1] == ATTACK_OBJECT_CMD) then	-- msg[1]が指定目標への攻撃コマンドだった場合
		OnATTACK_OBJECT_CMD (msg[2])		-- msg[2]をOnATTACK_OBJECT_CMDのidへ
		TraceAI ("ATTACK_OBJECT_CMD")
	elseif	(msg[1] == ATTACK_AREA_CMD) then	-- msg[1]が指定座標への攻撃コマンドだった場合
		OnATTACK_AREA_CMD (msg[2],msg[3])
		TraceAI ("ATTACK_AREA_CMD")
	elseif	(msg[1] == PATROL_CMD) then		-- msg[1]が偵察(移動)コマンドだった場合
		OnPATROL_CMD (msg[2],msg[3])
		TraceAI ("PATROL_CMD")
	elseif	(msg[1] == HOLD_CMD) then		-- msg[1]がターゲット指定のコマンドだった場合
		OnHOLD_CMD ()
		TraceAI ("HOLD_CMD")
	elseif	(msg[1] == SKILL_OBJECT_CMD) then	-- msg[1]が指定座標へのスキルコマンドだった場合
		OnSKILL_OBJECT_CMD (msg[2],msg[3],msg[4],msg[5])	-- それぞれ、OnSKILL_OBJECT_CMD (level,skill,id)へ代入
		TraceAI ("SKILL_OBJECT_CMD")
	elseif	(msg[1] == SKILL_AREA_CMD) then
		OnSKILL_AREA_CMD (msg[2],msg[3],msg[4],msg[5])		-- それぞれ、OnSKILL_AREA_CMD (level,skill,x,y)へ代入
		TraceAI ("SKILL_AREA_CMD")
	elseif	(msg[1] == FOLLOW_CMD) then		-- msg[1]が待機コマンドだった場合
		OnFOLLOW_CMD ()
		TraceAI ("FOLLOW_CMD")
	end
end

-----------------------------------------------------
-- 基本処理
-------------- state process  -----------------------
-- 待機処理
function	OnIDLE_ST ()
	
	TraceAI ("OnIDLE_ST")

	local cmd = List.popleft(ResCmdList)
	if (cmd ~= nil) then		
		ProcessCommand (cmd)	-- 予約コマンド処理 
		return 
	end

	local	object = GetOwnerEnemy (MyID)	-- 所持者(ケミ)のidをobjectへ
	if (object ~= 0) then			-- MYOWNER_ATTACKED_IN
		MyState = CHASE_ST
		MyEnemy = object
		TraceAI ("IDLE_ST -> CHASE_ST : MYOWNER_ATTACKED_IN")
		return 
	end

	object = GetMyEnemy (MyID)		-- ホムの敵のidをobjectへ
	if (object ~= 0) then			-- ATTACKED_IN
		MyState = CHASE_ST
		MyEnemy = object
		TraceAI ("IDLE_ST -> CHASE_ST : ATTACKED_IN")
		return
	end

	local distance = GetDistanceFromOwner(MyID)
	if ( distance > 2 or distance == -1) then		-- MYOWNER_OUTSIGNT_IN
		MyState = FOLLOW_ST
		TraceAI ("IDLE_ST -> FOLLOW_ST")
		return;
	end

end

-- 追従処理
function	OnFOLLOW_ST ()

	TraceAI ("OnFOLLOW_ST")

	if (GetDistanceFromOwner(MyID) <= 2) then		--  DESTINATION_ARRIVED_IN 
		MyState = IDLE_ST
		TraceAI ("FOLLOW_ST -> IDLW_ST")
		return;
	elseif (GetV(V_MOTION,MyID) == MOTION_STAND or GetV(V_MOTION,MyID) == MOTION_MOVE) then
		if (GetV(V_MOTION, GetV(V_OWNER,MyID)) == MOTION_MOVE) then	-- 主人が移動状態だったら
			MoveTime2 = GetTick()
			if (MoveTime < MoveTime2 - Timer1) then			-- MoveTimeに格納されてるm秒数を過ぎたら移動
			Timer1 = GetTick()
			local x,y = GetV(V_POSITION,GetV(V_OWNER,MyID))
			Move (MyID,x,y)
			TraceAI ("FOLLOW_ST -> FOLLOW_ST")
			return;
			end
		else
			local x,y = GetV(V_POSITION,GetV(V_OWNER,MyID))		-- 主人が立ち状態だったら主人のそばに待機
			MoveToOwner (MyID)
			TraceAI ("FOLLOW_ST -> FOLLOW_ST")
			return;
		end
	end

end


-- 追跡処理
function	OnCHASE_ST ()
	TraceAI ("OnCHASE_ST")
---------------------------逃亡判定---------------------------------------------
	local MyHP = GetV (V_HP,MyID)
	local MyMaxHP = GetV (V_MAXHP,MyID)
	local HPper = (MyHP / MyMaxHP) * 100
	if (AwayHP >= HPper) then 		-- AwayHP以下だと追跡(攻撃)しない
		MyState = RUNAWAY_ST
		TraceAI ("CHASE_ST -> RUNAWAY_ST")
		return
	end
--------------------------------------------------------------------------------
	if (true == IsOutOfSight(MyID,MyEnemy)) then	-- Mobが視界から消えたら待機
		MyState = IDLE_ST
		MyEnemy = 0
		MyDestX, MyDestY = 0,0
		TraceAI ("CHASE_ST -> IDLE_ST : ENEMY_OUTSIGHT_IN")
		return
	end
	if (true == IsInAttackSight(MyID,MyEnemy)) then  -- ENEMY_INATTACKSIGHT_IN
		MyState = ATTACK_ST
		TraceAI ("CHASE_ST -> ATTACK_ST : ENEMY_INATTACKSIGHT_IN")
		return
	end
	local x, y = GetV (V_POSITION,MyEnemy)
	if (MyDestX ~= x or MyDestY ~= y) then			-- DESTCHANGED_IN
		MyDestX, MyDestY = GetV (V_POSITION,MyEnemy);
		Move (MyID,MyDestX,MyDestY)
		TraceAI ("CHASE_ST -> CHASE_ST : DESTCHANGED_IN")
		return
	end
end

-- 攻撃処理
function	OnATTACK_ST ()

	TraceAI ("OnATTACK_ST")
	if (true == IsOutOfSight(MyID,MyEnemy)) then	-- Mobが視界から消えたら待機
		MyEnemy = 0
		MySkill = 0
		MyState = IDLE_ST
		TraceAI ("ATTACK_ST -> IDLE_ST")
		return 
	end

	if (MOTION_DEAD == GetV(V_MOTION,MyEnemy)) then   -- Mobが死んだら待機
		MyEnemy = 0
		MySkill = 0
		MyState = IDLE_ST
		TraceAI ("ATTACK_ST -> IDLE_ST")
		return
	end

---------------------------逃亡判定---------------------------------------------
	local MyHP = GetV (V_HP,MyID)
	local MyMaxHP = GetV (V_MAXHP,MyID)
	local HPper = (MyHP / MyMaxHP) * 100
	if (AwayHP >= HPper) then 		-- AwayHP以下だと追跡(攻撃)しない
		MyState = RUNAWAY_ST
		TraceAI ("ATTACK_ST -> RUNAWAY_ST")
		return
	end
--------------------------------------------------------------------------------
	if (false == IsInAttackSight(MyID,MyEnemy)) then  -- Mobが視界に入ったら追いかける
		MyState = CHASE_ST
		MyDestX, MyDestY = GetV (V_POSITION,MyEnemy);
		Move (MyID,MyDestX,MyDestY)
		TraceAI ("ATTACK_ST -> CHASE_ST  : ENEMY_OUTATTACKSIGHT_IN")
		return
	end

	if (MySkill == 0) then 				-- スキルか通常攻撃か
		Attack (MyID,MyEnemy)
	else
		SkillObject (MyID,MySkillLevel,MySkill,MyEnemy)
		MySkill = 0
	end
	TraceAI ("ATTACK_ST -> ATTACK_ST  : ENERGY_RECHARGED_IN")
	return
end


-- 移動処理
function	OnMOVE_CMD_ST ()
	TraceAI ("OnMOVE_CMD_ST")
	local x, y = GetV (V_POSITION,MyID)
	if (x == MyDestX and y == MyDestY) then				-- DESTINATION_ARRIVED_IN
		MyState = IDLE_ST
	end
end

function OnSTOP_CMD_ST ()

end

function OnATTACK_OBJECT_CMD_ST ()

end

function OnATTACK_AREA_CMD_ST ()
	TraceAI ("OnATTACK_AREA_CMD_ST")
	local	object = GetOwnerEnemy (MyID)
	if (object == 0) then							
		object = GetMyEnemy (MyID) 
	end

	if (object ~= 0) then							-- MYOWNER_ATTACKED_IN or ATTACKED_IN
		MyState = CHASE_ST
		MyEnemy = object
		return
	end

	local x , y = GetV (V_POSITION,MyID)
	if (x == MyDestX and y == MyDestY) then			-- DESTARRIVED_IN
			MyState = IDLE_ST
	end
end
-- 偵察処理
function OnPATROL_CMD_ST ()

	TraceAI ("OnPATROL_CMD_ST")

	local	object = GetOwnerEnemy (MyID)
	if (object == 0) then							
		object = GetMyEnemy (MyID) 
	end

	if (object ~= 0) then							-- MYOWNER_ATTACKED_IN or ATTACKED_IN
		MyState = CHASE_ST
		MyEnemy = object
		TraceAI ("PATROL_CMD_ST -> CHASE_ST : ATTACKED_IN")
		return
	end
	local x , y = GetV (V_POSITION,MyID)
	if (x == MyDestX and y == MyDestY) then			-- DESTARRIVED_IN
		MyDestX = MyPatrolX
		MyDestY = MyPatrolY
		MyPatrolX = x
		MyPatrolY = y
		Move (MyID,MyDestX,MyDestY)
	end
end

function OnHOLD_CMD_ST ()
	TraceAI ("OnHOLD_CMD_ST")
	if (MyEnemy ~= 0) then
		local d = GetDistance2(MyEnemy,MyID)	-- ホムのターゲットの距離
		if (d ~= -1 and d <= GetV(V_ATTACKRANGE,MyID)) then
				Attack (MyID,MyEnemy)
		else
			MyEnemy = 0;
		end
		return
	end
	local	object = GetOwnerEnemy (MyID)
	if (object == 0) then							
		object = GetMyEnemy (MyID)
		if (object == 0) then						
			return
		end
	end

	MyEnemy = object
end

function OnSKILL_OBJECT_CMD_ST ()
	
end

function OnSKILL_AREA_CMD_ST ()
	TraceAI ("OnSKILL_AREA_CMD_ST")
	local x , y = GetV (V_POSITION,MyID)
	if (GetDistance(x,y,MyDestX,MyDestY) <= GetV(V_SKILLATTACKRANGE,MyID,MySkill)) then	-- DESTARRIVED_IN
		SkillGround (MyID,MySkillLevel,MySkill,MyDestX,MyDestY)
		MyState = IDLE_ST
		MySkill = 0
	end
end

-- 主人追尾(ALT+T)
function OnFOLLOW_CMD_ST ()

	TraceAI ("OnFOLLOW_CMD_ST")

	local ownerX, ownerY, myX, myY
	ownerX, ownerY = GetV (V_POSITION,GetV(V_OWNER,MyID))		-- 持ち主
	myX, myY = GetV (V_POSITION,MyID)				-- 自分 
	
	local d = GetDistance (ownerX,ownerY,myX,myY)

	if ( d <= 3) then						-- 3セル以下の距離なら
		return 
	end

	local motion = GetV (V_MOTION,MyID)
	if (motion == MOTION_MOVE) then					-- 移動中
		d = GetDistance (ownerX, ownerY, MyDestX, MyDestY)
		if ( d > 3) then					-- 4セル以上の距離なら
			MoveToOwner (MyID)
			MyDestX = ownerX
			MyDestY = ownerY
			return
		end
	else								-- 他の動作 
		MoveToOwner (MyID)
		MyDestX = ownerX
		MyDestY = ownerY
		return
	end
	
end


function	GetOwnerEnemy (myid)
	local result = 0
	local owner  = GetV (V_OWNER,myid)
	local actors = GetActors ()
	local enemys = {}
	local index = 1
	local target
	for i,v in ipairs(actors) do
-----------------------------主人が殴ってるモンスターも敵とみなす----------------
		if (v == owner) then
			target = GetV (V_TARGET,v)
				if (IsMonster(target) == 1) then
				enemys[index] = target
				index = index+1
				end
		end
--------------------------------------------------------------------------------
		if (v ~= owner and v ~= myid) then
			target = GetV (V_TARGET,v)
			if (target == owner) then
				if (IsMonster(v) == 1) then
					enemys[index] = v
					index = index+1
				else
					local motion = GetV(V_MOTION,v) -- vの行動を取得
					if (motion == MOTION_ATTACK or motion == MOTION_ATTACK2) then -- 攻撃行動を取っているなら
						enemys[index] = v -- 敵とみなす
						index = index+1
					end
				end
			end
		end
	end

	local min_dis = 100
	local dis
	for i,v in ipairs(enemys) do
		dis = GetDistance2 (myid,v)
		if (dis < min_dis) then
			result = v
			min_dis = dis
		end
	end
	
	return result
end



function	GetMyEnemy (myid)
local result = 0
					-- ホムがリーフだったら無条件非アクティブ化
		if (type == LIF or type == LIF_H or type == LIF2 or type == LIF_H2) then
			result = GetMyEnemyA (myid)
		else
			result = GetMyEnemyB (myid)
		end
return result
end

-------------------------------------------
--  非先攻型 GetMyEnemy
-------------------------------------------
function	GetMyEnemyA (myid)
	local result = 0
	local owner  = GetV (V_OWNER,myid)
	local actors = GetActors ()
	local enemys = {}
	local index = 1
	local target

	local type

	local MyHP = GetV (V_HP,MyID)
	local MyMaxHP = GetV (V_MAXHP,MyID)
	local HPper = (MyHP / MyMaxHP) * 100

	if (AwayHP >= HPper) then					-- AwayHP以下だとアクティブに敵認識(逃亡用の敵認識)
	for i,v in ipairs(actors) do
		if (v ~= owner and v ~= myid ) then			-- vの値が主人のidでもホム自身のidでもない場合
			if (1 == IsMonster(v) and IsNotNoManner( myid, v )) then	-- vがモンスターでタゲが無い、または自分か主人をタゲってる場合
				if (3 >= GetDistance2 (myid, v)) then	-- 自分との距離が3の敵を認識(逃亡用)
				enemys[index] = v			-- 敵リストにvのidを追加
				index = index+1

				end
			end
		end
	end

	else
								-- AwayHPより高い場合、ホムはノンアクティブ
	for i,v in ipairs(actors) do
		if (v ~= owner and v ~= myid) then
			target = GetV (V_TARGET,v)			-- ｖのターゲット対象を抽出
			if (target == myid) then			-- ターゲットが自分だったら
				enemys[index] = v			-- 敵リストにvのidを追加
				index = index+1
			end
		end
	end

	end

	local min_dis = 100
	local dis
	for i,v in ipairs(enemys) do				-- iとvへ、テーブルenemysの値が順番に初期値として入り、iがnilになったらループ脱出
		dis = GetDistance2 (myid,v)			-- 自分をタゲってる敵(v)との距離をdisに代入
		if (dis < min_dis) then				-- 距離が100未満だったら
			result = v				-- resultへvを代入
			min_dis = dis
		end
	end

	return result						-- resultを返す
end

-------------------------------------------
--  先攻型 GetMyEnemy
-------------------------------------------
function	GetMyEnemyB (myid)
	local result = 0
	local owner  = GetV (V_OWNER,myid)
	local actors = GetActors ()
	local enemys = {}
	local index = 1
	local type

	local MyHP = GetV (V_HP,MyID)
	local MyMaxHP = GetV (V_MAXHP,MyID)
	local HPper = (MyHP / MyMaxHP) * 100

	if (AwayHP >= HPper) then					-- AwayHP以下だとアクティブに敵認識(逃亡用の敵認識)
	for i,v in ipairs(actors) do
		if (v ~= owner and v ~= myid ) then
			if (1 == IsMonster(v) and IsNotNoManner( myid, v )) then	-- vがモンスターでタゲが無い、または自分か主人をタゲってる場合
				if (3 >= GetDistance2 (myid, v)) then	-- 自分との距離が3の敵を認識(逃亡用)
				enemys[index] = v			-- 敵リストにvのidを追加
				index = index+1

				end
			end
		end
	end

	else								-- AwayHPより高い場合、ホムはアクティブ

	for i,v in ipairs(actors) do
		if (v ~= owner and v ~= myid) then	-- vの値が主人のidでもホム自身のidでもない場合
			if (1 == IsMonster(v) and IsNotNoManner( myid, v ) ) then	-- vがモンスターでタゲが無い、または自分か主人をタゲってる場合
				if (AttackArea >= GetDistance2 (GetV(V_OWNER,MyID), v)) then	-- 主人との距離がAttackArea以下の場合
				enemys[index] = v				-- 敵リストにvのidを追加
				index = index+1
				end
			end
		end
	end

	end

	local min_dis = 100
	local dis
	for i,v in ipairs(enemys) do
		dis = GetDistance2 (myid,v)	-- 自分をタゲってる敵(v)との距離をdisに代入
		if (dis < min_dis) then		-- 距離が100未満だったら
			result = v		-- resultへvを代入
			min_dis = dis
		end
	end

	return result
end

----------------------------------------------------
-- 追加分コマンド
----------------------------------------------------
--フリーなMobまたは自分か主人をタゲってるMobを認識
function IsNotNoManner( myid, id )	-- 攻撃行動中止
	local target = GetV( V_TARGET, id )	-- idのターゲット相手を抽出
	return target == 0 or ( target == myid or target == GetV( V_OWNER, myid ) )	-- タゲが居ない、またはタゲの対象がホム、持ち主(ケミだった場合)、値を返す
end


-- ホム逃亡処理	
function	OnRUNAWAY_ST ()
	TraceAI ("OnRUNAWAY_ST")

	local MyHP = GetV (V_HP,MyID)
	local MyMaxHP = GetV (V_MAXHP,MyID)
	local HPper = (MyHP / MyMaxHP) * 100
	if (AwayHP >= HPper) then 		-- AwayHP以下だと追跡(攻撃)しない

	local distance = GetDistanceFromOwner(MyID)
	if ( distance > AwayRange or distance == -1) then		-- Mobから逃げるより主人を追う方を優先
		MyState = FOLLOW_ST
		TraceAI ("RUNAWAY -> FOLLOW_ST")
		return;
	end

	local MyDestX,MyDestY = 0			-- MyDestX,MyDestYを初期化
	local AwayX,AwayY = GetV (V_POSITION,MyEnemy);
	local OwnerX, OwnerY = GetV (V_POSITION,GetV(V_OWNER,MyID))
	local MyX,MyY = GetV(V_POSITION,MyID)
	local distance = GetDistanceFromOwner(MyID)
	if (MySkill == 0) then 				-- スキル命令が入ってるかどうか

		if (OwnerX > AwayX and OwnerY > AwayY) then	-- 北東へ
			MyDestX = AwayX + 4
			MyDestY = AwayY + 4
			if (MyX > OwnerX + AwayRange) then
				MyDestX = MyDestX - 2
				if (MyY > OwnerY + AwayRange) then
					MyDestY = MyDestY - 2
				end
			end
		elseif (OwnerX > AwayX and OwnerY <= AwayY) then	--南東へ
			MyDestX = AwayX + 4
			MyDestY = AwayY - 4
			if (MyX > OwnerX + AwayRange) then
				MyDestX = MyDestX - 2
				if (MyY < OwnerY - AwayRange) then
					MyDestY = MyDestY + 2
				end
			end
		elseif (OwnerX <= AwayX and OwnerY <= AwayY) then	--南西へ
			MyDestX = AwayX - 4
			MyDestY = AwayY - 4
			if (MyX < OwnerX - AwayRange) then
				MyDestX = MyDestX + 2
				if (MyY < OwnerY - AwayRange) then
					MyDestY = MyDestY + 2
				end
			end
		elseif (OwnerX <= AwayX and OwnerY > AwayY) then	--北西へ
			MyDestX = AwayX - 4
			MyDestY = AwayY + 4
			if (MyX < OwnerX - AwayRange) then
				MyDestX = MyDestX + 2
				if (MyY > OwnerY + AwayRange) then
					MyDestY = MyDestY - 2
				end
			end
		else
			MoveToOwner (MyID)				-- 想定外エラー対策
		end
		Move (MyID,MyDestX,MyDestY)
		TraceAI ("RUNAWAY -> RUNAWAY")
	else							-- スキル命令が入ったら逃亡中でもスキルを使う
		SkillObject (MyID,MySkillLevel,MySkill,MyEnemy)
		MySkill = 0
		MySkillLevel = 0
		TraceAI ("RUNAWAY -> ATTACK_ST  : RUNAWAY_USESKILL")
	end
	end

	MyState = IDLE_ST
	TraceAI ("RUNAWAY -> CHASE_ST")
	return

end



function AI(myid)

	MyID = myid
	local msg	= GetMsg (myid)			-- command
	local rmsg	= GetResMsg (myid)		-- reserved command

	
	if msg[1] == NONE_CMD then
		if rmsg[1] ~= NONE_CMD then
			if List.size(ResCmdList) < 10 then
				List.pushright (ResCmdList,rmsg) -- 予約コマンド保存
			end
		end
	else
		List.clear (ResCmdList)	-- 新しいコマンドが入力されたら、予約コマンドは削除する
		ProcessCommand (msg)	-- コマンド処理 
	end

		
	-- 状態処理 
 	if (MyState == IDLE_ST) then
		OnIDLE_ST ()
	elseif (MyState == CHASE_ST) then					
		OnCHASE_ST ()
	elseif (MyState == ATTACK_ST) then
		OnATTACK_ST ()
	elseif (MyState == FOLLOW_ST) then
		OnFOLLOW_ST ()
	elseif (MyState == MOVE_CMD_ST) then
		OnMOVE_CMD_ST ()
	elseif (MyState == STOP_CMD_ST) then
		OnSTOP_CMD_ST ()
	elseif (MyState == ATTACK_OBJECT_CMD_ST) then
		OnATTACK_OBJECT_CMD_ST ()
	elseif (MyState == ATTACK_AREA_CMD_ST) then
		OnATTACK_AREA_CMD_ST ()
	elseif (MyState == PATROL_CMD_ST) then
		OnPATROL_CMD_ST ()
	elseif (MyState == HOLD_CMD_ST) then
		OnHOLD_CMD_ST ()
	elseif (MyState == SKILL_OBJECT_CMD_ST) then
		OnSKILL_OBJECT_CMD_ST ()
	elseif (MyState == SKILL_AREA_CMD_ST) then
		OnSKILL_AREA_CMD_ST ()
	elseif (MyState == FOLLOW_CMD_ST) then
		OnFOLLOW_CMD_ST ()
	elseif (MyState == RUNAWAY_ST) then
		OnRUNAWAY_ST ()

	end

end

戻る