--[VCũf[^zɓWJ܂ipCbgŁj

char_name = {"얲" , "" , "" , "AX" , "p`[" , "d" , "~A" , "HXq" , "" , "" , "D܉" , "" , "" , "ߋ" , "Vq" }

enemy_frame_C = {}
enemy_frame_A = {}
enemy_frame_M = {}


function set_my_motion()


--	print(char_name[my_char+1].."̃[Vǂݍ݂܂");

end


function set_enemy_motion()
	enemy_frame_C[enemy_char] = {};
	enemy_frame_A[enemy_char] = {};
	enemy_frame_M[enemy_char] = {};

	for j=-700,700 do

		enemy_frame_C[enemy_char][j] = {};
		enemy_frame_A[enemy_char][j] = {};
		enemy_frame_M[enemy_char][j] = {};
		for k=0,4 do
			local lv=k;
			local lv_C=k;
			local lv_A=k;
			local lv_M=k;
			for l=k,0 do
				if(frame_C[enemy_char][j][lv] ~= nil)then
					lv_C = k;
				end
				if(frame_A[enemy_char][j][lv] ~= nil)then
					lv_A = k;
				end
				if(frame_M[enemy_char][j][lv] ~= nil)then
					lv_M = k;
				end

			end
			enemy_frame_C[enemy_char][j][k] = frame_C[enemy_char][j][lv_C];
			enemy_frame_A[enemy_char][j][k] = frame_A[enemy_char][j][lv_A];
			enemy_frame_M[enemy_char][j][k] = frame_M[enemy_char][j][lv_M];
				if(type(enemy_frame_C[enemy_char][j][k]) == "table")then
					for i=1,4 do
						if(frame_C[enemy_char][j][lv_C][i] == nil)then
							break;
						end
						enemy_frame_C[enemy_char][j][k][i] = frame_C[enemy_char][j][lv_C][i];
					end
				end
				if(type(enemy_frame_A[enemy_char][j][k]) == "table")then
					for i=1,4 do
						if(frame_A[enemy_char][j][lv_A][i] == nil)then
							break;
						end
						enemy_frame_A[enemy_char][j][k][i] = frame_A[enemy_char][j][lv_A][i];
					end
				end
				if(type(enemy_frame_M[enemy_char][j][k]) == "table")then
					for i=1,4 do
						if(frame_M[enemy_char][j][lv_M][i] == nil)then
							break;
						end
						enemy_frame_M[enemy_char][j][k][i] = frame_M[enemy_char][j][lv_M][i];
					end
				end
		end
	end


	print(char_name[enemy_char+1].."̃[Vǂݍ݂܂");
end


---[Vf[^data̎ʎqAJnt[yяIt[zɂĕԂ֐i
--player(0ŎA1ő)̓f[^z̏ꍇ̂ݎgpBȗ\Bȗꍇ(1)ɂȂ܂
function expand_motion_library(data,player)
--f[^̏ꍇnillԂ
	if(data == nil)then
		return nil;
	end
--f[^ziZNV̓j̏ꍇ

	if(type(data) == "table")then
		local section=1;
		if(player==0)then
			for i=1,3 do
				section=i;
				if(my_preact[i]~=my_preact[0] or data[section+1]==nil)then
					break;
				end
				section=i+1;
			end
		else
			player=1;
			for i=1,3 do
				section=i;
				if(enemy_preact[i]~=enemy_preact[0] or data[section+1]==nil)then
					break;
				end
				section=i+1;
			end
		end
		data = data[section];
	end
	local framedata = {};
--f[^")"ŋ؂
	if(data == nil)then
		return nil;
	end
	for w in string.gmatch(data, ".-%)") do
--؂f[^̃At@xbg߂lpɔzɓ
		local x = string.gsub(w, "[^%a+]" , "");
		framedata[#framedata+1] = x;
		if(x ~= nil)then
--؂f[^̐l߂lpɔzɓĂ
			for y in string.gmatch(w, "[0-9]+") do
				framedata[#framedata+1] = y-0;
			end
		end
	end
return framedata;
end


--G̍Ut[(y10FO܂)Ȃ环ʎqԂ
--
--2Ńt[ǂ݁BߓxȐM͂ȂiZNV̕ɊSɂ͑ΉłĂȂj
function check_enemy_frameA(actID,add)
	local enemy_act = enemy_act;
	if(actID~=nil and actID~=false)then
		enemy_act=actID
	end
	local value = expand_motion_library(enemy_frame_A[enemy_char][enemy_act][0]);
		local i = 1;
		local frame_add = add;
		if(add==nil)then
			frame_add =0;
		end
		while(value ~= nil)do
			if(value ~= nil and value[i]~=nil and value[i+1]~=nil and value[i+2]~=nil)then
				local difference = 0;
				if((enemy_frame+frame_add)<value[i+1])then
					difference = value[i+1]-(enemy_frame+frame_add);
				elseif(value[i+2]<(enemy_frame+frame_add))then
					difference = (enemy_frame+frame_add)-value[i+2];
				end
--Ut[IłAK[hȂ5t[]Ɍ
				if(value[i+1]<=(enemy_frame+frame_add)+10 and value[i+2]>(enemy_frame+frame_add)-BtoN(my_act>=150 and my_act<160)*5)then
--Uʂ1lA܂ł̃t[2lƂĕԂ
					return value[i],difference;
				end
			else
				break;
			end
		i = i+3;
		end
	return false,difference;
end

--ŏɌĂ΂ꂽɎŃf[^ǂ
set_my_motion();	--[Vf[^ǂݍ
set_enemy_motion();	--G[Vf[^ǂݍ
