std 1217

expansions/script/c11451509.lua

@@ -64,7 +64,7 @@ function cm.activate(e,tp,eg,ep,ev,re,r,rp)
 	e1:SetCode(EFFECT_SEND_REPLACE)
 	e1:SetTarget(cm.reptg)
 	e1:SetValue(function(e,c) e:SetLabel(100) return false end)
-	e1:SetReset(RESET_PHASE+PHASE_END)
+	--e1:SetReset(RESET_PHASE+PHASE_END)
 	Duel.RegisterEffect(e1,tp)
 end
 function cm.filter(c,tp)

expansions/script/c11451679.lua

 --秘仪伊甸
-local m=11451679
-local cm=_G["c"..m]
+local cm,m=GetID()
 function cm.initial_effect(c)
 	--activate
 	local e1=Effect.CreateEffect(c)
@@ -60,12 +59,12 @@ function cm.coinop(e,tp,eg,ep,ev,re,r,rp)
 		local ct2=c:GetFlagEffect(m+1)
 		c:ResetFlagEffect(m)
 		c:ResetFlagEffect(m+1)
-		if ct1>0 or ct2>0 then
+		if ct1>1 or ct2>1 then
 			local e2=Effect.CreateEffect(c)
 			e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
 			e2:SetCode(m)
 			e2:SetProperty(EFFECT_FLAG_DELAY)
-			e2:SetLabel(ct1,ct2)
+			e2:SetLabel(math.max(ct1,1)-1,math.max(ct2,1)-1)
 			e2:SetOperation(cm.drop)
 			Duel.RegisterEffect(e2,0)
 			Duel.RaiseEvent(c,m,e,0,0,0,0)
@@ -93,7 +92,7 @@ function cm.tg(e,tp,eg,ep,ev,re,r,rp,chk)
 end
 function cm.op(e,tp,eg,ep,ev,re,r,rp)
 	local c=e:GetHandler()
-	local tg=Duel.GetMatchingGroup(Card.IsAbleToHand,tp,LOCATION_ONFIELD+LOCATION_GRAVE,LOCATION_ONFIELD+LOCATION_GRAVE,c)
+	local tg=Duel.GetMatchingGroup(aux.NecroValleyFilter(Card.IsAbleToHand),tp,LOCATION_ONFIELD+LOCATION_GRAVE,LOCATION_ONFIELD+LOCATION_GRAVE,c)
 	local res=Duel.TossCoin(tp,1)
 	if res and #tg>0 then
 		local sg=tg:Select(tp,1,1,nil)

expansions/script/c11451851.lua

@@ -8,6 +8,87 @@ function pnfl_prophecy_flight_initial(c)
 	PNFL_PROPHECY_FLIGHT_STONE_HAIL=false
 	pnflpf[0]=0
 	pnflpf[1]=0
+	pnflpf.coinsequence={}
+	_TossCoin=Duel.TossCoin
+	function Duel.TossCoin(p,ct)
+		local dic={}
+		local ct0=#pnflpf.coinsequence
+		for i=1,ct do table.insert(pnflpf.coinsequence,2) end
+		local res={_TossCoin(p,ct)}
+		local bool1,bool2=true,true
+		while bool1 or bool2 do
+			local s0,s1=false,false
+			for _,r in ipairs(res) do if r==0 then s0=true end end
+			for _,r in ipairs(res) do if r==1 then s1=true end end
+			local b1=Duel.IsCanRemoveCounter(p,1,0,0x1972,1,REASON_EFFECT) and s0
+			local b2=Duel.IsCanRemoveCounter(p,1,0,0x1971,1,REASON_EFFECT) and s1
+			local off=1
+			local ops,opval={},{}
+			if b1 then
+				ops[off]=aux.Stringid(11451856,0)
+				opval[off]=0
+				off=off+1
+			end
+			if b2 then
+				ops[off]=aux.Stringid(11451856,1)
+				opval[off]=1
+				off=off+1
+			end
+			ops[off]=aux.Stringid(11451856,2)
+			opval[off]=2
+			if off==1 then
+				bool1=false
+			else
+				local op=Duel.SelectOption(p,table.unpack(ops))+1
+				local sel=opval[op]
+				if sel==0 then
+					Duel.RemoveCounter(p,1,0,0x1972,1,REASON_EFFECT)
+					for i,r in ipairs(res) do res[i]=1 end
+				elseif sel==1 then
+					Duel.RemoveCounter(p,1,0,0x1971,1,REASON_EFFECT)
+					for i,r in ipairs(res) do res[i]=0 end
+				else
+					bool1=false
+				end
+			end
+			local s0,s1=false,false
+			for _,r in ipairs(res) do if r==0 then s0=true end end
+			for _,r in ipairs(res) do if r==1 then s1=true end end
+			local b1=Duel.IsCanRemoveCounter(1-p,1,0,0x1972,1,REASON_EFFECT) and s0
+			local b2=Duel.IsCanRemoveCounter(1-p,1,0,0x1971,1,REASON_EFFECT) and s1
+			local off=1
+			local ops,opval={},{}
+			if b1 then
+				ops[off]=aux.Stringid(11451856,0)
+				opval[off]=0
+				off=off+1
+			end
+			if b2 then
+				ops[off]=aux.Stringid(11451856,1)
+				opval[off]=1
+				off=off+1
+			end
+			ops[off]=aux.Stringid(11451856,2)
+			opval[off]=2
+			if off==1 then
+				bool2=false
+			else
+				local op=Duel.SelectOption(1-p,table.unpack(ops))+1
+				local sel=opval[op]
+				if sel==0 then
+					Duel.RemoveCounter(1-p,1,0,0x1972,1,REASON_EFFECT)
+					for i,r in ipairs(res) do res[i]=1 end
+				elseif sel==1 then
+					Duel.RemoveCounter(1-p,1,0,0x1971,1,REASON_EFFECT)
+					for i,r in ipairs(res) do res[i]=0 end
+				else
+					bool2=false
+				end
+			end
+		end
+		for i=1,ct do pnflpf.coinsequence[ct0+i]=res[i] end
+		return table.unpack(res)
+	end
 	--increase by Card.ReverseInDeck
 	local ge0=Effect.CreateEffect(c)
 	ge0:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
@@ -56,10 +137,12 @@ function pnflpf.resetop(e,tp,eg,ep,ev,re,r,rp)
 	end
 end
 function pnflpf.chkval(e,te)
-	if te and te:GetHandler() and not te:IsHasProperty(EFFECT_FLAG_UNCOPYABLE) and e:GetHandler():GetFlagEffect(11451854)==0 then
-		local prop=0
-		if PNFL_PROPHECY_FLIGHT_STONE_HAIL then prop=EFFECT_FLAG_CLIENT_HINT end
-		e:GetHandler():RegisterFlagEffect(11451854,RESET_EVENT+RESETS_STANDARD,prop,1,0,aux.Stringid(11451854,2))
+	if te and te:GetHandler() and not te:IsHasProperty(EFFECT_FLAG_UNCOPYABLE) then
+		if e:GetHandler():GetFlagEffect(11451854)==0 then
+			local prop=0
+			if PNFL_PROPHECY_FLIGHT_STONE_HAIL then prop=EFFECT_FLAG_CLIENT_HINT end
+			e:GetHandler():RegisterFlagEffect(11451854,RESET_EVENT+RESETS_STANDARD,prop,1,0,aux.Stringid(11451854,2))
+		end
 	end
 	return false
 end
@@ -130,7 +213,6 @@ function cm.initial_effect(c)
 	e3:SetDescription(aux.Stringid(m,3))
 	e3:SetType(EFFECT_TYPE_SINGLE)
 	e3:SetCode(11451851)
-	--e3:SetProperty(EFFECT_FLAG_CLIENT_HINT)
 	e3:SetRange(LOCATION_DECK)
 	e3:SetCondition(function(e) return e:GetHandler():IsFaceup() end)
 	c:RegisterEffect(e3)
@@ -142,6 +224,7 @@ function cm.initial_effect(c)
 	e4:SetCondition(function(e,tp) return e:GetHandler():IsFaceup() and Duel.GetDecktopGroup(tp,1):IsContains(e:GetHandler()) end)
 	e4:SetOperation(cm.desop)
 	c:RegisterEffect(e4)
+	cm.highground=e4
 	local e5=e4:Clone()
 	e5:SetCode(EVENT_PHASE+PHASE_BATTLE_START)
 	e5:SetCountLimit(1)
@@ -192,6 +275,8 @@ function cm.labseqfilter(c,ct)
 	return c:GetFlagEffectLabel(11451851)+c:GetSequence()~=ct
 end
 function cm.adjustop(e,tp,eg,ep,ev,re,r,rp)
+	if pnfl_adjusting then return end
+	pnfl_adjusting=true
 	local c=e:GetHandler()
 	if PNFL_PROPHECY_FLIGHT_DEBUG then Debug.Message("adjust"..c:GetCode()) end
 	c:ReverseInDeck()
@@ -249,6 +334,7 @@ function cm.adjustop(e,tp,eg,ep,ev,re,r,rp)
 			tc:ReverseInDeck()
 		end
 	end
+	pnfl_adjusting=false
 	--[[if tc~=c and sg:IsContains(c) then
 		if PNFL_PROPHECY_FLIGHT_DEBUG then Debug.Message("move"..c:GetCode()) end
 		Duel.MoveSequence(c,0)

expansions/script/c11451852.lua

@@ -95,6 +95,8 @@ function cm.labseqfilter(c,ct)
 	return c:GetFlagEffectLabel(11451851)+c:GetSequence()~=ct
 end
 function cm.adjustop(e,tp,eg,ep,ev,re,r,rp)
+	if pnfl_adjusting then return end
+	pnfl_adjusting=true
 	local c=e:GetHandler()
 	if PNFL_PROPHECY_FLIGHT_DEBUG then Debug.Message("adjust"..c:GetCode()) end
 	c:ReverseInDeck()
@@ -152,6 +154,7 @@ function cm.adjustop(e,tp,eg,ep,ev,re,r,rp)
 			tc:ReverseInDeck()
 		end
 	end
+	pnfl_adjusting=false
 end
 function cm.tgfilter(c,e)
 	return c:IsRelateToEffect(e) and c:IsOnField()

expansions/script/c11451853.lua

@@ -114,6 +114,8 @@ function cm.labseqfilter(c,ct)
 	return c:GetFlagEffectLabel(11451851)+c:GetSequence()~=ct
 end
 function cm.adjustop(e,tp,eg,ep,ev,re,r,rp)
+	if pnfl_adjusting then return end
+	pnfl_adjusting=true
 	local c=e:GetHandler()
 	if PNFL_PROPHECY_FLIGHT_DEBUG then Debug.Message("adjust"..c:GetCode()) end
 	c:ReverseInDeck()
@@ -166,11 +168,12 @@ function cm.adjustop(e,tp,eg,ep,ev,re,r,rp)
 	elseif tg:IsExists(cm.labseqfilter,1,nil,ct) then
 		if PNFL_PROPHECY_FLIGHT_DEBUG then Debug.Message("move"..c:GetCode()) end
 		for i=#tg,1,-1 do
-			local tc=tg:Filter(cm.labfilter,nil,ct-i):GetFirst()
+			local tc=tg:Filter(cm.labfilter,nil,i):GetFirst()
 			Duel.MoveSequence(tc,0)
 			tc:ReverseInDeck()
 		end
 	end
+	pnfl_adjusting=false
 end
 function cm.tgfilter(c,e)
 	return c:IsRelateToEffect(e) and c:IsOnField()

expansions/script/c11451854.lua

@@ -101,6 +101,8 @@ function cm.labseqfilter(c,ct)
 	return c:GetFlagEffectLabel(11451851)+c:GetSequence()~=ct
 end
 function cm.adjustop(e,tp,eg,ep,ev,re,r,rp)
+	if pnfl_adjusting then return end
+	pnfl_adjusting=true
 	if not PNFL_PROPHECY_FLIGHT_STONE_HAIL then
 		PNFL_PROPHECY_FLIGHT_STONE_HAIL=true
 		local shg=Duel.GetMatchingGroup(cm.shfilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,nil)
@@ -160,11 +162,12 @@ function cm.adjustop(e,tp,eg,ep,ev,re,r,rp)
 	elseif tg:IsExists(cm.labseqfilter,1,nil,ct) then
 		if PNFL_PROPHECY_FLIGHT_DEBUG then Debug.Message("move"..c:GetCode()) end
 		for i=#tg,1,-1 do
-			local tc=tg:Filter(cm.labfilter,nil,ct-i):GetFirst()
+			local tc=tg:Filter(cm.labfilter,nil,i):GetFirst()
 			Duel.MoveSequence(tc,0)
 			tc:ReverseInDeck()
 		end
 	end
+	pnfl_adjusting=false
 end
 function cm.shfilter(c)
 	return c:GetFlagEffect(11451854)>0

expansions/script/c11451855.lua

+--魔导空港 迦南
+local cm,m=GetID()
+function cm.initial_effect(c)
+	if not PNFL_PROPHECY_FLIGHT_CHECK then
+		dofile("expansions/script/c11451851.lua")
+		pnfl_prophecy_flight_initial(c)
+	end
+	--Activate
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	c:RegisterEffect(e1)
+	--act
+	local e2=Effect.CreateEffect(c)
+	e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+	e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
+	e2:SetCode(EVENT_ADJUST)
+	e2:SetRange(LOCATION_FZONE)
+	e2:SetOperation(cm.efop)
+	c:RegisterEffect(e2)
+	local e3=Effect.CreateEffect(c)
+	e3:SetType(EFFECT_TYPE_FIELD)
+	e3:SetCode(m)
+	e3:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
+	e3:SetTargetRange(1,0)
+	e3:SetRange(LOCATION_FZONE)
+	e3:SetCondition(cm.con)
+	c:RegisterEffect(e3)
+	local e4=Effect.CreateEffect(c)
+	e4:SetType(EFFECT_TYPE_FIELD)
+	e4:SetCode(EFFECT_ACTIVATE_COST)
+	e4:SetRange(LOCATION_FZONE)
+	e4:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
+	e4:SetTargetRange(1,0)
+	e4:SetCost(cm.costchk)
+	e4:SetTarget(cm.actarget)
+	e4:SetOperation(cm.costop)
+	c:RegisterEffect(e4)
+	local e6=Effect.CreateEffect(c)
+	e6:SetType(EFFECT_TYPE_FIELD)
+	e6:SetCode(EFFECT_QP_ACT_IN_SET_TURN)
+	e6:SetProperty(EFFECT_FLAG_SET_AVAILABLE)
+	e6:SetRange(LOCATION_FZONE)
+	e6:SetTargetRange(LOCATION_SZONE,0)
+	e6:SetCondition(cm.con)
+	c:RegisterEffect(e6)
+	local e7=e6:Clone()
+	e7:SetProperty(EFFECT_FLAG_SET_AVAILABLE+EFFECT_FLAG_IGNORE_IMMUNE)
+	e7:SetCode(m)
+	--c:RegisterEffect(e7)
+	--replace
+	local e5=Effect.CreateEffect(c)
+	e5:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+	e5:SetRange(LOCATION_FZONE)
+	e5:SetCode(EFFECT_SEND_REPLACE)
+	e5:SetTarget(cm.reptg)
+	e5:SetValue(function(e,c) return e:GetLabelObject()==c end)
+	c:RegisterEffect(e5)
+end
+function cm.filter(c)
+	return c:IsType(TYPE_SPELL) and not c:IsType(TYPE_QUICKPLAY) and c:IsFacedown() and c:GetFlagEffect(m)==0
+end
+function cm.efop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	local og=Duel.GetMatchingGroup(cm.filter,tp,LOCATION_SZONE,0,nil)
+	for oc in aux.Next(og) do
+		oc:RegisterFlagEffect(m,0,0,1)
+		local teset={oc:GetActivateEffect()}
+		for _,te in pairs(teset) do
+			local prop1,prop2=te:GetProperty()
+			if not prop2 or prop2&EFFECT_FLAG2_COF==0 then
+				local cost=te:GetCost() or aux.TRUE
+				local cost1=function(e,tp,eg,ep,ev,re,r,rp,chk)
+								if chk==0 then return Duel.IsPlayerAffectedByEffect(tp,m) and Duel.GetCurrentChain()==0 and cost(e,tp,eg,ep,ev,re,r,rp,0) end
+								cost(e,tp,eg,ep,ev,re,r,rp,1)
+							end
+				local e1=te:Clone()
+				e1:SetDescription(aux.Stringid(m,0))
+				e1:SetProperty(prop1,prop2|EFFECT_FLAG2_COF)
+				e1:SetRange(LOCATION_SZONE)
+				e1:SetCost(cost1)
+				oc:RegisterEffect(e1,true)
+			end
+		end
+	end
+end
+function cm.con(e,tp,eg,ep,ev,re,r,rp)
+	return e:GetHandler():GetFlagEffect(m+1)==0
+end
+function cm.costchk(e,te,tp)
+	local tc=te:GetHandler()
+	local prop1,prop2=te:GetProperty()
+	local eset={Duel.IsPlayerAffectedByEffect(tp,m)}
+	if (tc:GetFlagEffect(m)>0 and prop2 and prop2&EFFECT_FLAG2_COF>0) or (tc:IsLocation(LOCATION_SZONE) and tc:IsType(TYPE_QUICKPLAY) and #eset>0 and tc:IsStatus(STATUS_SET_TURN) and tc:GetEffectCount(EFFECT_QP_ACT_IN_SET_TURN)<=#eset) then
+		return Duel.GetFieldGroupCount(tp,LOCATION_HAND,0)>0
+	else return true end
+end
+function cm.actarget(e,te,tp)
+	e:SetLabelObject(te)
+	return true
+end
+function cm.thfilter(c)
+	return c:IsSetCard(0x6e) and c:IsType(TYPE_MONSTER) and c:IsAbleToHand()
+end
+function cm.costop(e,tp,eg,ep,ev,re,r,rp)
+	local te=e:GetLabelObject()
+	local tc=te:GetHandler()
+	local prop1,prop2=te:GetProperty()
+	local eset={Duel.IsPlayerAffectedByEffect(tp,m)}
+	if (tc:GetFlagEffect(m)>0 and prop2 and prop2&EFFECT_FLAG2_COF>0) or (tc:IsLocation(LOCATION_SZONE) and tc:IsType(TYPE_QUICKPLAY) and ((#eset>0 and tc:IsStatus(STATUS_SET_TURN) and tc:GetEffectCount(EFFECT_QP_ACT_IN_SET_TURN)<=#eset) or Duel.SelectYesNo(tp,aux.Stringid(m,3)))) then
+		local ph=Duel.GetCurrentPhase()
+		if ph>PHASE_MAIN1 and ph<PHASE_MAIN2 then ph=PHASE_BATTLE end
+		e:GetHandler():RegisterFlagEffect(m+1,RESET_EVENT+RESETS_STANDARD+RESET_PHASE+ph,EFFECT_FLAG_CLIENT_HINT,1,0,aux.Stringid(m,15))
+		if Duel.DiscardHand(tp,nil,1,1,REASON_EFFECT+REASON_DISCARD)~=0 and e:GetHandler():GetFlagEffect(m+2)==0 then
+			local g=Duel.GetMatchingGroup(cm.thfilter,tp,LOCATION_DECK,0,nil)
+			if #g>0 and Duel.SelectYesNo(tp,aux.Stringid(m,1)) then
+				Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
+				g=g:Select(tp,1,1,nil)
+				if #g>0 then
+					Duel.SendtoHand(g,nil,REASON_EFFECT)
+					Duel.ConfirmCards(1-tp,g)
+				end
+				e:GetHandler():RegisterFlagEffect(m+2,RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END,EFFECT_FLAG_CLIENT_HINT,1,0,aux.Stringid(m,4))
+			end
+		end
+	end
+end
+function cm.sfilter(c,e,tp)
+	return c:IsControler(tp) and c:IsType(TYPE_MONSTER) and c:IsLocation(LOCATION_MZONE+LOCATION_HAND) and c:IsAbleToRemove() and not c:IsHasEffect(EFFECT_TO_DECK_REDIRECT) and c:GetLeaveFieldDest()==0 and c:GetDestination()==LOCATION_DECK
+end
+function cm.reptg(e,tp,eg,ep,ev,re,r,rp,chk)
+	local c=e:GetHandler()
+	if chk==0 then
+		return eg:IsExists(cm.sfilter,1,c,e,tp)
+	end
+	local g=eg:Filter(cm.sfilter,c,e,tp)
+	if #g>0 and Duel.SelectYesNo(tp,aux.Stringid(m,2)) then
+		local flag=c:GetFlagEffectLabel(m+3)
+		if not flag or flag<=0 then
+			flag=1
+			c:RegisterFlagEffect(m+3,RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END,EFFECT_FLAG_CLIENT_HINT,1,1,aux.Stringid(m,5))
+		else
+			flag=flag+1
+			c:ResetFlagEffect(m+3)
+			c:RegisterFlagEffect(m+3,RESET_EVENT+RESETS_STANDARD,EFFECT_FLAG_CLIENT_HINT,1,flag,aux.Stringid(m,math.min(14,4+flag)))
+		end
+		if #g>1 then
+			Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
+			g=g:Select(tp,1,1,nil)
+		end
+		local sc=g:GetFirst()
+		e:SetLabelObject(sc)
+		local ct=0
+		if sc:IsOnField() then
+			ct=Duel.Remove(sc,nil,REASON_EFFECT+REASON_TEMPORARY)
+		else
+			ct=Duel.Remove(sc,POS_FACEUP,REASON_EFFECT)
+		end
+		if ct~=0 and sc:IsLocation(LOCATION_REMOVED) then
+			sc:RegisterFlagEffect(m+4,RESET_EVENT+RESETS_STANDARD,EFFECT_FLAG_CLIENT_HINT,1,8-flag,aux.Stringid(m+4,math.max(0,8-flag)))
+			local rc=c
+			if re and re:GetHandler() then rc=re:GetHandler() end
+			local e1=Effect.CreateEffect(rc)
+			e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+			e1:SetCode(EVENT_CHAIN_SOLVED)
+			e1:SetLabel(sc:GetFieldID())
+			e1:SetLabelObject(sc)
+			e1:SetCondition(cm.retcon)
+			e1:SetOperation(cm.retop)
+			Duel.RegisterEffect(e1,tp)
+			local e2=e1:Clone()
+			e2:SetCode(EVENT_CHAIN_NEGATED)
+			Duel.RegisterEffect(e2,tp)
+		end
+		return true
+	else return false end
+end
+function cm.retcon(e,tp,eg,ep,ev,re,r,rp)
+	return Duel.GetCurrentChain()==1
+end
+function cm.retop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetLabelObject()
+	c:SetReason(c:GetReason()|REASON_TEMPORARY)
+	local flag=c:GetFlagEffectLabel(m+4)
+	if not flag or e:GetLabel()~=c:GetFieldID() then
+		e:Reset()
+	elseif flag>=9 then
+		c:ResetFlagEffect(m+4)
+		if c:IsPreviousLocation(LOCATION_ONFIELD) then
+			--Duel.MoveToField(c,tp,c:GetPreviousControler(),c:GetPreviousLocation(),c:GetPreviousPosition(),true)
+			--if c:IsFacedown() then Duel.RaiseEvent(c,EVENT_MSET,e,REASON_EFFECT,tp,tp,0) end
+			Duel.ReturnToField(c)
+		else
+			Duel.SendtoHand(c,c:GetPreviousControler(),REASON_EFFECT)
+		end
+		e:Reset()
+	else
+		Duel.Remove(c,nil,REASON_EFFECT+REASON_TEMPORARY)
+		flag=flag+1
+		c:ResetFlagEffect(m+4)
+		c:RegisterFlagEffect(m+4,RESET_EVENT+RESETS_STANDARD,EFFECT_FLAG_CLIENT_HINT,1,flag,aux.Stringid(m+4,flag))
+	end
+end
\ No newline at end of file

expansions/script/c11451856.lua

+--魔导探机 鹰眼MkII
+local cm,m=GetID()
+function cm.initial_effect(c)
+	if not PNFL_PROPHECY_FLIGHT_CHECK then
+		dofile("expansions/script/c11451851.lua")
+		pnfl_prophecy_flight_initial(c)
+	end
+	--Activate
+	local e1=Effect.CreateEffect(c)
+	e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	e1:SetCost(cm.spcost2)
+	e1:SetTarget(cm.sptg)
+	e1:SetOperation(cm.spop)
+	c:RegisterEffect(e1)
+	--move
+	local e3=Effect.CreateEffect(c)
+	e3:SetType(EFFECT_TYPE_QUICK_O)
+	e3:SetRange(LOCATION_MZONE)
+	e3:SetCode(EVENT_FREE_CHAIN)
+	e3:SetProperty(EFFECT_FLAG_CARD_TARGET)
+	e3:SetCost(cm.discost)
+	e3:SetTarget(cm.distg)
+	e3:SetOperation(cm.disop)
+	c:RegisterEffect(e3)
+end
+function cm.spcost2(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return true end
+	local tg=Duel.SelectMatchingCard(1-tp,Card.IsSSetable,tp,0,LOCATION_HAND,1,1,nil)
+	Duel.Hint(HINT_SELECTMSG,1-tp,HINTMSG_SET)
+	if #tg>0 then Duel.SSet(1-tp,tg,1-tp,false) end
+end
+function cm.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and Duel.IsPlayerCanSpecialSummonMonster(tp,m,0x6e,0x21,0,0,1,RACE_MACHINE,ATTRIBUTE_DARK) end
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0)
+end
+function cm.spop(e,tp,eg,ep,ev,re,r,rp)
+	if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end
+	local c=e:GetHandler()
+	if c:IsRelateToEffect(e) and Duel.IsPlayerCanSpecialSummonMonster(tp,m,0x6e,0x21,0,0,1,RACE_MACHINE,ATTRIBUTE_DARK) then
+		c:AddMonsterAttribute(TYPE_EFFECT)
+		Duel.SpecialSummon(c,SUMMON_VALUE_SELF,tp,tp,true,false,POS_FACEUP)
+	end
+end
+function cm.discost(e,tp,eg,ep,ev,re,r,rp,chk)
+	local c=e:GetHandler()
+	local tab=pnflpf.coinsequence
+	if chk==0 then return #tab>0 and ((tab[#tab]==0 and c:IsCanAddCounter(0x1972,1)) or (tab[#tab]==1 and c:IsCanAddCounter(0x1971,1))) end
+	if tab[#tab]==0 then c:AddCounter(0x1972,1) end
+	if tab[#tab]==1 then c:AddCounter(0x1971,1) end
+	e:SetLabel(tab[#tab])
+	tab[#tab]=2
+end
+function cm.posfilter(c,pos)
+	local seq=c:GetSequence()
+	local p=c:GetControler()
+	local loc=c:GetLocation()
+	if c:IsLocation(LOCATION_FZONE) or c:IsLocation(LOCATION_PZONE) or not c:IsPosition(pos) then return false end
+	if not c:IsOnField() then return Duel.IsExistingMatchingCard(nil,c:GetControler(),c:GetLocation(),0,1,c) end
+	if seq>4 then return false end
+	return (seq>0 and Duel.CheckLocation(p,loc,seq-1)) or (seq<4 and Duel.CheckLocation(p,loc,seq+1))
+end
+function cm.distg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chkc then return cm.posfilter(chkc) end
+	if chk==0 then
+		local tab=pnflpf.coinsequence
+		local pos=POS_FACEUP
+		if tab[#tab]==0 then pos=POS_FACEDOWN end
+		return e:IsCostChecked() and Duel.IsExistingTarget(cm.posfilter,tp,LOCATION_ONFIELD+LOCATION_GRAVE+LOCATION_REMOVED,LOCATION_ONFIELD+LOCATION_GRAVE+LOCATION_REMOVED,1,nil,pos)
+	end
+	local pos=POS_FACEUP
+	if e:GetLabel()==0 then pos=POS_FACEDOWN end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TARGET)
+	Duel.SelectTarget(tp,cm.posfilter,tp,LOCATION_ONFIELD+LOCATION_GRAVE+LOCATION_REMOVED,LOCATION_ONFIELD+LOCATION_GRAVE+LOCATION_REMOVED,1,1,nil,pos)
+end
+function cm.disop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	local tc=Duel.GetFirstTarget()
+	if tc:IsRelateToEffect(e) then
+		if not tc:IsOnField() then
+			if 1==1 then return end
+			local tg=Duel.GetMatchingGroup(nil,tc:GetControler(),tc:GetLocation(),0,nil)
+			local b1=tc:GetSequence()~=0
+			local b2=tc:GetSequence()~=#tg-1
+			local op=0
+			if b1 and b2 then
+				op=Duel.SelectOption(tp,aux.Stringid(m,3),aux.Stringid(m,4))
+			elseif b1 then
+				op=Duel.SelectOption(tp,aux.Stringid(m,4))+1
+			elseif b2 then
+				op=Duel.SelectOption(tp,aux.Stringid(m,3))
+			else
+				return
+			end
+			if op==0 then Duel.MoveSequence(tc,tc:GetSequence()+1) end
+			if op==1 then Duel.MoveSequence(tc,tc:GetSequence()-1) end
+		end
+		local seq=tc:GetSequence()
+		local p=tc:GetControler()
+		local b1=0
+		if p~=tp then b1=1 end
+		local loc=tc:GetLocation()
+		local b2=0
+		if loc==LOCATION_SZONE then b2=1 end
+		if seq>4 then return end
+		local flag=0
+		if seq>0 and Duel.CheckLocation(p,loc,seq-1) then flag=flag|(1<<(seq-1+16*b1+8*b2)) end
+		if seq<4 and Duel.CheckLocation(p,loc,seq+1) then flag=flag|(1<<(seq+1+16*b1+8*b2)) end
+		if flag==0 then return end
+		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOZONE)
+		local s=Duel.SelectDisableField(tp,1,LOCATION_ONFIELD,LOCATION_ONFIELD,~flag)
+		local nseq=math.log(s,2)-16*b1-8*b2
+		Duel.MoveSequence(tc,nseq)
+	end
+end
\ No newline at end of file

expansions/script/c11451857.lua

+--魔导喷气背包 训练型
+local cm,m=GetID()
+function cm.initial_effect(c)
+	if not PNFL_PROPHECY_FLIGHT_CHECK then
+		dofile("expansions/script/c11451851.lua")
+		pnfl_prophecy_flight_initial(c)
+	end
+	--Activate
+	local e1=Effect.CreateEffect(c)
+	e1:SetCategory(CATEGORY_EQUIP)
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	e1:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_CONTINUOUS_TARGET)
+	e1:SetTarget(cm.target)
+	e1:SetOperation(cm.operation)
+	c:RegisterEffect(e1)
+	--to hand
+	local e2=Effect.CreateEffect(c)
+	e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+	e2:SetCode(EVENT_CHAIN_ACTIVATING)
+	e2:SetCountLimit(1,EFFECT_COUNT_CODE_CHAIN)
+	e2:SetRange(LOCATION_SZONE)
+	e2:SetOperation(cm.op)
+	c:RegisterEffect(e2)
+	--faceup
+	local e3=Effect.CreateEffect(c)
+	e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F)
+	e3:SetCode(EVENT_TO_GRAVE)
+	e3:SetCondition(function() return Duel.GetCurrentPhase()==PHASE_MAIN1 or Duel.GetCurrentPhase()==PHASE_MAIN2 end)
+	e3:SetOperation(cm.operation1)
+	c:RegisterEffect(e3)
+	--Equip limit
+	local e4=Effect.CreateEffect(c)
+	e4:SetType(EFFECT_TYPE_SINGLE)
+	e4:SetCode(EFFECT_EQUIP_LIMIT)
+	e4:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
+	e4:SetValue(1)
+	c:RegisterEffect(e4)
+end
+function cm.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsFaceup() end
+	if chk==0 then return Duel.IsExistingTarget(Card.IsFaceup,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_EQUIP)
+	Duel.SelectTarget(tp,Card.IsFaceup,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil)
+	Duel.SetOperationInfo(0,CATEGORY_EQUIP,e:GetHandler(),1,0,0)
+end
+function cm.operation(e,tp,eg,ep,ev,re,r,rp)
+	local tc=Duel.GetFirstTarget()
+	if e:GetHandler():IsRelateToEffect(e) and tc:IsRelateToEffect(e) and tc:IsFaceup() then
+		Duel.Equip(tp,e:GetHandler(),tc)
+	end
+end
+function cm.op(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	local tc=c:GetEquipTarget()
+	if tc and tc:IsAbleToDeck() and c:IsAbleToHand() and Duel.SelectEffectYesNo(tp,c) then
+		Duel.SendtoHand(c,nil,REASON_EFFECT)
+		if tc:IsLocation(LOCATION_MZONE) then
+			local res1,res2=Duel.TossCoin(tp,2)
+			if res1~=res2 then res1=Duel.SelectOption(tp,aux.Stringid(m,1),aux.Stringid(m,0)) end
+			if tc:IsLocation(LOCATION_MZONE) and Duel.SendtoDeck(tc,nil,0,REASON_EFFECT) and tc:IsLocation(LOCATION_DECK) and res1==1 then
+				Duel.ShuffleDeck(tc:GetControler())
+				tc:ReverseInDeck()
+			end
+		end
+	end
+end
+function cm.operation1(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_OPERATECARD)
+	local g=Duel.SelectMatchingCard(tp,Card.IsType,tp,LOCATION_DECK,0,1,1,nil,TYPE_MONSTER):Filter(Card.IsFacedown,nil)
+	if #g>0 then
+		local tc=g:GetFirst()
+		tc:ReverseInDeck()
+		c:RegisterFlagEffect(m,RESET_EVENT+RESETS_STANDARD,0,1,c:GetFieldID())
+		tc:RegisterFlagEffect(m,RESET_EVENT+RESETS_STANDARD-RESET_TOFIELD,0,1,c:GetFieldID())
+		local e1=Effect.CreateEffect(c)
+		e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+		e1:SetProperty(EFFECT_FLAG_DELAY)
+		e1:SetCode(EVENT_SPSUMMON_SUCCESS)
+		e1:SetOperation(cm.fop)
+		e1:SetLabel(c:GetFieldID())
+		e1:SetLabelObject(tc)
+		Duel.RegisterEffect(e1,tp)
+	end
+end
+function cm.fop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	local tc=e:GetLabelObject()
+	if not (c:GetFlagEffect(m)>0 and c:GetFlagEffectLabel(m)==e:GetLabel() and tc:GetFlagEffect(m)>0 and tc:GetFlagEffectLabel(m)==e:GetLabel()) then e:Reset() return end
+	if eg:IsContains(tc) and tc:IsPreviousLocation(LOCATION_DECK) then
+		e:Reset()
+		if tc:IsFaceup() then Duel.Equip(tp,c,tc) end
+	end  
+end
\ No newline at end of file

expansions/script/c11451858.lua

+--魔导指挥中心 晶核塔
+local cm,m=GetID()
+function cm.initial_effect(c)
+	if not PNFL_PROPHECY_FLIGHT_CHECK then
+		dofile("expansions/script/c11451851.lua")
+		pnfl_prophecy_flight_initial(c)
+	end
+	--Activate
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	c:RegisterEffect(e1)
+	--act
+	local e2=Effect.CreateEffect(c)
+	e2:SetDescription(aux.Stringid(m,0))
+	e2:SetCategory(CATEGORY_REMOVE+CATEGORY_TOHAND)
+	e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
+	e2:SetCode(EVENT_CHAIN_SOLVED)
+	e2:SetRange(LOCATION_SZONE)
+	e2:SetCountLimit(1,EFFECT_COUNT_CODE_SINGLE)
+	e2:SetCondition(cm.thcon)
+	e2:SetTarget(cm.thtg)
+	e2:SetOperation(cm.thop)
+	c:RegisterEffect(e2)
+	local e3=e2:Clone()
+	e3:SetProperty(EFFECT_FLAG_DELAY)
+	e3:SetCode(EVENT_CHAINING)
+	c:RegisterEffect(e3)
+	--replace
+	local e4=Effect.CreateEffect(c)
+	e4:SetType(EFFECT_TYPE_FIELD)
+	e4:SetRange(LOCATION_SZONE)
+	e4:SetTargetRange(LOCATION_ONFIELD+LOCATION_GRAVE,LOCATION_ONFIELD+LOCATION_GRAVE)
+	e4:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
+	e4:SetCode(EFFECT_IMMUNE_EFFECT)
+	e4:SetValue(cm.imop)
+	c:RegisterEffect(e4)
+	local e5=Effect.CreateEffect(c)
+	e5:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+	e5:SetRange(LOCATION_SZONE)
+	e5:SetCode(EVENT_ADJUST)
+	e5:SetCondition(function() return not pnfl_adjusting end)
+	e5:SetOperation(cm.acop)
+	c:RegisterEffect(e5)
+	local e6=Effect.CreateEffect(c)
+	e6:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+	e6:SetRange(LOCATION_SZONE)
+	e6:SetProperty(EFFECT_FLAG_DELAY)
+	e6:SetCode(EVENT_CUSTOM+m)
+	e6:SetOperation(cm.spop)
+	c:RegisterEffect(e6)
+end
+function cm.thcon(e,tp,eg,ep,ev,re,r,rp)
+	return re:GetHandler()==e:GetHandler() or (e:GetCode()==EVENT_CHAINING and rp==1-tp)
+end
+function cm.filter(c)
+	return c:IsSetCard(0x6e) and c:GetType()&0x10002==0x10002 and c:IsFaceup()
+end
+function cm.refilter(c)
+	return c:IsSetCard(0x6e) and c:GetType()&0x10002==0x10002 and c:IsAbleToRemove()
+end
+function cm.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
+	local g1=Duel.GetMatchingGroup(cm.filter,tp,LOCATION_REMOVED,LOCATION_REMOVED,nil)
+	local g2=Duel.GetMatchingGroup(cm.refilter,tp,LOCATION_DECK,0,nil)
+	if chk==0 then return g2:GetClassCount(Card.GetCode)>=3 and #g1<3 end
+	Duel.SetOperationInfo(0,CATEGORY_REMOVE,nil,3-#g1,tp,LOCATION_DECK)
+	Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_REMOVED)
+end
+function cm.thop(e,tp,eg,ep,ev,re,r,rp)
+	local g1=Duel.GetMatchingGroup(cm.filter,tp,LOCATION_REMOVED,LOCATION_REMOVED,nil)
+	local g2=Duel.GetMatchingGroup(cm.refilter,tp,LOCATION_DECK,0,nil)
+	if g2:GetClassCount(Card.GetCode)<3 or #g1>=3 then return end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_CONFIRM)
+	local sg=g2:SelectSubGroup(tp,aux.dncheck,false,3,3)
+	if sg then
+		Duel.ConfirmCards(1-tp,sg)
+		Duel.Hint(HINT_SELECTMSG,1-tp,HINTMSG_REMOVE)
+		if #g1>0 then
+			sg=sg:Select(1-tp,3-#g1,3-#g1,nil)
+		end
+		Duel.Remove(sg,POS_FACEUP,REASON_EFFECT)
+	end
+	g1=Duel.GetMatchingGroup(cm.filter,tp,LOCATION_REMOVED,LOCATION_REMOVED,nil)
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RTOHAND)
+	if #g1==3 then
+		g1=g1:Select(tp,1,1,nil)
+		Duel.SendtoHand(g1,nil,REASON_EFFECT)
+	end
+end
+function cm.filter1(c)
+	local eset={c:IsHasEffect(0x20000000+m)}
+	if #eset>0 then return eset[1]:GetLabelObject() end
+	return false
+end
+function cm.imop(e,te)
+	if te and te:GetHandler() and not te:IsHasProperty(EFFECT_FLAG_UNCOPYABLE) then
+		if te:GetHandler():IsLocation(LOCATION_DECK) then
+			local e1=te:GetHandler():RegisterFlagEffect(11451858,RESET_EVENT+RESETS_STANDARD,0,1)
+			e1:SetLabelObject(te)
+		end
+	end
+	return false
+end
+function cm.acop(e,tp,eg,ep,ev,re,r,rp)
+	if pnfl_adjusting then return end
+	pnfl_adjusting=true
+	local g=Duel.GetMatchingGroup(cm.filter1,tp,LOCATION_DECK,0,nil)
+	for tc in aux.Next(g) do
+		Duel.RaiseEvent(tc,EVENT_CUSTOM+m,cm.filter1(tc),0,0,0,0)
+		tc:ResetFlagEffect(m)
+	end
+	pnfl_adjusting=false
+end
+function cm.spop(e,tp,eg,ep,ev,re,r,rp)
+	local tc=eg:GetFirst()
+	if tc:IsControler(tp) and tc:IsCanBeSpecialSummoned(e,0,tp,false,false) and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and Duel.SelectEffectYesNo(tp,e:GetHandler(),aux.Stringid(m,1)) then
+		if Duel.SpecialSummonStep(tc,0,tp,tp,false,false,POS_FACEUP) then
+			local te1=re:Clone()
+			if re:GetOwner():GetOriginalCode()==11451851 then te1=c11451851.highground:Clone() end
+			te1:SetDescription(aux.Stringid(m,2))
+			te1:SetProperty(te1:GetProperty()|EFFECT_FLAG_CLIENT_HINT)
+			te1:SetRange(LOCATION_MZONE)
+			te1:SetCondition(aux.TRUE)
+			te1:SetReset(RESET_EVENT+RESETS_STANDARD-RESET_TOFIELD)
+			tc:RegisterEffect(te1,true)
+			Duel.SpecialSummonComplete()
+		end
+	end
+end
\ No newline at end of file

expansions/script/c11570001.lua

@@ -70,7 +70,7 @@ function c11570001.target(e,tp,eg,ep,ev,re,r,rp,chk)
 	Duel.SetOperationInfo(0,CATEGORY_REMOVE,nil,1,0,LOCATION_MZONE)
 	Duel.SetOperationInfo(0,CATEGORY_DISABLE_SUMMON,eg,eg:GetCount(),0,0)
 	Duel.SetOperationInfo(0,CATEGORY_TODECK,eg,eg:GetCount(),0,0)
---	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,eg,eg:GetCount(),0,0)
+--  Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,eg,eg:GetCount(),0,0)
 end
 function c11570001.operation(e,tp,eg,ep,ev,re,r,rp)
 	local c=e:GetHandler()
@@ -86,9 +86,11 @@ function c11570001.operation(e,tp,eg,ep,ev,re,r,rp)
 		Duel.SendtoDeck(eg,nil,SEQ_DECKSHUFFLE,REASON_EFFECT)
 		local tg=Duel.GetOperatedGroup()
 		if tg:IsExists(Card.IsLocation,1,nil,LOCATION_DECK) then Duel.ShuffleDeck(1-tp) end
-		local sg=tg:Filter(Card.IsLocation,nil,LOCATION_DECK+LOCATION_EXTRA)
+		local ssg=tg:Filter(Card.IsLocation,nil,LOCATION_DECK+LOCATION_EXTRA)
+		local sg=ssg:Filter(Card.IsCanBeSpecialSummoned,nil,e,0,tp,true,false)
 		if sg:GetCount()>1 and Duel.IsPlayerAffectedByEffect(tp,59822133) then return end
-		if sg:GetCount()>ft and Duel.SelectYesNo(tp,aux.Stringid(11570001,3)) then
+		if Duel.SelectYesNo(tp,aux.Stringid(11570001,3)) then
+		if sg:GetCount()>ft then
 			Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
 			sg=sg:Select(tp,ft,ft,nil)
 		end
@@ -104,12 +106,24 @@ function c11570001.operation(e,tp,eg,ep,ev,re,r,rp)
 			e1:SetValue(0x810)
 			e1:SetReset(RESET_EVENT+RESETS_STANDARD)
 			sc:RegisterEffect(e1)
+			local e2=Effect.CreateEffect(e:GetHandler())
+			e2:SetType(EFFECT_TYPE_SINGLE)
+			e2:SetCode(EFFECT_CHANGE_RACE)
+			e2:SetValue(RACE_DRAGON)
+			e2:SetReset(RESET_EVENT+RESETS_STANDARD)
+			sc:RegisterEffect(e2)
+			local e3=Effect.CreateEffect(e:GetHandler())
+			e3:SetType(EFFECT_TYPE_SINGLE)
+			e3:SetCode(EFFECT_CHANGE_ATTRIBUTE)
+			e3:SetValue(ATTRIBUTE_DARK)
+			e3:SetReset(RESET_EVENT+RESETS_STANDARD)
+			sc:RegisterEffect(e3)
 			sc:SetStatus(STATUS_SUMMON_DISABLED,false)
 			sc:SetStatus(STATUS_SUMMONING,true)
 			sc=sg:GetNext()
 		end
 		Duel.SpecialSummonComplete()
-	end
+	end end
 end
 function c11570001.cfilter2(c,tp)
 	return c:IsFaceup() and c:IsSetCard(0x810) and c:IsControler(tp)

expansions/script/c11570005.lua

@@ -46,7 +46,7 @@ function c11570005.efftg(e,tp,eg,ep,ev,re,r,rp,chk)
 	if chk==0 then return Duel.IsExistingMatchingCard(c11570005.costfilter,tp,LOCATION_HAND+LOCATION_ONFIELD+LOCATION_REMOVED,0,1,nil,tp) and (b1 or b2) end
 	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
 	local g=Duel.SelectMatchingCard(tp,c11570005.costfilter,tp,LOCATION_HAND+LOCATION_ONFIELD+LOCATION_REMOVED,0,1,1,nil,tp)
-	local b3=g:IsExists(Card.IsLocation,1,nil,LOCATION_ONFIELD) and Duel.GetLocationCount(tp,LOCATION_MZONE)>1
+	local b3=g:IsExists(Card.IsLocation,1,nil,LOCATION_ONFIELD) and Duel.GetLocationCount(tp,LOCATION_MZONE)>0
 	if not g:IsExists(Card.IsLocation,1,nil,LOCATION_REMOVED) then
 		Duel.SendtoGrave(g,REASON_COST)
 	else
@@ -99,6 +99,18 @@ function c11570005.effop(e,tp,eg,ep,ev,re,r,rp)
 				e1:SetValue(0x810)
 				e1:SetReset(RESET_EVENT+RESETS_STANDARD)
 				tc:RegisterEffect(e1)
+			local e4=Effect.CreateEffect(e:GetHandler())
+			e4:SetType(EFFECT_TYPE_SINGLE)
+			e4:SetCode(EFFECT_CHANGE_RACE)
+			e4:SetValue(RACE_DRAGON)
+			e4:SetReset(RESET_EVENT+RESETS_STANDARD)
+			tc:RegisterEffect(e4)
+			local e3=Effect.CreateEffect(e:GetHandler())
+			e3:SetType(EFFECT_TYPE_SINGLE)
+			e3:SetCode(EFFECT_CHANGE_ATTRIBUTE)
+			e3:SetValue(ATTRIBUTE_DARK)
+			e3:SetReset(RESET_EVENT+RESETS_STANDARD)
+			tc:RegisterEffect(e3)
 				local fid=e:GetHandler():GetFieldID()
 				tc:RegisterFlagEffect(11570005,RESET_EVENT+RESETS_STANDARD,0,1,fid)
 				local e2=Effect.CreateEffect(e:GetHandler())

expansions/script/c11634014.lua

+--教导唱诗班 浮尔
+function c11634014.initial_effect(c)
+	--to grave and hand
+	local e1=Effect.CreateEffect(c) 
+	e1:SetCategory(CATEGORY_TOGRAVE+CATEGORY_TOHAND+CATEGORY_SEARCH)
+	e1:SetType(EFFECT_TYPE_IGNITION)
+	e1:SetRange(LOCATION_HAND)
+	e1:SetCountLimit(1,11634014) 
+	e1:SetCondition(function(e) 
+	local tp=e:GetHandlerPlayer() 
+	return Duel.IsExistingMatchingCard(function(c) return c:IsFaceup() and c:IsSetCard(0x145) end,tp,LOCATION_MZONE,0,1,nil) end)
+	e1:SetCost(c11634014.tghcost)
+	e1:SetTarget(c11634014.tghtg)
+	e1:SetOperation(c11634014.tghop)
+	c:RegisterEffect(e1) 
+	--tohand and ex 
+	local e2=Effect.CreateEffect(c) 
+	e2:SetCategory(CATEGORY_TOHAND+CATEGORY_TOEXTRA)
+	e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) 
+	e2:SetCode(EVENT_LEAVE_FIELD) 
+	e2:SetProperty(EFFECT_FLAG_DELAY+EFFECT_FLAG_DAMAGE_STEP)
+	e2:SetRange(LOCATION_GRAVE)
+	e2:SetCountLimit(1,21634014) 
+	e2:SetCondition(c11634014.tehcon)
+	e2:SetCost(c11634014.tehcost)
+	e2:SetTarget(c11634014.tehtg)
+	e2:SetOperation(c11634014.tehop)
+	c:RegisterEffect(e2) 
+end 
+function c11634014.tghcost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return e:GetHandler():IsDiscardable() end
+	Duel.SendtoGrave(e:GetHandler(),REASON_COST+REASON_DISCARD)
+end
+function c11634014.tghfilter(c)
+	return c:IsSetCard(0x145) and c:IsType(TYPE_MONSTER) and c:IsAbleToHand()
+end
+function c11634014.tghtg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(Card.IsAbleToGrave,tp,LOCATION_EXTRA,0,1,nil) and Duel.IsExistingMatchingCard(c11634014.tghfilter,tp,LOCATION_DECK,0,1,nil) end 
+	Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,nil,1,tp,LOCATION_EXTRA)
+	Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
+end
+function c11634014.tghop(e,tp,eg,ep,ev,re,r,rp) 
+	local c=e:GetHandler() 
+	local tc=Duel.SelectMatchingCard(tp,Card.IsAbleToGrave,tp,LOCATION_EXTRA,0,1,1,nil):GetFirst() 
+	if tc and Duel.SendtoGrave(tc,REASON_EFFECT)~=0 then 
+		if not Duel.IsExistingMatchingCard(Card.IsSummonLocation,tp,0,LOCATION_MZONE,1,nil,LOCATION_EXTRA) then 
+			local e1=Effect.CreateEffect(c) 
+			e1:SetType(EFFECT_TYPE_SINGLE) 
+			e1:SetCode(EFFECT_CANNOT_TRIGGER) 
+			e1:SetReset(RESET_EVENT+RESETS_STANDARD) 
+			tc:RegisterEffect(e1)
+		end 
+		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
+		local g=Duel.SelectMatchingCard(tp,c11634014.tghfilter,tp,LOCATION_DECK,0,1,1,nil)
+		if g:GetCount()>0 then
+			Duel.SendtoHand(g,nil,REASON_EFFECT)
+			Duel.ConfirmCards(1-tp,g)
+		end 
+	end 
+	local e1=Effect.CreateEffect(e:GetHandler())
+	e1:SetType(EFFECT_TYPE_FIELD)
+	e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
+	e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
+	e1:SetTargetRange(1,0)
+	e1:SetTarget(function(e,c)
+	return c:IsLocation(LOCATION_EXTRA) end) 
+	e1:SetReset(RESET_PHASE+PHASE_END) 
+	Duel.RegisterEffect(e1,tp)
+	local e1=Effect.CreateEffect(e:GetHandler())
+	e1:SetType(EFFECT_TYPE_FIELD)
+	e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
+	e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
+	e1:SetTargetRange(1,0)
+	e1:SetTarget(function(e,c,sump,sumtype,sumpos,targetp,se)
+	return not c:IsSetCard(0x145) and sumtype&SUMMON_TYPE_PENDULUM==SUMMON_TYPE_PENDULUM end) 
+	e1:SetReset(RESET_PHASE+PHASE_END) 
+	Duel.RegisterEffect(e1,tp)
+end
+function c11634014.tehckfil(c) 
+	local rc=nil
+	if c:IsReason(REASON_BATTLE) then 
+		rc=c:GetReasonCard() 
+	elseif c:IsReason(REASON_EFFECT) then 
+		rc=c:GetReasonEffect():GetHandler()
+	end  
+	if not (rc and rc:IsSummonLocation(LOCATION_EXTRA)) then return false end 
+	if c:IsReason(REASON_BATTLE) then 
+		local bc=Duel.GetAttacker()
+		return bc and bc==rc  
+	elseif c:IsReason(REASON_EFFECT) then 
+		return true  
+	end  
+end 
+function c11634014.tehcon(e,tp,eg,ep,ev,re,r,rp) 
+	return eg:IsExists(c11634014.tehckfil,1,nil) 
+end 
+function c11634014.tehcost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return e:GetHandler():IsAbleToDeckAsCost() end
+	Duel.SendtoDeck(e:GetHandler(),nil,2,REASON_COST)
+end 
+function c11634014.tehtg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(function(c) return c:IsAbleToHand() and c:IsSetCard(0x145) and c:IsType(TYPE_MONSTER) end,tp,LOCATION_GRAVE,0,1,e:GetHandler()) and Duel.IsExistingMatchingCard(function(c) return c:IsAbleToExtra() and c:IsType(TYPE_FUSION+TYPE_SYNCHRO+TYPE_XYZ+TYPE_LINK) end,tp,LOCATION_GRAVE+LOCATION_REMOVED,0,1,nil) end 
+	Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_GRAVE)
+	Duel.SetOperationInfo(0,CATEGORY_TOEXTRA,nil,1,tp,LOCATION_GRAVE+LOCATION_REMOVED)
+end
+function c11634014.tehop(e,tp,eg,ep,ev,re,r,rp) 
+	local c=e:GetHandler() 
+	local tc=Duel.SelectMatchingCard(tp,function(c) return c:IsAbleToHand() and c:IsSetCard(0x145) and c:IsType(TYPE_MONSTER) end,tp,LOCATION_GRAVE,0,1,1,nil):GetFirst() 
+	if tc and Duel.SendtoHand(tc,nil,REASON_EFFECT)~=0 then 
+		Duel.ConfirmCards(1-tp,tc) 
+		local sg=Duel.SelectMatchingCard(tp,function(c) return c:IsAbleToExtra() and c:IsType(TYPE_FUSION+TYPE_SYNCHRO+TYPE_XYZ+TYPE_LINK) end,tp,LOCATION_GRAVE+LOCATION_REMOVED,0,1,1,nil) 
+		Duel.SendtoDeck(sg,nil,2,REASON_EFFECT) 
+	end 
+end 
+
+
+
+
+
+

expansions/script/c11634015.lua

+--凶导的异教审判官 
+function c11634015.initial_effect(c)
+	c:EnableReviveLimit()
+	--atk 
+	local e1=Effect.CreateEffect(c) 
+	e1:SetCategory(CATEGORY_TOGRAVE+CATEGORY_ATKCHANGE)
+	e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+	e1:SetCode(EVENT_SPSUMMON_SUCCESS)
+	e1:SetProperty(EFFECT_FLAG_DELAY) 
+	e1:SetCountLimit(1,11634015)
+	e1:SetCondition(c11634015.tgcon)
+	e1:SetTarget(c11634015.tgtg)
+	e1:SetOperation(c11634015.tgop)
+	c:RegisterEffect(e1) 
+	--atk 
+	local e2=Effect.CreateEffect(c) 
+	e2:SetType(EFFECT_TYPE_FIELD) 
+	e2:SetCode(EFFECT_UPDATE_ATTACK) 
+	e2:SetRange(LOCATION_MZONE) 
+	e2:SetTargetRange(LOCATION_MZONE,0) 
+	e2:SetValue(function(e) 
+	local tp=e:GetHandlerPlayer() 
+	return Duel.GetMatchingGroupCount(function(c) return c:IsType(TYPE_FUSION+TYPE_SYNCHRO+TYPE_XYZ+TYPE_LINK) end,tp,LOCATION_GRAVE,LOCATION_GRAVE,nil)*300 end) 
+	c:RegisterEffect(e2) 
+	--to grave and hand
+	local e3=Effect.CreateEffect(c) 
+	e3:SetCategory(CATEGORY_TOGRAVE+CATEGORY_TOHAND+CATEGORY_SEARCH)
+	e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+	e3:SetCode(EVENT_TO_GRAVE) 
+	e3:SetProperty(EFFECT_FLAG_DELAY)
+	e3:SetCondition(function(e) 
+	local tp=e:GetHandlerPlayer() 
+	return e:GetHandler():GetReasonPlayer()==1-tp end) 
+	e3:SetTarget(c11634015.tghtg)
+	e3:SetOperation(c11634015.tghop)
+	c:RegisterEffect(e3) 
+end 
+function c11634015.tgcon(e,tp,eg,ep,ev,re,r,rp)
+	return e:GetHandler():IsSummonType(SUMMON_TYPE_RITUAL)
+end
+function c11634015.tgck(g,tp) 
+	return g:GetClassCount(Card.GetControler)==g:GetCount() 
+end 
+function c11634015.tgtg(e,tp,eg,ep,ev,re,r,rp,chk) 
+	local g=Duel.GetMatchingGroup(Card.IsAbleToGrave,tp,LOCATION_EXTRA,LOCATION_EXTRA,nil)
+	if chk==0 then return g:CheckSubGroup(c11634015.tgck,1,2,tp) and Duel.IsExistingMatchingCard(nil,1-tp,LOCATION_EXTRA,0,1,nil) end
+	Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,nil,1,PLAYER_ALL,LOCATION_EXTRA)
+end
+function c11634015.tgop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	local rg=Duel.GetFieldGroup(tp,0,LOCATION_EXTRA)
+	if #rg>0 then
+		Duel.ConfirmCards(tp,rg)
+	end 
+	local g=Duel.GetMatchingGroup(Card.IsAbleToGrave,tp,LOCATION_EXTRA,LOCATION_EXTRA,nil) 
+	if g:CheckSubGroup(c11634015.tgck,1,2,tp) then 
+		local sg=g:SelectSubGroup(tp,c11634015.tgck,false,1,2,tp) 
+		local atk=0 
+		if Duel.SendtoGrave(sg,REASON_EFFECT)~=0 then atk=sg:GetSum(Card.GetAttack) end 
+		if c:IsRelateToEffect(e) and c:IsFaceup() then
+			local e1=Effect.CreateEffect(c)
+			e1:SetType(EFFECT_TYPE_SINGLE)
+			e1:SetCode(EFFECT_UPDATE_ATTACK)
+			e1:SetValue(math.floor(atk/2))
+			e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_DISABLE) 
+			c:RegisterEffect(e1)
+		end
+	end
+end
+function c11634015.tghfilter(c)
+	return c:IsSetCard(0x145) and not c:IsCode(11634015) and c:IsAbleToHand()
+end
+function c11634015.tghtg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(Card.IsAbleToGrave,tp,LOCATION_EXTRA,0,1,nil) and Duel.IsExistingMatchingCard(c11634015.tghfilter,tp,LOCATION_DECK+LOCATION_GRAVE,0,1,nil) end 
+	Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,nil,1,tp,LOCATION_EXTRA)
+	Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK+LOCATION_GRAVE)
+end
+function c11634015.tghop(e,tp,eg,ep,ev,re,r,rp) 
+	local c=e:GetHandler() 
+	local tc=Duel.SelectMatchingCard(tp,Card.IsAbleToGrave,tp,LOCATION_EXTRA,0,1,1,nil):GetFirst() 
+	if tc and Duel.SendtoGrave(tc,REASON_EFFECT)~=0 then  
+		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
+		local g=Duel.SelectMatchingCard(tp,c11634015.tghfilter,tp,LOCATION_DECK+LOCATION_GRAVE,0,1,1,nil)
+		if g:GetCount()>0 then
+			Duel.SendtoHand(g,nil,REASON_EFFECT)
+			Duel.ConfirmCards(1-tp,g)
+		end 
+	end  
+end
+
+

expansions/script/c11634016.lua

+--教导祈祷
+function c11634016.initial_effect(c)
+	--Activate
+	local e1=Effect.CreateEffect(c)
+	e1:SetCategory(CATEGORY_TODECK+CATEGORY_DRAW)
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	e1:SetProperty(EFFECT_FLAG_CARD_TARGET) 
+	e1:SetCountLimit(1,11634016) 
+	e1:SetCost(c11634016.cost)
+	e1:SetTarget(c11634016.target)
+	e1:SetOperation(c11634016.activate)
+	c:RegisterEffect(e1)
+	--copy spell
+	local e2=Effect.CreateEffect(c)
+	e2:SetType(EFFECT_TYPE_IGNITION)
+	e2:SetRange(LOCATION_GRAVE)
+	e2:SetCountLimit(1,11634016) 
+	e2:SetTarget(c11634016.cptg)
+	e2:SetOperation(c11634016.cpop)
+	c:RegisterEffect(e2) 
+	Duel.AddCustomActivityCounter(11634016,ACTIVITY_SPSUMMON,c11634016.counterfilter)
+end
+function c11634016.counterfilter(c)
+	return not c:IsSummonLocation(LOCATION_EXTRA)
+end
+function c11634016.cost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.GetCustomActivityCount(11634016,tp,ACTIVITY_SPSUMMON)==0 end
+	local e1=Effect.CreateEffect(e:GetHandler())
+	e1:SetType(EFFECT_TYPE_FIELD)
+	e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_OATH)
+	e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
+	e1:SetReset(RESET_PHASE+PHASE_END)
+	e1:SetTargetRange(1,0)
+	e1:SetTarget(function(e,c)
+	return c:IsLocation(LOCATION_EXTRA) end) 
+	Duel.RegisterEffect(e1,tp) 
+end
+function c11634016.filter(c)
+	return c:IsFaceup() and (c:IsSetCard(0x145) or c:IsType(TYPE_FUSION+TYPE_SYNCHRO+TYPE_XYZ+TYPE_LINK)) and not c:IsCode(11634016) and c:IsAbleToDeck()
+end
+function c11634016.target(e,tp,eg,ep,ev,re,r,rp,chk) 
+	if chk==0 then return Duel.IsPlayerCanDraw(tp,2) and Duel.IsExistingTarget(c11634016.filter,tp,LOCATION_GRAVE+LOCATION_REMOVED,0,5,nil) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK)
+	local g=Duel.SelectTarget(tp,c11634016.filter,tp,LOCATION_GRAVE+LOCATION_REMOVED,0,5,5,nil)
+	Duel.SetOperationInfo(0,CATEGORY_TODECK,g,g:GetCount(),0,0)
+	Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,2)
+end
+function c11634016.activate(e,tp,eg,ep,ev,re,r,rp)
+	local tg=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS)
+	if not tg or tg:FilterCount(Card.IsRelateToEffect,nil,e)~=5 then return end
+	Duel.SendtoDeck(tg,nil,SEQ_DECKSHUFFLE,REASON_EFFECT)
+	local g=Duel.GetOperatedGroup()
+	if g:IsExists(Card.IsLocation,1,nil,LOCATION_DECK) then Duel.ShuffleDeck(tp) end
+	local ct=g:FilterCount(Card.IsLocation,nil,LOCATION_DECK+LOCATION_EXTRA)
+	if ct==5 then
+		Duel.BreakEffect()
+		Duel.Draw(tp,2,REASON_EFFECT)
+	end
+	local e1=Effect.CreateEffect(e:GetHandler())
+	e1:SetType(EFFECT_TYPE_FIELD)
+	e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_OATH)
+	e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
+	e1:SetReset(RESET_PHASE+PHASE_END)
+	e1:SetTargetRange(1,0)
+	e1:SetTarget(function(e,c,sump,sumtype,sumpos,targetp,se)
+	return c:IsLocation(LOCATION_EXTRA) end)
+	Duel.RegisterEffect(e1,tp)
+end   
+function c11634016.cpfil(c)
+	return c:IsSetCard(0x145) and c:IsType(TYPE_SPELL) and c:IsAbleToDeckAsCost() and c:CheckActivateEffect(true,true,false)~=nil
+end
+function c11634016.cptg(e,tp,eg,ep,ev,re,r,rp,chk) 
+	if chk==0 then return Duel.IsExistingMatchingCard(c11634016.cpfil,tp,LOCATION_GRAVE,0,1,nil) and e:GetHandler():IsAbleToDeckAsCost() end
+	e:SetProperty(EFFECT_FLAG_CARD_TARGET)
+	e:SetCategory(0)
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TARGET)
+	local tc=Duel.SelectMatchingCard(tp,c11634016.cpfil,tp,LOCATION_GRAVE,0,1,1,nil):GetFirst()  
+	local sg=Group.FromCards(e:GetHandler(),tc)
+	Duel.SendtoDeck(sg,nil,2,REASON_COST)
+	local te=tc:CheckActivateEffect(true,true,false)
+	Duel.ClearTargetCard()
+	e:SetProperty(te:GetProperty())
+	e:SetLabel(te:GetLabel())
+	e:SetLabelObject(te:GetLabelObject())
+	local tg=te:GetTarget()
+	if tg then tg(e,tp,eg,ep,ev,re,r,rp,1) end
+	te:SetLabel(e:GetLabel())
+	te:SetLabelObject(e:GetLabelObject())
+	e:SetLabelObject(te)
+	Duel.ClearOperationInfo(0)
+end
+function c11634016.cpop(e,tp,eg,ep,ev,re,r,rp) 
+	local c=e:GetHandler()
+	local te=e:GetLabelObject() 
+	e:SetLabel(te:GetLabel())
+	e:SetLabelObject(te:GetLabelObject())
+	local op=te:GetOperation()
+	if op then op(e,tp,eg,ep,ev,re,r,rp) end
+	te:SetLabel(e:GetLabel())
+	te:SetLabelObject(e:GetLabelObject()) 
+end
+
+
+
+
+
+