ybb

expansions/script/c15000810.lua

@@ -11,11 +11,10 @@ function cm.initial_effect(c)
 	c:RegisterEffect(e0)
 	--change effect
 	local e1=Effect.CreateEffect(c)
-	e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
-	e1:SetCode(EVENT_CHAIN_SOLVING)
+	e1:SetType(EFFECT_TYPE_SINGLE)
+	e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
+	e1:SetCode(15000810)
 	e1:SetRange(LOCATION_FZONE)
-	e1:SetCondition(cm.chcon)
-	e1:SetOperation(cm.chop)
 	c:RegisterEffect(e1)
 	--Add Counter
 	local e3=Effect.CreateEffect(c)
@@ -45,6 +44,15 @@ function cm.initial_effect(c)
 	e6:SetTarget(cm.sptg)
 	e6:SetOperation(cm.spop)
 	c:RegisterEffect(e6)
+	if not cm.global_effect then
+		cm.global_effect=true
+		local ge1=Effect.CreateEffect(c)
+		ge1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+		ge1:SetCode(EVENT_CHAIN_SOLVING)
+		ge1:SetCondition(cm.chcon)
+		ge1:SetOperation(cm.chop)
+		Duel.RegisterEffect(ge1,0)
+	end
 end
 function cm.counterfilter(c)
 	return c:IsLocation(LOCATION_ONFIELD) and c:IsPreviousLocation(LOCATION_ONFIELD)
@@ -81,42 +89,40 @@ function cm.chcon(e,tp,eg,ep,ev,re,r,rp)
 	return rc:IsType(TYPE_PENDULUM) and rc:IsAttribute(ATTRIBUTE_WIND) and re:GetOperation() and re:IsActivated()
 end
 function cm.chop(e,tp,eg,ep,ev,re,r,rp)
-	local c=e:GetHandler()
+	local c=e:GetOwner()
 	local op=re:GetOperation()
 	local e1=Effect.CreateEffect(c)
-	e1:SetType(EFFECT_TYPE_SINGLE)
-	e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
+	e1:SetType(EFFECT_TYPE_FIELD)
+	e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_CANNOT_DISABLE)
 	e1:SetCode(15000810)
-	e1:SetRange(LOCATION_FZONE)
+	e1:SetTargetRange(1,0)
 	e1:SetOperation(op)
 	e1:SetLabelObject(re)
-	e1:SetReset(RESET_CHAIN+RESET_PHASE+PHASE_END)
-	c:RegisterEffect(e1)
+	e1:SetReset(RESET_PHASE+PHASE_END)
+	Duel.RegisterEffect(e1,0)
 	Duel.ChangeChainOperation(ev,cm.repop)
 end
 function cm.selfilter(c)
-	return c:IsCode(15000810) and c:GetEffectCount(15000810)~=0
+	return c:GetEffectCount(15000810)~=0 and not c:IsDisabled()
 end
 function cm.repop(e,tp,eg,ep,ev,re,r,rp)
 	local c=e:GetHandler()
-	local g=Duel.GetMatchingGroup(cm.selfilter,tp,LOCATION_FZONE,LOCATION_FZONE,nil)
+	local se=Duel.IsPlayerAffectedByEffect(0,15000810)
+	if not se then se=Duel.IsPlayerAffectedByEffect(1,15000810) end
 	local op=nil
-	local tc=g:GetFirst()
-	while tc do
-		local ae=tc:IsHasEffect(15000810)
+	if se then
 		local x=1
-		if tc:IsHasEffect(15000810) then
-			for _,i in ipairs{tc:IsHasEffect(15000810)} do
-				if i:GetLabelObject()==e and x~=0 then
-					op=i:GetOperation()
-					i:Reset()
-					x=0
-				end
+		for _,i in ipairs{Duel.IsPlayerAffectedByEffect(0,15000810)} do
+			if i:GetLabelObject()==e and x~=0 then
+				op=i:GetOperation()
+				i:Reset()
+				x=0
 			end
 		end
-		tc=g:GetNext()
 	end
 	if op then op(e,tp,eg,ep,ev,re,r,rp) end
+	local ag=Duel.GetMatchingGroup(cm.selfilter,tp,LOCATION_FZONE,LOCATION_FZONE,nil)
+	if ag:GetCount()==0 then return end
 	local seq=c:GetSequence()
 	if c:IsLocation(LOCATION_MZONE) and c:IsFaceup() and seq<=4 and ((seq>0 and Duel.CheckLocation(tp,LOCATION_MZONE,seq-1)) or (seq<4 and Duel.CheckLocation(tp,LOCATION_MZONE,seq+1))) and Duel.SelectYesNo(tp,aux.Stringid(15000810,0)) then
 		Duel.BreakEffect()