fixes

expansions/script/c14000060.lua

+--嵌合魔术-窥视
+local m=14000060
+local cm=_G["c"..m]
+function cm.initial_effect(c)
+	--fusion material
+	c:EnableReviveLimit()
+	aux.AddFusionProcCodeFun(c,14000055,aux.FilterBoolFunction(Card.IsAttribute,ATTRIBUTE_DARK),1,true,false)
+	--change name
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_SINGLE)
+	e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
+	e1:SetCode(EFFECT_CHANGE_CODE)
+	e1:SetRange(LOCATION_ONFIELD+LOCATION_GRAVE)
+	e1:SetValue(14000055)
+	c:RegisterEffect(e1)
+	--banish extra
+	local e2=Effect.CreateEffect(c)
+	e2:SetDescription(aux.Stringid(m,0))
+	e2:SetCategory(CATEGORY_REMOVE+CATEGORY_TODECK)
+	e2:SetType(EFFECT_TYPE_IGNITION)
+	e2:SetCountLimit(1)
+	e2:SetRange(LOCATION_MZONE)
+	e2:SetTarget(cm.extg)
+	e2:SetOperation(cm.exop)
+	c:RegisterEffect(e2)
+end
+function cm.ORI(c)
+	local m=_G["c"..c:GetCode()]
+	return m and m.named_with_Origic
+end
+function cm.tdfilter(c)
+	return c:IsFaceup() and cm.ORI(c) and c:IsAbleToDeck()
+end
+function cm.rmfilter(c)
+	return c:IsAbleToRemove() and c:IsType(TYPE_MONSTER)
+end
+function cm.extg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(cm.rmfilter,tp,0,LOCATION_EXTRA,1,nil) end
+	Duel.SetOperationInfo(0,CATEGORY_REMOVE,nil,1,1-tp,LOCATION_EXTRA)
+end
+function cm.exop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	local boo1=0
+	if c:IsRelateToEffect(e) and c:IsLocation(LOCATION_MZONE) and c:IsFaceup() then
+		boo1=1
+	end
+	local g=Duel.GetFieldGroup(tp,0,LOCATION_EXTRA)
+	Duel.ConfirmCards(tp,g)
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
+	local tc=g:FilterSelect(tp,cm.rmfilter,1,1,nil):GetFirst()
+	if tc and Duel.Remove(tc,POS_FACEUP,REASON_EFFECT)~=0 and tc:IsType(TYPE_MONSTER) then
+		if boo1==1 then
+			local batk=tc:GetBaseAttack()
+			local batt=tc:GetOriginalAttribute()
+			local e1=Effect.CreateEffect(c)
+			e1:SetType(EFFECT_TYPE_SINGLE)
+			e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
+			e1:SetReset(RESET_EVENT+RESETS_STANDARD)
+			e1:SetCode(EFFECT_CHANGE_ATTRIBUTE)
+			e1:SetValue(batt)
+			c:RegisterEffect(e1)
+			local e2=Effect.CreateEffect(c)
+			e2:SetType(EFFECT_TYPE_SINGLE)
+			e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
+			e2:SetReset(RESET_EVENT+RESETS_STANDARD)
+			e2:SetCode(EFFECT_SET_BASE_ATTACK)
+			e2:SetValue(batk)
+			c:RegisterEffect(e2)
+		end
+	end
+	if boo1==1 and Duel.IsExistingMatchingCard(cm.tdfilter,tp,LOCATION_REMOVED,0,1,nil,e,tp) and Duel.SelectYesNo(tp,aux.Stringid(m,1)) then
+		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK)
+		local g=Duel.SelectMatchingCard(tp,cm.tdfilter,tp,LOCATION_REMOVED,0,1,1,nil)
+		if #g>0 then
+			if Duel.SendtoDeck(g,tp,2,REASON_EFFECT)~=0 then
+				local e3=Effect.CreateEffect(c)
+				e3:SetType(EFFECT_TYPE_FIELD)
+				e3:SetRange(LOCATION_MZONE)
+				e3:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
+				e3:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
+				e3:SetReset(RESET_EVENT+RESETS_STANDARD)
+				e3:SetTargetRange(0,1)
+				e3:SetTarget(cm.sumlimit)
+				c:RegisterEffect(e3)
+				c:RegisterFlagEffect(0,RESET_EVENT+0x1fe0000,EFFECT_FLAG_CLIENT_HINT,1,0,aux.Stringid(m,2))
+			end
+		end
+	end
+end
+function cm.sumlimit(e,c,sump,sumtype,sumpos,targetp,se)
+	return c:IsLocation(LOCATION_EXTRA) and not c:GetAttribute()==e:GetHandler():GetAttribute()
+end
\ No newline at end of file

expansions/script/c14010108.lua

@@ -21,7 +21,7 @@ function cm.cfilter(c)
 	return c:IsFacedown() or not c:IsType(TYPE_FUSION)
 end
 function cm.con(e,c)
-	return Duel.Get(tp,LOCATION_MZONE,0)>0 and not Duel.IsExistingMatchingCard(cm.cfilter,tp,LOCATION_MZONE,0,1,nil)
+	return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and not Duel.IsExistingMatchingCard(cm.cfilter,tp,LOCATION_MZONE,0,1,nil)
 end
 function cm.filter(c,e,tp)
 	return c:IsType(TYPE_FUSION)

expansions/script/c14010110.lua

@@ -110,8 +110,8 @@ function cm.bantg(e,c)
 	return c:IsCode(e:GetLabel())
 end
 function cm.callcon1(e,tp,eg,ep,ev,re,r,rp)
-	local ex,cg,ct,cp,cv=Duel.GetOperationInfo(ev,CATEGORY_ANNOUNCE)
-	return ex and bit.band(cv,ANNOUNCE_CARD+ANNOUNCE_CARD_FILTER)~=0 and not Duel.IsPlayerAffectedByEffect(tp,14011110)
+	local ex=Duel.GetOperationInfo(ev,CATEGORY_ANNOUNCE)
+	return ex and not Duel.IsPlayerAffectedByEffect(tp,14011110)
 end
 function cm.callchk1(e,tp,eg,ep,ev,re,r,rp)
 	local code=Duel.GetChainInfo(ev,CHAININFO_TARGET_PARAM)

expansions/script/c14010145.lua

@@ -13,7 +13,7 @@ function cm.initial_effect(c)
 	c:RegisterEffect(e1)
 end
 function cm.thfilter(c,tp)
-	return c:IsAbleToHand() and Duel.IsExistingMatchingCard(cm.nmfilter,tp,LOCATION_DECK+LOCATION_GRAVE,0,2,c,c:GetCode())
+	return c:IsType(TYPE_NORMAL) and c:IsAbleToHand() and Duel.IsExistingMatchingCard(cm.nmfilter,tp,LOCATION_DECK+LOCATION_GRAVE,0,2,c,c:GetCode())
 end
 function cm.nmfilter(c,code)
 	return c:IsCode(code) and c:IsAbleToHand()
@@ -31,6 +31,7 @@ function cm.activate(e,tp,eg,ep,ev,re,r,rp)
 		g:Merge(g1)
 		if #g>2 then
 			Duel.SendtoHand(g,nil,REASON_EFFECT)
+			Duel.ConfirmCards(1-tp,g)
 		end
 	end
 end
\ No newline at end of file

expansions/script/c17050936.lua

@@ -25,6 +25,9 @@ function cm.initial_effect(c)
 	e2:SetValue(1)
 	c:RegisterEffect(e2)
 end
+function cm.mfilter(c)
+	return c:IsSetCard(0x2701)
+end
 function cm.exacon(e)
 	return e:GetHandler():IsSummonType(SUMMON_TYPE_LINK)
 end

expansions/script/c17060933.lua

@@ -28,7 +28,7 @@ function cm.initial_effect(c)
 	--to hand
 	local e2=Effect.CreateEffect(c)
 	e2:SetDescription(aux.Stringid(m,2))
-	e2:SetCategory(CATEGORY_DESTROY+CATEGORY_TOHAND+CATEGORY_SEARCH)
+	e2:SetCategory(CATEGORY_DESTROY+CATEGORY_TOHAND)
 	e2:SetType(EFFECT_TYPE_IGNITION)
 	e2:SetProperty(EFFECT_FLAG_CARD_TARGET)
 	e2:SetRange(LOCATION_PZONE)

expansions/script/c17090009.lua

@@ -2,7 +2,6 @@
 local m=17090009
 local cm=_G["c"..m]
 function cm.initial_effect(c)
-	c:EnableReviveLimit()
 	--pendulum summon
 	aux.EnablePendulumAttribute(c)
 	--to deck

expansions/script/c26805004.lua

@@ -78,5 +78,6 @@ function c26805004.acop(e,tp,eg,ep,ev,re,r,rp)
 		local cost=te:GetCost()
 		if cost then cost(te,tep,eg,ep,ev,re,r,rp,1) end
 		Duel.RaiseEvent(tc,4179255,te,0,tp,tp,Duel.GetCurrentChain())
+		Duel.Hint(HINT_MUSIC,0,aux.Stringid(81010004,2))
 	end
 end

expansions/script/c26807002.lua

@@ -71,6 +71,7 @@ function c26807002.acop(e,tp,eg,ep,ev,re,r,rp)
 		local cost=te:GetCost()
 		if cost then cost(te,tep,eg,ep,ev,re,r,rp,1) end
 		Duel.RaiseEvent(tc,4179255,te,0,tp,tp,Duel.GetCurrentChain())
+		Duel.Hint(HINT_MUSIC,0,aux.Stringid(81010004,2))
 	end
 end
 function c26807002.rfilter(c)

expansions/script/c26807009.lua

 --Luna Express 2032
 function c26807009.initial_effect(c)
 	--xyz summon
-	aux.AddXyzProcedure(c,aux.FilterBoolFunction(Card.IsType,TYPE_RITUAL),9,2,nil,3)
+	aux.AddXyzProcedure(c,aux.FilterBoolFunction(Card.IsType,TYPE_RITUAL),9,2,nil,nil,3)
 	c:EnableReviveLimit()
 	--remove
 	local e1=Effect.CreateEffect(c)

expansions/script/c43330030.lua

+--泰拉魔物 迷失少女
+local m=43330030
+local cm=_G["c"..m]
+function cm.initial_effect(c)
+	--link summon
+	aux.AddLinkProcedure(c,cm.linkfilter,2,2)
+	c:EnableReviveLimit()   
+	--draw
+	local e2=Effect.CreateEffect(c)
+	e2:SetDescription(aux.Stringid(m,0))
+	e2:SetCategory(CATEGORY_DRAW+CATEGORY_SEARCH+CATEGORY_TOHAND+CATEGORY_DESTROY)
+	e2:SetType(EFFECT_TYPE_IGNITION)
+	e2:SetCountLimit(1)
+	e2:SetRange(LOCATION_MZONE)
+	e2:SetTarget(cm.drtg)
+	e2:SetOperation(cm.drop)
+	c:RegisterEffect(e2)  
+	--sp
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(m,2))
+	e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
+	e1:SetType(EFFECT_TYPE_QUICK_O)
+	e1:SetRange(LOCATION_MZONE)
+	e1:SetCountLimit(1,m)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	e1:SetHintTiming(0,0x1e0)
+	e1:SetCost(cm.spcost)
+	e1:SetTarget(cm.sptg)
+	e1:SetOperation(cm.spop)
+	c:RegisterEffect(e1)  
+end
+cm.setcard="terraria"
+function cm.filter(c,e,tp)
+	return c.setcard=="terraria" and c:IsCanBeSpecialSummoned(e,0,tp,false,false) and c:IsType(TYPE_LINK) and c:GetLink()<=2
+end
+function cm.spcost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return e:GetHandler():IsAbleToExtraAsCost() end
+	Duel.SendtoDeck(e:GetHandler(),nil,2,REASON_COST)
+end
+function cm.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.GetLocationCountFromEx(tp)>0
+		and Duel.IsExistingMatchingCard(cm.filter,tp,LOCATION_EXTRA,0,1,nil,e,tp) end
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA)
+end
+function cm.spop(e,tp,eg,ep,ev,re,r,rp)
+	if Duel.GetLocationCountFromEx(tp)<=0 then return end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
+	local g=Duel.SelectMatchingCard(tp,cm.filter,tp,LOCATION_EXTRA,0,1,1,nil,e,tp)
+	if g:GetCount()>0 then
+		Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
+	end
+end
+function cm.linkfilter(c)
+	return c.setcard=="terraria" or c:IsCode(43330026)
+end
+function cm.drtg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsPlayerCanDraw(tp,1) and e:GetHandler():GetLinkedGroup():GetCount()>0 end
+	Duel.SetTargetPlayer(tp)
+	Duel.SetTargetParam(1)
+	Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,1)
+	Duel.SetOperationInfo(0,CATEGORY_DESTROY,nil,0,PLAYER_ALL,LOCATION_MZONE)
+end
+function cm.thfilter(c)
+	return c:IsAbleToHand() and c:IsType(TYPE_TRAP)
+end
+function cm.drop(e,tp,eg,ep,ev,re,r,rp)
+	local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM)
+	if Duel.Draw(p,d,REASON_EFFECT)<=0 then return end
+	local g=e:GetHandler():GetLinkedGroup()
+	if g:GetCount()<=0 then return end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
+	local dg=g:Select(tp,1,1,nil)
+	Duel.HintSelection(dg)
+	if Duel.Destroy(dg,REASON_EFFECT)<=0 then return end
+	local tg=Duel.GetMatchingGroup(cm.thfilter,tp,0,LOCATION_DECK,nil)
+	if tg:GetCount()<=0 or not Duel.IsPlayerCanDraw(tp,1) or not Duel.SelectYesNo(1-tp,aux.Stringid(m,1)) then return end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
+	Duel.BreakEffect()
+	local dg2=tg:Select(1-tp,1,1,nil) 
+	if Duel.SendtoHand(dg2,1-tp,REASON_EFFECT)~=0 then
+	   Duel.ConfirmCards(tp,dg2)
+	   Duel.Draw(tp,1,REASON_EFFECT)
+	end
+end
+
+

expansions/script/c81008007.lua

@@ -71,6 +71,7 @@ function c81008007.op(e,tp,eg,ep,ev,re,r,rp)
 		local cost=te:GetCost()
 		if cost then cost(te,tep,eg,ep,ev,re,r,rp,1) end
 		Duel.RaiseEvent(tc,4179255,te,0,tp,tp,Duel.GetCurrentChain())
+		Duel.Hint(HINT_MUSIC,0,aux.Stringid(81010004,2))
 	end
 end
 function c81008007.synlimit(e,c)

expansions/script/c81011003.lua

@@ -66,7 +66,7 @@ function c81011003.cbop(e,tp,eg,ep,ev,re,r,rp)
 	end
 end
 function c81011003.cecon(e,tp,eg,ep,ev,re,r,rp)
-	if e==re or not re:IsHasProperty(EFFECT_FLAG_CARD_TARGET) then return false end
+	if not re:IsHasProperty(EFFECT_FLAG_CARD_TARGET) then return false end
 	local g=Duel.GetChainInfo(ev,CHAININFO_TARGET_CARDS)
 	return g and g:GetCount()==1 and g:GetFirst()==e:GetHandler()
 end

expansions/script/c81011110.lua

@@ -3,7 +3,7 @@ function c81011110.initial_effect(c)
 	--pendulum summon
 	aux.EnablePendulumAttribute(c)
 	--spsummon
-	local e3=aux.AddRitualProcEqual2(c,c81011110.filter,nil,nil,c81011110.mfilter)
+	local e3=aux.AddRitualProcGreater2(c,c81011110.filter,nil,nil,c81011110.mfilter)
 	e3:SetType(EFFECT_TYPE_IGNITION)
 	e3:SetCode(0)
 	e3:SetCountLimit(1,81011110)

expansions/script/c81011202.lua

@@ -89,7 +89,7 @@ function c81011202.ctfilter(c,tp)
 	return c:IsFaceup() and (c:IsRace(RACE_DRAGON) or c:IsCode(81014005))
 end
 function c81011202.ctcon1(e,tp,eg,ep,ev,re,r,rp)
-	return eg:IsExists(c81011202.ctfilter,1,nil,tp)
+	return eg:IsExists(c81011202.ctfilter,1,nil,tp) and not eg:IsContains(e:GetHandler())
 end
 function c81011202.ctop1(e,tp,eg,ep,ev,re,r,rp)
 	local c=e:GetHandler()

expansions/script/c81040006.lua

@@ -24,7 +24,7 @@ function c81040006.initial_effect(c)
 	c:RegisterEffect(e3)
 end
 function c81040006.tdfilter(c)
-	return c:IsFaceup() and c:IsSetCard(0x81c) and c:IsAbleToDeck()
+	return c:IsSetCard(0x81c) and c:IsAbleToDeck()
 end
 function c81040006.tdtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
 	if chkc then return chkc:IsLocation(LOCATION_REMOVED) and chkc:IsControler(tp) and c81040006.tdfilter(chkc) end
@@ -34,18 +34,18 @@ function c81040006.tdtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
 	Duel.SetOperationInfo(0,CATEGORY_TODECK,g,1,0,0)
 end
 function c81040006.setfilter(c)
-	return c:IsType(TYPE_RITUAL) and c:IsType(TYPE_SPELL) and c:IsSSetable()
+	return c:GetType()==TYPE_SPELL+TYPE_RITUAL and c:IsSSetable()
 end
 function c81040006.tdop(e,tp,eg,ep,ev,re,r,rp)
+	if not e:GetHandler():IsRelateToEffect(e) then return end
 	local tc=Duel.GetFirstTarget()
-	if tc:IsRelateToEffect(e) and Duel.SendtoDeck(tc,nil,2,REASON_EFFECT)~=0 and tc:IsLocation(LOCATION_DECK+LOCATION_EXTRA) then
+	if tc:IsRelateToEffect(e) and Duel.SendtoDeck(tc,nil,2,REASON_EFFECT)~=0
+		and tc:IsLocation(LOCATION_DECK+LOCATION_EXTRA) then
 		local g=Duel.GetMatchingGroup(c81040006.setfilter,tp,LOCATION_DECK,0,nil)
-		if g:GetCount()>0 and Duel.SelectYesNo(tp,aux.Stringid(81040006,1)) then
-			Duel.BreakEffect()
-			Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOFIELD)
-			local sg=g:Select(tp,1,1,nil)
-			Duel.SSet(tp,sg)
-			Duel.ConfirmCards(1-tp,sg)
+		if g:GetCount()>0 and Duel.SelectYesNo(tp,aux.Stringid(81040006,2)) then
+			local sc=g:Select(tp,1,1,nil):GetFirst()
+			Duel.SSet(tp,sc)
+			Duel.ConfirmCards(1-tp,sc)
 		end
 	end
 end

expansions/script/c81040030.lua

@@ -74,7 +74,7 @@ function c81040030.activate(e,tp,eg,ep,ev,re,r,rp)
 			mat:Merge(mat2)
 		end
 		tc:SetMaterial(mat)
-		local mat2=mat:Filter(Card.IsLocation,nil,LOCATION_GRAVE):Filter(Card.IsRace,nil,RACE_WARRIOR+RACE_FAIRY)
+		local mat2=mat:Filter(Card.IsLocation,nil,LOCATION_GRAVE):Filter(Card.IsSetCard,nil,0x81c)
 		mat:Sub(mat2)
 		Duel.ReleaseRitualMaterial(mat)
 		Duel.SendtoDeck(mat2,nil,2,REASON_EFFECT+REASON_MATERIAL+REASON_RITUAL)

expansions/script/c81040037.lua

 --冬日回忆·周子
+local m=81040037
+local c81040037=_G["c"..m]
+Duel.LoadScript("c37564765.lua")
 function c81040037.initial_effect(c)
 	c:EnableReviveLimit()
 	aux.AddFusionProcFunRep(c,c81040037.ffilter,3,true)
-	aux.AddContactFusionProcedure(c,Card.IsAbleToRemoveAsCost,LOCATION_GRAVE,0,Duel.Remove,POS_FACEUP,REASON_COST)
 	--spsummon condition
 	local e0=Effect.CreateEffect(c)
 	e0:SetType(EFFECT_TYPE_SINGLE)
 	e0:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
 	e0:SetCode(EFFECT_SPSUMMON_CONDITION)
 	c:RegisterEffect(e0)
+	--特招方法
+	local e5=Effect.CreateEffect(c)
+	e5:SetType(EFFECT_TYPE_FIELD)
+	e5:SetCode(EFFECT_SPSUMMON_PROC)
+	e5:SetProperty(EFFECT_FLAG_UNCOPYABLE)
+	e5:SetRange(LOCATION_EXTRA)
+	e5:SetValue(1)
+	e5:SetCondition(c81040037.spscon)
+	e5:SetOperation(c81040037.spsop)
+	c:RegisterEffect(e5)
 	--immune effect
 	local e1=Effect.CreateEffect(c)
 	e1:SetType(EFFECT_TYPE_SINGLE)
@@ -46,13 +58,6 @@ function c81040037.initial_effect(c)
 	e4:SetTarget(c81040037.sptg)
 	e4:SetOperation(c81040037.spop)
 	c:RegisterEffect(e4)
-	--spsummon limit
-	local e5=Effect.CreateEffect(c)
-	e5:SetType(EFFECT_TYPE_SINGLE)
-	e5:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
-	e5:SetCode(EFFECT_SPSUMMON_CONDITION)
-	e5:SetValue(c81040037.sumlimit)
-	c:RegisterEffect(e5)
 	Duel.AddCustomActivityCounter(81040037,ACTIVITY_SPSUMMON,c81040037.counterfilter)
 end
 function c81040037.counterfilter(c)
@@ -61,8 +66,28 @@ end
 function c81040037.exfilter(c)
 	return c:IsFaceup() and c:IsSetCard(0x81c) and bit.band(c:GetType(),0x81)==0x81
 end
-function c81040037.sumlimit(e,se,sp,st,pos,tp)
-	return Duel.IsExistingMatchingCard(c81040037.exfilter,tgp,LOCATION_MZONE,0,1,nil)
+function c81040037.spsfilter(c)
+	return c:IsSetCard(0x81c) and bit.band(c:GetType(),0x81)==0x81 and c:IsAbleToRemoveAsCost() 
+end
+function c81040037.spscon(e,c)
+	if c==nil then return true end
+	local tp=c:GetControler()
+	local g=Duel.GetMatchingGroup(c81040037.spsfilter,tp,LOCATION_GRAVE,0,nil)
+	return Duel.GetLocationCountFromEx(tp)>0
+		and g:GetClassCount(Card.GetCode)>=3
+		and Duel.IsExistingMatchingCard(c81040037.exfilter,tp,LOCATION_MZONE,0,1,nil)
+end
+function c81040037.spsop(e,tp,eg,ep,ev,re,r,rp,c)
+	local tp=c:GetControler()
+	local g=Duel.GetMatchingGroup(c81040037.spsfilter,tp,LOCATION_GRAVE,0,nil)
+	local tg=Group.CreateGroup()
+	for i=1,3 do	 
+		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK)
+		local sg=g:Select(tp,1,1,nil)
+		tg:Merge(sg)
+		g:Remove(Card.IsCode,nil,sg:GetFirst():GetCode())
+	end
+	Duel.Remove(tg,POS_FACEUP,REASON_COST)
 end
 function c81040037.ffilter(c,fc,sub,mg,sg)
 	return c:IsFusionSetCard(0x81c) and c:IsFusionType(TYPE_RITUAL) and c:IsFusionType(TYPE_MONSTER) and (not sg or not sg:IsExists(Card.IsFusionCode,1,c,c:GetFusionCode()))

expansions/script/c81041002.lua

@@ -50,7 +50,7 @@ function c81041002.cfilter(c)
 end
 function c81041002.counter(e,tp,eg,ep,ev,re,r,rp)
 	local c=e:GetHandler()
-	if eg:IsExists(c81041002.cfilter,1,c) then
+	if eg:IsExists(c81041002.cfilter,1,c) and not eg:IsContains(c) then
 		local e1=Effect.CreateEffect(c)
 		e1:SetType(EFFECT_TYPE_SINGLE)
 		e1:SetProperty(EFFECT_FLAG_COPY_INHERIT)

expansions/script/c81041003.lua

@@ -98,7 +98,7 @@ function c81041003.rdtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
 		and e:GetHandler():IsLevelAbove(4) end
 	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
 	local g=Duel.SelectTarget(tp,Card.IsAbleToRemove,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil)
-	Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0)
+	Duel.SetOperationInfo(0,CATEGORY_REMOVE,g,1,0,0)
 end
 function c81041003.rdop(e,tp,eg,ep,ev,re,r,rp)
 	local c=e:GetHandler()

expansions/script/c81041012.lua

@@ -60,7 +60,7 @@ end
 function c81041012.atktg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
 	local tc=e:GetLabelObject()
 	if chkc then return chkc==tc end
-	if chk==0 then return tc:IsOnField() and tc:IsCanBeEffectTarget(e) end
+	if chk==0 then return tc:IsOnField() and tc:IsCanBeEffectTarget(e) and tc:IsLevelAbove(1) end
 	Duel.SetTargetCard(tc)
 end
 function c81041012.atkop(e,tp,eg,ep,ev,re,r,rp)