foo foo

expansions/script/c12042032.lua

@@ -5,21 +5,19 @@ function cm.initial_effect(c)
 	--link summon
 	c:EnableReviveLimit()
 	aux.AddLinkProcedure(c,aux.FilterBoolFunction(Card.IsLinkRace,RACE_INSECT),2,2)
-	if not cm.gchk then
-		cm.gchk=true
-		local ex=Effect.GlobalEffect()
+		local ex=Effect.CreateEffect(c)
 		ex:SetType(EFFECT_TYPE_FIELD)
 		ex:SetCode(EFFECT_EXTRA_LINK_MATERIAL)
+		ex:SetRange(LOCATION_EXTRA)
 		ex:SetTargetRange(LOCATION_HAND,LOCATION_HAND)
 		ex:SetCondition(function(e)
-			return Duel.IsExistingMatchingCard(Card.IsCode,e:GetHandlerPlayer(),LOCATION_ONFIELD,0,1,nil,12042000)
+			return Duel.IsExistingMatchingCard(cm.exfilter,e:GetHandlerPlayer(),LOCATION_ONFIELD,0,1,nil)
 		end)
 		ex:SetValue(function(e,c,mg)
 			return c:GetOriginalCode()==m
 		end)
-		ex:SetProperty(EFFECT_FLAG_SET_AVAILABLE+EFFECT_FLAG_IGNORE_IMMUNE)
-		Duel.RegisterEffect(ex,0)
-	end
+		ex:SetProperty(EFFECT_FLAG_SET_AVAILABLE+EFFECT_FLAG_IGNORE_IMMUNE+EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
+		c:RegisterEffect(ex)
 	--negate
 	local e2=Effect.CreateEffect(c)
 	e2:SetDescription(aux.Stringid(m,1))
@@ -47,6 +45,9 @@ function cm.initial_effect(c)
 	e5:SetOperation(cm.thop)
 	c:RegisterEffect(e5)
 end
+function cm.exfilter(c)
+   return c:IsFaceup() and c:IsCode(12042000)
+end
 function cm.negcon(e,tp,eg,ep,ev,re,r,rp)
 	return not e:GetHandler():IsStatus(STATUS_BATTLE_DESTROYED) and re:GetHandler()~=e:GetHandler()
 		and re:IsActiveType(TYPE_MONSTER) and Duel.IsChainNegatable(ev)

expansions/script/c33502151.lua

@@ -15,10 +15,11 @@ function su_y.hdtograve(c,code,count) ---handtograve 33502151~33502157
 	e1:SetType(EFFECT_TYPE_QUICK_O)
 	e1:SetCode(EVENT_FREE_CHAIN)
 	e1:SetRange(LOCATION_HAND)
-	if count~=nil then
-		e1:SetCountLimit(count,code)
-	end
+--  if count~=nil then
+--	e1:SetCountLimit(count,code)
+--  end
 	e1:SetCost(su_y.hcost)
+	e1:SetLabel(code)
 	e1:SetTarget(su_y.hdsptg0)
 	e1:SetOperation(su_y.hdspop0)
 	tc:RegisterEffect(e1)
@@ -26,8 +27,11 @@ function su_y.hdtograve(c,code,count) ---handtograve 33502151~33502157
 end
 function su_y.hcost(e,tp,eg,ep,ev,re,r,rp,chk)
 	local c=e:GetHandler()
-	if chk==0 then return Duel.GetActivityCount(tp,ACTIVITY_SPSUMMON)==0  and c:IsDiscardable(REASON_COST) end
+	local code=e:GetLabel()
+	local ct=Duel.GetFlagEffect(e:GetHandlerPlayer(),code)
+	if chk==0 then return Duel.GetActivityCount(tp,ACTIVITY_SPSUMMON)==0  and c:IsDiscardable(REASON_COST) and ct==0 end
 	Duel.SendtoGrave(c,REASON_COST+REASON_DISCARD)
+	Duel.RegisterFlagEffect(tp,code,0,RESET_PHASE+PHASE_END,1)
 	local e1=Effect.CreateEffect(e:GetHandler())
 	e1:SetType(EFFECT_TYPE_FIELD)
 	e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
@@ -55,7 +59,7 @@ function su_y.hdspop0(e,tp,eg,ep,ev,re,r,rp)
 	   local g=Duel.SelectMatchingCard(tp,su_y.thfilter1,tp,LOCATION_DECK,0,1,1,nil)
 	   if Duel.SSet(tp,g)~=0 then
 		   Duel.ConfirmCards(1-tp,g)
-		   local tg=Duel.GetMatchingGroup(su_y.fcfil,tp,LOCATION_SZONE,0,nil)
+		   local tg=Duel.GetMatchingGroup(Card.IsFaceup,tp,LOCATION_SZONE,0,nil)
 		   local tc=tg:GetFirst()
 		   while tc do 
 		   tc:CancelToGrave()
@@ -70,9 +74,6 @@ end
 function su_y.stfil(c)
 	return c:IsFacedown() and not c:IsLocation(LOCATION_FZONE)
 end
-function su_y.fcfil(c)
-	return c:IsFaceup() and not c:IsLocation(LOCATION_FZONE) and not c:IsStatus(STATUS_CHAINING)
-end
 function su_y.thfilter1(c)
 	return (c:IsType(TYPE_TRAP) and c:IsType(TYPE_CONTINUOUS)) and c:IsSetCard(0x3a81) and c:IsSSetable()
 end
@@ -127,10 +128,11 @@ end
 --Act In Set Turn
 function su_y.actcon(e)
 	local tp=e:GetHandlerPlayer()
-	return Duel.IsExistingMatchingCard(su_y.cfilter12,tp,LOCATION_ONFIELD,0,1,nil)
+ --   return Duel.IsExistingMatchingCard(su_y.cfilter12,tp,LOCATION_ONFIELD,0,1,nil)
+	return Duel.GetMatchingGroupCount(su_y.cfilter12,tp,LOCATION_SZONE,0,1,nil)==0 
 end
 function su_y.cfilter12(c)
-	return not(c:IsFaceup() and  c:IsType(TYPE_SPELL+TYPE_TRAP) )
+	return c:IsFaceup() and  (c:IsType(TYPE_SPELL) or c:IsType(TYPE_TRAP))
 end
 function su_y.chai(c,code,count,op) --- 33502151~33502157
 	local tc=c
@@ -139,9 +141,9 @@ function su_y.chai(c,code,count,op) --- 33502151~33502157
 	e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
 	e1:SetCode(EVENT_CHAINING)
 	e1:SetRange(LOCATION_SZONE)
-	if count~=nil then
-		e1:SetCountLimit(count,code)
-	end
+--  if count~=nil then
+--	e1:SetCountLimit(count,code)
+--  end
 	e1:SetCondition(su_y.chtcon)
 	e1:SetLabel(code)
 	e1:SetOperation(op)
@@ -151,7 +153,8 @@ end
 function su_y.chtcon(e,tp,eg,ep,ev,re,r,rp)
 	local c=e:GetHandler()
 	local code=e:GetLabel()
-	return  re:GetHandler():GetOwner()==tp and c:GetFlagEffect(code)==0 and re~=e and Duel.GetActivityCount(tp,ACTIVITY_SPSUMMON)==0 
+	local ct=Duel.GetFlagEffect(e:GetHandlerPlayer(),code)
+	return  re:GetHandler():GetOwner()==tp and c:GetFlagEffect(code)==0 and re~=e and Duel.GetActivityCount(tp,ACTIVITY_SPSUMMON)==0 and ct==0
 end
 -----------------------------
 if not cm then return end
@@ -165,6 +168,7 @@ function cm.op(e,tp,eg,ep,ev,re,r,rp)
 	local c=e:GetHandler()
 	if not Duel.SelectYesNo(tp,aux.Stringid(m,3)) then return end
 	c:RegisterFlagEffect(0,RESET_EVENT+RESETS_STANDARD,EFFECT_FLAG_CLIENT_HINT,1,0,aux.Stringid(m,5))
+	Duel.RegisterFlagEffect(tp,m,0,RESET_PHASE+PHASE_END,1)
 	local e1=Effect.CreateEffect(e:GetHandler())
 	e1:SetType(EFFECT_TYPE_FIELD)
 	e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)

expansions/script/c33502152.lua

@@ -12,6 +12,7 @@ function cm.op(e,tp,eg,ep,ev,re,r,rp)
 	local c=e:GetHandler()
 	if not Duel.SelectYesNo(tp,aux.Stringid(m,3)) then return end
 	c:RegisterFlagEffect(0,RESET_EVENT+RESETS_STANDARD,EFFECT_FLAG_CLIENT_HINT,1,0,aux.Stringid(m,5))
+	Duel.RegisterFlagEffect(tp,m,0,RESET_PHASE+PHASE_END,1)
 	local e1=Effect.CreateEffect(e:GetHandler())
 	e1:SetType(EFFECT_TYPE_FIELD)
 	e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)

expansions/script/c33502153.lua

@@ -12,6 +12,7 @@ function cm.op(e,tp,eg,ep,ev,re,r,rp)
 	local c=e:GetHandler()
 	if not Duel.SelectYesNo(tp,aux.Stringid(m,3)) then return end
 	c:RegisterFlagEffect(0,RESET_EVENT+RESETS_STANDARD,EFFECT_FLAG_CLIENT_HINT,1,0,aux.Stringid(m,5))
+	Duel.RegisterFlagEffect(tp,m,0,RESET_PHASE+PHASE_END,1)
 	local e1=Effect.CreateEffect(e:GetHandler())
 	e1:SetType(EFFECT_TYPE_FIELD)
 	e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)

expansions/script/c33502154.lua

@@ -12,6 +12,7 @@ function cm.op(e,tp,eg,ep,ev,re,r,rp)
 	local c=e:GetHandler()
 	if not Duel.SelectYesNo(tp,aux.Stringid(m,3)) then return end
 	c:RegisterFlagEffect(0,RESET_EVENT+RESETS_STANDARD,EFFECT_FLAG_CLIENT_HINT,1,0,aux.Stringid(m,5))
+	Duel.RegisterFlagEffect(tp,m,0,RESET_PHASE+PHASE_END,1)
 	local e1=Effect.CreateEffect(e:GetHandler())
 	e1:SetType(EFFECT_TYPE_FIELD)
 	e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)

expansions/script/c33502155.lua

@@ -12,6 +12,7 @@ function cm.op(e,tp,eg,ep,ev,re,r,rp)
 	local c=e:GetHandler()
 	if not Duel.SelectYesNo(tp,aux.Stringid(m,3)) then return end
 	c:RegisterFlagEffect(0,RESET_EVENT+RESETS_STANDARD,EFFECT_FLAG_CLIENT_HINT,1,0,aux.Stringid(m,5))
+	Duel.RegisterFlagEffect(tp,m,0,RESET_PHASE+PHASE_END,1)
 	local e1=Effect.CreateEffect(e:GetHandler())
 	e1:SetType(EFFECT_TYPE_FIELD)
 	e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)

expansions/script/c33502156.lua

@@ -12,6 +12,7 @@ function cm.op(e,tp,eg,ep,ev,re,r,rp)
 	local c=e:GetHandler()
 	if not Duel.SelectYesNo(tp,aux.Stringid(m,3)) then return end
 	c:RegisterFlagEffect(0,RESET_EVENT+RESETS_STANDARD,EFFECT_FLAG_CLIENT_HINT,1,0,aux.Stringid(m,5))
+	Duel.RegisterFlagEffect(tp,m,0,RESET_PHASE+PHASE_END,1)
 	local e1=Effect.CreateEffect(e:GetHandler())
 	e1:SetType(EFFECT_TYPE_FIELD)
 	e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)

expansions/script/c33502157.lua

@@ -12,6 +12,7 @@ function cm.op(e,tp,eg,ep,ev,re,r,rp)
 	local c=e:GetHandler()
 	if not Duel.SelectYesNo(tp,aux.Stringid(m,3)) then return end
 	c:RegisterFlagEffect(0,RESET_EVENT+RESETS_STANDARD,EFFECT_FLAG_CLIENT_HINT,1,0,aux.Stringid(m,5))
+	Duel.RegisterFlagEffect(tp,m,0,RESET_PHASE+PHASE_END,1)
 	local e1=Effect.CreateEffect(e:GetHandler())
 	e1:SetType(EFFECT_TYPE_FIELD)
 	e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)

expansions/script/c81003005.lua

---森永Miu的过去
-function c81003005.initial_effect(c)
-	--activate
+--元气少女 森永Miu
+local m=81003005
+local cm=_G["c"..m]
+xpcall(function() require("expansions/script/c81000000") end,function() require("script/c81000000") end)
+function cm.initial_effect(c)
+	--special summon
 	local e1=Effect.CreateEffect(c)
-	e1:SetCategory(CATEGORY_NEGATE)
-	e1:SetType(EFFECT_TYPE_ACTIVATE)
-	e1:SetCode(EVENT_CHAINING)
-	e1:SetCountLimit(1,81003005+EFFECT_COUNT_CODE_OATH)
-	e1:SetCondition(c81003005.condition)
-	e1:SetTarget(c81003005.target)
-	e1:SetOperation(c81003005.activate)
+	e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
+	e1:SetType(EFFECT_TYPE_IGNITION)
+	e1:SetRange(LOCATION_HAND)
+	e1:SetCondition(cm.spcon)
+	e1:SetTarget(cm.sptg)
+	e1:SetOperation(cm.spop)
 	c:RegisterEffect(e1)
+	--to grave
+	local e2=Effect.CreateEffect(c)
+	e2:SetCategory(CATEGORY_TOGRAVE)
+	e2:SetType(EFFECT_TYPE_IGNITION)
+	e2:SetRange(LOCATION_MZONE)
+	e2:SetCountLimit(1,m)
+	e2:SetTarget(cm.drtg)
+	e2:SetOperation(cm.drop)
+	c:RegisterEffect(e2)
 end
-function c81003005.cfilter(c)
-	return c:IsFaceup() and c:IsSetCard(0x817)
+function cm.spcon(e,tp,eg,ep,ev,re,r,rp)
+	return Duel.GetFieldGroupCount(tp,LOCATION_MZONE,0)==0
 end
-function c81003005.condition(e,tp,eg,ep,ev,re,r,rp)
+function cm.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
+		and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) end
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0)
+end
+function cm.spop(e,tp,eg,ep,ev,re,r,rp)
 	local c=e:GetHandler()
-	if ep==tp then return false end
-	return Duel.IsExistingMatchingCard(c81003005.cfilter,tp,LOCATION_MZONE,0,1,nil)
-	and re:IsHasType(EFFECT_TYPE_ACTIVATE) and Duel.IsChainNegatable(ev)
+	if not c:IsRelateToEffect(e) then return end
+	Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)
+	local e3=Effect.CreateEffect(c)
+	e3:SetType(EFFECT_TYPE_FIELD)
+	e3:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
+	e3:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
+	e3:SetTargetRange(1,0)
+	e3:SetTarget(cm.splimit)
+	e3:SetReset(RESET_PHASE+PHASE_END)
+	Duel.RegisterEffect(e3,tp)
+end
+function cm.splimit(e,c)
+	return not c:IsRace(RACE_CYBERSE)
 end
-function c81003005.target(e,tp,eg,ep,ev,re,r,rp,chk)
-	local rc=re:GetHandler()
-	if chk==0 then return rc:IsSSetable() and (rc:IsType(TYPE_FIELD) or Duel.GetLocationCount(tp,LOCATION_SZONE)>0) end
-	Duel.SetOperationInfo(0,CATEGORY_NEGATE,eg,1,0,0)
+function cm.filter(c)
+	return c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsAbleToGrave()
 end
-function c81003005.activate(e,tp,eg,ep,ev,re,r,rp)
-	local rc=re:GetHandler()
-	if not Duel.NegateActivation(ev) then return end
-	if rc:IsRelateToEffect(re) and not rc:IsLocation(LOCATION_DECK) then 
-		if (rc:IsType(TYPE_FIELD) or Duel.GetLocationCount(tp,LOCATION_SZONE)>0) and rc:IsSSetable() then
-			Duel.BreakEffect()
-			rc:CancelToGrave()
-			Duel.SSet(tp,rc)
-			Duel.ConfirmCards(1-tp,rc)
-			local e0=Effect.CreateEffect(e:GetHandler())
-			e0:SetType(EFFECT_TYPE_SINGLE)
-			e0:SetCode(EFFECT_LEAVE_FIELD_REDIRECT)
-			e0:SetReset(RESET_EVENT+RESETS_REDIRECT)
-			e0:SetValue(LOCATION_REMOVED)
-			rc:RegisterEffect(e0,true)
-			if rc:IsType(TYPE_QUICKPLAY) then
-				local e1=Effect.CreateEffect(e:GetHandler())
-				e1:SetType(EFFECT_TYPE_SINGLE)
-				e1:SetProperty(EFFECT_FLAG_SET_AVAILABLE)
-				e1:SetCode(EFFECT_QP_ACT_IN_SET_TURN)
-				e1:SetReset(RESET_EVENT+RESETS_STANDARD)
-				rc:RegisterEffect(e1)
-			end
-			if rc:IsType(TYPE_TRAP) then
-				local e2=Effect.CreateEffect(e:GetHandler())
-				e2:SetType(EFFECT_TYPE_SINGLE)
-				e2:SetProperty(EFFECT_FLAG_SET_AVAILABLE)
-				e2:SetCode(EFFECT_TRAP_ACT_IN_SET_TURN)
-				e2:SetReset(RESET_EVENT+RESETS_STANDARD)
-				rc:RegisterEffect(e2)
-			end
-		end
-	end
+function cm.drtg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(Card.IsAbleToGrave,tp,0,LOCATION_DECK,1,nil,tp)
+		and Duel.IsExistingMatchingCard(cm.filter,tp,LOCATION_DECK,0,1,nil,1-tp) end
 end
+function cm.drop(e,tp,eg,ep,ev,re,r,rp)
+	local g1=Duel.GetMatchingGroup(cm.filter,tp,LOCATION_DECK,0,nil,tp)
+	local g2=Duel.GetMatchingGroup(cm.filter,1-tp,LOCATION_DECK,0,nil,1-tp)
+	if g1:GetCount()==0 or g2:GetCount()==0 then return end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
+	local rg1=g1:Select(tp,1,1,nil)
+	Duel.Hint(HINT_SELECTMSG,1-tp,HINTMSG_TOGRAVE)
+	local rg2=g2:Select(1-tp,1,1,nil)
+	rg1:Merge(rg2)
+	Duel.SendtoGrave(rg1,REASON_EFFECT)
+end
\ No newline at end of file