--֐SǗꏊ
--requireŌĂяoĈCɑSg悤ɂp

--CardSort֐i
--{j
--1Dꂼ̃J[hɏ󋵂ɍ킹NUĂ
--2D̐conditionɍ킹ČĂяo
--3D̐̏ق珇ɎDɂ邩𒲂ׁAΎD̈ԏɎĂbreakďI
--	ȂΉNȂ
--_F
--1.\߂Ă͂ʓ|
--2.łoĂ܂
--3.̃J[h񂷊֐ƕpɂɊĂЂ񂵑̂ŁÃJ[h񂷊֐ƈꏏɎgȂ
require("J[hN.txt");
require("J[hN2.txt");
function CSort(condition)
hand0 = get_card_id(0,0)	--̎DꖇڂłAmy_card
hand1 = get_card_id(0,1)	--̎D񖇖
hand2 = get_card_id(0,2)	--́i
hand3 = get_card_id(0,3)
hand4 = get_card_id(0,4)	--̎Dܖ
	if condition=="taifu" then			--TvF䕗p
		taifu();				--J[h̃Nǂݍ
	elseif condition=="neardef" then
		neardef();
	elseif condition=="nearatt" then
		nearatt();
	elseif condition=="edown" then
		edown();
	elseif condition=="middlec" then
		middlec();
	elseif condition=="farc" then
		farc();
	end
--Ȃ΁AN𔽓](falseŗD)
	if weather==7 then
--false31ƂĈ(͎gȂ)
--		if hrank0==false then
--			hrank0=31
--		elseif hrank1==false then
--			hrank1=31
--		elseif hrank2==false then
--			hrank2=31
--		elseif hrank3==false then
--			hrank3=31
--		elseif hrank4==false then
--			hrank4=31
--		end
c=31
		while c>=0 do
			if hrank0==c then
				break
			elseif hrank1==c then
				key_reset();
				key_event(ACT_AB);
				key_reset();
				wait(1);
				break
			elseif hrank2==c then
				key_reset();
				key_event(ACT_AB);
				key_reset();
				wait(1);
				key_event(ACT_AB);
				key_reset();
				wait(1);
				break
			elseif hrank3==c then
				key_reset();
				key_event(ACT_AB);
				key_reset();
				wait(1);
				key_event(ACT_AB);
				key_reset();
				wait(1);
				key_event(ACT_AB);
				key_reset();
				break
			elseif hrank4==c then
				key_reset();
				key_event(ACT_AB);
				key_reset();
				wait(1);
				key_event(ACT_AB);
				key_reset();
				wait(1);
				key_event(ACT_AB);
				key_reset();
				wait(1);
				key_event(ACT_AB);
				key_reset();
				break
			end
c=c-1
		end
	elseif weather~=7 then
c=0
		while c<=30 do
			if hrank0==c and (get_card_cost2(0,0)*200<=my_spell) then
				break
			elseif hrank1==c and (get_card_cost2(0,1)*200<=my_spell) then
				key_reset();
				key_event(ACT_AB);
				key_reset();
				wait(1);
				break
			elseif hrank2==c and (get_card_cost2(0,2)*200<=my_spell) then
				key_reset();
				key_event(ACT_AB);
				key_reset();
				wait(1);
				key_event(ACT_AB);
				key_reset();
				wait(1);
				break
			elseif hrank3==c and (get_card_cost2(0,3)*200<=my_spell) then
				key_reset();
				key_event(ACT_AB);
				key_reset();
				wait(1);
				key_event(ACT_AB);
				key_reset();
				wait(1);
				key_event(ACT_AB);
				key_reset();
				break
			elseif hrank4==c and (get_card_cost2(0,4)*200<=my_spell) then
				key_reset();
				key_event(ACT_AB);
				key_reset();
				wait(1);
				key_event(ACT_AB);
				key_reset();
				wait(1);
				key_event(ACT_AB);
				key_reset();
				wait(1);
				key_event(ACT_AB);
				key_reset();
				break
			end
		c=c+1
		end
	end
--ŌɃJ[hN̏
hrank0 = nil
hrank1 = nil
hrank2 = nil
hrank3 = nil
hrank4 = nil
end

function HoundWall(place)
--{j
--place̒lȏAǂɒǂl߂Ăΐ^Ԃ
--ȊOȂUԂ

--v́F
--|@@@@@@@@@@@@@@@@@@@b
--|@@@@@@@@@@@@@@@@@@@b
--|@@@@@@@@@@@@@@@@@@@b
--|@@@@@@@@@@@@@@@@@@@b
--|@@@@@@@@@@@@@@@@@@b
--|@@@@@@@@place偨 Gb@@̎Atrue
--________________________________________
--ɌłߘAgR{p

--E[p
	if (ex-x)>=0 and (640+place)<=x then
		return true
--[p
	elseif (x-ex)>=0 and (640-place)>=x then
		return true
	else
		return false
	end
end

function KeepDistance(long)
--{j
--long̒lȏLmĂ-1A
--Lm߂ÂĂ1A
--longƓȂ0Ԃ
--ߋAX̑6AJ6A΍
	if long>dis_x then
		return 1
	elseif long<dis_x then
		return -1
	else
		return 0
	end
end

function AngleMore(angle)
--{j
--ƂAangleȏ̊pxƂĂꍇ^Ԃ
--angle̓WAŁA΂Ȃl
	if dis_x==0 then	--[Zh~p
		return false
	else
		if (ey-y)/dis_x>=math.tan(angle*math.pi) then
			return true
		else
			return false
		end
	end
end

function AngleLess(angle_)
--{j
--ƂAangle_ȉ̊pxƂĂꍇ^Ԃ
--angle̓WAŁA΂Ȃl
	if dis_x==0 then	--[Zh~p
		return false
	else
		if (ey-y)/dis_x<=math.tan(angle_*math.pi) then
			return true
		else
			return false
		end
	end
end

function ExistObjId(player,objectid)
--{j
--tB[hɊYIuWFNgIDtrueԂ
--falseԂ
--ˌ̑ݔ肪ʂ𔲂Ƃ኱ĉł̊ԂtrueԂ
local q = 0;
	while q<=128 do
local r,s,t,u,v = get_obj_data(player,q);
		if r==objectid then
			return true
		end
		q = q+1;
	end
	return false
end

--function ObjIdCnt(player2,objectid2)
--{j
--tB[h̊YIuWFNgIĎԂ
--ˌ̑ݔ肪ʂ𔲂Ƃ኱ĉł̊Ԃ͂܂߂Ԃ
--IuWFNgIĎ͕Ԃ邪AGtFNgȏ゠(6CnƂ)ȂȂ̂Ŏgpۗ
--local f = 0;
--local g = 0;
--	while f<=128 do
--local h,i,j,k,l = get_obj_data(player2,f);
--		if h==objectid2 then
--			g = g+1;
--		end
--		f = f+1;
--		end
--	return g
--end