fix

http://yugioh-wiki.net/index.php?cmd=read&page=%A1%D4%A5%D0%A5%D9%A5%EB%A1%A6%A5%BF%A5%EF%A1%BC%A1%D5&word=%A5%D0%A5%D9%A5%EB%A1%A6%A5%BF%A5%EF%A1%BC

Ｑ：このカードの発動にチェーンして魔法カードを発動した場合、魔力カウンターは乗りますか？
Ａ：乗りません。(13/03/22)

http://yugioh-wiki.net/index.php?%A1%D4%B0%C5%B9%F5%A4%CE%BC%F6%C7%FB%A1%D5=

Ｑ：魔法カードの発動にチェーンしてこのカードを発動した場合、ダメージは与えられますか？
Ａ：与えられません。(13/03/22)

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)