Merge pull request #1084 from sidschingis/patch-1

fix chaining

script/c48276469.lua

@@ -5,6 +5,7 @@ function c48276469.initial_effect(c)
 	e1:SetType(EFFECT_TYPE_ACTIVATE)
 	e1:SetCode(EVENT_FREE_CHAIN)
 	e1:SetHintTiming(0,TIMING_DRAW_PHASE)
+	e1:SetOperation(c48276469.regop)
 	c:RegisterEffect(e1)
 	--damage
 	local e2=Effect.CreateEffect(c)
@@ -14,9 +15,13 @@ function c48276469.initial_effect(c)
 	e2:SetOperation(c48276469.damop)
 	c:RegisterEffect(e2)
 end
+function c48276469.regop(e,tp,eg,ep,ev,re,r,rp)
+	e:GetHandler():RegisterFlagEffect(48276469,RESET_CHAIN,0,1)
+end
 function c48276469.damop(e,tp,eg,ep,ev,re,r,rp)
 	local c=re:GetHandler()
-	if re:IsHasType(EFFECT_TYPE_ACTIVATE) and re:IsActiveType(TYPE_TRAP) and c~=e:GetHandler() then
+	if re:IsHasType(EFFECT_TYPE_ACTIVATE) and re:IsActiveType(TYPE_TRAP) and c~=e:GetHandler() 
+	and e:GetHandler():GetFlagEffect(48276469)==0 then
 		Duel.Damage(rp,1000,REASON_EFFECT)
 	end
 end

script/c84970821.lua

@@ -5,6 +5,7 @@ function c84970821.initial_effect(c)
 	e1:SetType(EFFECT_TYPE_ACTIVATE)
 	e1:SetCode(EVENT_FREE_CHAIN)
 	e1:SetHintTiming(0,TIMING_DRAW_PHASE)
+	e1:SetOperation(c84970821.regop)
 	c:RegisterEffect(e1)
 	--damage
 	local e2=Effect.CreateEffect(c)
@@ -14,9 +15,13 @@ function c84970821.initial_effect(c)
 	e2:SetOperation(c84970821.damop)
 	c:RegisterEffect(e2)
 end
+function c84970821.regop(e,tp,eg,ep,ev,re,r,rp)
+	e:GetHandler():RegisterFlagEffect(84970821,RESET_CHAIN,0,1)
+end
 function c84970821.damop(e,tp,eg,ep,ev,re,r,rp)
 	local c=re:GetHandler()
-	if re:IsHasType(EFFECT_TYPE_ACTIVATE) and re:IsActiveType(TYPE_SPELL) and c~=e:GetHandler() then
+	if re:IsHasType(EFFECT_TYPE_ACTIVATE) and re:IsActiveType(TYPE_SPELL) and c~=e:GetHandler() 
+	and e:GetHandler():GetFlagEffect(84970821)==0 then
 		Duel.Damage(rp,1000,REASON_EFFECT)
 	end
 end

script/c94256039.lua

@@ -5,6 +5,7 @@ function c94256039.initial_effect(c)
 	local e1=Effect.CreateEffect(c)
 	e1:SetType(EFFECT_TYPE_ACTIVATE)
 	e1:SetCode(EVENT_FREE_CHAIN)
+	e1:SetOperation(c94256039.regop)
 	c:RegisterEffect(e1)
 	--add counter
 	local e2=Effect.CreateEffect(c)
@@ -24,10 +25,13 @@ function c94256039.initial_effect(c)
 	e3:SetOperation(c94256039.damop)
 	c:RegisterEffect(e3)
 end
+function c94256039.regop(e,tp,eg,ep,ev,re,r,rp)
+	e:GetHandler():RegisterFlagEffect(94256039,RESET_CHAIN,0,1)
+end
 function c94256039.acop(e,tp,eg,ep,ev,re,r,rp)
 	local p=Duel.GetChainInfo(ev,CHAININFO_TRIGGERING_PLAYER)
 	local c=e:GetHandler()
-	if re:IsHasType(EFFECT_TYPE_ACTIVATE) and re:IsActiveType(TYPE_SPELL) then
+	if re:IsHasType(EFFECT_TYPE_ACTIVATE) and re:IsActiveType(TYPE_SPELL) and c:GetFlagEffect(94256039)==0 then
 		c:AddCounter(0x3001,1)
 		if c:GetCounter(0x3001)==4 then
 			Duel.RaiseSingleEvent(c,94256039,re,0,0,p,0)