update

expansions/script/c77765041.lua

@@ -8,10 +8,25 @@ function cm.initial_effect(c)
 	e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
 	e2:SetCode(EVENT_DAMAGE)
 	e2:SetRange(LOCATION_SZONE)
+	e2:SetProperty(EFFECT_FLAG_DELAY)
 	e2:SetCondition(cm.con)
 	e2:SetOperation(cm.op)
 	c:RegisterEffect(e2)
 	local e2=Effect.CreateEffect(c)
+	e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+	e2:SetCode(EVENT_DAMAGE)
+	e2:SetRange(LOCATION_SZONE)
+	e2:SetCondition(cm.regcon)
+	e2:SetOperation(cm.regop)
+	c:RegisterEffect(e2)
+	local e2=Effect.CreateEffect(c)
+	e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+	e2:SetCode(EVENT_DAMAGE)
+	e2:SetRange(LOCATION_SZONE)
+	e2:SetCondition(cm.con2)
+	e2:SetOperation(cm.op2)
+	c:RegisterEffect(e2)
+	local e2=Effect.CreateEffect(c)
 	e2:SetDescription(aux.Stringid(m,0))
 	e2:SetCategory(CATEGORY_DISABLE)
 	e2:SetType(EFFECT_TYPE_IGNITION)
@@ -21,13 +36,49 @@ function cm.initial_effect(c)
 	e2:SetTarget(cm.negtg)
 	e2:SetOperation(cm.negop)
 	c:RegisterEffect(e2)
+	if not cm.global_check then
+		cm.global_check=true
+		local ge1=Effect.CreateEffect(c)
+		ge1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+		ge1:SetCode(EVENT_CHAIN_SOLVING)
+		ge1:SetOperation(cm.count)
+		Duel.RegisterEffect(ge1,0)
+		local ge2=Effect.CreateEffect(c)
+		ge2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+		ge2:SetCode(EVENT_CHAIN_SOLVED)
+		ge2:SetOperation(cm.reset)
+		Duel.RegisterEffect(ge2,0)
+	end
+end
+function cm.count(e,tp,eg,ep,ev,re,r,rp)
+	cm.chain_solving=true
+end
+function cm.reset(e,tp,eg,ep,ev,re,r,rp)
+	cm.chain_solving=false
 end
 function cm.con(e,tp,eg,ep,ev,re,r,rp)
-	return ep~=tp
+	return ep~=tp and not cm.chain_solving
 end
 function cm.op(e,tp,eg,ep,ev,re,r,rp)
 	Duel.Recover(tp,ev,REASON_EFFECT)
 end
+function cm.regcon(e,tp,eg,ep,ev,re,r,rp)
+	return ep~=tp and cm.chain_solving
+end
+function cm.regop(e,tp,eg,ep,ev,re,r,rp)
+	local ct=ev
+	e:GetHandler():RegisterFlagEffect(m,RESET_EVENT+RESETS_STANDARD+RESET_CHAIN,0,1,ct)
+end
+function cm.con2(e,tp,eg,ep,ev,re,r,rp)
+	return e:GetHandler():GetFlagEffect(m)>0
+end
+function cm.op2(e,tp,eg,ep,ev,re,r,rp)
+	local labels={e:GetHandler():GetFlagEffectLabel(m)}
+	local ct=0
+	for i=1,#labels do ct=ct+labels[i] end
+	e:GetHandler():ResetFlagEffect(m)
+	Duel.Recover(tp,ct,REASON_EFFECT)
+end
 function cm.negtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
 	if chkc then return chkc:IsLocation(LOCATION_SZONE) and aux.disfilter1(chkc) end
 	if chk==0 then return Duel.IsExistingTarget(aux.disfilter1,tp,LOCATION_SZONE,LOCATION_SZONE,1,nil) end