Merge pull request #112 from DailyShana/patch-rm

remove setcode 0x100-0x104

c11901678.lua

@@ -4,3 +4,4 @@ function c11901678.initial_effect(c)
 	c:EnableReviveLimit()
 	aux.AddFusionProcCode2(c,70781052,74677422,true,true)
 end
+c11901678.material_setcode=0x3b

c12071500.lua

@@ -16,7 +16,7 @@ function c12071500.filter1(c,e)
 	return c:IsCanBeFusionMaterial() and c:IsAbleToRemove() and not c:IsImmuneToEffect(e)
 end
 function c12071500.filter2(c,e,tp,m,f,chkf)
-	return c:IsType(TYPE_FUSION) and c:IsSetCard(0x102) and (not f or f(c))
+	return c:IsType(TYPE_FUSION) and c.dark_calling and (not f or f(c))
 		and c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_FUSION+0x10,tp,false,false) and c:CheckFusionMaterial(m,nil,chkf)
 end
 function c12071500.target(e,tp,eg,ep,ev,re,r,rp,chk)

c13293158.lua

@@ -27,6 +27,7 @@ function c13293158.initial_effect(c)
 	e3:SetOperation(c13293158.activate)
 	c:RegisterEffect(e3)
 end
+c13293158.dark_calling=true
 function c13293158.splimit(e,se,sp,st)
 	return st==SUMMON_TYPE_FUSION+0x10
 end

c14017402.lua

@@ -31,6 +31,7 @@ function c14017402.initial_effect(c)
 	e4:SetValue(c14017402.splimit)
 	c:RegisterEffect(e4)
 end
+c14017402.miracle_synchro_fusion=true
 function c14017402.splimit(e,se,sp,st)
 	if e:GetHandler():IsLocation(LOCATION_EXTRA) then 
 		return bit.band(st,SUMMON_TYPE_FUSION)==SUMMON_TYPE_FUSION
@@ -57,7 +58,7 @@ function c14017402.operation(e,tp,eg,ep,ev,re,r,rp)
 	local c=e:GetHandler()
 	local tc=Duel.GetFirstTarget()
 	if c:IsRelateToEffect(e) and c:IsFaceup() and tc:IsRelateToEffect(e) then
-		if Duel.Remove(tc,POS_FACEUP,REASON_EFFECT)~=1 then	return end
+		if Duel.Remove(tc,POS_FACEUP,REASON_EFFECT)~=1 then return end
 		local code=tc:GetOriginalCode()
 		local reset_flag=RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END
 		c:CopyEffect(code, reset_flag, 1)

c17412721.lua

@@ -21,6 +21,7 @@ function c17412721.initial_effect(c)
 	c:RegisterEffect(e2)
 	e1:SetLabelObject(e2)
 end
+c17412721.miracle_synchro_fusion=true
 function c17412721.ffilter(c)
 	return c:IsType(TYPE_XYZ+TYPE_SYNCHRO)
 end

c18013090.lua

@@ -30,6 +30,7 @@ function c18013090.initial_effect(c)
 	e3:SetOperation(c18013090.caop)
 	c:RegisterEffect(e3)
 end
+c18013090.material_setcode=0x17
 function c18013090.tfilter(c)
 	return c:IsCode(96182448) or c:IsHasEffect(20932152)
 end

c20932152.lua

@@ -25,7 +25,7 @@ function c20932152.initial_effect(c)
 end
 function c20932152.synlimit(e,c)
 	if not c then return false end
-	return not c:IsSetCard(0x100)
+	return not aux.IsMaterialListSetCard(c,0x17)
 end
 function c20932152.spfilter(c)
 	return c:IsType(TYPE_MONSTER) and c:IsAbleToGraveAsCost()

c21113684.lua

@@ -52,6 +52,7 @@ function c21113684.initial_effect(c)
 	e6:SetValue(c21113684.splimit)
 	c:RegisterEffect(e6)
 end
+c21113684.miracle_synchro_fusion=true
 function c21113684.splimit(e,se,sp,st)
 	if e:GetHandler():IsLocation(LOCATION_EXTRA) then 
 		return bit.band(st,SUMMON_TYPE_FUSION)==SUMMON_TYPE_FUSION

c21947653.lua

@@ -22,6 +22,7 @@ function c21947653.initial_effect(c)
 	e2:SetOperation(c21947653.operation)
 	c:RegisterEffect(e2)
 end
+c21947653.dark_calling=true
 function c21947653.splimit(e,se,sp,st)
 	return st==SUMMON_TYPE_FUSION+0x10
 end

c22160245.lua

@@ -10,7 +10,7 @@ function c22160245.initial_effect(c)
 	e1:SetCode(EFFECT_SPSUMMON_CONDITION)
 	e1:SetValue(c22160245.splimit)
 	c:RegisterEffect(e1)
-    --damage
+	--damage
 	local e2=Effect.CreateEffect(c)
 	e2:SetDescription(aux.Stringid(22160245,0))
 	e2:SetCategory(CATEGORY_DAMAGE)
@@ -27,6 +27,7 @@ function c22160245.initial_effect(c)
 	e3:SetCode(EFFECT_PIERCE)
 	c:RegisterEffect(e3)
 end
+c22160245.dark_calling=true
 function c22160245.splimit(e,se,sp,st)
 	return st==SUMMON_TYPE_FUSION+0x10
 end

c2322421.lua

@@ -14,6 +14,7 @@ function c2322421.initial_effect(c)
 	e1:SetOperation(c2322421.op)
 	c:RegisterEffect(e1)
 end
+c2322421.material_setcode=0x17
 function c2322421.tfilter(c)
 	return c:IsCode(71971554) or c:IsHasEffect(20932152)
 end

c25148255.lua

@@ -29,7 +29,7 @@ function c25148255.mfilter(c,e,tp,mc)
 		and Duel.IsExistingMatchingCard(c25148255.scfilter,tp,LOCATION_EXTRA,0,1,nil,mg)
 end
 function c25148255.scfilter(c,mg)
-	return c:IsSetCard(0x100) and c:IsSynchroSummonable(nil,mg)
+	return aux.IsMaterialListSetCard(c,0x17) and c:IsSynchroSummonable(nil,mg)
 end
 function c25148255.sctg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
 	if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c25148255.mfilter(chkc,e,tp,e:GetHandler()) end

c286392.lua

@@ -25,6 +25,7 @@ function c286392.initial_effect(c)
 	e2:SetOperation(c286392.spop)
 	c:RegisterEffect(e2)
 end
+c286392.material_setcode=0x17
 function c286392.tfilter(c)
 	return c:IsCode(9742784) or c:IsHasEffect(20932152)
 end

c3429238.lua

@@ -35,6 +35,7 @@ function c3429238.initial_effect(c)
 	e3:SetOperation(c3429238.spop)
 	c:RegisterEffect(e3)
 end
+c3429238.material_setcode=0x17
 function c3429238.tfilter(c)
 	return c:IsCode(56286179) or c:IsHasEffect(20932152)
 end

c36484016.lua

@@ -27,7 +27,7 @@ function c36484016.filter1(c,e)
 	return c:IsCanBeFusionMaterial() and c:IsAbleToRemove() and not c:IsImmuneToEffect(e)
 end
 function c36484016.filter2(c,e,tp,m,f,chkf)
-	return c:IsType(TYPE_FUSION) and c:IsSetCard(0x101) and (not f or f(c))
+	return c:IsType(TYPE_FUSION) and c.miracle_synchro_fusion and (not f or f(c))
 		and c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_FUSION,tp,false,false) and m:IsExists(c36484016.filter3,1,nil,c,m,chkf)
 end
 function c36484016.filter3(c,fusc,m,chkf)

c37993923.lua

@@ -27,6 +27,7 @@ function c37993923.initial_effect(c)
 	e2:SetOperation(c37993923.operation)
 	c:RegisterEffect(e2)
 end
+c37993923.material_setcode=0x17
 function c37993923.tfilter(c)
 	return c:IsCode(63977008) or c:IsHasEffect(20932152)
 end

c40101111.lua

@@ -34,6 +34,7 @@ function c40101111.initial_effect(c)
 	e5:SetValue(c40101111.splimit)
 	c:RegisterEffect(e5)
 end
+c40101111.miracle_synchro_fusion=true
 function c40101111.splimit(e,se,sp,st)
 	if e:GetHandler():IsLocation(LOCATION_EXTRA) then 
 		return bit.band(st,SUMMON_TYPE_FUSION)==SUMMON_TYPE_FUSION

c42810973.lua

@@ -15,6 +15,7 @@ function c42810973.initial_effect(c)
 	e1:SetOperation(c42810973.operation)
 	c:RegisterEffect(e1)
 end
+c42810973.material_setcode=0x17
 function c42810973.tfilter(c)
 	return c:IsCode(63977008) or c:IsHasEffect(20932152)
 end

c45037489.lua

@@ -17,6 +17,7 @@ function c45037489.initial_effect(c)
 	e1:SetOperation(c45037489.disop)
 	c:RegisterEffect(e1)
 end
+c45037489.material_setcode=0x17
 function c45037489.tfilter(c)
 	return c:IsCode(19642774) or c:IsHasEffect(20932152)
 end

c45349196.lua

@@ -27,6 +27,7 @@ function c45349196.initial_effect(c)
 	e2:SetOperation(c45349196.damop)
 	c:RegisterEffect(e2)
 end
+c45349196.material_setcode=0x3b
 function c45349196.mfilter1(c)
 	return c:IsSetCard(0x45) and c:IsType(TYPE_NORMAL) and c:GetLevel()==6
 end

c46195773.lua

@@ -21,6 +21,7 @@ function c46195773.initial_effect(c)
 	e2:SetValue(c46195773.efilter)
 	c:RegisterEffect(e2)
 end
+c46195773.material_setcode=0x17
 function c46195773.tfilter(c)
 	return c:IsCode(67270095) or c:IsHasEffect(20932152)
 end

c50282757.lua

@@ -32,6 +32,7 @@ function c50282757.initial_effect(c)
 	e3:SetValue(c50282757.indesval)
 	c:RegisterEffect(e3)
 end
+c50282757.dark_calling=true
 function c50282757.splimit(e,se,sp,st)
 	return st==SUMMON_TYPE_FUSION+0x10
 end

c58332301.lua

@@ -26,6 +26,7 @@ function c58332301.initial_effect(c)
 	e3:SetOperation(c58332301.posop)
 	c:RegisterEffect(e3)
 end
+c58332301.dark_calling=true
 function c58332301.splimit(e,se,sp,st)
 	return st==SUMMON_TYPE_FUSION+0x10
 end

c58601383.lua

@@ -20,6 +20,7 @@ function c58601383.initial_effect(c)
 	e3:SetValue(c58601383.efilter2)
 	c:RegisterEffect(e3)
 end
+c58601383.miracle_synchro_fusion=true
 function c58601383.ffilter(c)
 	return c:IsType(TYPE_SYNCHRO) and not c:IsType(TYPE_EFFECT)
 end

c59255742.lua

@@ -41,6 +41,7 @@ function c59255742.initial_effect(c)
 	e4:SetOperation(c59255742.ctop)
 	c:RegisterEffect(e4)
 end
+c59255742.miracle_synchro_fusion=true
 function c59255742.ffilter(c)
 	return c:IsAttribute(ATTRIBUTE_EARTH) and c:IsRace(RACE_WARRIOR) and c:IsType(TYPE_SYNCHRO)
 end

c59771339.lua

@@ -25,6 +25,7 @@ function c59771339.initial_effect(c)
 	e2:SetOperation(c59771339.desop)
 	c:RegisterEffect(e2)
 end
+c59771339.material_setcode=0x17
 function c59771339.tfilter(c)
 	return c:IsCode(63977008) or c:IsHasEffect(20932152)
 end

c60800381.lua

@@ -13,6 +13,7 @@ function c60800381.initial_effect(c)
 	e1:SetOperation(c60800381.op)
 	c:RegisterEffect(e1)
 end
+c60800381.material_setcode=0x17
 function c60800381.tfilter(c)
 	return c:IsCode(63977008) or c:IsHasEffect(20932152)
 end

c6172122.lua

@@ -33,7 +33,7 @@ function c6172122.filter1(c,e)
 	return c:IsCanBeFusionMaterial() and c:IsAbleToGrave() and not c:IsImmuneToEffect(e)
 end
 function c6172122.filter2(c,e,tp,m,f,chkf)
-	return c:IsType(TYPE_FUSION) and c:IsSetCard(0x104) and (not f or f(c))
+	return c:IsType(TYPE_FUSION) and aux.IsMaterialListSetCard(c,0x3b) and (not f or f(c))
 		and c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_FUSION,tp,false,false) and c:CheckFusionMaterial(m,nil,chkf)
 end
 function c6172122.target(e,tp,eg,ep,ev,re,r,rp,chk)

c67159705.lua

@@ -55,10 +55,10 @@ function c67159705.repval(e,re,r,rp)
 	return bit.band(r,REASON_BATTLE)~=0
 end
 function c67159705.eqlimit(e,c)
-	return c:IsSetCard(0x103)
+	return c:IsCode(70095154) or aux.IsMaterialListCode(c,70095154)
 end
 function c67159705.filter(c)
-	return c:IsFaceup() and c:IsSetCard(0x103) and c:GetUnionCount()==0
+	return c:IsFaceup() and (c:IsCode(70095154) or aux.IsMaterialListCode(c,70095154)) and c:GetUnionCount()==0
 end
 function c67159705.eqtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
 	if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and c67159705.filter(chkc) end

c74860293.lua

@@ -15,6 +15,7 @@ function c74860293.initial_effect(c)
 	e1:SetOperation(c74860293.op)
 	c:RegisterEffect(e1)
 end
+c74860293.material_setcode=0x17
 function c74860293.tfilter(c)
 	return c:IsCode(63977008) or c:IsHasEffect(20932152)
 end

c86676862.lua

@@ -35,6 +35,7 @@ function c86676862.initial_effect(c)
 	e5:SetValue(aux.imval1)
 	c:RegisterEffect(e5)
 end
+c86676862.dark_calling=true
 function c86676862.splimit(e,se,sp,st)
 	return st==SUMMON_TYPE_FUSION+0x10
 end

c90555947.lua

@@ -17,6 +17,7 @@ function c90555947.initial_effect(c)
 	e1:SetOperation(c90555947.disop)
 	c:RegisterEffect(e1)
 end
+c90555947.miracle_synchro_fusion=true
 function c90555947.ffilter(c)
 	return c:IsAttribute(ATTRIBUTE_EARTH) and c:IsType(TYPE_SYNCHRO)
 end

c90660762.lua

@@ -4,3 +4,4 @@ function c90660762.initial_effect(c)
 	c:EnableReviveLimit()
 	aux.AddFusionProcCode2(c,74677422,64271667,true,true)
 end
+c90660762.material_setcode=0x3b

c92773018.lua

@@ -25,7 +25,7 @@ function c92773018.condition(e,tp,eg,ep,ev,re,r,rp)
 	return tp~=Duel.GetTurnPlayer()
 end
 function c92773018.cfilter(c)
-	return c:IsFaceup() and c:IsSetCard(0x103) and c:IsAbleToGraveAsCost()
+	return c:IsFaceup() and (c:IsCode(70095154) or aux.IsMaterialListCode(c,70095154)) and c:IsAbleToGraveAsCost()
 end
 function c92773018.cost(e,tp,eg,ep,ev,re,r,rp,chk)
 	if chk==0 then return Duel.IsExistingMatchingCard(c92773018.cfilter,tp,LOCATION_MZONE,0,1,nil) end

c99916754.lua

@@ -17,6 +17,7 @@ function c99916754.initial_effect(c)
 	e2:SetOperation(c99916754.disop)
 	c:RegisterEffect(e2)
 end
+c99916754.miracle_synchro_fusion=true
 function c99916754.discon(e,tp,eg,ep,ev,re,r,rp)
 	return not e:GetHandler():IsStatus(STATUS_BATTLE_DESTROYED)
 		and re:IsHasType(EFFECT_TYPE_ACTIVATE) and Duel.IsChainNegatable(ev)

utility.lua

@@ -1185,6 +1185,16 @@ function Auxiliary.PendOperation()
 				Duel.HintSelection(Group.FromCards(rpz))
 			end
 end
+function Auxiliary.IsMaterialListCode(c,code)
+	if not c.material_count then return false end
+	for i=1,c.material_count do
+		if code==c.material[i] then return true end
+	end
+	return false
+end
+function Auxiliary.IsMaterialListSetCard(c,setcode)
+	return c.material_setcode and c.material_setcode==setcode
+end
 --card effect disable filter(target)
 function Auxiliary.disfilter1(c)
 	return c:IsFaceup() and not c:IsDisabled() and (not c:IsType(TYPE_NORMAL) or bit.band(c:GetOriginalType(),TYPE_EFFECT)~=0)