得得得得得

expansions/script/c19500022.lua

 --七色人形剧·蓬莱人形
-local s,id,o=GetID()
 function c19500022.initial_effect(c)
 	--todeck and draw
 	local e2=Effect.CreateEffect(c)
@@ -22,7 +21,7 @@ function c19500022.initial_effect(c)
 	e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
 	e3:SetCode(EVENT_DESTROYED)
 	e3:SetProperty(EFFECT_FLAG_DELAY)
-	e3:SetCountLimit(1,19500022+o)
+	e3:SetCountLimit(1,19500022+100)
 	e3:SetTarget(c19500022.thtg)
 	e3:SetOperation(c19500022.thop)
 	c:RegisterEffect(e3)

expansions/script/c33501033.lua

@@ -23,9 +23,7 @@ function cm.initial_effect(c)
 end
 function cm.checkop(e,tp,eg,ep,ev,re,r,rp)
 	local tc=re:GetHandler()
-	if tc:IsControler(1-tp) then
-		Sre_setbackt[1]=tc
-	end
+	Sre_setbackt[1]=tc
 end
 function cm.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
 	local res=false
@@ -33,12 +31,13 @@ function cm.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
 		res=Sre_setbackt[1]
 	end
 	if chk==0 then return res and res:IsControler(1-tp) and res:IsLocation(LOCATION_ONFIELD) end
+	res:CreateEffectRelation(e)
 	Duel.SetOperationInfo(0,CATEGORY_CONTROL,e:GetLabelObject(),1,0,0)
 end
 function cm.thop(e,tp,eg,ep,ev,re,r,rp)
 	local c=e:GetHandler()
 	local tc=Sre_setbackt[1]
-	if tc then
+	if tc:IsRelateToEffect(e) then
 		if tc:IsLocation(LOCATION_MZONE) then
 			Duel.GetControl(tc,tp)
 		elseif tc:IsLocation(LOCATION_FZONE) then
@@ -64,4 +63,5 @@ function cm.thop(e,tp,eg,ep,ev,re,r,rp)
 		Duel.ChangePosition(c,POS_FACEDOWN)
 		Duel.RaiseEvent(c,EVENT_SSET,e,REASON_EFFECT,tp,tp,0)
 	end
+	res:ReleaseEffectRelation(e)
 end
\ No newline at end of file

expansions/script/c81032000.lua

@@ -5,7 +5,7 @@ Duel.LoadScript("c81000000.lua")
 function cm.initial_effect(c)
 	--synchro summon
 	c:EnableReviveLimit()
-	aux.AddSynchroMixProcedure(c,cm.matfilter,nil,nil,aux.NonTuner(nil),1,1,cm.syncheck)
+	aux.AddSynchroMixProcedure(c,nil,nil,nil,nil,1,1,cm.syncheck)
 	--search
 	local e1=Effect.CreateEffect(c)
 	e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
@@ -28,7 +28,7 @@ function cm.initial_effect(c)
 	c:RegisterEffect(e2)
 end
 function cm.matfilter(c)
-	return c:IsSynchroType(TYPE_TUNER) or (not c:IsType(TYPE_TUNER))
+	return c:IsType(TYPE_MONSTER)
 end
 function cm.syncheck(g)
 	return not g:IsExists(Card.IsSynchroType,1,nil,TYPE_TUNER)

expansions/script/c81032006.lua

@@ -5,7 +5,7 @@ Duel.LoadScript("c81000000.lua")
 function cm.initial_effect(c)
 	--synchro summon
 	c:EnableReviveLimit()
-	aux.AddSynchroMixProcedure(c,cm.matfilter,nil,nil,aux.NonTuner(nil),1,1,cm.syncheck)
+	aux.AddSynchroMixProcedure(c,nil,nil,nil,nil,1,1,cm.syncheck)
 	--spsummon
 	local e1=Effect.CreateEffect(c)
 	e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
@@ -29,9 +29,6 @@ function cm.initial_effect(c)
 	e2:SetOperation(cm.drop)
 	c:RegisterEffect(e2)
 end
-function cm.matfilter(c)
-	return c:IsSynchroType(TYPE_TUNER) or (not c:IsType(TYPE_TUNER))
-end
 function cm.syncheck(g)
 	return not g:IsExists(Card.IsSynchroType,1,nil,TYPE_TUNER)
 end

expansions/script/c81032007.lua

@@ -5,7 +5,7 @@ Duel.LoadScript("c81000000.lua")
 function cm.initial_effect(c)
 	--synchro summon
 	c:EnableReviveLimit()
-	aux.AddSynchroMixProcedure(c,cm.matfilter,nil,nil,aux.NonTuner(tgrfilter),1,1,cm.syncheck)
+	aux.AddSynchroMixProcedure(c,cm.matfilter,nil,nil,cm.matfilter,1,1,cm.syncheck)
 	--cannot be target/effect indestructable
 	local e1=Effect.CreateEffect(c)
 	e1:SetType(EFFECT_TYPE_SINGLE)
@@ -45,9 +45,6 @@ function cm.initial_effect(c)
 end
 cm.material_type=TYPE_SYNCHRO
 function cm.matfilter(c)
-	return c:IsSynchroType(TYPE_TUNER) or (c:IsRace(RACE_REPTILE) and c:IsType(TYPE_SYNCHRO))
-end
-function cm.tgrfilter(c)
 	return c:IsRace(RACE_REPTILE) and c:IsType(TYPE_SYNCHRO)
 end
 function cm.syncheck(g)

expansions/script/c81032008.lua

@@ -5,7 +5,7 @@ Duel.LoadScript("c81000000.lua")
 function cm.initial_effect(c)
 	--synchro summon
 	c:EnableReviveLimit()
-	aux.AddSynchroMixProcedure(c,cm.matfilter,nil,nil,aux.NonTuner(tgrfilter),1,1,cm.syncheck)
+	aux.AddSynchroMixProcedure(c,cm.matfilter,nil,nil,cm.matfilter,1,1,cm.syncheck)
 	--remove
 	local e1=Effect.CreateEffect(c)
 	e1:SetDescription(aux.Stringid(m,0))
@@ -30,9 +30,6 @@ function cm.initial_effect(c)
 	c:RegisterEffect(e3)
 end
 function cm.matfilter(c)
-	return c:IsSynchroType(TYPE_TUNER) or c:IsRace(RACE_REPTILE)
-end
-function cm.tgrfilter(c)
 	return c:IsRace(RACE_REPTILE)
 end
 function cm.syncheck(g)

expansions/script/c81032016.lua

@@ -5,7 +5,7 @@ Duel.LoadScript("c81000000.lua")
 function cm.initial_effect(c)
 	--synchro summon
 	c:EnableReviveLimit()
-	aux.AddSynchroMixProcedure(c,cm.matfilter,nil,nil,aux.NonTuner(tgrfilter),1,1,cm.syncheck)
+	aux.AddSynchroMixProcedure(c,cm.matfilter,nil,nil,cm.matfilter,1,1,cm.syncheck)
 	--negate
 	local e1=Effect.CreateEffect(c)
 	e1:SetDescription(aux.Stringid(m,1))
@@ -32,7 +32,7 @@ function cm.initial_effect(c)
 	c:RegisterEffect(e2)
 end
 function cm.matfilter(c)
-	return c:IsSynchroType(TYPE_TUNER) or c:IsRace(RACE_REPTILE)
+	return c:IsRace(RACE_REPTILE)
 end
 function cm.tgrfilter(c)
 	return c:IsRace(RACE_REPTILE)