eme

expansions/script/c12800000.lua

@@ -166,12 +166,12 @@ function cm.initial_effect(c)
 		e:GetHandler():RemoveOverlayCard(tp,4,4,REASON_COST)
 	end)
 	e20:SetTarget(function(e,tp,eg,ep,ev,re,r,rp,chk)
-		if chk==0 then return Duel.IsExistingMatchingCard(nil,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) end
-		local g=Duel.GetMatchingGroup(nil,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,nil)
+		if chk==0 then return Duel.IsExistingMatchingCard(nil,tp,0,LOCATION_ONFIELD,1,nil) end
+		local g=Duel.GetMatchingGroup(nil,tp,0,LOCATION_ONFIELD,nil)
 		Duel.SetOperationInfo(0,CATEGORY_REMOVE,g,1,0,0)
 	end)
 	e20:SetOperation(function(e,tp,eg,ep,ev,re,r,rp)
-		local g=Duel.GetMatchingGroup(nil,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,nil)
+		local g=Duel.GetMatchingGroup(nil,tp,0,LOCATION_ONFIELD,nil)
 		if g:GetCount()>0 then
 			Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
 			local sg=g:Select(tp,1,1,nil)

expansions/script/c66915004.lua

@@ -23,7 +23,7 @@ function c66915004.initial_effect(c)
 	e55:SetTargetRange(LOCATION_MZONE,0)
 	e55:SetTarget(c66915004.eftg)
 	e55:SetLabelObject(e22)
-	c:RegisterEffect(e555)
+	c:RegisterEffect(e55)
 	--spsummon limit
 	local e2=Effect.CreateEffect(c)
 	e2:SetType(EFFECT_TYPE_FIELD)

expansions/script/c86580114.lua

@@ -11,7 +11,7 @@ function cm.initial_effect(c)
 	e1:SetProperty(EFFECT_FLAG_DELAY)
 	e1:SetCountLimit(1,m-13)
 	e1:SetTarget(function(e,tp,eg,ep,ev,re,r,rp,chk)
-		local g=cm[tp]
+		local g=Duel.GetFlagEffect(tp,m)
 		if chk==0 then return g<=3 and Duel.IsPlayerCanDraw(tp,2) end
 		Duel.SetTargetPlayer(tp)
 		Duel.SetTargetParam(2)
@@ -29,7 +29,7 @@ function cm.initial_effect(c)
 	e1:SetProperty(EFFECT_FLAG_DELAY)
 	e1:SetCountLimit(1,m)
 	e1:SetTarget(function(e,tp,eg,ep,ev,re,r,rp,chk)
-		local g=cm[tp]
+		local g=Duel.GetFlagEffect(tp,m)
 		if chk==0 then return g>=4 and Duel.GetLocationCount(tp,LOCATION_MZONE)>1
 			and Duel.IsExistingMatchingCard(cm.t1,tp,LOCATION_GRAVE,0,1,nil,e,tp) end
 		Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,0,0)
@@ -44,39 +44,23 @@ function cm.initial_effect(c)
 	end)
 	c:RegisterEffect(e1)
 
-	if cm.counter==nil then
-		cm.counter=true
-		cm[0]=0
-		cm[1]=0
-		local e2=Effect.CreateEffect(c)
-		e2:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_FIELD)
-		e2:SetCode(EVENT_PHASE_START+PHASE_DRAW)
-		e2:SetOperation(function(e,tp,eg,ep,ev,re,r,rp)
-			cm[0]=0
-			cm[1]=0
-		end)
-		Duel.RegisterEffect(e2,0)
-		local e3=Effect.CreateEffect(c)
-		e3:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_FIELD)
-		e3:SetCode(EVENT_SUMMON_SUCCESS)
-		e3:SetOperation(cm.addcount)
-		Duel.RegisterEffect(e3,0)
-		local e4=Effect.CreateEffect(c)
-		e4:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_FIELD)
-		e4:SetCode(EVENT_SPSUMMON_SUCCESS)
-		e4:SetOperation(cm.addcount)
-		Duel.RegisterEffect(e4,0)
-	end
-end
-function cm.addcount(e,tp,eg,ep,ev,re,r,rp)
+	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_SUMMON_SUCCESS)
+		ge1:SetOperation(function(e,tp,eg,ep,ev,re,r,rp)
 			local tc=eg:GetFirst()
 			while tc do
-		if tc:GetPreviousControler()==tp then
-			local p=tc:GetPreviousControler()
-			cm[p]=cm[p]+1
-		end
+				Duel.RegisterFlagEffect(tc:GetSummonPlayer(),m,RESET_PHASE+PHASE_END,0,1)
 				tc=eg:GetNext()
 			end
+		end)
+		Duel.RegisterEffect(ge1,0)
+		local ge2=ge1:Clone()
+		ge2:SetCode(EVENT_SPSUMMON_SUCCESS)
+		Duel.RegisterEffect(ge2,0)
+	end
 end
 function cm.t1(c,e,tp)
 	return c:IsSetCard(0x3653) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)

expansions/script/c86580115.lua

@@ -14,7 +14,7 @@ function cm.initial_effect(c)
 		if chk==0 then return true end
 		local g=Duel.GetMatchingGroup(nil,tp,0,LOCATION_MZONE,nil)
 		Duel.SetOperationInfo(0,CATEGORY_DISABLE,g,g:GetCount(),0,0)
-		local g=cm[tp]
+		local g=Duel.GetFlagEffect(tp,m)
 		e:SetLabel(g)
 	end)
 	e1:SetOperation(function(e,tp,eg,ep,ev,re,r,rp)
@@ -73,37 +73,21 @@ function cm.initial_effect(c)
 	end)
 	c:RegisterEffect(e2)
 
-	if cm.counter==nil then
-		cm.counter=true
-		cm[0]=0
-		cm[1]=0
-		local e2=Effect.CreateEffect(c)
-		e2:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_FIELD)
-		e2:SetCode(EVENT_PHASE_START+PHASE_DRAW)
-		e2:SetOperation(function(e,tp,eg,ep,ev,re,r,rp)
-			cm[0]=0
-			cm[1]=0
-		end)
-		Duel.RegisterEffect(e2,0)
-		local e3=Effect.CreateEffect(c)
-		e3:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_FIELD)
-		e3:SetCode(EVENT_SUMMON_SUCCESS)
-		e3:SetOperation(cm.addcount)
-		Duel.RegisterEffect(e3,0)
-		local e4=Effect.CreateEffect(c)
-		e4:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_FIELD)
-		e4:SetCode(EVENT_SPSUMMON_SUCCESS)
-		e4:SetOperation(cm.addcount)
-		Duel.RegisterEffect(e4,0)
-	end
-end
-function cm.addcount(e,tp,eg,ep,ev,re,r,rp)
+	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_SUMMON_SUCCESS)
+		ge1:SetOperation(function(e,tp,eg,ep,ev,re,r,rp)
 			local tc=eg:GetFirst()
 			while tc do
-		if tc:GetPreviousControler()==tp then
-			local p=tc:GetPreviousControler()
-			cm[p]=cm[p]+1
-		end
+				Duel.RegisterFlagEffect(tc:GetSummonPlayer(),m,RESET_PHASE+PHASE_END,0,1)
 				tc=eg:GetNext()
 			end
+		end)
+		Duel.RegisterEffect(ge1,0)
+		local ge2=ge1:Clone()
+		ge2:SetCode(EVENT_SPSUMMON_SUCCESS)
+		Duel.RegisterEffect(ge2,0)
+	end
 end
\ No newline at end of file

expansions/script/c86580116.lua

@@ -13,7 +13,7 @@ function cm.initial_effect(c)
 		local sg=Duel.GetMatchingGroup(Card.IsType,tp,0,LOCATION_ONFIELD,nil,TYPE_SPELL+TYPE_TRAP)
 		Duel.SetOperationInfo(0,CATEGORY_DESTROY,sg,sg:GetCount(),0,0)
 		Duel.SetChainLimit(function(e,ep,tp)return tp==ep or not c:IsType(TYPE_SPELL+TYPE_TRAP) end)
-		local c=cm[tp]
+		local c=Duel.GetFlagEffect(tp,m)
 		if c>=3 then
 			e:SetCategory(CATEGORY_DAMAGE)
 			e:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
@@ -33,37 +33,21 @@ function cm.initial_effect(c)
 	end)
 	c:RegisterEffect(e1)
 
-	if cm.counter==nil then
-		cm.counter=true
-		cm[0]=0
-		cm[1]=0
-		local e2=Effect.CreateEffect(c)
-		e2:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_FIELD)
-		e2:SetCode(EVENT_PHASE_START+PHASE_DRAW)
-		e2:SetOperation(function(e,tp,eg,ep,ev,re,r,rp)
-			cm[0]=0
-			cm[1]=0
-		end)
-		Duel.RegisterEffect(e2,0)
-		local e3=Effect.CreateEffect(c)
-		e3:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_FIELD)
-		e3:SetCode(EVENT_SUMMON_SUCCESS)
-		e3:SetOperation(cm.addcount)
-		Duel.RegisterEffect(e3,0)
-		local e4=Effect.CreateEffect(c)
-		e4:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_FIELD)
-		e4:SetCode(EVENT_SPSUMMON_SUCCESS)
-		e4:SetOperation(cm.addcount)
-		Duel.RegisterEffect(e4,0)
-	end
-end
-function cm.addcount(e,tp,eg,ep,ev,re,r,rp)
+	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_SUMMON_SUCCESS)
+		ge1:SetOperation(function(e,tp,eg,ep,ev,re,r,rp)
 			local tc=eg:GetFirst()
 			while tc do
-		if tc:GetPreviousControler()==tp then
-			local p=tc:GetPreviousControler()
-			cm[p]=cm[p]+1
-		end
+				Duel.RegisterFlagEffect(tc:GetSummonPlayer(),m,RESET_PHASE+PHASE_END,0,1)
 				tc=eg:GetNext()
 			end
+		end)
+		Duel.RegisterEffect(ge1,0)
+		local ge2=ge1:Clone()
+		ge2:SetCode(EVENT_SPSUMMON_SUCCESS)
+		Duel.RegisterEffect(ge2,0)
+	end
 end
\ No newline at end of file

expansions/script/c86580117.lua

@@ -9,8 +9,7 @@ function cm.initial_effect(c)
 	e1:SetCode(EVENT_SPSUMMON_SUCCESS)
 	e1:SetProperty(EFFECT_FLAG_DELAY)
 	e1:SetTarget(function(e,tp,eg,ep,ev,re,r,rp,chk)
-		local c=cm[tp]
-		if chk==0 then return c>=2 end
+		if chk==0 then return Duel.GetFlagEffect(tp,m)>=2 end
 	end)
 	e1:SetOperation(function(e,tp,eg,ep,ev,re,r,rp)
 		local c=e:GetHandler()
@@ -52,37 +51,22 @@ function cm.initial_effect(c)
 	e8:SetValue(aux.tgoval)
 	e8:SetRange(LOCATION_MZONE)
 	c:RegisterEffect(e8)
-	if cm.counter==nil then
-		cm.counter=true
-		cm[0]=0
-		cm[1]=0
-		local e2=Effect.CreateEffect(c)
-		e2:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_FIELD)
-		e2:SetCode(EVENT_PHASE_START+PHASE_DRAW)
-		e2:SetOperation(function(e,tp,eg,ep,ev,re,r,rp)
-			cm[0]=0
-			cm[1]=0
-		end)
-		Duel.RegisterEffect(e2,0)
-		local e3=Effect.CreateEffect(c)
-		e3:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_FIELD)
-		e3:SetCode(EVENT_SUMMON_SUCCESS)
-		e3:SetOperation(cm.addcount)
-		Duel.RegisterEffect(e3,0)
-		local e4=Effect.CreateEffect(c)
-		e4:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_FIELD)
-		e4:SetCode(EVENT_SPSUMMON_SUCCESS)
-		e4:SetOperation(cm.addcount)
-		Duel.RegisterEffect(e4,0)
-	end
-end
-function cm.addcount(e,tp,eg,ep,ev,re,r,rp)
+
+	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_SUMMON_SUCCESS)
+		ge1:SetOperation(function(e,tp,eg,ep,ev,re,r,rp)
 			local tc=eg:GetFirst()
 			while tc do
-		if tc:GetPreviousControler()==tp then
-			local p=tc:GetPreviousControler()
-			cm[p]=cm[p]+1
-		end
+				Duel.RegisterFlagEffect(tc:GetSummonPlayer(),m,RESET_PHASE+PHASE_END,0,1)
 				tc=eg:GetNext()
 			end
+		end)
+		Duel.RegisterEffect(ge1,0)
+		local ge2=ge1:Clone()
+		ge2:SetCode(EVENT_SPSUMMON_SUCCESS)
+		Duel.RegisterEffect(ge2,0)
+	end
 end
\ No newline at end of file

expansions/script/c86580118.lua

@@ -13,25 +13,25 @@ function cm.initial_effect(c)
 	e4:SetCode(EFFECT_CHANGE_BATTLE_DAMAGE)
 	e4:SetValue(aux.ChangeBattleDamage(1,DOUBLE_DAMAGE))
 	c:RegisterEffect(e4)
-	local e4=Effect.CreateEffect(c)
-	e4:SetType(EFFECT_TYPE_SINGLE)
-	e4:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
-	e4:SetCode(EFFECT_IMMUNE_EFFECT)
-	e4:SetRange(LOCATION_MZONE)
-	e4:SetValue(function(e,re)
+
+	local e5=Effect.CreateEffect(c)
+	e5:SetType(EFFECT_TYPE_SINGLE)
+	e5:SetCode(EFFECT_IMMUNE_EFFECT)
+	e5:SetRange(LOCATION_MZONE)
+	e5:SetValue(function(e,re)
 		return e:GetOwnerPlayer()~=re:GetOwnerPlayer()
 	end)
-	e4:SetOwnerPlayer(tp)
-	e4:SetCondition(function(e)
-		return c:GetFlagEffect(m)==0
+	e5:SetCondition(function(e)
+		return e:GetHandler():GetFlagEffect(m)==0
 	end)
-	c:RegisterEffect(e4)
-	local e2=Effect.CreateEffect(c)
-	e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
-	e2:SetCode(EVENT_BATTLE_DESTROYING)
-	e2:SetCondition(aux.bdocon)
-	e2:SetOperation(function(e,tp,eg,ep,ev,re,r,rp)
+	c:RegisterEffect(e5)
+
+	local e6=Effect.CreateEffect(c)
+	e6:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
+	e6:SetCode(EVENT_BATTLE_DESTROYING)
+	e6:SetCondition(aux.bdocon)
+	e6:SetOperation(function(e,tp,eg,ep,ev,re,r,rp)
 		e:GetHandler():RegisterFlagEffect(m,RESETS_STANDARD,0,1)
 	end)
-	c:RegisterEffect(e2)
+	c:RegisterEffect(e6)
 end

expansions/script/c86580119.lua

@@ -5,15 +5,22 @@ function cm.initial_effect(c)
 	aux.AddSynchroProcedure(c,nil,aux.NonTuner(nil),1)
 	c:EnableReviveLimit()
 	local e1=Effect.CreateEffect(c)
-	e1:SetType(EFFECT_TYPE_SINGLE)
-	e1:SetCode(EFFECT_IMMUNE_EFFECT)
-	e1:SetCondition(function(e,tp,eg,ep,ev,re,r,rp)
-		return e:GetHandler():IsSummonType(SUMMON_TYPE_SYNCHRO) and e:GetLabel()==1
-	end)
-	e1:SetValue(function(e,re)
+	e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
+	e1:SetCode(EVENT_SPSUMMON_SUCCESS)
+	e1:SetOperation(function(e,tp,eg,ep,ev,re,r,rp)
+		local c=e:GetHandler()
+		if e:GetLabel()==1 then
+			local e4=Effect.CreateEffect(c)
+			e4:SetType(EFFECT_TYPE_SINGLE)
+			e4:SetCode(EFFECT_IMMUNE_EFFECT)
+			e4:SetValue(function(e,re)
 				return e:GetOwnerPlayer()~=re:GetOwnerPlayer()
 			end)
-	e1:SetOwnerPlayer(tp)
+			e4:SetOwnerPlayer(tp)
+			e4:SetReset(RESET_EVENT+RESETS_STANDARD)
+			c:RegisterEffect(e4)
+		end
+	end)
 	c:RegisterEffect(e1)
 	local e2=Effect.CreateEffect(c)
 	e2:SetType(EFFECT_TYPE_SINGLE)

expansions/script/c86580120.lua

@@ -7,7 +7,7 @@ function cm.initial_effect(c)
 	e1:SetCode(EVENT_FREE_CHAIN)
 	e1:SetCountLimit(1,m)
 	e1:SetTarget(function(e,tp,eg,ep,ev,re,r,rp,chk)
-		local g=cm[tp]
+		local g=Duel.GetFlagEffect(tp,m)
 		if chk==0 then
 			if g<=1 then
 				return Duel.IsExistingMatchingCard(cm.t1,tp,LOCATION_HAND+LOCATION_DECK,0,1,nil,e,tp) and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 
@@ -64,39 +64,23 @@ function cm.initial_effect(c)
 	end)
 	c:RegisterEffect(e1)
 
-	if cm.counter==nil then
-		cm.counter=true
-		cm[0]=0
-		cm[1]=0
-		local e2=Effect.CreateEffect(c)
-		e2:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_FIELD)
-		e2:SetCode(EVENT_PHASE_START+PHASE_DRAW)
-		e2:SetOperation(function(e,tp,eg,ep,ev,re,r,rp)
-			cm[0]=0
-			cm[1]=0
-		end)
-		Duel.RegisterEffect(e2,0)
-		local e3=Effect.CreateEffect(c)
-		e3:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_FIELD)
-		e3:SetCode(EVENT_SUMMON_SUCCESS)
-		e3:SetOperation(cm.addcount)
-		Duel.RegisterEffect(e3,0)
-		local e4=Effect.CreateEffect(c)
-		e4:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_FIELD)
-		e4:SetCode(EVENT_SPSUMMON_SUCCESS)
-		e4:SetOperation(cm.addcount)
-		Duel.RegisterEffect(e4,0)
-	end
-end
-function cm.addcount(e,tp,eg,ep,ev,re,r,rp)
+	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_SUMMON_SUCCESS)
+		ge1:SetOperation(function(e,tp,eg,ep,ev,re,r,rp)
 			local tc=eg:GetFirst()
 			while tc do
-		if tc:GetPreviousControler()==tp then
-			local p=tc:GetPreviousControler()
-			cm[p]=cm[p]+1
-		end
+				Duel.RegisterFlagEffect(tc:GetSummonPlayer(),m,RESET_PHASE+PHASE_END,0,1)
 				tc=eg:GetNext()
 			end
+		end)
+		Duel.RegisterEffect(ge1,0)
+		local ge2=ge1:Clone()
+		ge2:SetCode(EVENT_SPSUMMON_SUCCESS)
+		Duel.RegisterEffect(ge2,0)
+	end
 end
 function cm.t1(c,e,tp)
 	return c:IsSetCard(0x3653) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)

expansions/script/c86580121.lua

@@ -7,7 +7,7 @@ function cm.initial_effect(c)
 	e1:SetCode(EVENT_FREE_CHAIN)
 	e1:SetCountLimit(1,m)
 	e1:SetTarget(function(e,tp,eg,ep,ev,re,r,rp,chk)
-		local g=cm[tp]
+		local g=Duel.GetFlagEffect(tp,m)
 		if chk==0 then
 			if g<=2 then
 				return Duel.IsExistingMatchingCard(cm.t1,tp,LOCATION_GRAVE,0,1,nil,e,tp) and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 
@@ -69,39 +69,23 @@ function cm.initial_effect(c)
 	end)
 	c:RegisterEffect(e1)
 
-	if cm.counter==nil then
-		cm.counter=true
-		cm[0]=0
-		cm[1]=0
-		local e2=Effect.CreateEffect(c)
-		e2:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_FIELD)
-		e2:SetCode(EVENT_PHASE_START+PHASE_DRAW)
-		e2:SetOperation(function(e,tp,eg,ep,ev,re,r,rp)
-			cm[0]=0
-			cm[1]=0
-		end)
-		Duel.RegisterEffect(e2,0)
-		local e3=Effect.CreateEffect(c)
-		e3:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_FIELD)
-		e3:SetCode(EVENT_SUMMON_SUCCESS)
-		e3:SetOperation(cm.addcount)
-		Duel.RegisterEffect(e3,0)
-		local e4=Effect.CreateEffect(c)
-		e4:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_FIELD)
-		e4:SetCode(EVENT_SPSUMMON_SUCCESS)
-		e4:SetOperation(cm.addcount)
-		Duel.RegisterEffect(e4,0)
-	end
-end
-function cm.addcount(e,tp,eg,ep,ev,re,r,rp)
+	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_SUMMON_SUCCESS)
+		ge1:SetOperation(function(e,tp,eg,ep,ev,re,r,rp)
 			local tc=eg:GetFirst()
 			while tc do
-		if tc:GetPreviousControler()==tp then
-			local p=tc:GetPreviousControler()
-			cm[p]=cm[p]+1
-		end
+				Duel.RegisterFlagEffect(tc:GetSummonPlayer(),m,RESET_PHASE+PHASE_END,0,1)
 				tc=eg:GetNext()
 			end
+		end)
+		Duel.RegisterEffect(ge1,0)
+		local ge2=ge1:Clone()
+		ge2:SetCode(EVENT_SPSUMMON_SUCCESS)
+		Duel.RegisterEffect(ge2,0)
+	end
 end
 
 function cm.t1(c,e,tp)

expansions/script/c86580122.lua

@@ -7,18 +7,19 @@ function cm.initial_effect(c)
 	e1:SetCode(EVENT_FREE_CHAIN)
 	e1:SetCountLimit(1,m)
 	e1:SetTarget(function(e,tp,eg,ep,ev,re,r,rp,chk)
+		local b=Duel.GetFlagEffect(tp,m)
 		if chk==0 then
-			if cm[tp]<=4 then
+			if b<=4 then
 				return Duel.IsExistingMatchingCard(cm.t1,tp,LOCATION_HAND+LOCATION_DECK,0,1,nil,e,tp) and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 
-			elseif cm[tp]>=5 then
+			elseif b>=5 then
 				return Duel.IsExistingMatchingCard(cm.t2,tp,LOCATION_HAND,0,1,nil)
 			end
 		end
-		if cm[tp]<=4 then
+		if b<=4 then
 			e:SetCategory(CATEGORY_SPECIAL_SUMMON)
 			Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND+LOCATION_DECK)
 		end
-		e:SetLabel(cm[tp])
+		e:SetLabel(b)
 	end)
 	e1:SetOperation(function(e,tp,eg,ep,ev,re,r,rp)
 		local c=e:GetHandler()
@@ -62,39 +63,23 @@ function cm.initial_effect(c)
 	end)
 	c:RegisterEffect(e1)
 
-	if cm.counter==nil then
-		cm.counter=true
-		cm[0]=0
-		cm[1]=0
-		local e2=Effect.CreateEffect(c)
-		e2:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_FIELD)
-		e2:SetCode(EVENT_PHASE_START+PHASE_DRAW)
-		e2:SetOperation(function(e,tp,eg,ep,ev,re,r,rp)
-			cm[0]=0
-			cm[1]=0
-		end)
-		Duel.RegisterEffect(e2,0)
-		local e3=Effect.CreateEffect(c)
-		e3:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_FIELD)
-		e3:SetCode(EVENT_SUMMON_SUCCESS)
-		e3:SetOperation(cm.addcount)
-		Duel.RegisterEffect(e3,0)
-		local e4=Effect.CreateEffect(c)
-		e4:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_FIELD)
-		e4:SetCode(EVENT_SPSUMMON_SUCCESS)
-		e4:SetOperation(cm.addcount)
-		Duel.RegisterEffect(e4,0)
-	end
-end
-function cm.addcount(e,tp,eg,ep,ev,re,r,rp)
+	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_SUMMON_SUCCESS)
+		ge1:SetOperation(function(e,tp,eg,ep,ev,re,r,rp)
 			local tc=eg:GetFirst()
 			while tc do
-		if tc:GetPreviousControler()==tp then
-			local p=tc:GetPreviousControler()
-			cm[p]=cm[p]+1
-		end
+				Duel.RegisterFlagEffect(tc:GetSummonPlayer(),m,RESET_PHASE+PHASE_END,0,1)
 				tc=eg:GetNext()
 			end
+		end)
+		Duel.RegisterEffect(ge1,0)
+		local ge2=ge1:Clone()
+		ge2:SetCode(EVENT_SPSUMMON_SUCCESS)
+		Duel.RegisterEffect(ge2,0)
+	end
 end
 function cm.t1(c,e,tp)
 	return c:IsSetCard(0x3653) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)