reclean

expansions/script/c21000920.lua

@@ -74,6 +74,7 @@ function s.spop(e,tp,eg,ep,ev,re,r,rp,c)
 	e1:SetType(EFFECT_TYPE_FIELD)
 	e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
 	e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_OATH)
+	e1:SetReset(RESET_PHASE+PHASE_END)
 	e1:SetTargetRange(1,0)
 	e1:SetTarget(s.sumlimit)
 	Duel.RegisterEffect(e1,tp)
@@ -92,6 +93,7 @@ function s.cost(e,tp,eg,ep,ev,re,r,rp,chk)
 	e1:SetType(EFFECT_TYPE_FIELD)
 	e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
 	e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_OATH)
+	e1:SetReset(RESET_PHASE+PHASE_END)
 	e1:SetTargetRange(1,0)
 	e1:SetTarget(s.sumlimit)
 	Duel.RegisterEffect(e1,tp)
@@ -112,7 +114,7 @@ function s.prop(e,tp,eg,ep,ev,re,r,rp)
 	if c:IsRelateToEffect(e) and Duel.IsExistingMatchingCard(s.filter,tp,LOCATION_EXTRA,0,1,nil,e,tp) then 
 		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
 		local g=Duel.SelectMatchingCard(tp,s.filter,tp,LOCATION_EXTRA,0,1,1,nil,e,tp)
-		if g:GetCount()>0 and Duel.SendtoHand(g,nil,REASON_EFFECT)>0 and g:GetFirst():IsCanBeSpecialSummoned(e,0,tp,true,true,POS_FACEUP) then
+		if g:GetCount()>0 and Duel.SendtoHand(g,nil,REASON_EFFECT)>0 and g:GetFirst():IsCanBeSpecialSummoned(e,0,tp,true,false,POS_FACEUP) then
 			Duel.SpecialSummon(g,nil,tp,tp,true,false,POS_FACEUP)
 		end
 	end
@@ -132,6 +134,7 @@ function s.cost2(e,tp,eg,ep,ev,re,r,rp,chk)
 	e1:SetType(EFFECT_TYPE_FIELD)
 	e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
 	e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_OATH)
+	e1:SetReset(RESET_PHASE+PHASE_END)
 	e1:SetTargetRange(1,0)
 	e1:SetTarget(s.sumlimit)
 	Duel.RegisterEffect(e1,tp)

expansions/script/c33400470.lua

@@ -55,16 +55,18 @@ end
 function cm.activate(e,tp,eg,ep,ev,re,r,rp)
  Duel.Draw(tp,1,REASON_EFFECT)
 	local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS)
-	local tg=g:Filter(Card.IsRelateToEffect,nil,e)
-	local ss=0
-	if tg:GetCount()>0 then
-		ss=Duel.Destroy(tg,REASON_EFFECT)
-	end
-   if  Duel.IsExistingMatchingCard(cm.ctfilter,tp,LOCATION_ONFIELD,0,1,nil) then 
-	  Duel.Hint(HINT_SELECTMSG,tp,aux.Stringid(m,3))
-	 local tg=Duel.SelectMatchingCard(tp,cm.ctfilter,tp,LOCATION_ONFIELD,0,1,1,e:GetHandler())
-	 local tc=tg:GetFirst()
-	 tc:AddCounter(0x34f,3*ss)
+	if g then
+		local tg=g:Filter(Card.IsRelateToEffect,nil,e)
+		local ss=0
+		if tg:GetCount()>0 then
+			ss=Duel.Destroy(tg,REASON_EFFECT)
+		end
+ 	  if  Duel.IsExistingMatchingCard(cm.ctfilter,tp,LOCATION_ONFIELD,0,1,nil) then 
+		  Duel.Hint(HINT_SELECTMSG,tp,aux.Stringid(m,3))
+		 local tg=Duel.SelectMatchingCard(tp,cm.ctfilter,tp,LOCATION_ONFIELD,0,1,1,e:GetHandler())
+		 local tc=tg:GetFirst()
+		 tc:AddCounter(0x34f,3*ss)
+	   end
    end
  Duel.RegisterFlagEffect(tp,33400101,RESET_EVENT+RESET_PHASE+PHASE_END,0,0)
 end
@@ -85,9 +87,11 @@ function cm.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
 end
 function cm.desop(e,tp,eg,ep,ev,re,r,rp)
 	local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS)
-	local tg=g:Filter(Card.IsRelateToEffect,nil,e)
-	if tg:GetCount()>0 then
-		Duel.Destroy(tg,REASON_EFFECT)
+	if g then
+		local tg=g:Filter(Card.IsRelateToEffect,nil,e)
+		if tg:GetCount()>0 then
+			Duel.Destroy(tg,REASON_EFFECT)
+		end
 	end
  Duel.RegisterFlagEffect(tp,33400101,RESET_EVENT+RESET_PHASE+PHASE_END,0,0)
 end
@@ -114,15 +118,17 @@ end
 function cm.desop2(e,tp,eg,ep,ev,re,r,rp)
  Duel.Draw(tp,1,REASON_EFFECT)
 	local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS)
-	local tg=g:Filter(Card.IsRelateToEffect,nil,e)
-	if tg:GetCount()>0 then
-		Duel.Destroy(tg,REASON_EFFECT)
-	end
-if  Duel.IsExistingMatchingCard(cm.ctfilter,tp,LOCATION_ONFIELD,0,1,nil) then 
-	  Duel.Hint(HINT_SELECTMSG,tp,aux.Stringid(m,3))
-	 local tg2=Duel.SelectMatchingCard(tp,cm.ctfilter,tp,LOCATION_ONFIELD,0,1,1,nil)
-	 local tc=tg2:GetFirst()
-	 tc:AddCounter(0x34f,6)
-   end
+	if g then
+		local tg=g:Filter(Card.IsRelateToEffect,nil,e)
+		if tg:GetCount()>0 then
+			Duel.Destroy(tg,REASON_EFFECT)
+		end
+	if  Duel.IsExistingMatchingCard(cm.ctfilter,tp,LOCATION_ONFIELD,0,1,nil) then 
+		  Duel.Hint(HINT_SELECTMSG,tp,aux.Stringid(m,3))
+		 local tg2=Duel.SelectMatchingCard(tp,cm.ctfilter,tp,LOCATION_ONFIELD,0,1,1,nil)
+		 local tc=tg2:GetFirst()
+		 tc:AddCounter(0x34f,6)
+  	 end
+  	end
  Duel.RegisterFlagEffect(tp,33400101,RESET_EVENT+RESET_PHASE+PHASE_END,0,0)
 end
\ No newline at end of file