fix

expansions/script/c13000754.lua

@@ -10,37 +10,29 @@ function c13000754.initial_effect(c)
 	e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DAMAGE_CAL)
 	e1:SetCode(EVENT_CHAINING)
 	e1:SetRange(LOCATION_REMOVED)
-	e1:SetCost(s.cost)
 	e1:SetCountLimit(1,13000754)
 	e1:SetCondition(s.negcon)
 	e1:SetTarget(s.negtg)
 	e1:SetOperation(s.negop)
 	c:RegisterEffect(e1)
 end
-function s.cost(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return e:GetHandler():IsAbleToGraveAsCost() and e:GetHandler():IsFaceup() end
-	Duel.SendtoGrave(e:GetHandler(),REASON_COST+REASON_RETURN)
-end
 function s.negcon(e,tp,eg,ep,ev,re,r,rp)
-local c=e:GetHandler()
-	return ep~=tp and Duel.IsChainNegatable(ev) and c:IsSummonType(SUMMON_TYPE_SYNCHRO)
+	return rp==1-tp and Duel.IsChainNegatable(ev)
 end
 function s.negtg(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return true end
+	local c=e:GetHandler()
+	if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and c:IsCanBeSpecialSummoned(e,0,tp,false,false) end
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,c,1,0,0)
 	Duel.SetOperationInfo(0,CATEGORY_NEGATE,eg,1,0,0)
 	if re:GetHandler():IsDestructable() and re:GetHandler():IsRelateToEffect(re) then
 		Duel.SetOperationInfo(0,CATEGORY_DESTROY,eg,1,0,0)
 	end
 end
 function s.negop(e,tp,eg,ep,ev,re,r,rp)
-	local rc=re:GetHandler()
-	Duel.SpecialSummon(e:GetHandler(),0,tp,tp,false,false,POS_FACEUP)
-	if not Duel.NegateActivation(ev) then return end
-	Duel.Destroy(eg,REASON_EFFECT)
-	Duel.SendtoGrave(e:GetHandler(),REASON_EFFECT)	
+	local c=e:GetHandler()
+	if not c:IsRelateToEffect(e) or Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)==0 then return end
+	if Duel.NegateActivation(ev) and re:GetHandler():IsRelateToEffect(re) and Duel.Destroy(eg,REASON_EFFECT)>0 then
+		Duel.BreakEffect()
+		Duel.SendtoGrave(c,REASON_EFFECT)
+	end
 end
-
-
-
-
-

expansions/script/c65131106.lua

@@ -80,4 +80,5 @@ function s.spop(e,tp,eg,ep,ev,re,r,rp)
 		c:RegisterEffect(e2,true)
 	end
 	Duel.SpecialSummonComplete()
+	c:CompleteProcedure()
 end
\ No newline at end of file

expansions/script/c65131114.lua

@@ -47,6 +47,7 @@ function s.thop(e,tp,eg,ep,ev,re,r,rp)
 	if tg:GetCount()>0 then
 		if Duel.SendtoHand(tg,nil,REASON_EFFECT)>0 and c:IsRelateToEffect(e) then
 			Duel.SpecialSummon(c,SUMMON_TYPE_RITUAL,tp,tp,false,true,POS_FACEDOWN_DEFENSE)
+			c:CompleteProcedure()
 		end
 	end
 end
@@ -75,22 +76,18 @@ function s.setop(e,tp,eg,ep,ev,re,r,rp)
 		tg=tg:Select(tp,1,ft,nil)
 	end
 	Duel.SSet(tp,tg)
-	for tc in aux.Next(tg) do
-		if tc:IsType(TYPE_QUICKPLAY) then
-			local e1=Effect.CreateEffect(c)
-			e1:SetType(EFFECT_TYPE_SINGLE)
-			e1:SetProperty(EFFECT_FLAG_SET_AVAILABLE)
-			e1:SetCode(EFFECT_QP_ACT_IN_SET_TURN)
-			e1:SetReset(RESET_EVENT+RESETS_STANDARD)
-			tc:RegisterEffect(e1)
-		end
-		if tc:IsType(TYPE_TRAP) then
-			local e1=Effect.CreateEffect(c)
-			e1:SetType(EFFECT_TYPE_SINGLE)
-			e1:SetCode(EFFECT_TRAP_ACT_IN_SET_TURN)
-			e1:SetProperty(EFFECT_FLAG_SET_AVAILABLE)
-			e1:SetReset(RESET_EVENT+RESETS_STANDARD)
-			tc:RegisterEffect(e1)
-		end
+	for tc in aux.Next(tg) do	   
+		local e1=Effect.CreateEffect(c)
+		e1:SetType(EFFECT_TYPE_SINGLE)
+		e1:SetProperty(EFFECT_FLAG_SET_AVAILABLE)
+		e1:SetCode(EFFECT_QP_ACT_IN_SET_TURN)
+		e1:SetReset(RESET_EVENT+RESETS_STANDARD)
+		tc:RegisterEffect(e1)	   
+		local e1=Effect.CreateEffect(c)
+		e1:SetType(EFFECT_TYPE_SINGLE)
+		e1:SetCode(EFFECT_TRAP_ACT_IN_SET_TURN)
+		e1:SetProperty(EFFECT_FLAG_SET_AVAILABLE)
+		e1:SetReset(RESET_EVENT+RESETS_STANDARD)
+		tc:RegisterEffect(e1)
 	end
 end
\ No newline at end of file

expansions/script/c65131120.lua

@@ -96,6 +96,7 @@ function s.spop(e,tp,eg,ep,ev,re,r,rp)
 		e2:SetOperation(s.ssop)
 		Duel.RegisterEffect(e2,tp)
 		Duel.SpecialSummonComplete()
+		c:CompleteProcedure()
 		Duel.ChangeAttackTarget(c)
 	end
 end

expansions/script/c65131130.lua

@@ -87,6 +87,7 @@ function s.spop(e,tp,eg,ep,ev,re,r,rp)
 		if Duel.SSet(tp,sg,tp,false)==ct then
 			if tc:IsType(TYPE_RITUAL) then
 				Duel.SpecialSummon(tc,SUMMON_TYPE_RITUAL,tp,tp,false,true,POS_FACEUP)
+				tc:CompleteProcedure()
 			else
 				Duel.SpecialSummon(tc,SUMMON_TYPE_RITUAL,tp,tp,false,false,POS_FACEUP)
 			end