fix

http://yugioh-wiki.net/index.php?%A1%D4%A3%D2%A3%D2%A1%DD%A5%D0%A5%CB%A5%B7%A5%F3%A5%B0%A1%A6%A5%EC%A5%A4%A5%CB%A5%A2%A5%B9%A1%D5
http://yugioh-wiki.net/?%A1%D4%C7%CB%B2%F5%CE%B5%A5%AC%A5%F3%A5%C9%A5%E9%A1%D5

script/c39853199.lua

@@ -32,6 +32,15 @@ function c39853199.initial_effect(c)
 	e3:SetTarget(c39853199.rettg)
 	e3:SetOperation(c39853199.retop)
 	c:RegisterEffect(e3)
+	if not c39853199.global_check then
+		c39853199.global_check=true
+		local ge1=Effect.CreateEffect(c)
+		ge1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+		ge1:SetCode(EVENT_SPSUMMON_SUCCESS)
+		ge1:SetLabel(39853199)
+		ge1:SetOperation(aux.sumreg)
+		Duel.RegisterEffect(ge1,0)
+	end
 end
 function c39853199.destg1(e,tp,eg,ep,ev,re,r,rp,chk)
 	local tc=e:GetHandler():GetBattleTarget()
@@ -61,8 +70,7 @@ function c39853199.desop2(e,tp,eg,ep,ev,re,r,rp)
 	end
 end
 function c39853199.retcon(e,tp,eg,ep,ev,re,r,rp)
-	local c=e:GetHandler()
-	return c:IsStatus(STATUS_SUMMON_TURN) and bit.band(c:GetSummonType(),SUMMON_TYPE_SPECIAL)==SUMMON_TYPE_SPECIAL
+	return e:GetHandler():GetFlagEffect(39853199)~=0
 end
 function c39853199.rettg(e,tp,eg,ep,ev,re,r,rp,chk)
 	if chk==0 then return true end

script/c40737112.lua

@@ -35,20 +35,15 @@ function c40737112.initial_effect(c)
 		local ge1=Effect.CreateEffect(c)
 		ge1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
 		ge1:SetCode(EVENT_SUMMON_SUCCESS)
-		ge1:SetOperation(c40737112.checkop)
+		ge1:SetLabel(40737112)
+		ge1:SetOperation(aux.sumreg)
 		Duel.RegisterEffect(ge1,0)
 		local ge2=ge1:Clone()
 		ge2:SetCode(EVENT_SPSUMMON_SUCCESS)
+		ge2:SetLabel(40737112)
 		Duel.RegisterEffect(ge2,0)
 	end
 end
-function c40737112.checkop(e,tp,eg,ep,ev,re,r,rp)
-	local tc=eg:GetFirst()
-	while tc do
-		tc:RegisterFlagEffect(40737112,RESET_EVENT+0x1ec0000+RESET_PHASE+PHASE_END,0,1)
-		tc=eg:GetNext()
-	end
-end
 function c40737112.thcost(e,tp,eg,ep,ev,re,r,rp,chk)
 	if chk==0 then return e:GetHandler():GetFlagEffect(40737112)~=0 end
 	e:GetHandler():ResetFlagEffect(40737112)

script/c49249907.lua

@@ -20,6 +20,15 @@ function c49249907.initial_effect(c)
 	e2:SetTarget(c49249907.rettg)
 	e2:SetOperation(c49249907.retop)
 	c:RegisterEffect(e2)
+	if not c49249907.global_check then
+		c49249907.global_check=true
+		local ge1=Effect.CreateEffect(c)
+		ge1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+		ge1:SetCode(EVENT_SPSUMMON_SUCCESS)
+		ge1:SetLabel(49249907)
+		ge1:SetOperation(aux.sumreg)
+		Duel.RegisterEffect(ge1,0)
+	end
 end
 function c49249907.filter(c,e,tp)
 	return c:IsSetCard(0xb3) and not c:IsCode(49249907) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
@@ -38,8 +47,7 @@ function c49249907.spop(e,tp,eg,ep,ev,re,r,rp)
 	end
 end
 function c49249907.retcon(e,tp,eg,ep,ev,re,r,rp)
-	local c=e:GetHandler()
-	return c:IsStatus(STATUS_SUMMON_TURN) and bit.band(c:GetSummonType(),SUMMON_TYPE_SPECIAL)==SUMMON_TYPE_SPECIAL
+	return e:GetHandler():GetFlagEffect(49249907)~=0
 end
 function c49249907.rettg(e,tp,eg,ep,ev,re,r,rp,chk)
 	if chk==0 then return true end

script/c53251824.lua

@@ -15,20 +15,15 @@ function c53251824.initial_effect(c)
 		local ge1=Effect.CreateEffect(c)
 		ge1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
 		ge1:SetCode(EVENT_SUMMON_SUCCESS)
-		ge1:SetOperation(c53251824.checkop)
+		ge1:SetLabel(53251824)
+		ge1:SetOperation(aux.sumreg)
 		Duel.RegisterEffect(ge1,0)
 		local ge2=ge1:Clone()
 		ge2:SetCode(EVENT_SPSUMMON_SUCCESS)
+		ge2:SetLabel(53251824)
 		Duel.RegisterEffect(ge2,0)
 	end
 end
-function c53251824.checkop(e,tp,eg,ep,ev,re,r,rp)
-	local tc=eg:GetFirst()
-	while tc do
-		tc:RegisterFlagEffect(53251824,RESET_EVENT+0x1ec0000+RESET_PHASE+PHASE_END,0,1)
-		tc=eg:GetNext()
-	end
-end
 function c53251824.spcon(e,tp,eg,ep,ev,re,r,rp)
 	return e:GetHandler():GetFlagEffect(53251824)>0
 end

script/c60950180.lua

@@ -29,20 +29,15 @@ function c60950180.initial_effect(c)
 		local ge1=Effect.CreateEffect(c)
 		ge1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
 		ge1:SetCode(EVENT_SUMMON_SUCCESS)
-		ge1:SetOperation(c60950180.checkop)
+		ge1:SetLabel(60950180)
+		ge1:SetOperation(aux.sumreg)
 		Duel.RegisterEffect(ge1,0)
 		local ge2=ge1:Clone()
 		ge2:SetCode(EVENT_SPSUMMON_SUCCESS)
+		ge2:SetLabel(60950180)
 		Duel.RegisterEffect(ge2,0)
 	end
 end
-function c60950180.checkop(e,tp,eg,ep,ev,re,r,rp)
-	local tc=eg:GetFirst()
-	while tc do
-		tc:RegisterFlagEffect(60950180,RESET_EVENT+0x1fc0000+RESET_PHASE+PHASE_END,0,1)
-		tc=eg:GetNext()
-	end
-end
 function c60950180.poscon(e,tp,eg,ep,ev,re,r,rp)
 	return e:GetHandler():GetFlagEffect(60950180)>0
 end

script/c64681432.lua

@@ -67,7 +67,7 @@ function c64681432.tgreg1(e,tp,eg,ep,ev,re,r,rp)
 	e:GetHandler():RegisterFlagEffect(64681432,RESET_EVENT+0x1ec0000+RESET_PHASE+PHASE_END,0,1)
 end
 function c64681432.tgreg2(e,tp,eg,ep,ev,re,r,rp)
-	e:GetHandler():RegisterFlagEffect(64681432,RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END,0,1)
+	e:GetHandler():RegisterFlagEffect(64681432,RESET_EVENT+0x1fc0000+RESET_PHASE+PHASE_END,0,1)
 end
 function c64681432.tgcon(e,tp,eg,ep,ev,re,r,rp)
 	return e:GetHandler():GetFlagEffect(64681432)~=0

script/c83236601.lua

@@ -32,20 +32,15 @@ function c83236601.initial_effect(c)
 		local ge1=Effect.CreateEffect(c)
 		ge1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
 		ge1:SetCode(EVENT_SUMMON_SUCCESS)
-		ge1:SetOperation(c83236601.checkop)
+		ge1:SetLabel(83236602)
+		ge1:SetOperation(aux.sumreg)
 		Duel.RegisterEffect(ge1,0)
 		local ge2=ge1:Clone()
 		ge2:SetCode(EVENT_SPSUMMON_SUCCESS)
+		ge2:SetLabel(83236602)
 		Duel.RegisterEffect(ge2,0)
 	end
 end
-function c83236601.checkop(e,tp,eg,ep,ev,re,r,rp)
-	local tc=eg:GetFirst()
-	while tc do
-		tc:RegisterFlagEffect(83236601,RESET_EVENT+0x1ec0000+RESET_PHASE+PHASE_END,0,1)
-		tc=eg:GetNext()
-	end
-end
 function c83236601.tgcon(e,tp,eg,ep,ev,re,r,rp)
 	return e:GetHandler():GetFlagEffect(83236601)>0
 end

script/c93368494.lua

@@ -55,6 +55,15 @@ function c93368494.initial_effect(c)
 	e7:SetTarget(c93368494.rettg)
 	e7:SetOperation(c93368494.retop)
 	c:RegisterEffect(e7)
+	if not c93368494.global_check then
+		c93368494.global_check=true
+		local ge1=Effect.CreateEffect(c)
+		ge1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+		ge1:SetCode(EVENT_SPSUMMON_SUCCESS)
+		ge1:SetLabel(93368494)
+		ge1:SetOperation(aux.sumreg)
+		Duel.RegisterEffect(ge1,0)
+	end
 end
 function c93368494.atkcon(e,tp,eg,ep,ev,re,r,rp)
 	local at=Duel.GetAttacker()
@@ -89,8 +98,7 @@ function c93368494.thop(e,tp,eg,ep,ev,re,r,rp)
 	end
 end
 function c93368494.retcon(e,tp,eg,ep,ev,re,r,rp)
-	local c=e:GetHandler()
-	return c:IsStatus(STATUS_SUMMON_TURN) and bit.band(c:GetSummonType(),SUMMON_TYPE_SPECIAL)==SUMMON_TYPE_SPECIAL
+	return e:GetHandler():GetFlagEffect(93368494)~=0
 end
 function c93368494.rettg(e,tp,eg,ep,ev,re,r,rp,chk)
 	if chk==0 then return true end

script/c96345188.lua

@@ -25,20 +25,15 @@ function c96345188.initial_effect(c)
 		local ge1=Effect.CreateEffect(c)
 		ge1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
 		ge1:SetCode(EVENT_SUMMON_SUCCESS)
-		ge1:SetOperation(c96345188.checkop)
+		ge1:SetOperation(aux.sumreg)
+		ge1:SetLabel(96345188)
 		Duel.RegisterEffect(ge1,0)
 		local ge2=ge1:Clone()
 		ge2:SetCode(EVENT_SPSUMMON_SUCCESS)
+		ge2:SetLabel(96345188)
 		Duel.RegisterEffect(ge2,0)
 	end
 end
-function c96345188.checkop(e,tp,eg,ep,ev,re,r,rp)
-	local tc=eg:GetFirst()
-	while tc do
-		tc:RegisterFlagEffect(96345188,RESET_EVENT+0x1fc0000+RESET_PHASE+PHASE_END,0,1)
-		tc=eg:GetNext()
-	end
-end
 function c96345188.lvcon(e,tp,eg,ep,ev,re,r,rp)
 	return e:GetHandler():GetFlagEffect(96345188)>0
 end

script/utility.lua

@@ -1163,3 +1163,14 @@ end
 function Auxiliary.nzdef(c)
 	return c:IsFaceup() and c:GetDefence()>0
 end
+--flag effect for summon/sp_summon turn
+function Auxiliary.sumreg(e,tp,eg,ep,ev,re,r,rp)
+	local tc=eg:GetFirst()
+	local code=e:GetLabel()
+	while tc do
+		if tc:GetOriginalCode()==code then 
+			tc:RegisterFlagEffect(code,RESET_EVENT+0x1ec0000+RESET_PHASE+PHASE_END,0,1) 
+		end
+		tc=eg:GetNext()
+	end
+end