fix

expansions/script/c18018110.lua

@@ -129,7 +129,8 @@ function s.filter(c)
 end
 function s.distg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
 	if chkc then return chkc:IsLocation(LOCATION_GRAVE+LOCATION_REMOVED) and chkc:IsControler(tp) and s.filter(chkc) end
-	if chk==0 then return Duel.IsExistingMatchingCard(aux.NegateAnyFilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) end
+	if chk==0 then return Duel.IsExistingTarget(s.filter,tp,LOCATION_GRAVE+LOCATION_REMOVED,0,1,nil)
+		and Duel.IsExistingMatchingCard(aux.NegateAnyFilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) end
 	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK)
 	local g=Duel.SelectTarget(tp,s.filter,tp,LOCATION_GRAVE+LOCATION_REMOVED,0,1,1,nil)
 end

expansions/script/c18029704.lua

@@ -52,14 +52,18 @@ function s.atktg(e,c)
 	local lg1=Duel.GetMatchingGroup(s.cfilter1,e:GetHandlerPlayer(),LOCATION_MZONE,0,nil)
 	local res=false
 	for tc in aux.Next(lg1) do
-		if tc==c and c:IsSetCard(0xc6e9) then
-			res=true
+		for lc in aux.Next(tc:GetLinkedGroup()) do
+			if lc==c and c:IsSetCard(0xc6e9) then
+				res=true
+			end
 		end
 	end
 	local lg2=Duel.GetMatchingGroup(s.cfilter2,e:GetHandlerPlayer(),LOCATION_MZONE,0,nil)
 	for tc in aux.Next(lg2) do
-		if tc==c and c:IsSetCard(0xa6e9) then
-			res=true
+		for lc in aux.Next(tc:GetLinkedGroup()) do
+			if lc==c and c:IsSetCard(0xa6e9) then
+				res=true
+			end
 		end
 	end
 	return res

expansions/script/c18029721.lua

@@ -17,6 +17,9 @@ function s.initial_effect(c)
 	e2:SetTarget(s.thtg)
 	e2:SetOperation(s.thop)
 	c:RegisterEffect(e2)
+	local e3=e2:Clone()
+	e3:SetCode(EVENT_SUMMON_SUCCESS)
+	c:RegisterEffect(e3)
 end
 function s.cfilter(c)
 	return c:IsSetCard(0xc6e9) and c:IsFaceup()

expansions/script/c18029722.lua

@@ -17,6 +17,9 @@ function s.initial_effect(c)
 	e2:SetTarget(s.thtg)
 	e2:SetOperation(s.thop)
 	c:RegisterEffect(e2)
+	local e3=e2:Clone()
+	e3:SetCode(EVENT_SUMMON_SUCCESS)
+	c:RegisterEffect(e3)
 end
 function s.cfilter(c)
 	return c:IsSetCard(0xa6e9) and c:IsFaceup()

expansions/script/c18030102.lua

@@ -124,6 +124,7 @@ function s.rop(e,tp,eg,ep,ev,re,r,rp)
 			Duel.PayLPCost(tp,(2500-cp)*2)
 		end
 		Duel.SpecialSummon(c,SUMMON_TYPE_RITUAL,tp,tp,false,true,POS_FACEUP)
+		c:CompleteProcedure()
 	end
 end
 function s.eatg(e,tp,eg,ep,ev,re,r,rp,chk)

expansions/script/c18030103.lua

@@ -146,6 +146,7 @@ function s.rop(e,tp,eg,ep,ev,re,r,rp)
 			Duel.PayLPCost(tp,(3000-cp)*2)
 		end
 		Duel.SpecialSummon(c,SUMMON_TYPE_RITUAL,tp,tp,false,true,POS_FACEUP)
+		c:CompleteProcedure()
 	end
 end
 function s.filter(c)

expansions/script/c18030104.lua

@@ -132,6 +132,7 @@ function s.rop(e,tp,eg,ep,ev,re,r,rp)
 			Duel.PayLPCost(tp,(3000-cp)*2)
 		end
 		Duel.SpecialSummon(c,SUMMON_TYPE_RITUAL,tp,tp,false,true,POS_FACEUP)
+		c:CompleteProcedure()
 	end
 end
 function s.eafilter(c)

expansions/script/c18030105.lua

@@ -126,6 +126,7 @@ function s.rop(e,tp,eg,ep,ev,re,r,rp)
 			Duel.PayLPCost(tp,(2500-cp)*2)
 		end
 		Duel.SpecialSummon(c,SUMMON_TYPE_RITUAL,tp,tp,false,true,POS_FACEUP)
+		c:CompleteProcedure()
 	end
 end
 function s.eatg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)

expansions/script/c18030106.lua

@@ -127,6 +127,7 @@ function s.rop(e,tp,eg,ep,ev,re,r,rp)
 			Duel.PayLPCost(tp,(2500-cp)*2)
 		end
 		Duel.SpecialSummon(c,SUMMON_TYPE_RITUAL,tp,tp,false,true,POS_FACEUP)
+		c:CompleteProcedure()
 	end
 end
 function s.eatg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)

expansions/script/c18030107.lua

@@ -127,6 +127,7 @@ function s.rop(e,tp,eg,ep,ev,re,r,rp)
 			Duel.PayLPCost(tp,(3000-cp)*2)
 		end
 		Duel.SpecialSummon(c,SUMMON_TYPE_RITUAL,tp,tp,false,true,POS_FACEUP)
+		c:CompleteProcedure()
 	end
 end
 function s.eatg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)

expansions/script/c18030108.lua

@@ -125,6 +125,7 @@ function s.rop(e,tp,eg,ep,ev,re,r,rp)
 			Duel.PayLPCost(tp,(3500-cp)*2)
 		end
 		Duel.SpecialSummon(c,SUMMON_TYPE_RITUAL,tp,tp,false,true,POS_FACEUP)
+		c:CompleteProcedure()
 	end
 end
 function s.eatg(e,tp,eg,ep,ev,re,r,rp,chk)

expansions/script/c18030109.lua

@@ -129,6 +129,7 @@ function s.rop(e,tp,eg,ep,ev,re,r,rp)
 			Duel.PayLPCost(tp,(4000-cp)*2)
 		end
 		Duel.SpecialSummon(c,SUMMON_TYPE_RITUAL,tp,tp,false,true,POS_FACEUP)
+		c:CompleteProcedure()
 	end
 end
 function s.eacon(e,tp,eg,ep,ev,re,r,rp)

expansions/script/c18030114.lua

@@ -127,6 +127,7 @@ function s.rop(e,tp,eg,ep,ev,re,r,rp)
 			Duel.PayLPCost(tp,(2000-cp)*2)
 		end
 		Duel.SpecialSummon(c,SUMMON_TYPE_RITUAL,tp,tp,false,true,POS_FACEUP)
+		c:CompleteProcedure()
 	end
 end
 function s.eatg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)

expansions/script/c18700628.lua

@@ -55,10 +55,12 @@ function cm.spcon(e,tp,eg,ep,ev,re,r,rp)
 	return e:GetHandler():IsSummonType(SUMMON_TYPE_LINK)
 end
 function cm.filter2(c)
-	return c:GetType()==TYPE_TRAP or (c:IsType(TYPE_TRAP) and c:IsType(TYPE_CONTINUOUS) and c:IsSSetable() and (c:GetOriginalLevel()>0 or bit.band(c:GetOriginalRace(),0x3fffffff)~=0
+	return ((c:IsType(TYPE_TRAP) and c:IsType(TYPE_CONTINUOUS)) and c:IsSSetable()
+		and (c:GetOriginalLevel()>0
+		or bit.band(c:GetOriginalRace(),0x3fffffff)~=0
 		or bit.band(c:GetOriginalAttribute(),0x7f)~=0
 		or c:GetBaseAttack()>0
-		or c:GetBaseDefense()>0))
+		or c:GetBaseDefense()>0)) or (c:GetType()==TYPE_TRAP and c:IsSSetable())
 end
 function cm.tg1(e,tp,eg,ep,ev,re,r,rp,chk)
 	local c=e:GetHandler()

expansions/script/c18700740.lua

@@ -76,7 +76,9 @@ function cm.spcon(e,tp,eg,ep,ev,re,r,rp)
 	return e:GetHandler():IsSummonType(SUMMON_TYPE_LINK)
 end
 function cm.filter2(c)
-	return (c:GetType()==TYPE_TRAP or (c:IsType(TYPE_TRAP) and c:IsType(TYPE_CONTINUOUS))) and c:IsSSetable() and (c:GetOriginalLevel()>0 or bit.band(c:GetOriginalRace(),0x3fffffff)~=0
+	return (c:GetType()==TYPE_TRAP or (c:IsType(TYPE_TRAP) and c:IsType(TYPE_CONTINUOUS))) and c:IsSSetable()
+		and (c:GetOriginalLevel()>0
+		or bit.band(c:GetOriginalRace(),0x3fffffff)~=0
 		or bit.band(c:GetOriginalAttribute(),0x7f)~=0
 		or c:GetBaseAttack()>0
 		or c:GetBaseDefense()>0)