Update 1220

expansions/script/c30010000.lua

@@ -3,8 +3,16 @@ if not pcall(function() require("expansions/script/c30000100") end) then require
 local m,cm=rscf.DefineCard(30010000)
 function cm.initial_effect(c)
 	aux.EnablePendulumAttribute(c,false)
-	aux.AddXyzProcedure(c,nil,12,5)
-	local e1=rscf.SetSummonCondition(c,false,aux.xyzlimit)
+	--xyz summon
+	aux.AddXyzProcedure(c,aux.FilterBoolFunction(Card.IsAttribute,ATTRIBUTE_DARK),12,5)
+	c:EnableReviveLimit()
+	--spsummon limit
+	local e1=Effect.CreateEffect(c)
+	e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
+	e1:SetType(EFFECT_TYPE_SINGLE)
+	e1:SetCode(EFFECT_SPSUMMON_CONDITION)
+	e1:SetValue(aux.xyzlimit)
+	c:RegisterEffect(e1)
 	local e2,e3=rsef.SV_CANNOT_DISABLE_S(c)
 	local e4=Effect.CreateEffect(c)
 	e4:SetType(EFFECT_TYPE_FIELD)

expansions/script/c31400035.lua

@@ -38,21 +38,21 @@ function cm.disop(e,tp,eg,ep,ev,re,r,rp)
 	e1:SetType(EFFECT_TYPE_SINGLE)
 	e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
 	e1:SetCode(EFFECT_DISABLE)
-	e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
+	e1:SetReset(RESET_EVENT+RESETS_STANDARD)
 	tc:RegisterEffect(e1)
 	local e2=Effect.CreateEffect(c)
 	e2:SetType(EFFECT_TYPE_SINGLE)
 	e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
 	e2:SetCode(EFFECT_DISABLE_EFFECT)
 	e2:SetValue(RESET_TURN_SET)
-	e2:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
+	e2:SetReset(RESET_EVENT+RESETS_STANDARD)
 	tc:RegisterEffect(e2)
 	if tc:IsType(TYPE_TRAPMONSTER) then
 		local e3=Effect.CreateEffect(c)
 		e3:SetType(EFFECT_TYPE_SINGLE)
 		e3:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
 		e3:SetCode(EFFECT_DISABLE_TRAPMONSTER)
-		e3:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
+		e3:SetReset(RESET_EVENT+RESETS_STANDARD)
 		tc:RegisterEffect(e3)
 	end
 end

expansions/script/c33405001.lua

+--『星光歌剧』台本-星罪Revue
+local m=33405001
+local cm=_G["c"..m]
+function cm.initial_effect(c)
+	  --activate
+	local e1=Effect.CreateEffect(c)
+	e1:SetCategory(CATEGORY_REMOVE+CATEGORY_DESTROY)
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
+	e1:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_END_PHASE)
+	e1:SetCountLimit(1,m)
+	e1:SetTarget(cm.target)
+	e1:SetOperation(cm.activate)
+	c:RegisterEffect(e1)
+ --lv
+	local e2=Effect.CreateEffect(c)
+	e2:SetType(EFFECT_TYPE_QUICK_O)
+	e2:SetCode(EVENT_FREE_CHAIN)
+	e2:SetRange(LOCATION_GRAVE)
+	e2:SetHintTiming(0,TIMINGS_CHECK_MONSTER)
+	e2:SetCountLimit(1,m)
+	e2:SetCondition(cm.condition)
+	e2:SetCost(aux.bfgcost)
+	e2:SetTarget(cm.target2)
+	e2:SetOperation(cm.activate2)
+	c:RegisterEffect(e2)
+end
+function cm.desfilter(c,tp)
+	return  Duel.IsExistingMatchingCard(cm.refilter,tp,LOCATION_EXTRA,0,1,nil)
+end
+function cm.refilter(c)
+	return c:IsSetCard(0x9da0) and c:IsAbleToRemove()
+end
+function cm.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) and cm.desfilter(chkc,tp) end
+	if chk==0 then return Duel.IsExistingTarget(cm.desfilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil,tp) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
+	local g=Duel.SelectTarget(tp,cm.desfilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil,tp)
+	Duel.SetOperationInfo(0,CATEGORY_REMOVE,nil,1,tp,LOCATION_EXTRA)
+	Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0)
+end
+function cm.activate(e,tp,eg,ep,ev,re,r,rp)
+	local tc=Duel.GetFirstTarget()
+	if  tc:IsRelateToEffect(e) then 
+		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
+		local g=Duel.SelectMatchingCard(tp,cm.refilter,tp,LOCATION_EXTRA,0,1,1,nil)
+		local gc=g:GetFirst()
+		if gc and Duel.Remove(gc,POS_FACEUP,REASON_EFFECT)~=0 and gc:IsLocation(LOCATION_REMOVED) then
+			Duel.Destroy(tc,REASON_EFFECT)
+		end
+	end
+end
+
+function cm.filter0(c)
+	return c:IsSetCard(0x9da0) and c:IsType(TYPE_MONSTER) and c:IsFaceup()
+end
+function cm.condition(e,tp,eg,ep,ev,re,r,rp)
+	return not Duel.IsExistingMatchingCard(cm.filter0,tp,LOCATION_MZONE,0,1,nil)
+end
+function cm.filter(c)
+	return c:IsSetCard(0x9da0) and c:IsAbleToGrave()
+end
+function cm.target2(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(cm.filter,tp,LOCATION_DECK,0,1,nil) end
+	Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,nil,1,tp,LOCATION_DECK)
+end
+function cm.activate2(e,tp,eg,ep,ev,re,r,rp)
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
+	local g=Duel.SelectMatchingCard(tp,cm.filter,tp,LOCATION_DECK,0,1,1,nil)
+	if g:GetCount()>0 then
+		Duel.SendtoGrave(g,REASON_EFFECT)
+	end
+end
\ No newline at end of file

expansions/script/c33405003.lua

+--『星光歌剧』台本-摘星Revue
+local m=33405003
+local cm=_G["c"..m]
+function cm.initial_effect(c)
+	  --activate
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	e1:SetCountLimit(1,m)
+	e1:SetCost(cm.thcost)
+	e1:SetTarget(cm.thtg)
+	e1:SetOperation(cm.thop)
+	c:RegisterEffect(e1)
+ --lv
+	local e2=Effect.CreateEffect(c)
+	e2:SetType(EFFECT_TYPE_IGNITION)
+	e2:SetCode(EVENT_FREE_CHAIN)
+	e2:SetRange(LOCATION_GRAVE)
+	e2:SetCountLimit(1,m)
+	e2:SetCondition(cm.condition)
+	e2:SetCost(aux.bfgcost)
+	e2:SetTarget(cm.target)
+	e2:SetOperation(cm.activate)
+	c:RegisterEffect(e2)
+end
+function cm.thcost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(Card.IsDiscardable,tp,LOCATION_HAND,0,1,nil) end
+	Duel.DiscardHand(tp,Card.IsDiscardable,1,1,REASON_COST+REASON_DISCARD)
+end
+function cm.thfilter(c,tp)
+	return c:IsSetCard(0x9da0) and c:IsType(TYPE_CONTINUOUS+TYPE_FIELD)
+		and  c:GetActivateEffect():IsActivatable(tp)
+end
+function cm.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(cm.thfilter,tp,LOCATION_DECK,0,1,nil,tp) end
+end
+function cm.thop(e,tp,eg,ep,ev,re,r,rp)
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_OPERATECARD)
+	local g=Duel.SelectMatchingCard(tp,cm.thfilter,tp,LOCATION_DECK,0,1,1,nil,tp)
+	local tc=g:GetFirst()
+	if tc then  
+		local b2=tc:GetActivateEffect():IsActivatable(tp)
+		if b2 then
+			if tc:IsType(TYPE_FIELD) then 
+			Duel.MoveToField(tc,tp,tp,LOCATION_FZONE,POS_FACEUP,true)
+			else
+			Duel.MoveToField(tc,tp,tp,LOCATION_SZONE,POS_FACEUP,true)
+			end
+			local te=tc:GetActivateEffect()
+			local tep=tc:GetControler()
+			local cost=te:GetCost()
+			if cost then cost(te,tep,eg,ep,ev,re,r,rp,1) end
+		end
+	end
+end
+
+function cm.filter0(c)
+	return c:IsSetCard(0x9da0) and c:IsType(TYPE_MONSTER) and c:IsFaceup()
+end
+function cm.condition(e,tp,eg,ep,ev,re,r,rp)
+	return not Duel.IsExistingMatchingCard(cm.filter0,tp,LOCATION_MZONE,0,1,nil)
+end
+function cm.filter1(c)
+	return c:IsSetCard(0x9da0) and c:IsType(TYPE_MONSTER) and c:IsAbleToHand()
+end
+function cm.filter2(c,e,tp)
+	return c:IsSetCard(0x9da0) and c:IsType(TYPE_MONSTER) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
+end
+function cm.filter3(c)
+	return c:IsSummonable(true,nil,1) or c:IsMSetable(true,nil,1)
+end
+function cm.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chk==0 then return Duel.IsExistingMatchingCard(cm.filter1,tp,LOCATION_GRAVE+LOCATION_REMOVED,0,1,nil) or 
+	 Duel.IsExistingMatchingCard(cm.filter2,tp,LOCATION_GRAVE+LOCATION_REMOVED,0,1,nil,e,tp)or 
+	Duel.IsExistingMatchingCard(cm.filter3,tp,LOCATION_HAND,0,1,nil)
+	 end  
+	Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,1,0,0)
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0)
+end
+function cm.activate(e,tp,eg,ep,ev,re,r,rp)
+	local off=1
+	local ops={}
+	local opval={}
+	if Duel.IsExistingMatchingCard(cm.filter1,tp,LOCATION_GRAVE+LOCATION_REMOVED,0,1,nil) then
+		ops[off]=aux.Stringid(m,0)
+		opval[off-1]=1
+		off=off+1
+	end
+	if  Duel.IsExistingMatchingCard(cm.filter2,tp,LOCATION_GRAVE+LOCATION_REMOVED,0,1,nil,e,tp) then
+		ops[off]=aux.Stringid(m,1)
+		opval[off-1]=2
+		off=off+1
+	end
+	 if  Duel.IsExistingMatchingCard(cm.filter3,tp,LOCATION_HAND,0,1,nil) then
+		ops[off]=aux.Stringid(m,2)
+		opval[off-1]=3
+		off=off+1
+	end
+	if off==1 then return end
+	local op=Duel.SelectOption(tp,table.unpack(ops))
+	if opval[op]==1 then
+	   Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
+	   local g1=Duel.SelectMatchingCard(tp,cm.filter1,tp,LOCATION_GRAVE+LOCATION_REMOVED,0,1,1,nil)
+		Duel.SendtoHand(g1,nil,REASON_EFFECT)
+	elseif opval[op]==2 then
+	 Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
+	   local g2=Duel.SelectMatchingCard(tp,cm.filter2,tp,LOCATION_GRAVE+LOCATION_REMOVED,0,1,1,nil)
+		  Duel.SpecialSummon(g2,0,tp,tp,false,false,POS_FACEUP)
+	elseif opval[op]==3 then
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SUMMON)
+	local g=Duel.SelectMatchingCard(tp,cm.filter3,tp,LOCATION_HAND,0,1,1,nil)
+	local tc=g:GetFirst()
+		if tc then
+			local s1=tc:IsSummonable(true,nil,1)
+			local s2=tc:IsMSetable(true,nil,1)
+				if (s1 and s2 and Duel.SelectPosition(tp,tc,POS_FACEUP_ATTACK+POS_FACEDOWN_DEFENSE)==POS_FACEUP_ATTACK) or not s2 then
+					Duel.Summon(tp,tc,true,nil,1)
+				else
+					Duel.MSet(tp,tc,true,nil,1)
+				end
+		 end
+	end
+end

expansions/script/c33405004.lua

+--『星光歌剧』台本-渴望Revue
+local m=33405004
+local cm=_G["c"..m]
+function cm.initial_effect(c)
+	 --Activate
+	local e1=Effect.CreateEffect(c)
+	e1:SetCategory(CATEGORY_TOHAND)
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	e1:SetCountLimit(1,m)
+	e1:SetOperation(cm.activate)
+	c:RegisterEffect(e1)
+--to hand
+	local e2=Effect.CreateEffect(c)
+	e2:SetCategory(CATEGORY_TOHAND)
+	e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
+	e2:SetProperty(EFFECT_FLAG_DELAY+EFFECT_FLAG_DAMAGE_STEP)
+	e2:SetCode(EVENT_DESTROYED)
+	e2:SetRange(LOCATION_GRAVE)
+	e2:SetCountLimit(1,m)
+	e2:SetCondition(cm.thcon2)
+	e2:SetCost(aux.bfgcost)
+	e2:SetTarget(cm.thtg2)
+	e2:SetOperation(cm.thop2)
+	c:RegisterEffect(e2)
+end
+function cm.activate(e,tp,eg,ep,ev,re,r,rp)
+  Duel.RegisterFlagEffect(tp,m,RESET_PHASE+PHASE_END,0,1)
+  local e1=Effect.CreateEffect(e:GetHandler())
+	e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+	e1:SetProperty(EFFECT_FLAG_DELAY+EFFECT_FLAG_DAMAGE_STEP)
+	e1:SetCategory(CATEGORY_TOHAND)
+	e1:SetCode(EVENT_TO_GRAVE)
+	e1:SetCondition(cm.thcon)
+	e1:SetTarget(cm.thtg)
+	e1:SetOperation(cm.thop)
+	e1:SetReset(RESET_PHASE+PHASE_END)
+	Duel.RegisterEffect(e1,tp)  
+end
+function cm.cfilter(c,tp)
+	return  c:IsReason(REASON_DESTROY) 
+end
+function cm.thcon(e,tp,eg,ep,ev,re,r,rp)
+	return Duel.GetFlagEffect(tp,m)>Duel.GetFlagEffect(tp,m+1) and eg:IsExists(cm.cfilter,1,nil) and  ((re and (re:GetOwner():IsSetCard(0x9da0)) or c:GetReasonCard():IsSetCard(0x9da0) ))
+end
+function cm.filter(c)
+	return c:IsSetCard(0x9da0) and c:IsType(TYPE_MONSTER) and c:IsAbleToHand()
+end
+function cm.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chkc then return chkc:GetControler()==tp and chkc:GetLocation()==LOCATION_GRAVE+LOCATION_DECK and cm.filter(chkc) end
+	if chk==0 then return Duel.IsExistingMatchingCard(cm.filter,tp,LOCATION_GRAVE+LOCATION_DECK,0,1,nil) end  
+	Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK+LOCATION_GRAVE)
+end
+function cm.filter2(c)
+	return c:IsSummonable(true,nil,1) or c:IsMSetable(true,nil,1)
+end
+function cm.thop(e,tp,eg,ep,ev,re,r,rp)
+  if not  Duel.IsExistingMatchingCard(cm.filter,tp,LOCATION_GRAVE+LOCATION_DECK,0,1,nil) then return end 
+  if not Duel.SelectYesNo(tp,aux.Stringid(m,0)) then return end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
+	local g1=Duel.SelectMatchingCard(tp,cm.filter,tp,LOCATION_GRAVE+LOCATION_DECK,0,1,1,nil)
+	Duel.SendtoHand(g1,nil,REASON_EFFECT)
+	if Duel.IsExistingMatchingCard(cm.filter2,tp,LOCATION_HAND,0,1,nil) and Duel.SelectYesNo(tp,aux.Stringid(m,1)) then 
+	  Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SUMMON)
+	local g=Duel.SelectMatchingCard(tp,cm.filter2,tp,LOCATION_HAND,0,1,1,nil)
+	local tc=g:GetFirst()
+		if tc then
+			local s1=tc:IsSummonable(true,nil,1)
+			local s2=tc:IsMSetable(true,nil,1)
+				if (s1 and s2 and Duel.SelectPosition(tp,tc,POS_FACEUP_ATTACK+POS_FACEDOWN_DEFENSE)==POS_FACEUP_ATTACK) or not s2 then
+					Duel.Summon(tp,tc,true,nil,1)
+				else
+					Duel.MSet(tp,tc,true,nil,1)
+				end
+		 end
+	 end 
+	Duel.RegisterFlagEffect(tp,m+1,RESET_PHASE+PHASE_END,0,1)
+end
+function cm.cfilter2(c,tp)
+	return c:IsReason(REASON_BATTLE+REASON_EFFECT) and c:GetPreviousControler()==1-tp and c:IsPreviousLocation(LOCATION_ONFIELD)
+end
+function cm.thcon2(e,tp,eg,ep,ev,re,r,rp)
+	return eg:IsExists(cm.cfilter2,1,nil,tp)
+end
+function cm.thfilter(c)
+	return c:IsSetCard(0x9da0) and not c:IsCode(m) and c:IsAbleToHand()
+end
+function cm.thtg2(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chkc then return chkc:IsLocation(LOCATION_GRAVE+LOCATION_REMOVED) and chkc:IsControler(tp) and cm.thfilter(chkc) end
+	if chk==0 then return Duel.IsExistingMatchingCard(cm.thfilter,tp,LOCATION_GRAVE+LOCATION_REMOVED,0,1,nil) end 
+   Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_REMOVED+LOCATION_GRAVE)
+end
+function cm.thop2(e,tp,eg,ep,ev,re,r,rp)
+	 Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
+	local g=Duel.SelectMatchingCard(tp,cm.thfilter,tp,LOCATION_REMOVED+LOCATION_GRAVE,0,1,1,nil)
+	if g:GetCount()>0 then
+		Duel.SendtoHand(g,nil,REASON_EFFECT)
+		Duel.ConfirmCards(1-tp,g)
+	end
+end
+ 
\ No newline at end of file

expansions/script/c33405007.lua

+--『星光歌剧』台本-渴望Revue
+local m=33405007
+local cm=_G["c"..m]
+function cm.initial_effect(c)
+	--destroy
+	local e1=Effect.CreateEffect(c)
+	e1:SetCategory(CATEGORY_ATKCHANGE)
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	e1:SetCountLimit(1,m)
+	e1:SetCost(cm.cost)
+	e1:SetTarget(cm.target)
+	e1:SetOperation(cm.activate)
+	c:RegisterEffect(e1)
+--
+	local e2=Effect.CreateEffect(c)
+	e2:SetType(EFFECT_TYPE_QUICK_O)
+	e2:SetCode(EVENT_FREE_CHAIN)
+	e2:SetRange(LOCATION_GRAVE)
+	e2:SetCountLimit(1,m)
+	e2:SetCondition(cm.condition2)
+	e2:SetCost(aux.bfgcost)
+	e2:SetOperation(cm.activate2)
+	c:RegisterEffect(e2)
+  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_ATTACK_ANNOUNCE)
+		ge1:SetOperation(cm.checkop)
+		Duel.RegisterEffect(ge1,0)
+	end
+end
+function cm.checkop(e,tp,eg,ep,ev,re,r,rp)
+	local tc=eg:GetFirst()
+	local p=tc:GetControler()
+	if tc:GetFlagEffect(m)==0 then
+		tc:RegisterFlagEffect(m,RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END,0,1)
+		if Duel.GetFlagEffect(p,m)==0 then
+			Duel.RegisterFlagEffect(p,m,RESET_PHASE+PHASE_END,0,1)
+		else
+			Duel.RegisterFlagEffect(p,m+1,RESET_PHASE+PHASE_END,0,1)
+		end
+	end
+end
+
+function cm.cost(e,tp,eg,ep,ev,re,r,rp,chk)
+	--cannot attack
+	local e1=Effect.CreateEffect(e:GetHandler())
+	e1:SetType(EFFECT_TYPE_FIELD)
+	e1:SetProperty(EFFECT_FLAG_IGNORE_IMMUNE+EFFECT_FLAG_OATH)
+	e1:SetCode(EFFECT_CANNOT_ATTACK_ANNOUNCE)
+	e1:SetTargetRange(LOCATION_MZONE,0)
+	e1:SetCondition(cm.atkcon)
+	e1:SetTarget(cm.atktg)
+	e1:SetReset(RESET_PHASE+PHASE_END)
+	Duel.RegisterEffect(e1,tp)
+end
+function cm.atkcon(e)
+	return Duel.GetFlagEffect(e:GetHandlerPlayer(),m)~=0
+end
+function cm.atktg(e,c)
+	return c:GetFlagEffect(m)==0
+end
+function cm.filter(c)
+	return c:IsFaceup() and c:IsSetCard(0x9da0) 
+end
+function cm.target(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(cm.filter,tp,LOCATION_MZONE,0,1,nil) end
+	local g=Duel.GetMatchingGroup(cm.filter,tp,LOCATION_MZONE,0,nil)
+	Duel.SetOperationInfo(0,CATEGORY_ATKCHANGE,g,1,0,0)
+end
+function cm.activate(e,tp,eg,ep,ev,re,r,rp)
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP)
+	local tc=Duel.SelectMatchingCard(tp,cm.filter,tp,LOCATION_MZONE,0,1,1,nil)
+	if not tc then return end
+	if tc:IsFaceup() and tc:IsControler(tp) and tc:IsRelateToEffect(e) then
+		local e3=Effect.CreateEffect(e:GetHandler())
+		e3:SetType(EFFECT_TYPE_SINGLE)
+		e3:SetCode(EFFECT_ATTACK_ALL)
+		e3:SetValue(1)
+		e3:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
+		tc:RegisterEffect(e3)   
+		local atk=Duel.GetMatchingGroup(cm.filter,tp,LOCATION_MZONE,0,c):GetSum(Card.GetAttack)
+		local e1=Effect.CreateEffect(e:GetHandler())
+		e1:SetType(EFFECT_TYPE_SINGLE)
+		e1:SetCode(EFFECT_UPDATE_ATTACK)
+		e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
+		e1:SetValue(atk)
+		tc:RegisterEffect(e1)
+	  --pierce
+		local e2=Effect.CreateEffect(e:GetHandler())
+		e2:SetType(EFFECT_TYPE_SINGLE)
+		e2:SetCode(EFFECT_PIERCE)
+		e2:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END) 
+		tc:RegisterEffect(e2)
+	end
+end
+
+function cm.condition2(e,tp,eg,ep,ev,re,r,rp)
+	return  Duel.IsExistingMatchingCard(nil,tp,LOCATION_MZONE,0,2,nil)
+end
+function cm.activate2(e,tp,eg,ep,ev,re,r,rp)
+   local e1=Effect.CreateEffect(e:GetHandler())
+	e1:SetType(EFFECT_TYPE_FIELD)
+	e1:SetCode(EFFECT_INDESTRUCTABLE_BATTLE)
+	e1:SetTargetRange(LOCATION_MZONE,0)
+	e1:SetTarget(cm.indtg)
+	e1:SetReset(RESET_PHASE+PHASE_END)
+	e1:SetValue(1)
+	Duel.RegisterEffect(e1,tp)
+	local e2=Effect.CreateEffect(e:GetHandler())
+	e2:SetType(EFFECT_TYPE_FIELD)
+	e2:SetCode(EFFECT_INDESTRUCTABLE_EFFECT)
+	e2:SetTargetRange(LOCATION_ONFIELD,0)
+	e2:SetTarget(cm.indtg)
+	e2:SetReset(RESET_PHASE+PHASE_END)
+	e2:SetValue(1)
+	Duel.RegisterEffect(e2,tp)
+end
+function cm.indtg(e,c)
+	return c:IsSetCard(0x9da0) 
+end
\ No newline at end of file

expansions/script/c33405009.lua

+--星光歌剧 星见纯那
+local m=33405009
+local cm=_G["c"..m]
+function cm.initial_effect(c)
+	--summon proc
+	local e0=Effect.CreateEffect(c)
+	e0:SetDescription(aux.Stringid(m,0))
+	e0:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
+	e0:SetType(EFFECT_TYPE_SINGLE)
+	e0:SetCode(EFFECT_SUMMON_PROC)
+	e0:SetCondition(cm.sumcon)
+	e0:SetOperation(cm.sumop)
+	e0:SetValue(SUMMON_TYPE_ADVANCE)
+	c:RegisterEffect(e0)
+--spsummon
+	local e1=Effect.CreateEffect(c)
+	e1:SetCategory(CATEGORY_ATKCHANGE+CATEGORY_DISABLE)
+	e1:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DELAY)
+	e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+	e1:SetCode(EVENT_SUMMON_SUCCESS)
+	e1:SetCondition(cm.con)
+	e1:SetTarget(cm.tg)
+	e1:SetOperation(cm.op)
+	c:RegisterEffect(e1)
+ --atkdef 0
+	local e2=Effect.CreateEffect(c)
+	e2:SetCategory(CATEGORY_ATKCHANGE+CATEGORY_DEFCHANGE)
+	e2:SetType(EFFECT_TYPE_QUICK_O)
+	e2:SetCode(EVENT_PRE_DAMAGE_CALCULATE)
+	e2:SetRange(LOCATION_HAND)
+	e2:SetCondition(cm.condition)
+	e2:SetCost(cm.cost)
+	e2:SetOperation(cm.operation)
+	c:RegisterEffect(e2)
+end
+function cm.refil(c)
+	return c:IsAbleToRemoveAsCost() and c:IsSetCard(0x9da0)
+end
+function cm.sumcon(e,c)
+	local tp=e:GetHandler():GetControler()
+	return Duel.IsExistingMatchingCard(cm.refil,tp,LOCATION_EXTRA,0,1,nil)
+end
+function cm.sumop(e,tp,eg,ep,ev,re,r,rp,c)
+	local g=Duel.SelectMatchingCard(tp,cm.refil,tp,LOCATION_EXTRA,0,1,1,nil)
+	Duel.Remove(g,POS_FACEUP,REASON_COST)
+end
+
+function cm.con(e,tp,eg,ep,ev,re,r,rp)
+	return e:GetHandler():IsSummonType(SUMMON_TYPE_ADVANCE)
+end
+function cm.tg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chkc then return chkc:IsLocation(LOCATION_ONFIELD) and Card.IsFaceup(chkc) end
+	if chk==0 then return  Duel.IsExistingTarget(Card.IsFaceup,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP)
+	local g=Duel.SelectTarget(tp,Card.IsFaceup,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil)
+end
+function cm.op(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	local tc=Duel.GetFirstTarget()
+	if tc:IsFaceup() and tc:IsRelateToEffect(e) then
+		tc:RegisterFlagEffect(m,RESET_EVENT+RESETS_STANDARD,0,1)
+		local e1=Effect.CreateEffect(e:GetHandler())
+		e1:SetType(EFFECT_TYPE_SINGLE)
+		e1:SetCode(EFFECT_UPDATE_ATTACK)
+		e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
+		e1:SetValue(1000)
+		tc:RegisterEffect(e1)
+		local e3=Effect.CreateEffect(c)
+		e3:SetType(EFFECT_TYPE_FIELD)
+		e3:SetCode(EFFECT_DISABLE)
+		e3:SetTargetRange(LOCATION_MZONE,LOCATION_MZONE)
+		e3:SetTarget(cm.distg)
+		Duel.RegisterEffect(e3,tp)
+		local e2=Effect.CreateEffect(c)
+		e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+		e2:SetCode(EVENT_CHAIN_SOLVING)
+		e2:SetCondition(cm.discon)
+		e2:SetOperation(cm.disop)
+		Duel.RegisterEffect(e2,tp)
+	end
+	local e4=Effect.CreateEffect(e:GetHandler())
+	e4:SetType(EFFECT_TYPE_FIELD)
+	e4:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
+	e4:SetCode(EFFECT_CANNOT_ACTIVATE)
+	e4:SetTargetRange(0,1)
+	e4:SetCondition(cm.actcon)
+	e4:SetValue(1)
+	e4:SetReset(RESET_PHASE+PHASE_END)
+	Duel.RegisterEffect(e4,tp)
+end
+function cm.distg(e,c)
+	return c:GetFlagEffect(m)>0
+end
+function cm.discon(e,tp,eg,ep,ev,re,r,rp)
+	local tc=e:GetLabelObject()
+	return re:IsActiveType(TYPE_MONSTER) and re:GetHandler():GetFlagEffect(m)>0
+end
+function cm.disop(e,tp,eg,ep,ev,re,r,rp)
+	Duel.NegateEffect(ev)
+end
+function cm.actcon(e)
+	local ph=Duel.GetCurrentPhase()
+	return ph>=PHASE_BATTLE_START and ph<=PHASE_BATTLE
+end
+
+function cm.condition(e,tp,eg,ep,ev,re,r,rp)
+	local a=Duel.GetAttacker()
+	local d=Duel.GetAttackTarget()
+	if not d then return false end
+	if a:IsControler(1-tp) then a,d=d,a end
+	return  a:IsSummonType(SUMMON_TYPE_ADVANCE) and a:IsRelateToBattle() 
+end
+function cm.cost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return e:GetHandler():IsDiscardable() end
+	Duel.SendtoGrave(e:GetHandler(),REASON_COST+REASON_DISCARD)
+end
+function cm.operation(e,tp,eg,ep,ev,re,r,rp)
+	local a=Duel.GetAttacker()
+	local d=Duel.GetAttackTarget()
+	if a:IsControler(1-tp) then a,d=d,a end
+	if not a:IsRelateToBattle() or a:IsFacedown() then return end
+	local e1=Effect.CreateEffect(e:GetHandler())
+		e1:SetType(EFFECT_TYPE_SINGLE)
+		e1:SetCode(EFFECT_UPDATE_ATTACK)
+		e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
+		e1:SetValue(1000)
+		a:RegisterEffect(e1)
+end

expansions/script/c33711001.lua

+--苍白月下 纯真之眼
+function c33711001.initial_effect(c)
+	--xyz summon
+	aux.AddXyzProcedure(c,c33711001.mfilter,5,3)
+	c:EnableReviveLimit()
+	--special summon
+	local e0=Effect.CreateEffect(c)
+	e0:SetDescription(aux.Stringid(33711001,4))
+	e0:SetType(EFFECT_TYPE_FIELD)
+	e0:SetCode(EFFECT_SPSUMMON_PROC)
+	e0:SetProperty(EFFECT_FLAG_UNCOPYABLE)
+	e0:SetRange(LOCATION_EXTRA)
+	e0:SetValue(SUMMON_TYPE_XYZ)
+	e0:SetCondition(c33711001.spcon1)
+	e0:SetOperation(c33711001.spop1)
+	c:RegisterEffect(e0)  
+	--immune
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_FIELD)
+	e1:SetCode(EFFECT_IMMUNE_EFFECT)
+	e1:SetRange(LOCATION_MZONE)
+	e1:SetTargetRange(LOCATION_MZONE,0)
+	e1:SetTarget(c33711001.imtg)
+	e1:SetValue(c33711001.efilter)
+	c:RegisterEffect(e1) 
+	--indes
+	local e2=Effect.CreateEffect(c)
+	e2:SetType(EFFECT_TYPE_FIELD)
+	e2:SetCode(EFFECT_INDESTRUCTABLE_BATTLE)
+	e2:SetRange(LOCATION_MZONE)
+	e2:SetTargetRange(LOCATION_MZONE,0)
+	e2:SetTarget(c33711001.indtg)
+	e2:SetValue(1)
+	c:RegisterEffect(e2) 
+	--cannot release
+	local e3=Effect.CreateEffect(c)
+	e3:SetType(EFFECT_TYPE_FIELD)
+	e3:SetCode(EFFECT_CANNOT_RELEASE)
+	e3:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
+	e3:SetRange(LOCATION_MZONE)
+	e3:SetTargetRange(1,1)
+	e3:SetTarget(c33711001.rellimit)
+	c:RegisterEffect(e3)
+	--token
+	local e4=Effect.CreateEffect(c)
+	e4:SetDescription(aux.Stringid(33711001,1))
+	e4:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_TOKEN)
+	e4:SetType(EFFECT_TYPE_QUICK_O)
+	e4:SetRange(LOCATION_MZONE)
+	e4:SetCode(EVENT_FREE_CHAIN)
+	e4:SetCountLimit(1)
+	e4:SetCost(c33711001.spcost)
+	e4:SetTarget(c33711001.sptg)
+	e4:SetOperation(c33711001.spop)
+	c:RegisterEffect(e4)
+	--leave field
+	local e5=Effect.CreateEffect(c)
+	e5:SetDescription(aux.Stringid(33711001,2))
+	e5:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F)
+	e5:SetCode(EVENT_LEAVE_FIELD)
+	e5:SetCondition(c33711001.setcon)
+	e5:SetTarget(c33711001.settg)
+	e5:SetOperation(c33711001.setop)
+	c:RegisterEffect(e5)
+end
+function c33711001.mfilter(c)
+	return c:IsAttribute(ATTRIBUTE_EARTH) and c:IsFaceup()
+end
+function c33711001.ovfilter1(c,sc)
+	return c:IsFaceup() and c:IsSetCard(0x440) and c:IsCanBeXyzMaterial(sc)
+end
+function c33711001.ovfilter(c,sc)
+	return c:IsFaceup() and c:IsCode(33700033,33700051,33701072) and c:IsCanBeXyzMaterial(sc)
+end
+function c33711001.spcon1(e,c)
+	if c==nil then return true end
+	local tp=c:GetControler()
+	return Duel.GetMatchingGroupCount(c33711001.ovfilter,tp,LOCATION_MZONE,0,nil,c)>0
+		and Duel.GetMatchingGroupCount(c33711001.ovfilter1,tp,LOCATION_MZONE,0,nil,c)>0
+end
+function c33711001.spzfilter(g,sc)
+	return g:IsExists(c33711001.ovfilter,1,nil,sc) and g:IsExists(c33711001.ovfilter,1,nil,sc)
+end
+function c33711001.spop1(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	local g1=Duel.GetMatchingGroup(c33711001.ovfilter,tp,LOCATION_MZONE,0,nil,c)
+	local g2=Duel.GetMatchingGroup(c33711001.ovfilter1,tp,LOCATION_MZONE,0,nil,c)
+	g1:Merge(g2)
+	local sg=g1:SelectSubGroup(tp,c33711001.spzfilter,false,2,2,e:GetHandler())
+	local og=Group.CreateGroup()
+	for tc in aux.Next(sg) do
+			local mg=tc:GetOverlayGroup()
+			if mg:GetCount()~=0 then
+				Duel.Overlay(c,mg)
+			end
+			c:SetMaterial(Group.FromCards(tc))
+			Duel.Overlay(c,Group.FromCards(tc))
+	end
+end
+function c33711001.setcon(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	return c:IsPreviousLocation(LOCATION_MZONE)
+end
+function c33711001.settg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return true end
+end
+function c33711001.setop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	if Duel.GetLocationCount(tp,LOCATION_SZONE)>0 and e:GetHandler():IsRelateToEffect(e) then
+		if Duel.MoveToField(e:GetHandler(),tp,tp,LOCATION_SZONE,POS_FACEUP,true) then
+			local e0=Effect.CreateEffect(c)
+			e0:SetCode(EFFECT_CHANGE_TYPE)
+			e0:SetType(EFFECT_TYPE_SINGLE)
+			e0:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
+			e0:SetReset(RESET_EVENT+0x1fe0000)
+			e0:SetValue(TYPE_SPELL+TYPE_CONTINUOUS)
+			c:RegisterEffect(e0)
+			--avoid damage
+			local e1=Effect.CreateEffect(c)
+			e1:SetType(EFFECT_TYPE_FIELD)
+			e1:SetCode(EFFECT_CHANGE_DAMAGE)
+			e1:SetRange(LOCATION_SZONE)
+			e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
+			e1:SetTargetRange(1,0)
+			e1:SetValue(0)
+			e1:SetReset(RESET_EVENT+0x1fe0000)
+			c:RegisterEffect(e1)
+			local e2=e1:Clone()
+			e2:SetCode(EFFECT_NO_EFFECT_DAMAGE)
+			e2:SetReset(RESET_EVENT+0x1fe0000)
+			c:RegisterEffect(e2) 
+		end
+	end
+		
+end
+function c33711001.imtg(e,c)
+	return c:IsAttribute(ATTRIBUTE_EARTH) and c:IsFaceup() and c:IsLevel(5)
+end
+function c33711001.efilter(e,te)
+	return te:GetOwnerPlayer()~=e:GetHandlerPlayer()
+end
+function c33711001.indtg(e,c)
+	return c:IsAttribute(ATTRIBUTE_EARTH) and c:IsFaceup() and c:IsLevel(5)
+end
+function c33711001.rellimit(e,c,tp,sumtp)
+	return c:IsAttribute(ATTRIBUTE_EARTH) and c:IsFaceup() and c:IsLevel(5)
+end
+function c33711001.spcost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return e:GetHandler():CheckRemoveOverlayCard(tp,1,REASON_COST) end
+	e:GetHandler():RemoveOverlayCard(tp,1,1,REASON_COST)
+end
+function c33711001.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
+		and Duel.IsPlayerCanSpecialSummonMonster(tp,33711002,nil,0x4011,nil,nil,5,RACE_WARRIOR,ATTRIBUTE_EARTH) end
+	Duel.SetOperationInfo(0,CATEGORY_TOKEN,nil,1,0,0)
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,0,0)
+end
+function c33711001.spop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+		local atk=c:GetAttack()
+		local def=c:GetDefense()
+		if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 or not Duel.IsPlayerCanSpecialSummonMonster(tp,33711002,0,0x4011,atk,def,5,RACE_WARRIOR,ATTRIBUTE_EARTH) then return end
+		local token=Duel.CreateToken(tp,33711002)
+		c:CreateRelation(token,RESET_EVENT+RESETS_STANDARD)
+		Duel.SpecialSummonStep(token,0,tp,tp,false,false,POS_FACEUP)
+		local e1=Effect.CreateEffect(c)
+		e1:SetType(EFFECT_TYPE_SINGLE)
+		e1:SetCode(EFFECT_SET_ATTACK_FINAL)
+		e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
+		e1:SetRange(LOCATION_MZONE)
+		e1:SetValue(c33711001.tokenatk)
+		e1:SetReset(RESET_EVENT+RESETS_STANDARD-RESET_TOFIELD)
+		token:RegisterEffect(e1,true)
+		local e2=e1:Clone()
+		e2:SetCode(EFFECT_SET_DEFENSE_FINAL)
+		e2:SetValue(c33711001.tokendef)
+		token:RegisterEffect(e2,true)
+		Duel.SpecialSummonComplete()
+end
+function c33711001.tokenatk(e,c)
+	return e:GetOwner():GetAttack()
+end
+function c33711001.tokendef(e,c)
+	return e:GetOwner():GetDefense()
+end
\ No newline at end of file

expansions/script/c33711003.lua

+--疑虚拟YouTuber 星野尼亚
+function c33711003.initial_effect(c)
+	--fusion
+	c:EnableReviveLimit()
+	aux.AddFusionProcFunRep(c,c33711003.ffilter,2,true)   
+	--SpecialSummonLIMIT
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_FIELD)
+	e1:SetRange(LOCATION_MZONE)
+	e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
+	e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
+	e1:SetTargetRange(1,0)
+	e1:SetTarget(c33711003.sslimit)
+	c:RegisterEffect(e1)
+	--Special Summon other
+	local e2 = Effect.CreateEffect(c)
+	e2:SetDescription(aux.Stringid(33711003, 0))
+	e2:SetCategory(CATEGORY_SPECIAL_SUMMON)
+	e2:SetType(EFFECT_TYPE_SINGLE + EFFECT_TYPE_TRIGGER_O)
+	e2:SetProperty(EFFECT_FLAG_DAMAGE_STEP + EFFECT_FLAG_DELAY)
+	e2:SetCode(EVENT_SPSUMMON_SUCCESS)
+	e2:SetTarget(c33711003.sptg2)
+	e2:SetOperation(c33711003.spop2)
+	c:RegisterEffect(e2)
+	--spsummon
+	local e3=Effect.CreateEffect(c)
+	e3:SetDescription(aux.Stringid(33711003,1))
+	e3:SetCategory(CATEGORY_SPECIAL_SUMMON)
+	e3:SetType(EFFECT_TYPE_QUICK_O)
+	e3:SetRange(LOCATION_MZONE)
+	e3:SetCountLimit(1)
+	e3:SetCost(c33711003.spcost)
+	e3:SetTarget(c33711003.sptg)
+	e3:SetOperation(c33711003.spop)
+	c:RegisterEffect(e3)
+end
+function c33711003.ffilter(c,fc,sub,mg,sg)
+	return not sg or not sg:IsExists(Card.IsFusionAttribute,1,c,c:GetFusionAttribute())
+end
+function c33711003.sslimit(e,c,sump,sumtype,sumpos,targetp,se)
+	return not c:IsCode(e:GetHandler():GetCode())
+end
+function c33711003.spfilter(c, e, tp, code)
+	return c:IsCode(code) and c:IsCanBeSpecialSummoned(e, 0, tp, false, false)
+end
+function c33711003.sptg2(e, tp, eg, ep, ev, re, r, rp, chk)
+	if chk == 0 then
+		return Duel.GetLocationCount(tp, LOCATION_MZONE) > 0 and
+			Duel.IsExistingMatchingCard(c33711003.spfilter, tp, LOCATION_EXTRA, 0, 1, nil, e, tp, e:GetHandler():GetCode())
+	end
+	Duel.SetOperationInfo(0, CATEGORY_SPECIAL_SUMMON, nil, nil, tp, LOCATION_HAND + LOCATION_GRAVE)
+end
+function c33711003.spop2(e, tp, eg, ep, ev, re, r, rp)
+	if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then
+		return
+	end
+	local num=Duel.GetLocationCount(tp,LOCATION_MZONE)
+	if Duel.IsPlayerAffectedByEffect(tp,59822133) then num=1 end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
+	local g = Duel.SelectMatchingCard(tp,c33711003.spfilter,tp,LOCATION_EXTRA,0,1,num,nil,e,tp,e:GetHandler():GetCode())
+	if #g > 0 then
+		Duel.SpecialSummon(g, 0, tp, tp, false, false, POS_FACEUP)
+	end
+end
+function c33711003.spcost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.CheckReleaseGroup(tp,Card.IsCode,1,nil,33711003) end
+	local g=Duel.SelectReleaseGroup(tp,Card.IsCode,1,1,nil,33711003)
+	Duel.Release(g,REASON_COST)
+end
+function c33711003.spfilter(c,e,tp)
+	return c:IsCode(33711003) and c:IsCanBeSpecialSummoned(e,0,tp,true,false) and c:IsAttack(2000) and c:IsDefense(2000)
+end
+function c33711003.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.GetMZoneCount(tp,e:GetHandler())>0
+		and Duel.IsExistingMatchingCard(c33711003.spfilter,tp,LOCATION_EXTRA,0,1,nil,e,tp) end
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA)
+end
+function c33711003.spop(e,tp,eg,ep,ev,re,r,rp)
+	if Duel.GetLocationCount(tp,LOCATION_MZONE)>0 then
+		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
+		local g=Duel.SelectMatchingCard(tp,c33711003.spfilter,tp,LOCATION_EXTRA,0,1,1,nil,e,tp)
+		if g:GetCount()>0 then
+			local tc=g:GetFirst()
+			if Duel.SpecialSummonStep(tc,0,tp,tp,true,false,POS_FACEUP) then
+				local e1=Effect.CreateEffect(c)
+				e1:SetType(EFFECT_TYPE_SINGLE)
+				e1:SetCode(EFFECT_DISABLE)
+				e1:SetReset(RESET_EVENT+RESETS_STANDARD)
+				tc:RegisterEffect(e1)
+				local e2=Effect.CreateEffect(c)
+				e2:SetType(EFFECT_TYPE_SINGLE)
+				e2:SetCode(EFFECT_DISABLE_EFFECT)
+				e2:SetReset(RESET_EVENT+RESETS_STANDARD)
+				tc:RegisterEffect(e2)
+			end
+			Duel.SpecialSummonComplete()
+		end
+	end
+end
\ No newline at end of file

expansions/script/c33711004.lua

+--感官超载
+function c33711004.initial_effect(c)
+	--Activate
+	local e1=Effect.CreateEffect(c)
+	e1:SetCategory(CATEGORY_DRAW)
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	e1:SetCondition(c33711004.condition)
+	e1:SetTarget(c33711004.target)
+	e1:SetOperation(c33711004.activate)
+	c:RegisterEffect(e1)
+	if not c33711004.global_check then
+		c33711004.global_check=true
+		local ge1=Effect.CreateEffect(c)
+		ge1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+		ge1:SetCode(EVENT_DRAW)
+		ge1:SetOperation(c33711004.checkop)
+		Duel.RegisterEffect(ge1,0)
+		local ge2=ge1:Clone()
+		ge2:SetCode(EVENT_SPSUMMON_SUCCESS)
+		Duel.RegisterEffect(ge2,0)
+	end
+end
+function c33711004.checkop(e,tp,eg,ep,ev,re,r,rp)
+	local tc=eg:GetFirst()
+	while tc do
+		Duel.RegisterFlagEffect(tc:GetControler(),33711004,RESET_PHASE+PHASE_END,0,1)
+		tc=eg:GetNext()
+	end
+end
+function c33711004.condition(e,tp,eg,ep,ev,re,r,rp)
+	return Duel.GetFlagEffect(1-tp,33711004)>4
+end
+function c33711004.target(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsPlayerCanDraw(1-tp,21) end
+	Duel.SetTargetPlayer(1-tp)
+	Duel.SetTargetParam(21)
+	Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,1-tp,21)
+end
+function c33711004.activate(e,tp,eg,ep,ev,re,r,rp)
+	local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM)
+	if Duel.Draw(p,d,REASON_EFFECT)==21 then
+		if Duel.SelectYesNo(tp,aux.Stringid(33711004,1)) then
+			local thg=Duel.GetFieldGroup(tp,LOCATION_HAND,0)
+			Duel.SendtoHand(thg,1-tp,REASON_EFFECT)
+			local num=Duel.GetOperatedGroup():GetCount()
+			Duel.Draw(p,(21+num)*2,REASON_EFFECT)
+		end
+	end
+end
\ No newline at end of file

expansions/script/c33711005.lua

+--幽波纹之力
+function c33711005.initial_effect(c)
+	c:SetUniqueOnField(LOCATION_SZONE,0,33711005)
+	--Activate
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	c:RegisterEffect(e1)
+	--Cal cost
+	local e2=Effect.CreateEffect(c)
+	e2:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_FIELD)
+	e2:SetCode(EVENT_PRE_DAMAGE_CALCULATE)
+	e2:SetRange(LOCATION_SZONE)
+	e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
+	e2:SetTargetRange(1,0)
+	e2:SetOperation(c33711005.costop)
+	c:RegisterEffect(e2)
+end
+function c33711005.actarget(e,te,tp)
+	return true
+end
+function c33711005.atkcostfilter(c)
+	return c:IsType(TYPE_MONSTER) and c:IsAbleToRemove(tp,POS_FACEUP,REASON_RULE)
+end
+function c33711005.costop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	Duel.Hint(HINT_CARD,0,33711005)
+	local num1=0
+	local num2=0
+	local num3=0
+	local num4=0
+	local a=Duel.GetAttacker()
+	local b=Duel.GetAttackTarget()
+	local sg=Group.CreateGroup()
+	sg:AddCard(a)
+	sg:AddCard(b)
+	local sg1=sg:Filter(Card.IsControler,nil,tp)
+	local sg2=sg:Filter(Card.IsControler,nil,1-tp)
+	local tc=Duel.SelectMatchingCard(tp,c33711005.atkcostfilter,tp,LOCATION_DECK,0,1,1,nil,tp)
+	local tc2=Duel.SelectMatchingCard(1-tp,c33711005.atkcostfilter,1-tp,LOCATION_DECK,0,1,1,nil,1-tp)
+	if tc:GetCount()>0 then
+		tc=tc:GetFirst()
+		num1=tc:GetTextAttack()
+		num2=tc:GetTextDefense()
+	end
+	if tc2:GetCount()>0 then
+		tc2=tc2:GetFirst()
+		num3=tc2:GetTextAttack()
+		num4=tc2:GetTextDefense()  
+	end
+	Duel.Remove(tc,POS_FACEUP,REASON_RULE)
+	Duel.Remove(tc2,POS_FACEUP,REASON_RULE)
+	for i in aux.Next(sg1) do
+		local e1=Effect.CreateEffect(c)
+		e1:SetType(EFFECT_TYPE_SINGLE)
+		e1:SetCode(EFFECT_UPDATE_ATTACK)
+		e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_DAMAGE_CAL)
+		e1:SetValue(num1)
+		i:RegisterEffect(e1)
+		local e2=e1:Clone()
+		e2:SetCode(EFFECT_UPDATE_DEFENSE)
+		e2:SetValue(num2)
+		i:RegisterEffect(e2)
+	end
+	for i in aux.Next(sg2) do
+		local e3=Effect.CreateEffect(c)
+		e3:SetType(EFFECT_TYPE_SINGLE)
+		e3:SetCode(EFFECT_UPDATE_ATTACK)
+		e3:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_DAMAGE_CAL)
+		e3:SetValue(num3)
+		i:RegisterEffect(e3)
+		local e4=e3:Clone()
+		e4:SetCode(EFFECT_UPDATE_DEFENSE)
+		e4:SetValue(num4)
+		i:RegisterEffect(e4)
+	end
+end
\ No newline at end of file

expansions/script/c33711006.lua

+--正正堂堂 动物朋友
+function c33711006.initial_effect(c)
+	Duel.EnableGlobalFlag(GLOBALFLAG_DECK_REVERSE_CHECK)
+	--Activate
+	local e1=Effect.CreateEffect(c)
+	e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	e1:SetOperation(c33711006.activate)
+	c:RegisterEffect(e1)	
+--
+	local e2=Effect.CreateEffect(c)
+	e2:SetType(EFFECT_TYPE_FIELD)
+	e2:SetCode(EFFECT_REVERSE_DECK)
+	e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
+	e2:SetRange(LOCATION_SZONE)
+	e2:SetTargetRange(1,1)
+	c:RegisterEffect(e2)
+	local e4=Effect.CreateEffect(c)
+	e4:SetType(EFFECT_TYPE_FIELD)
+	e4:SetCode(EFFECT_PUBLIC)
+	e4:SetRange(LOCATION_SZONE)
+	e4:SetTargetRange(LOCATION_HAND,0)
+	c:RegisterEffect(e4)
+--announce
+	local e3=Effect.CreateEffect(c)
+	e3:SetDescription(aux.Stringid(33711006,0))
+	e3:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH+CATEGORY_DECKDES)
+	e3:SetType(EFFECT_TYPE_IGNITION)
+	e3:SetRange(LOCATION_SZONE)
+	e3:SetCountLimit(1)
+	e3:SetTarget(c33711006.target)
+	e3:SetOperation(c33711006.operation)
+	c:RegisterEffect(e3)
+end
+function c33711006.activate(e,tp,eg,ep,ev,re,r,rp)
+	if not e:GetHandler():IsRelateToEffect(e) then return end
+	local g=Duel.GetFieldGroup(tp,0,LOCATION_DECK)
+	Duel.ConfirmCards(tp,g)
+	if g:GetCount()>0 then
+		g=g:Filter(Card.IsAbleToHand,nil)
+		if g:GetCount()>0 then
+			Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
+			local sg=g:Select(tp,1,1,nil)
+			Duel.SendtoHand(sg,1-tp,REASON_EFFECT)
+			Duel.ConfirmCards(tp,sg)
+		end
+	end
+end
+function c33711006.target(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsPlayerCanDiscardDeck(tp,1)
+		and Duel.IsExistingMatchingCard(Card.IsAbleToHand,tp,LOCATION_DECK,0,1,nil) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_CODE)
+	getmetatable(e:GetHandler()).announce_filter={TYPE_FUSION+TYPE_SYNCHRO+TYPE_XYZ+TYPE_LINK,OPCODE_ISTYPE,OPCODE_NOT}
+	local ac=Duel.AnnounceCard(tp,table.unpack(getmetatable(e:GetHandler()).announce_filter))
+	Duel.SetTargetParam(ac)
+	Duel.SetOperationInfo(0,CATEGORY_ANNOUNCE,nil,0,tp,0)
+end
+function c33711006.desfilter(c)
+	return c:IsCode(33711006) and c:IsFaceup()
+end
+function c33711006.operation(e,tp,eg,ep,ev,re,r,rp)
+	if not e:GetHandler():IsRelateToEffect(e) or not Duel.IsPlayerCanDiscardDeck(tp,1) then return end
+	Duel.ConfirmDecktop(tp,1)
+	local g=Duel.GetDecktopGroup(tp,1)
+	local tc=g:GetFirst()
+	local ac=Duel.GetChainInfo(0,CHAININFO_TARGET_PARAM)
+	if tc:IsCode(ac) and tc:IsAbleToHand() then
+		Duel.DisableShuffleCheck()
+		Duel.SendtoHand(tc,nil,REASON_EFFECT)
+		Duel.ShuffleHand(tp)
+	else
+		Duel.DisableShuffleCheck()
+		Duel.SendtoGrave(tc,REASON_EFFECT+REASON_REVEAL)
+		local sc=Duel.GetOperatedGroup()
+		sc=sc:GetFirst()
+		if not sc:IsSetCard(0x442) then
+			local deg=Duel.GetMatchingGroup(c33711006.desfilter,tp,LOCATION_SZONE,0,nil)
+			Duel.Destroy(deg,REASON_EFFECT)
+		end
+	end
+end
\ No newline at end of file

expansions/script/c33711007.lua

+--罪恶的牺牲
+function c33711007.initial_effect(c)
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	c:RegisterEffect(e1)  
+	local e00=Effect.CreateEffect(c)
+	e00:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+	e00:SetProperty(EFFECT_FLAG_DELAY)
+	e00:SetCode(EVENT_CUSTOM+33711007)
+	e00:SetRange(LOCATION_SZONE)
+	e00:SetCondition(c33711007.con)
+	e00:SetOperation(c33711007.op)
+	c:RegisterEffect(e00)
+	local e3=Effect.CreateEffect(c)
+	e3:SetCategory(CATEGORY_REMOVE)
+	e3:SetType(EFFECT_TYPE_FIELD)
+	e3:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
+	e3:SetCode(EFFECT_CHANGE_DAMAGE)
+	e3:SetRange(LOCATION_SZONE)
+	e3:SetTargetRange(1,0)
+	e3:SetValue(c33711007.damval)
+	c:RegisterEffect(e3)
+	local e4=e3:Clone()
+	e4:SetCode(EFFECT_NO_EFFECT_DAMAGE)
+	e4:SetCondition(c33711007.damcon)
+	c:RegisterEffect(e4) 
+	local e2=Effect.CreateEffect(c)
+	e2:SetType(EFFECT_TYPE_FIELD)
+	e2:SetRange(LOCATION_SZONE)
+	e2:SetCode(EFFECT_CHANGE_DAMAGE)
+	e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
+	e2:SetTargetRange(1,0)
+	e2:SetCondition(c33711007.valcon)
+	e2:SetValue(c33711007.val)
+	c:RegisterEffect(e2)  
+end
+function c33711007.valcon(e)
+	return true
+end
+function c33711007.val(e,re,dam,r,rp,rc)
+	return dam*2
+end
+function c33711007.damval(e,re,val,r,rp,rc)
+	local c=e:GetHandler()
+	local tp=Duel.GetTurnPlayer()
+	if bit.band(r,REASON_BATTLE+REASON_EFFECT)~=0 and c:GetFlagEffect(33711007)==0 then
+		if Duel.GetFieldGroupCount(tp,LOCATION_DECK,0)>2 then
+			c:RegisterFlagEffect(33711007,RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END,0,1)
+			Duel.DisableActionCheck(true)   
+			Duel.RaiseEvent(c,EVENT_CUSTOM+33711007,e,val,tp,rp,re)
+		end
+	end
+	Duel.DisableActionCheck(false)
+	return val
+end
+function c33711007.con(e,tp,eg)
+   return e:GetHandler():GetFlagEffect(33711007)~=0 and e:GetHandler():GetFlagEffect(33711008)==0
+end
+function c33711007.op(e,tp,eg,ep,ev,re,r,rp)
+	if Duel.GetFieldGroupCount(tp,LOCATION_DECK,0)>2 and Duel.SelectYesNo(tp,aux.Stringid(33711007,1)) then
+		Duel.ConfirmDecktop(tp,3)
+		local g=Duel.GetDecktopGroup(tp,3)
+		local hg=Duel.GetFieldGroup(tp,LOCATION_HAND,0)
+		if hg:GetCount()>0 then
+			hg:Merge(g)
+			hg=hg:Filter(Card.IsType,nil,TYPE_MONSTER)
+			if hg:GetCount()>0 then
+				local tc=hg:Select(tp,1,1,nil):GetFirst()
+				Duel.Remove(tc,POS_FACEDOWN,REASON_EFFECT)
+				local e1=Effect.CreateEffect(e:GetHandler())
+				e1:SetType(EFFECT_TYPE_FIELD)
+				e1:SetCode(EFFECT_CANNOT_SUMMON)
+				e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
+				e1:SetTargetRange(1,0)
+				e1:SetTarget(c33711007.sumlimit)
+				e1:SetLabel(tc:GetCode())
+				Duel.RegisterEffect(e1,tp)
+				local e2=e1:Clone()
+				e2:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
+				Duel.RegisterEffect(e2,tp)
+				local c=e:GetHandler()
+				local e3=Effect.CreateEffect(c)
+				e3:SetType(EFFECT_TYPE_FIELD)
+				e3:SetCode(EFFECT_DISABLE)
+				e3:SetTargetRange(0x7f,0x7f)
+				e3:SetTarget(c33711007.distg)
+				e3:SetLabelObject(tc)
+				Duel.RegisterEffect(e3,tp)
+				local e4=Effect.CreateEffect(c)
+				e4:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+				e4:SetCode(EVENT_CHAIN_SOLVING)
+				e4:SetCondition(c33711007.discon)
+				e4:SetOperation(c33711007.disop)
+				e4:SetLabelObject(tc)
+				Duel.RegisterEffect(e4,tp)
+				Duel.Damage(tp,math.max(0,r-tc:GetTextDefense()),REASON_EFFECT)	  
+				e:GetHandler():RegisterFlagEffect(33711008,RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END,0,1)
+			end
+		end
+	else
+		Duel.Damage(tp,r/2^(Duel.GetMatchingGroupCount(c33711007.filter2,tp,LOCATION_SZONE,0,nil)-1),REASON_EFFECT)   
+		e:GetHandler():RegisterFlagEffect(33711008,RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END,0,1)
+	end
+end
+function c33711007.filter2(c)
+	return c:IsFaceup() and c:GetOriginalCode()==33711007
+end
+function c33711007.distg(e,c)
+	local tc=e:GetLabelObject()
+	return c:IsOriginalCodeRule(tc:GetOriginalCodeRule())
+end
+function c33711007.discon(e,tp,eg,ep,ev,re,r,rp)
+	local tc=e:GetLabelObject()
+	return re:IsActiveType(TYPE_MONSTER) and re:GetHandler():IsOriginalCodeRule(tc:GetOriginalCodeRule())
+end
+function c33711007.disop(e,tp,eg,ep,ev,re,r,rp)
+	Duel.NegateEffect(ev)
+end
+function c33711007.sumlimit(e,c)
+	return c:IsCode(e:GetLabel())
+end
+function c33711007.damcon(e)
+	return e:GetHandler():GetFlagEffect(33711007)==0
+end
\ No newline at end of file

expansions/script/c33711008.lua

+--虚拟主播 乙女音 SP
+function c33711008.initial_effect(c)
+	c:EnableReviveLimit() 
+	--sp1
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(33711008,1))
+	e1:SetType(EFFECT_TYPE_IGNITION)
+	e1:SetRange(LOCATION_HAND)
+	e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
+	e1:SetCountLimit(1)
+	e1:SetCondition(c33711008.spcon)
+	e1:SetTarget(c33711008.sptg)
+	e1:SetOperation(c33711008.spop)
+	c:RegisterEffect(e1)   
+	--
+	local e2=Effect.CreateEffect(c)
+	e2:SetDescription(aux.Stringid(33711008,2))
+	e2:SetCategory(CATEGORY_TOHAND)
+	e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+	e2:SetCode(EVENT_BATTLED)
+	e2:SetCountLimit(1)
+	e2:SetCondition(c33711008.thcon)
+	e2:SetTarget(c33711008.thtg)
+	e2:SetOperation(c33711008.thop)
+	c:RegisterEffect(e2)   
+end
+function c33711008.spcon(e,tp)
+	return Duel.GetFieldGroupCount(tp,LOCATION_MZONE,0)==0 and Duel.GetCurrentPhase()==PHASE_MAIN1
+end
+function c33711008.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,true,false) and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 end
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0)
+end
+function c33711008.spop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	if not c:IsRelateToEffect(e) or Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 or not e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,true,false) then return end
+		if Duel.SpecialSummonStep(e:GetHandler(),0,tp,tp,true,false,POS_FACEUP) then
+			local e1=Effect.CreateEffect(c)
+			e1:SetType(EFFECT_TYPE_SINGLE)
+			e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
+			e1:SetRange(LOCATION_MZONE)
+			e1:SetReset(RESET_EVENT+0xff0000)
+			e1:SetCode(EFFECT_SET_BASE_ATTACK)
+			e1:SetValue(c:GetTextAttack()/2)
+			c:RegisterEffect(e1)
+			local e2=Effect.CreateEffect(c)
+			e2:SetType(EFFECT_TYPE_SINGLE)
+			e2:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
+			e2:SetRange(LOCATION_MZONE)
+			e2:SetReset(RESET_EVENT+0xff0000)
+			e2:SetCode(EFFECT_SET_BASE_DEFENSE)
+			e2:SetValue(c:GetTextDefense()/2)
+			c:RegisterEffect(e2)
+			Duel.SpecialSummonComplete()
+			if Duel.GetTurnCount()<2 then
+				Duel.SkipPhase(tp,PHASE_MAIN1,RESET_PHASE+PHASE_END,1)
+				Duel.SkipPhase(tp,PHASE_END,RESET_PHASE+PHASE_END,1)
+				local e1=Effect.CreateEffect(c)
+				e1:SetType(EFFECT_TYPE_FIELD)
+				e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
+				e1:SetCode(EFFECT_SKIP_TURN)
+				e1:SetTargetRange(0,1)
+				e1:SetReset(RESET_PHASE+PHASE_END+RESET_OPPO_TURN)
+				Duel.RegisterEffect(e1,tp)
+				Duel.SkipPhase(tp,PHASE_DRAW,RESET_PHASE+PHASE_END,2)
+				Duel.SkipPhase(tp,PHASE_STANDBY,RESET_PHASE+PHASE_END,2)
+				Duel.SkipPhase(tp,PHASE_MAIN1,RESET_PHASE+PHASE_END,2)
+				local e2=Effect.CreateEffect(c)
+				e2:SetType(EFFECT_TYPE_FIELD)
+				e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
+				e2:SetCode(EFFECT_CANNOT_EP)
+				e2:SetTargetRange(1,0)
+				e2:SetReset(RESET_PHASE+PHASE_MAIN1+RESET_SELF_TURN)
+				Duel.RegisterEffect(e2,tp)
+			else
+				Duel.SkipPhase(tp,PHASE_MAIN1,RESET_PHASE+PHASE_END,1)
+			end
+			local e1=Effect.CreateEffect(c)
+			e1:SetType(EFFECT_TYPE_SINGLE)
+			e1:SetCode(EFFECT_DIRECT_ATTACK)
+			e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_BATTLE)
+			c:RegisterEffect(e1)
+		end
+end
+function c33711008.thcon(e)
+	return Duel.GetAttacker()==e:GetHandler()
+end
+function c33711008.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return true end
+	Duel.SetOperationInfo(0,CATEGORY_TOHAND,e:GetHandler(),1,0,0)
+end
+function c33711008.thop(e,tp,eg,ep,ev,re,r,rp)
+	Duel.SkipPhase(tp,PHASE_BATTLE,RESET_PHASE+PHASE_END,1)
+	Duel.SkipPhase(tp,PHASE_MAIN2,RESET_PHASE+PHASE_END,1)
+	if Duel.GetActivityCount(tp,ACTIVITY_SUMMON)==0 and Duel.GetActivityCount(tp,ACTIVITY_SPSUMMON)==0 and e:GetHandler():IsAbleToHand() and Duel.SelectYesNo(tp,aux.Stringid(33711008,0)) then
+		Duel.SendtoHand(e:GetHandler(),tp,REASON_EFFECT)
+	end
+end
\ No newline at end of file

expansions/script/c33711009.lua

+--动物朋友 二色薮猫
+function c33711009.initial_effect(c)
+	  --xyz summon
+	aux.AddXyzProcedureLevelFree(c,aux.FilterBoolFunction(Card.IsSetCard,0x442),aux.FilterBoolFunction(Card.IsFaceup),2,2)
+	c:EnableReviveLimit()  
+	--code
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_SINGLE)
+	e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
+	e1:SetCode(EFFECT_CHANGE_CODE)
+	e1:SetRange(LOCATION_MZONE+LOCATION_GRAVE)
+	e1:SetValue(33700055)
+	c:RegisterEffect(e1)
+ --to grave
+	local e2=Effect.CreateEffect(c)
+	e2:SetDescription(aux.Stringid(33711009,1))
+	e2:SetCategory(CATEGORY_TOGRAVE)
+	e2:SetType(EFFECT_TYPE_IGNITION)
+	e2:SetRange(LOCATION_MZONE)
+	e2:SetCost(c33711009.cost)
+	e2:SetTarget(c33711009.target)
+	e2:SetOperation(c33711009.operation)
+	c:RegisterEffect(e2)
+end
+function c33711009.cost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return e:GetHandler():CheckRemoveOverlayCard(tp,1,REASON_COST) end
+	Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription())
+	e:GetHandler():RemoveOverlayCard(tp,1,1,REASON_COST)
+end
+function c33711009.tgfilter(c)
+	return c:IsSetCard(0x442) and c:IsAbleToGrave()
+end
+function c33711009.target(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(c33711009.tgfilter,tp,LOCATION_DECK,0,1,nil) end
+	Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,nil,1,tp,LOCATION_DECK)
+end
+function c33711009.operation(e,tp,eg,ep,ev,re,r,rp)
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
+	local g=Duel.SelectMatchingCard(tp,c33711009.tgfilter,tp,LOCATION_DECK,0,1,1,nil)
+	if g:GetCount()>0 then
+		Duel.SendtoGrave(g,REASON_EFFECT)
+	end
+end
\ No newline at end of file

expansions/script/c33711010.lua

+--对极之心
+function c33711010.initial_effect(c)
+	--Activate
+	local e1=Effect.CreateEffect(c)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetHintTiming(0,TIMING_END_PHASE)
+	e1:SetCondition(c33711010.con)
+	e1:SetCost(c33711010.cost)
+	e1:SetTarget(c33711010.tg)
+	e1:SetOperation(c33711010.op)
+	c:RegisterEffect(e1)	
+end
+function c33711010.con(e,tp,eg,ep,ev,re,r,rp)
+	return Duel.GetTurnPlayer()==tp and Duel.GetCurrentPhase()==PHASE_END
+end
+function c33711010.cost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.CheckLPCost(tp,5000) end
+	Duel.PayLPCost(tp,5000)
+end
+function c33711010.tg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.GetFieldGroupCount(tp,LOCATION_HAND,LOCATION_HAND)>0 end
+end
+function c33711010.op(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	local e1=Effect.CreateEffect(e:GetHandler())
+	e1:SetType(EFFECT_TYPE_FIELD)
+	e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
+	e1:SetCode(EFFECT_SKIP_TURN)
+	e1:SetTargetRange(0,1)
+	e1:SetReset(RESET_PHASE+PHASE_END+RESET_OPPO_TURN)
+	Duel.RegisterEffect(e1,tp)
+	local e2=Effect.CreateEffect(c)
+	e2:SetCategory(CATEGORY_TOHAND)
+	e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+	e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
+	e2:SetCode(EVENT_PREDRAW)
+	e2:SetTargetRange(1,0)
+	e2:SetCondition(c33711010.condition1)
+	e2:SetOperation(c33711010.drawop)
+	Duel.RegisterEffect(e2,tp)
+	local g1=Duel.GetFieldGroup(tp,LOCATION_HAND,0)
+	local g2=Duel.GetFieldGroup(tp,0,LOCATION_HAND)
+	if g1:GetCount()==0 and g2:GetCount()==0 then return end
+	Duel.ConfirmCards(tp,g2)
+	Duel.ConfirmCards(1-tp,g1)
+	Duel.SendtoHand(g1,1-tp,REASON_EFFECT)
+	Duel.SendtoHand(g2,tp,REASON_EFFECT)
+	Duel.ShuffleHand(tp)
+	Duel.ShuffleHand(1-tp)
+end
+function c33711010.condition1(e,tp,eg,ep,ev,re,r,rp)
+	return Duel.GetTurnPlayer()==tp
+end
+function c33711010.drawop(e,tp,eg,ep,ev,re,r,rp)
+	local dt=Duel.GetDrawCount(tp)
+	if dt~=0 then
+		if Duel.SelectYesNo(tp,aux.Stringid(33711010,1)) then
+			aux.DrawReplaceCount=0
+			aux.DrawReplaceMax=dt
+			local e1=Effect.CreateEffect(e:GetHandler())
+			e1:SetType(EFFECT_TYPE_FIELD)
+			e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
+			e1:SetCode(EFFECT_DRAW_COUNT)
+			e1:SetTargetRange(1,0)
+			e1:SetReset(RESET_PHASE+PHASE_DRAW)
+			e1:SetValue(0)
+			Duel.RegisterEffect(e1,tp)
+			local g=Duel.GetDecktopGroup(1-tp,dt)
+			Duel.DisableShuffleCheck()
+			Duel.SendtoHand(g,tp,REASON_EFFECT)
+		end
+	end
+	local e2=Effect.CreateEffect(e:GetHandler())
+			e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+			e2:SetCode(EVENT_PHASE+PHASE_END)
+			e2:SetCountLimit(1)
+			e2:SetCondition(function(e,tp,eg,ep,ev,re,r,rp)
+				return true
+			end)
+			e2:SetOperation(function(e,tp,eg,ep,ev,re,r,rp)
+				local g1=Duel.GetFieldGroup(tp,LOCATION_HAND,0)
+				local g2=Duel.GetFieldGroup(tp,0,LOCATION_HAND)
+				Duel.ConfirmCards(tp,g2)
+				Duel.ConfirmCards(1-tp,g1)
+				Duel.SendtoHand(g1,1-tp,REASON_EFFECT)
+				Duel.SendtoHand(g2,tp,REASON_EFFECT)
+				Duel.ShuffleHand(tp)
+				Duel.ShuffleHand(1-tp)
+				local tfg=Duel.GetFieldGroup(tp,LOCATION_ONFIELD,0)
+				for tc in aux.Next(tfg) do
+					if tc:IsAbleToChangeControler() then
+						if tc:IsLocation(LOCATION_MZONE) and Duel.GetLocationCount(1-tp,LOCATION_MZONE)>0 then
+							Duel.GetControl(tc,1-tp)
+						elseif tc:IsLocation(LOCATION_FZONE) then
+							local fc=Duel.GetFieldCard(tp,LOCATION_FZONE,0)
+							if fc then
+								Duel.SendtoGrave(fc,REASON_RULE)
+								Duel.BreakEffect()
+							end
+							local pos=tc:GetPosition()
+							Duel.MoveToField(tc,tp,1-tp,LOCATION_FZONE,pos,true)
+						else
+							if Duel.GetLocationCount(1-tp,LOCATION_SZONE)>0 then
+								local pos=tc:GetPosition()
+								Duel.MoveToField(tc,tp,1-tp,LOCATION_SZONE,pos,true)
+							end
+						end
+					end
+				end
+			end)
+			e2:SetReset(RESET_PHASE+PHASE_END)
+			Duel.RegisterEffect(e2,tp)
+	e:Reset()
+end
\ No newline at end of file

expansions/script/c65010019.lua

@@ -77,15 +77,15 @@ function c65010019.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
 	local g=Duel.SelectTarget(tp,c65010019.filter,tp,LOCATION_GRAVE,LOCATION_GRAVE,1,1,nil,e,tp)
 	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0)
 end
-function c65010126.filter2(c)
+function c65010019.filter2(c)
 	return (c:IsSummonable(true,nil,1) or c:IsMSetable(true,nil,1)) and c:IsSetCard(0x9da0)
 end
 function c65010019.activate(e,tp,eg,ep,ev,re,r,rp)
 	local tc=Duel.GetFirstTarget()
 	if tc:IsRelateToEffect(e) then
-		if Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP)~=0 and Duel.IsExistingMatchingCard(c65010126.filter,tp,LOCATION_HAND,0,1,nil) and Duel.SelectYesNo(tp,aux.Stringid(65010126,0)) then
+		if Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP)~=0 and Duel.IsExistingMatchingCard(c65010019.filter2,tp,LOCATION_HAND,0,1,nil) and Duel.SelectYesNo(tp,aux.Stringid(65010019,0)) then
 			Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SUMMON)
-			local g=Duel.SelectMatchingCard(tp,c65010126.filter,tp,LOCATION_HAND,0,1,1,nil)
+			local g=Duel.SelectMatchingCard(tp,c65010019.filter2,tp,LOCATION_HAND,0,1,1,nil)
 			local tc=g:GetFirst()
 			if tc then
 				local s1=tc:IsSummonable(true,nil,1)

expansions/script/c65020204.lua

@@ -29,11 +29,11 @@ function cm.act(e,tp)
 	local op=e:GetLabel()
 	if op==1 then
 		if rsop.SelectRemove(tp,aux.NecroValleyFilter(cm.rmfilter1),tp,0,rsloc.og,1,1,nil,{})>0 and Duel.GetOperatedGroup():GetFirst():IsLocation(LOCATION_REMOVED) and Duel.IsExistingMatchingCard(cm.cfilter,tp,LOCATION_MZONE,0,1,nil) then
-			local e1=rsef.FV_LIMIT({c,tp},"dis",nil,aux.FilterBoolFunction(Card.IsType,TYPE_SPELL),{ 0,LOCATION_ONFIELD },nil,rsreset.pend)
+			local e1=rsef.FV_LIMIT({c,tp},"dis",nil,aux.TargetBoolFunction(Card.IsType,TYPE_SPELL),{ 0,LOCATION_ONFIELD },nil,rsreset.pend)
 		end
 	elseif op==2 then
 		if rsop.SelectRemove(tp,aux.NecroValleyFilter(cm.rmfilter2),tp,0,rsloc.og,1,1,nil,{})>0 and Duel.GetOperatedGroup():GetFirst():IsLocation(LOCATION_REMOVED) and Duel.IsExistingMatchingCard(cm.cfilter,tp,LOCATION_MZONE,0,1,nil) then
-			local e1=rsef.FV_LIMIT({c,tp},"dis",nil,aux.FilterBoolFunction(Card.IsType,TYPE_SPELL),{ 0,LOCATION_ONFIELD },nil,rsreset.pend)
+			local e1=rsef.FV_LIMIT({c,tp},"dis",nil,aux.TargetBoolFunction(Card.IsType,TYPE_TRAP),{ 0,LOCATION_ONFIELD },nil,rsreset.pend)
 		end
 	else
 		local ct,og,tc=rsop.SelectRemove(tp,aux.NecroValleyFilter(cm.rmfilter3),tp,0,rsloc.og,1,1,nil,{})

expansions/script/c79029259.lua

@@ -158,11 +158,11 @@ function c79029259.cz79029263op4(e,tp,eg,ep,ev,re,r,rp)
 	Duel.Hint(HINT_MESSAGE,0,aux.Stringid(79029263,7)) 
 	Duel.HintSelection(Group.FromCards(e:GetHandler())) 
 	Duel.Destroy(e:GetHandler(),REASON_RULE) 
-	Duel.HintSelection(Group.FromCards(c))	
+	Duel.HintSelection(Group.FromCards(c))  
 	Duel.HintSelection(Group.FromCards(c)) 
 	Duel.HintSelection(Group.FromCards(c)) 
 	c:SetCardData(CARDDATA_CODE,79029265)
-	Duel.Hint(HINT_SOUND,0,aux.Stringid(79029271,1))
+	Duel.Hint(HINT_MUSIC,tp,aux.Stringid(79029271,1))
 	Duel.Hint(HINT_CARD,0,79029262)
 	Duel.Hint(HINT_MESSAGE,0,aux.Stringid(79029265,0))
 	Duel.Hint(HINT_MESSAGE,0,aux.Stringid(79029265,1))
@@ -202,7 +202,7 @@ function c79029259.cz79029263op4(e,tp,eg,ep,ev,re,r,rp)
 	Duel.Hint(HINT_MESSAGE,0,aux.Stringid(79029266,12))  
 	Duel.Hint(HINT_MESSAGE,0,aux.Stringid(79029266,13))  
 	Duel.Hint(HINT_MESSAGE,0,aux.Stringid(79029266,14))  
-	Duel.Hint(HINT_MESSAGE,0,aux.Stringid(79029266,15))	 
+	Duel.Hint(HINT_MESSAGE,0,aux.Stringid(79029266,15))  
 	Duel.Hint(HINT_MESSAGE,0,aux.Stringid(79029267,0)) 
 	Duel.Hint(HINT_MESSAGE,0,aux.Stringid(79029267,1)) 
 	Duel.Hint(HINT_MESSAGE,0,aux.Stringid(79029267,2))  

expansions/script/c79029310.lua

@@ -29,12 +29,11 @@ function c79029310.reop(e,tp,eg,ep,ev,re,r,rp)
 	local c=e:GetHandler()
 	if Duel.GetTurnPlayer()~=tp then return end
 	if not Duel.SelectEffectYesNo(tp,e:GetHandler()) then return end
+	Duel.Hint(HINT_MUSIC,tp,aux.Stringid(79029310,1))
 	local ft=2
+	local ac=0
 	local chk=true
 	while chk do
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_CODE)
-	getmetatable(e:GetHandler()).announce_filter={0xdc0f,OPCODE_ISSETCARD}
-	local ac=Duel.AnnounceCard(tp,table.unpack(getmetatable(e:GetHandler()).announce_filter))
 	if ac==79029311 then
 	local e1=Effect.CreateEffect(c)
 	e1:SetType(EFFECT_TYPE_FIELD)
@@ -42,10 +41,12 @@ function c79029310.reop(e,tp,eg,ep,ev,re,r,rp)
 	e1:SetCode(EFFECT_UPDATE_ATTACK)
 	e1:SetValue(1000)
 	Duel.RegisterEffect(e1,tp)
+	getmetatable(e:GetHandler()).announce_filter={0xdc0f,OPCODE_ISSETCARD}
 	table.insert(getmetatable(e:GetHandler()).announce_filter,79029311)
 	table.insert(getmetatable(e:GetHandler()).announce_filter,OPCODE_ISCODE)
-	table.insert(getmetatable(e:GetHandler()).announce_filter,OPCODE_AND)
 	table.insert(getmetatable(e:GetHandler()).announce_filter,OPCODE_NOT)
+	table.insert(getmetatable(e:GetHandler()).announce_filter,OPCODE_AND)
+	ac=Duel.AnnounceCard(tp,table.unpack(getmetatable(e:GetHandler()).announce_filter))
 	ft=ft-1
 	elseif ac==79029312 then
 	local e2=Effect.CreateEffect(c)
@@ -53,16 +54,38 @@ function c79029310.reop(e,tp,eg,ep,ev,re,r,rp)
 	e2:SetCode(EFFECT_USE_EXTRA_MZONE)
 	e2:SetValue(2)
 	Duel.RegisterEffect(e2,tp)
+	getmetatable(e:GetHandler()).announce_filter={0xdc0f,OPCODE_ISSETCARD}
 	table.insert(getmetatable(e:GetHandler()).announce_filter,79029312)
 	table.insert(getmetatable(e:GetHandler()).announce_filter,OPCODE_ISCODE)
 	table.insert(getmetatable(e:GetHandler()).announce_filter,OPCODE_NOT)
-	ft=ft-1
-	else
+	table.insert(getmetatable(e:GetHandler()).announce_filter,OPCODE_AND)
+	ac=Duel.AnnounceCard(tp,table.unpack(getmetatable(e:GetHandler()).announce_filter))
+	ft=ft-1 
+	else 
+	getmetatable(e:GetHandler()).announce_filter={0xdc0f,OPCODE_ISSETCARD}
+	ac=Duel.AnnounceCard(tp,table.unpack(getmetatable(e:GetHandler()).announce_filter))
+	ft=ft-1 
 	end
-	if ft<=0 or not Duel.SelectYesNo(tp,aux.Stringid(79029310,0)) then
+	if ft<=0 or not Duel.SelectYesNo(tp,aux.Stringid(79029310,0)) then 
 	chk=false
 	end
 	end
+	local ac=ac
+	if ac==79029311 then
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_FIELD)
+	e1:SetTargetRange(0,LOCATION_MZONE)
+	e1:SetCode(EFFECT_UPDATE_ATTACK)
+	e1:SetValue(1000)
+	Duel.RegisterEffect(e1,tp)
+	elseif ac==79029312 then
+	local e2=Effect.CreateEffect(c)
+	e2:SetType(EFFECT_TYPE_FIELD)
+	e2:SetCode(EFFECT_USE_EXTRA_MZONE)
+	e2:SetValue(2)
+	Duel.RegisterEffect(e2,tp)
+	else 
+	end
 end
 
 

expansions/script/c79029320.lua

@@ -67,6 +67,32 @@ function c79029320.initial_effect(c)
 	e6:SetTarget(c79029320.spcost2)
 	e6:SetOperation(c79029320.toop)
 	c:RegisterEffect(e6)
+	--effect gian
+	local e5=Effect.CreateEffect(c)
+	e5:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+	e5:SetCode(EVENT_ADJUST)
+	e5:SetRange(LOCATION_MZONE)
+	e5:SetOperation(c79029320.efop)
+	c:RegisterEffect(e5) 
+end
+function c79029320.effilter(c)
+	return c:IsType(TYPE_MONSTER)
+end
+function c79029320.efop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()  
+	local ct=Duel.GetFieldGroup(tp,LOCATION_SZONE,0)
+	local wg=ct:Filter(c79029320.effilter,nil,tp)
+	local wbc=wg:GetFirst()
+	Debug.Message("..")
+	while wbc do
+	Debug.Message("..")
+		local code=wbc:GetOriginalCode()
+		if c:GetFlagEffect(code)==0 then
+		c:CopyEffect(code,RESET_EVENT+0x1fe0000+EVENT_CHAINING,1)
+		c:RegisterFlagEffect(code,RESET_EVENT+0x1fe0000+EVENT_CHAINING,0,1)  
+		end 
+		wbc=wg:GetNext()
+	end  
 end
 function c79029320.splimit1(e,c,tp,sumtp,sumpos)
 	return not c:IsSetCard(0xa900) and bit.band(sumtp,SUMMON_TYPE_PENDULUM)==SUMMON_TYPE_PENDULUM
@@ -133,20 +159,7 @@ function c79029320.eqop(e,tp,eg,ep,ev,re,r,rp)
 		e1:SetReset(RESET_EVENT+RESETS_STANDARD)
 		e1:SetValue(c79029320.eqlimit)
 		tc:RegisterEffect(e1)
-		local cid=c:CopyEffect(tc:GetOriginalCode(),0,1)
-		--
-		local e2=Effect.CreateEffect(c)
-		e2:SetDescription(aux.Stringid(41209827,3))
-		e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
-		e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE+EFFECT_FLAG_DELAY)
-		e2:SetCode(EVENT_LEAVE_FIELD)
-		e2:SetLabelObject(c)
-		e2:SetLabel(cid)
-		e2:SetOperation(c79029320.rstop)
-		tc:RegisterEffect(e2)
-		local e3=e2:Clone()
-		e3:SetCode(EVENT_BE_MATERIAL)
-		c:RegisterEffect(e3)
+		tc:RegisterFlagEffect(79029320,RESET_EVENT+RESETS_STANDARD,0,1,0,aux.Stringid(79029320,0))
 		local atk=tc:GetBaseAttack()
 		if atk>0 then
 			local e2=Effect.CreateEffect(c)

expansions/script/c79029326.lua

@@ -80,11 +80,8 @@ end
 function c79029326.thcon(e,tp,eg,ep,ev,re,r,rp)
 	return e:GetHandler():IsPreviousLocation(LOCATION_ONFIELD)
 end
-function c79029326.thfilter(c)
-	return c:IsSetCard(0xfc) and not c:IsCode(79029326) and c:IsAbleToHand()
-end
 function c79029326.filter(c,e,tp)
-	return c:IsType(TYPE_FUSION) and c:CheckFusionMaterial() and c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_FUSION,tp,false,false) and Duel.GetLocationCountFromEx(tp,tp,nil,c)>0 and c:IsSetCard(0xa900)
+	return c:IsType(TYPE_FUSION) and c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_FUSION,tp,false,false) and Duel.GetLocationCountFromEx(tp,tp,nil,c)>0 and c:IsSetCard(0xa900)
 end
 function c79029326.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
 	if chk==0 then return aux.MustMaterialCheck(nil,tp,EFFECT_MUST_BE_FMATERIAL)

expansions/script/c79029359.lua

+--罗德岛·近卫干员-阿米娅
+function c79029359.initial_effect(c)
+	--link summon
+	aux.AddLinkProcedure(c,nil,3,99,c79029359.lcheck)
+	c:EnableReviveLimit() 
+	--spsummon condition
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_SINGLE)
+	e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
+	e1:SetCode(EFFECT_SPSUMMON_CONDITION)
+	e1:SetValue(aux.linklimit)
+	c:RegisterEffect(e1)   
+	--atk up
+	local e2=Effect.CreateEffect(c)
+	e2:SetType(EFFECT_TYPE_SINGLE)
+	e2:SetCode(EFFECT_SET_BASE_ATTACK)
+	e2:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
+	e2:SetRange(LOCATION_MZONE)
+	e2:SetValue(c79029359.val)
+	c:RegisterEffect(e2)   
+	--atk down
+	local e1=Effect.CreateEffect(c)
+	e1:SetCategory(CATEGORY_TODECK+CATEGORY_TOGRAVE)
+	e1:SetType(EFFECT_TYPE_QUICK_O)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	e1:SetRange(LOCATION_MZONE)
+	e1:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_END_PHASE)
+	e1:SetCountLimit(1,79029359)
+	e1:SetCost(c79029359.tgcost)  
+	e1:SetTarget(c79029359.tgtg)
+	e1:SetOperation(c79029359.tgop)
+	c:RegisterEffect(e1)
+	--
+	local e3=Effect.CreateEffect(c)
+	e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+	e3:SetCode(EVENT_SPSUMMON_SUCCESS)
+	e3:SetProperty(EFFECT_FLAG_DELAY)
+	e3:SetCountLimit(1,09029359)
+	e3:SetCondition(c79029359.negcon)
+	e3:SetOperation(c79029359.negop)
+	c:RegisterEffect(e3)	
+end
+function c79029359.lcheck(g,lc)
+	return g:IsExists(Card.IsLinkSetCard,1,nil,0xa900)
+end
+function c79029359.val(e,c)
+	local g=Duel.GetMatchingGroup(nil,c:GetControler(),LOCATION_GRAVE,LOCATION_GRAVE,nil)
+	local ct=g:GetCount()
+	return ct*500
+end
+function c79029359.tgcost(e,tp,eg,ep,ev,re,r,rp,chk)
+	local c=e:GetHandler()
+	if chk==0 then return c:IsAbleToRemoveAsCost() end
+	if Duel.Remove(c,POS_FACEUP,REASON_COST+REASON_TEMPORARY)~=0 then
+		local e1=Effect.CreateEffect(c)
+		e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+		e1:SetCode(EVENT_PHASE+PHASE_END)
+		e1:SetReset(RESET_PHASE+PHASE_END)
+		e1:SetLabelObject(c)
+		e1:SetCountLimit(1)
+		e1:SetOperation(c79029359.retop)
+		Duel.RegisterEffect(e1,tp)
+	end
+end
+function c79029359.retop(e,tp,eg,ep,ev,re,r,rp)
+	Duel.ReturnToField(e:GetLabelObject())
+end
+function c79029359.tdfil(c)
+	return c:IsSetCard(0xa900) and c:IsAbleToDeck()
+end
+function c79029359.tgtg(e,tp,eg,ep,ev,re,r,rp,chk)
+	local mg=Duel.GetMatchingGroup(nil,tp,0,LOCATION_MZONE,nil)
+	if chk==0 then return Duel.IsExistingMatchingCard(c79029359.tdfil,tp,LOCATION_REMOVED+LOCATION_GRAVE,0,1,nil) and mg:GetCount()>0 end
+	Duel.SetOperationInfo(0,CATEGORY_TODECK,nil,0,tp,LOCATION_REMOVED+LOCATION_GRAVE)
+	Debug.Message("我背负着许多人的愤怒。")
+	Duel.Hint(HINT_SOUND,tp,aux.Stringid(79029359,0))
+end
+function c79029359.tgop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	local g=Duel.GetMatchingGroup(c79029359.tdfil,tp,LOCATION_REMOVED+LOCATION_GRAVE,0,nil)
+	if g:GetCount()<=0 then return false end
+	local xg=g:Select(tp,1,99,nil)
+	local x=Duel.SendtoDeck(xg,nil,2,REASON_EFFECT)
+	local mg=Duel.GetMatchingGroup(nil,tp,0,LOCATION_MZONE,nil)
+	if mg:GetCount()<=0 then return false end 
+	local tc=mg:GetFirst() 
+	while tc do
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_SINGLE)
+	e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
+	e1:SetCode(EFFECT_UPDATE_ATTACK)
+	e1:SetValue(x*-1000)
+	e1:SetRange(LOCATION_MZONE)
+	e1:SetReset(RESET_EVENT+RESETS_STANDARD)
+	tc:RegisterEffect(e1)
+	tc=mg:GetNext()
+	end  
+	local sg=Duel.GetMatchingGroup(Card.IsAttack,tp,0,LOCATION_MZONE,nil,0)
+	local a=Duel.SendtoGrave(sg,REASON_EFFECT+REASON_RULE)
+	Duel.SetLP(1-tp,Duel.GetLP(1-tp)-a*800)
+end
+function c79029359.negop(e,tp,eg,ep,ev,re,r,rp)
+	Debug.Message("这把剑渴望着报复......我不能放纵它。")
+	Duel.Hint(HINT_SOUND,tp,aux.Stringid(79029359,1))
+	local c=e:GetHandler()
+	--negate
+	local e3=Effect.CreateEffect(c)
+	e3:SetCategory(CATEGORY_DISABLE)
+	e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+	e3:SetCode(EVENT_CHAIN_SOLVING)
+	e3:SetCondition(c79029359.negcon)
+	e3:SetOperation(c79029359.negop1)
+	e3:SetReset(RESET_PHASE+PHASE_END,2)
+	Duel.RegisterEffect(e3,tp) 
+end
+function c79029359.negcon(e,tp,eg,ep,ev,re,r,rp)
+	return e:GetHandler():IsSummonType(SUMMON_TYPE_LINK) 
+end
+function c79029359.negop1(e,tp,eg,ep,ev,re,r,rp)
+	local rc=re:GetHandler()
+	if rc:GetControler()~=tp and Duel.SelectEffectYesNo(tp,e:GetHandler()) then
+	Debug.Message("你的想法，你的法术，我都能切开。")
+	Duel.Hint(HINT_SOUND,tp,aux.Stringid(79029359,2))
+	Duel.Hint(HINT_CARD,0,79029359)
+	Duel.NegateEffect(ev)
+	Duel.Remove(rc,POS_FACEUP,REASON_EFFECT)
+	e:Reset()
+end
+end
+
+
+
+
+
+
+
+

expansions/script/c79029360.lua

+--雷神工业·特种干员-THRM-EX
+function c79029360.initial_effect(c)
+	--tohand
+	local e3=Effect.CreateEffect(c)
+	e3:SetDescription(aux.Stringid(79029360,0))
+	e3:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
+	e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+	e3:SetProperty(EFFECT_FLAG_DELAY)
+	e3:SetCode(EVENT_TO_GRAVE)
+	e3:SetCountLimit(1,7540108)
+	e3:SetTarget(c79029360.thtg)
+	e3:SetOperation(c79029360.thop)
+	c:RegisterEffect(e3)
+	--
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(79029360,1))
+	e1:SetCategory(CATEGORY_DESTROY)
+	e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
+	e1:SetType(EFFECT_TYPE_QUICK_O)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	e1:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_MAIN_END)
+	e1:SetRange(LOCATION_HAND)
+	e1:SetCountLimit(1,0540108)
+	e1:SetCondition(c79029360.condition)
+	e1:SetCost(c79029360.cost)
+	e1:SetTarget(c79029360.target)
+	e1:SetOperation(c79029360.operation)
+	c:RegisterEffect(e1)
+end
+function c79029360.thfilter(c)
+	return c:IsSetCard(0xa904) and c:IsAbleToHand()
+end
+function c79029360.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(c79029360.thfilter,tp,LOCATION_DECK,0,1,nil) end
+	Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
+end
+function c79029360.thop(e,tp,eg,ep,ev,re,r,rp)
+	Debug.Message("全军出击！")
+	Duel.Hint(HINT_SOUND,tp,aux.Stringid(79029360,0))
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
+	local g=Duel.SelectMatchingCard(tp,c79029360.thfilter,tp,LOCATION_DECK,0,1,1,nil)
+	if g:GetCount()>0 then
+		Duel.SendtoHand(g,nil,REASON_EFFECT)
+		Duel.ConfirmCards(1-tp,g)
+	end
+end
+function c79029360.condition(e,tp,eg,ep,ev,re,r,rp)
+	local ph=Duel.GetCurrentPhase()
+	return Duel.GetTurnPlayer()~=tp and (ph==PHASE_MAIN1 or ph==PHASE_MAIN2)
+end
+function c79029360.cost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return e:GetHandler():IsAbleToGraveAsCost() end
+	Duel.SendtoGrave(e:GetHandler(),REASON_COST)
+end
+function c79029360.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chkc then return chkc:IsControler(1-tp) and chkc:IsLocation(LOCATION_MZONE) and c79029360.filter(chkc) end
+	if chk==0 then return Duel.IsExistingTarget(nil,tp,0,LOCATION_MZONE,1,nil) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP)
+	local g=Duel.SelectTarget(tp,nil,tp,0,LOCATION_MZONE,1,1,nil)
+	Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0)
+end
+function c79029360.operation(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	local tc=Duel.GetFirstTarget()
+	if tc:IsRelateToEffect(e) and tc:IsType(TYPE_MONSTER) and tc:IsControler(1-tp) then
+	Debug.Message("赞美热量！")
+	Duel.Hint(HINT_SOUND,tp,aux.Stringid(79029360,1))
+	if Duel.Destroy(tc,REASON_EFFECT) then
+	local seq=tc:GetPreviousSequence()
+	e:SetLabel(seq+16)
+	local e1=Effect.CreateEffect(e:GetHandler())
+	e1:SetType(EFFECT_TYPE_FIELD)
+	e1:SetCode(EFFECT_DISABLE_FIELD)
+	e1:SetLabel(e:GetLabel())
+	e1:SetOperation(c79029360.disop)
+	e1:SetReset(RESET_PHASE+PHASE_END)
+	Duel.RegisterEffect(e1,tp)
+		end   
+	end
+end
+function c79029360.disop(e,tp)
+	return bit.lshift(0x1,e:GetLabel())
+end
+
+
+

expansions/script/c79029361.lua

+--罗德岛·重装干员-泡泡
+function c79029361.initial_effect(c)
+	--link summon
+	aux.AddLinkProcedure(c,c79029361.mfilter,1,1)
+	c:EnableReviveLimit()  
+	--addown
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_SINGLE)
+	e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
+	e1:SetRange(LOCATION_MZONE)
+	e1:SetCode(EFFECT_INDESTRUCTABLE_BATTLE)
+	e1:SetValue(1)
+	c:RegisterEffect(e1)
+	--damage
+	local e2=Effect.CreateEffect(c)
+	e2:SetType(EFFECT_TYPE_SINGLE)
+	e2:SetCode(EFFECT_ALSO_BATTLE_DAMAGE)
+	c:RegisterEffect(e2) 
+	--SpecialSummon
+	local e4=Effect.CreateEffect(c)
+	e4:SetCategory(CATEGORY_SPECIAL_SUMMON)
+	e4:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
+	e4:SetProperty(EFFECT_FLAG_DELAY+EFFECT_FLAG_DAMAGE_STEP)
+	e4:SetCode(EVENT_BATTLE_DAMAGE)
+	e4:SetRange(LOCATION_MZONE)
+	e4:SetCountLimit(1,79029361)
+	e4:SetCondition(c79029361.damcon)
+	e4:SetOperation(c79029361.damop)
+	c:RegisterEffect(e4) 
+end
+function c79029361.mfilter(c)
+	return c:IsLevelAbove(8) and c:IsSetCard(0xa900)
+end
+function c79029361.spfil(c,e,tp,ev,zone)
+	return c:IsAttackBelow(ev) and c:IsSetCard(0xa900) 
+	and c:IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEUP,tp,zone)
+end  
+function c79029361.damcon(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	local zone=e:GetHandler():GetLinkedZone()
+	return ep==tp and (Duel.GetAttacker()==e:GetHandler() or Duel.GetAttackTarget()==e:GetHandler()) and Duel.IsExistingMatchingCard(c79029361.spfil,tp,LOCATION_EXTRA+LOCATION_DECK,0,1,nil,e,tp,ev,zone)
+end
+function c79029361.damop(e,tp,eg,ep,ev,re,r,rp)
+	local zone=e:GetHandler():GetLinkedZone()
+	Debug.Message("我们数到一就开始跑，好不好？")
+	Duel.Hint(HINT_SOUND,tp,aux.Stringid(79029361,0))
+	local g=Duel.SelectMatchingCard(tp,c79029361.spfil,tp,LOCATION_EXTRA+LOCATION_DECK,0,1,1,nil,e,tp,ev,zone)   
+	if g:GetCount()>0 then 
+	Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP,zone)
+	end 
+end
+
+
+
+
+
+
+
+
+
+
+
+

expansions/script/c79029362.lua

+--黑钢国际·行动-任务接收
+function c79029362.initial_effect(c)
+	--
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	e1:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_END_PHASE)
+	e1:SetCountLimit(1,79029362)
+	e1:SetTarget(c79029362.actg)
+	e1:SetOperation(c79029362.acop)
+	c:RegisterEffect(e1)
+	--
+	local e2=Effect.CreateEffect(c)
+	e2:SetCategory(CATEGORY_SPECIAL_SUMMON)
+	e2:SetType(EFFECT_TYPE_QUICK_O)
+	e2:SetRange(LOCATION_GRAVE)
+	e2:SetCode(EVENT_FREE_CHAIN)
+	e2:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_END_PHASE)
+	e2:SetCountLimit(1,09029362)
+	e2:SetCost(aux.bfgcost)
+	e2:SetTarget(c79029362.bgtg)
+	e2:SetOperation(c79029362.bgop)
+	c:RegisterEffect(e2)   
+end
+function c79029362.ssfil(c,e)
+	return c:IsSSetable(true) and c:IsSetCard(0x1904) and c:IsType(TYPE_TRAP) and not c:IsCode(79029362)
+end
+function c79029362.actg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(Card.IsAbleToGrave,tp,LOCATION_HAND,0,1,nil) and Duel.IsExistingMatchingCard(c79029362.ssfil,tp,LOCATION_DECK,0,1,nil,e) end
+end
+function c79029362.acop(e,tp,eg,ep,ev,re,r,rp)
+	local s1=Duel.GetMatchingGroupCount(c79029362.ssfil,tp,LOCATION_DECK,0,nil)
+	local s2=Duel.GetLocationCount(tp,LOCATION_SZONE)
+	if s1<s2 then s1,s2=s2,s1 end
+	local g=Duel.SelectMatchingCard(tp,Card.IsAbleToGrave,tp,LOCATION_HAND,0,1,s2,nil)
+	local x=Duel.SendtoGrave(g,REASON_EFFECT)
+	if x>0 then
+	sg=Duel.SelectMatchingCard(tp,c79029362.ssfil,tp,LOCATION_DECK,0,x,x,nil,e)
+	end
+	if Duel.SSet(tp,sg)~=0 then
+	local tc=sg:GetFirst()
+	while tc do
+		local e1=Effect.CreateEffect(e:GetHandler())
+		e1:SetType(EFFECT_TYPE_SINGLE)
+		e1:SetCode(EFFECT_TRAP_ACT_IN_SET_TURN)
+		e1:SetProperty(EFFECT_FLAG_SET_AVAILABLE)
+		e1:SetReset(RESET_EVENT+RESETS_STANDARD)
+		tc:RegisterEffect(e1)
+	tc=sg:GetNext()
+	end
+end
+end
+function c79029362.xxfil(c)
+	 return c:IsType(TYPE_TRAP) and c:IsSetCard(0x1904)
+end
+function c79029362.bgtg(e,tp,eg,ep,ev,re,r,rp,chk)
+	 local x=Duel.GetMatchingGroupCount(c79029362.xxfil,tp,LOCATION_GRAVE,0,nil)
+	 if chk==0 then return Duel.GetFieldGroupCount(tp,LOCATION_DECK,0)>=x end
+end
+function c79029362.ccfil(c,e,tp)
+	 return c:IsType(TYPE_MONSTER) and c:IsSetCard(0x1904)
+end
+function c79029362.bgop(e,tp,eg,ep,ev,re,r,rp)
+	 local x=Duel.GetMatchingGroupCount(c79029362.xxfil,tp,LOCATION_GRAVE,0,nil)
+	 local g=Duel.GetDecktopGroup(tp,x) 
+	 Duel.ConfirmDecktop(tp,x)
+	 if g:GetCount()>0 then
+	 Duel.DisableShuffleCheck()
+	 if g:IsExists(c79029362.ccfil,1,nil,e,tp) and Duel.SelectYesNo(tp,aux.Stringid(79029362,0)) then
+	 sg=g:FilterSelect(tp,c79029362.ccfil,1,1,nil,e,tp)
+	 Duel.SpecialSummon(sg,0,tp,tp,true,false,POS_FACEUP)
+	 end
+end
+end
+
+
+
+
+
+
+
+

expansions/script/c89386000.lua

+--暴噬星皇神帝·戴思提奥尔
+local m=89386000
+local cm=_G["c"..m]
+function cm.initial_effect(c)
+    c:EnableReviveLimit()
+    c:SetUniqueOnField(1,0,m,LOCATION_MZONE)
+    local e1=Effect.CreateEffect(c)
+    e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
+    e1:SetType(EFFECT_TYPE_SINGLE)
+    e1:SetCode(EFFECT_SPSUMMON_CONDITION)
+    e1:SetValue(aux.FALSE)
+    c:RegisterEffect(e1)
+    local e3=Effect.CreateEffect(c)
+    e3:SetCategory(CATEGORY_DRAW)
+    e3:SetType(EFFECT_TYPE_IGNITION)
+    e3:SetRange(LOCATION_HAND)
+    e3:SetCondition(cm.thcon)
+    e3:SetCost(cm.thcost)
+    e3:SetTarget(cm.thtg)
+    e3:SetOperation(cm.thop)
+    c:RegisterEffect(e3)
+    local e4=Effect.CreateEffect(c)
+    e4:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F)
+    e4:SetCode(EVENT_CUSTOM+m)
+    e4:SetRange(LOCATION_GRAVE+LOCATION_REMOVED)
+    e4:SetTarget(cm.sptg)
+    e4:SetOperation(cm.spop)
+    c:RegisterEffect(e4)
+    local e5=Effect.CreateEffect(c)
+    e5:SetCategory(CATEGORY_DESTROY)
+    e5:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F)
+    e5:SetCode(EVENT_SPSUMMON_SUCCESS)
+    e5:SetTarget(cm.destg)
+    e5:SetOperation(cm.desop)
+    c:RegisterEffect(e5)
+    local e6=Effect.CreateEffect(c)
+    e6:SetType(EFFECT_TYPE_SINGLE)
+    e6:SetCode(EFFECT_CANNOT_BE_EFFECT_TARGET)
+    e6:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
+    e6:SetRange(LOCATION_MZONE+LOCATION_GRAVE)
+    e6:SetValue(aux.tgoval)
+    c:RegisterEffect(e6)
+    Duel.AddCustomActivityCounter(m,ACTIVITY_SUMMON,cm.counterfilter)
+    Duel.AddCustomActivityCounter(m,ACTIVITY_SPSUMMON,cm.counterfilter)
+    if not cm.global_check then
+        cm.global_check=true
+        local e2=Effect.CreateEffect(c)
+        e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+        e2:SetCode(EVENT_CHAIN_NEGATED)
+        e2:SetCondition(cm.regcon)
+        e2:SetOperation(cm.regop2)
+        Duel.RegisterEffect(e2,0)
+        Duel.RegisterFlagEffect(0,m,0,0,0,0)
+        Duel.RegisterFlagEffect(1,m,0,0,0,0)
+    end
+end
+function cm.counterfilter(c)
+    return c:IsSetCard(0xcc30)
+end
+function cm.regcon(e,tp,eg,ep,ev,re,r,rp)
+    return re:GetHandler()==e:GetHandler()
+end
+function cm.regop2(e,tp,eg,ep,ev,re,r,rp)
+    Duel.SetFlagEffectLabel(ep,m,Duel.GetFlagEffectLabel(ep,m)-1)
+end
+function cm.ctfilter(c)
+    return c:IsFaceup() and c:IsCode(m)
+end
+function cm.ctvalue(e)
+    return Duel.IsExistingMatchingCard(cm.ctfilter,e:GetHandlerPlayer(),LOCATION_MZONE,0,1,nil)
+end
+function cm.thcost(e,tp,eg,ep,ev,re,r,rp,chk)
+    local c=e:GetHandler()
+    if chk==0 then return Duel.GetCustomActivityCount(m,tp,ACTIVITY_SUMMON)==0 and Duel.GetCustomActivityCount(m,tp,ACTIVITY_SPSUMMON)==0 and c:IsDiscardable() end
+    Duel.SendtoGrave(c,REASON_COST+REASON_DISCARD)
+    local e1=Effect.CreateEffect(c)
+    e1:SetType(EFFECT_TYPE_FIELD)
+    e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_OATH)
+    e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
+    e1:SetReset(RESET_PHASE+PHASE_END)
+    e1:SetTargetRange(1,0)
+    e1:SetTarget(cm.splimit)
+    Duel.RegisterEffect(e1,tp)
+    local e2=e1:Clone()
+    e2:SetCode(EFFECT_CANNOT_SUMMON)
+    Duel.RegisterEffect(e2,tp)
+end
+function cm.splimit(e,c,sump,sumtype,sumpos,targetp,se)
+    return not c:IsSetCard(0xcc30)
+end
+function cm.thfilter(c)
+    return c:IsFaceup() and c:IsCode(m)
+end
+function cm.thcon(e,tp,eg,ep,ev,re,r,rp)
+    return not Duel.IsExistingMatchingCard(cm.thfilter,tp,LOCATION_MZONE,0,1,nil)
+end
+function cm.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
+    if chk==0 then return Duel.IsPlayerCanDraw(tp,1) end
+    Duel.SetTargetPlayer(tp)
+    Duel.SetTargetParam(1)
+    Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,1)
+    Duel.SetFlagEffectLabel(tp,m,Duel.GetFlagEffectLabel(tp,m)+1)
+end
+function cm.thop(e,tp,eg,ep,ev,re,r,rp)
+    local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM)
+    Duel.Draw(p,d,REASON_EFFECT)
+    Duel.RaiseSingleEvent(e:GetHandler(),EVENT_CUSTOM+m,re,r,rp,ep,ev)
+end
+function cm.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
+    local c=e:GetHandler()
+    if Duel.GetFlagEffectLabel(tp,m)>=5 then
+        if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and c:IsCanBeSpecialSummoned(e,0,tp,true,true) end
+        Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,c,1,0,0)
+        e:SetCategory(CATEGORY_SPECIAL_SUMMON)
+    else
+        if chk==0 then return c:IsAbleToDeck() end
+        Duel.SetOperationInfo(0,CATEGORY_TODECK,c,1,0,0)
+        e:SetCategory(CATEGORY_TODECK)
+    end
+end
+function cm.spop(e,tp,eg,ep,ev,re,r,rp)
+    local c=e:GetHandler()
+    if not c:IsRelateToEffect(e) then return end
+    if Duel.GetFlagEffectLabel(tp,m)>=5 then
+        Duel.SpecialSummon(c,0,tp,tp,true,true,POS_FACEUP)
+    else
+        Duel.SendtoDeck(c,nil,2,REASON_EFFECT)
+    end
+end
+function cm.destg(e,tp,eg,ep,ev,re,r,rp,chk)
+    if chk==0 then return true end
+    local g=Duel.GetFieldGroup(tp,0,LOCATION_ONFIELD)
+    Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0)
+    Duel.SetChainLimit(cm.chlimit)
+end
+function cm.chlimit(e,ep,tp)
+    return tp==ep
+end
+function cm.desop(e,tp,eg,ep,ev,re,r,rp)
+    local g=Duel.GetFieldGroup(tp,0,LOCATION_ONFIELD)
+    if g:GetCount()>0 then
+        Duel.Destroy(g,REASON_EFFECT)
+    end
+end

expansions/script/c89386001.lua

+--神帝暴噬星皇·利比里亚
+local m=89386001
+local cm=_G["c"..m]
+function cm.initial_effect(c)
+    c:EnableReviveLimit()
+    c:SetUniqueOnField(1,0,m,LOCATION_MZONE)
+    local e1=Effect.CreateEffect(c)
+    e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
+    e1:SetType(EFFECT_TYPE_SINGLE)
+    e1:SetCode(EFFECT_SPSUMMON_CONDITION)
+    e1:SetValue(aux.FALSE)
+    c:RegisterEffect(e1)
+    local e3=Effect.CreateEffect(c)
+    e3:SetCategory(CATEGORY_DRAW)
+    e3:SetType(EFFECT_TYPE_IGNITION)
+    e3:SetRange(LOCATION_HAND)
+    e3:SetCondition(cm.thcon)
+    e3:SetCost(cm.thcost)
+    e3:SetTarget(cm.thtg)
+    e3:SetOperation(cm.thop)
+    c:RegisterEffect(e3)
+    local e4=Effect.CreateEffect(c)
+    e4:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F)
+    e4:SetCode(EVENT_CUSTOM+m)
+    e4:SetRange(LOCATION_GRAVE+LOCATION_REMOVED)
+    e4:SetTarget(cm.sptg)
+    e4:SetOperation(cm.spop)
+    c:RegisterEffect(e4)
+    local e5=Effect.CreateEffect(c)
+    e5:SetCategory(CATEGORY_REMOVE)
+    e5:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+    e5:SetProperty(EFFECT_FLAG_DELAY)
+    e5:SetCode(EVENT_SPSUMMON_SUCCESS)
+    e5:SetTarget(cm.destg)
+    e5:SetOperation(cm.desop)
+    c:RegisterEffect(e5)
+    local e6=Effect.CreateEffect(c)
+    e6:SetCategory(CATEGORY_DISABLE)
+    e6:SetType(EFFECT_TYPE_QUICK_O)
+    e6:SetCode(EVENT_CHAINING)
+    e6:SetRange(LOCATION_MZONE)
+    e6:SetCountLimit(1)
+    e6:SetCondition(cm.discon)
+    e6:SetTarget(cm.distg)
+    e6:SetOperation(cm.disop)
+    c:RegisterEffect(e6)
+    Duel.AddCustomActivityCounter(m,ACTIVITY_SUMMON,cm.counterfilter)
+    Duel.AddCustomActivityCounter(m,ACTIVITY_SPSUMMON,cm.counterfilter)
+    if not cm.global_check then
+        cm.global_check=true
+        local e2=Effect.CreateEffect(c)
+        e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+        e2:SetCode(EVENT_CHAIN_NEGATED)
+        e2:SetCondition(cm.regcon)
+        e2:SetOperation(cm.regop2)
+        Duel.RegisterEffect(e2,0)
+        Duel.RegisterFlagEffect(0,m,0,0,0,0)
+        Duel.RegisterFlagEffect(1,m,0,0,0,0)
+    end
+end
+function cm.counterfilter(c)
+    return c:IsSetCard(0xcc30)
+end
+function cm.regcon(e,tp,eg,ep,ev,re,r,rp)
+    return re:GetHandler()==e:GetHandler()
+end
+function cm.regop2(e,tp,eg,ep,ev,re,r,rp)
+    Duel.SetFlagEffectLabel(ep,m,Duel.GetFlagEffectLabel(ep,m)-1)
+end
+function cm.ctfilter(c)
+    return c:IsFaceup() and c:IsCode(m)
+end
+function cm.ctvalue(e)
+    return Duel.IsExistingMatchingCard(cm.ctfilter,e:GetHandlerPlayer(),LOCATION_MZONE,0,1,nil)
+end
+function cm.thcost(e,tp,eg,ep,ev,re,r,rp,chk)
+    local c=e:GetHandler()
+    if chk==0 then return Duel.GetCustomActivityCount(m,tp,ACTIVITY_SUMMON)==0 and Duel.GetCustomActivityCount(m,tp,ACTIVITY_SPSUMMON)==0 and c:IsDiscardable() end
+    Duel.SendtoGrave(c,REASON_COST+REASON_DISCARD)
+    local e1=Effect.CreateEffect(c)
+    e1:SetType(EFFECT_TYPE_FIELD)
+    e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_OATH)
+    e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
+    e1:SetReset(RESET_PHASE+PHASE_END)
+    e1:SetTargetRange(1,0)
+    e1:SetTarget(cm.splimit)
+    Duel.RegisterEffect(e1,tp)
+    local e2=e1:Clone()
+    e2:SetCode(EFFECT_CANNOT_SUMMON)
+    Duel.RegisterEffect(e2,tp)
+end
+function cm.splimit(e,c,sump,sumtype,sumpos,targetp,se)
+    return not c:IsSetCard(0xcc30)
+end
+function cm.thfilter(c)
+    return c:IsFaceup() and c:IsCode(m)
+end
+function cm.thcon(e,tp,eg,ep,ev,re,r,rp)
+    return not Duel.IsExistingMatchingCard(cm.thfilter,tp,LOCATION_MZONE,0,1,nil)
+end
+function cm.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
+    if chk==0 then return Duel.IsPlayerCanDraw(tp,1) end
+    Duel.SetTargetPlayer(tp)
+    Duel.SetTargetParam(1)
+    Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,1)
+    Duel.SetFlagEffectLabel(tp,m,Duel.GetFlagEffectLabel(tp,m)+1)
+end
+function cm.thop(e,tp,eg,ep,ev,re,r,rp)
+    local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM)
+    Duel.Draw(p,d,REASON_EFFECT)
+    Duel.RaiseSingleEvent(e:GetHandler(),EVENT_CUSTOM+m,re,r,rp,ep,ev)
+end
+function cm.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
+    local c=e:GetHandler()
+    if Duel.GetFlagEffectLabel(tp,m)>=5 then
+        if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and c:IsCanBeSpecialSummoned(e,0,tp,true,true) end
+        Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,c,1,0,0)
+        e:SetCategory(CATEGORY_SPECIAL_SUMMON)
+    else
+        if chk==0 then return c:IsAbleToDeck() end
+        Duel.SetOperationInfo(0,CATEGORY_TODECK,c,1,0,0)
+        e:SetCategory(CATEGORY_TODECK)
+    end
+end
+function cm.spop(e,tp,eg,ep,ev,re,r,rp)
+    local c=e:GetHandler()
+    if not c:IsRelateToEffect(e) then return end
+    if Duel.GetFlagEffectLabel(tp,m)>=5 then
+        Duel.SpecialSummon(c,0,tp,tp,true,true,POS_FACEUP)
+    else
+        Duel.SendtoDeck(c,nil,2,REASON_EFFECT)
+    end
+end
+function cm.destg(e,tp,eg,ep,ev,re,r,rp,chk)
+    if chk==0 then return Duel.IsExistingMatchingCard(Card.IsAbleToRemove,tp,0,LOCATION_MZONE,1,nil) and not Duel.IsExistingMatchingCard(aux.NOT(Card.IsAbleToRemove),tp,0,LOCATION_MZONE,1,nil) end
+    local g=Duel.GetMatchingGroup(Card.IsAbleToRemove,tp,0,LOCATION_MZONE,nil)
+    Duel.SetOperationInfo(0,CATEGORY_REMOVE,g,g:GetCount(),0,0)
+end
+function cm.desop(e,tp,eg,ep,ev,re,r,rp)
+    local g=Duel.GetMatchingGroup(Card.IsAbleToRemove,tp,0,LOCATION_MZONE,nil)
+    Duel.Remove(g,POS_FACEUP,REASON_EFFECT)
+end
+function cm.discon(e,tp,eg,ep,ev,re,r,rp)
+    local c=e:GetHandler()
+    if c:IsStatus(STATUS_BATTLE_DESTROYED) then return false end
+    if not re:IsHasProperty(EFFECT_FLAG_CARD_TARGET) then return end
+    local loc,tg=Duel.GetChainInfo(ev,CHAININFO_TRIGGERING_LOCATION,CHAININFO_TARGET_CARDS)
+    if not tg or not tg:IsContains(c) then return false end
+    return Duel.IsChainDisablable(ev) and loc~=LOCATION_DECK
+end
+function cm.distg(e,tp,eg,ep,ev,re,r,rp,chk)
+    if chk==0 then return true end
+    Duel.SetOperationInfo(0,CATEGORY_DISABLE,eg,1,0,0)
+end
+function cm.disop(e,tp,eg,ep,ev,re,r,rp,chk)
+    Duel.NegateEffect(ev)
+end

expansions/script/c89386002.lua

+--暴噬星皇神帝·托利利昂
+local m=89386002
+local cm=_G["c"..m]
+function cm.initial_effect(c)
+    c:EnableReviveLimit()
+    c:SetUniqueOnField(1,0,m,LOCATION_MZONE)
+    local e1=Effect.CreateEffect(c)
+    e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
+    e1:SetType(EFFECT_TYPE_SINGLE)
+    e1:SetCode(EFFECT_SPSUMMON_CONDITION)
+    e1:SetValue(aux.FALSE)
+    c:RegisterEffect(e1)
+    local e3=Effect.CreateEffect(c)
+    e3:SetCategory(CATEGORY_DRAW)
+    e3:SetType(EFFECT_TYPE_IGNITION)
+    e3:SetRange(LOCATION_HAND)
+    e3:SetCondition(cm.thcon)
+    e3:SetCost(cm.thcost)
+    e3:SetTarget(cm.thtg)
+    e3:SetOperation(cm.thop)
+    c:RegisterEffect(e3)
+    local e4=Effect.CreateEffect(c)
+    e4:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F)
+    e4:SetCode(EVENT_CUSTOM+m)
+    e4:SetRange(LOCATION_GRAVE+LOCATION_REMOVED)
+    e4:SetTarget(cm.sptg)
+    e4:SetOperation(cm.spop)
+    c:RegisterEffect(e4)
+    local e5=Effect.CreateEffect(c)
+    e5:SetType(EFFECT_TYPE_SINGLE)
+    e5:SetCode(EFFECT_INDESTRUCTABLE_EFFECT)
+    e5:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
+    e5:SetRange(LOCATION_MZONE)
+    e5:SetValue(1)
+    c:RegisterEffect(e5)
+    local e6=Effect.CreateEffect(c)
+    e6:SetType(EFFECT_TYPE_FIELD)
+    e6:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
+    e6:SetCode(EFFECT_CANNOT_ACTIVATE)
+    e6:SetRange(LOCATION_MZONE)
+    e6:SetTargetRange(0,1)
+    e6:SetValue(1)
+    e6:SetCondition(cm.actcon)
+    c:RegisterEffect(e6)
+    local e7=Effect.CreateEffect(c)
+    e7:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
+    e7:SetCode(EVENT_ATTACK_ANNOUNCE)
+    e7:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
+    e7:SetOperation(cm.disop)
+    c:RegisterEffect(e7)
+    local e8=e7:Clone()
+    e8:SetCode(EVENT_BE_BATTLE_TARGET)
+    c:RegisterEffect(e8)
+    local e9=Effect.CreateEffect(c)
+    e9:SetType(EFFECT_TYPE_FIELD)
+    e9:SetCode(EFFECT_DISABLE)
+    e9:SetRange(LOCATION_MZONE)
+    e9:SetTargetRange(0,LOCATION_MZONE)
+    e9:SetTarget(cm.distg)
+    c:RegisterEffect(e9)
+    local e10=e9:Clone()
+    e10:SetCode(EFFECT_DISABLE_EFFECT)
+    c:RegisterEffect(e10)
+    Duel.AddCustomActivityCounter(m,ACTIVITY_SUMMON,cm.counterfilter)
+    Duel.AddCustomActivityCounter(m,ACTIVITY_SPSUMMON,cm.counterfilter)
+    if not cm.global_check then
+        cm.global_check=true
+        local e2=Effect.CreateEffect(c)
+        e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+        e2:SetCode(EVENT_CHAIN_NEGATED)
+        e2:SetCondition(cm.regcon)
+        e2:SetOperation(cm.regop2)
+        Duel.RegisterEffect(e2,0)
+        Duel.RegisterFlagEffect(0,m,0,0,0,0)
+        Duel.RegisterFlagEffect(1,m,0,0,0,0)
+    end
+end
+function cm.counterfilter(c)
+    return c:IsSetCard(0xcc30)
+end
+function cm.regcon(e,tp,eg,ep,ev,re,r,rp)
+    return re:GetHandler()==e:GetHandler()
+end
+function cm.regop2(e,tp,eg,ep,ev,re,r,rp)
+    Duel.SetFlagEffectLabel(ep,m,Duel.GetFlagEffectLabel(ep,m)-1)
+end
+function cm.ctfilter(c)
+    return c:IsFaceup() and c:IsCode(m)
+end
+function cm.ctvalue(e)
+    return Duel.IsExistingMatchingCard(cm.ctfilter,e:GetHandlerPlayer(),LOCATION_MZONE,0,1,nil)
+end
+function cm.thcost(e,tp,eg,ep,ev,re,r,rp,chk)
+    local c=e:GetHandler()
+    if chk==0 then return Duel.GetCustomActivityCount(m,tp,ACTIVITY_SUMMON)==0 and Duel.GetCustomActivityCount(m,tp,ACTIVITY_SPSUMMON)==0 and c:IsDiscardable() end
+    Duel.SendtoGrave(c,REASON_COST+REASON_DISCARD)
+    local e1=Effect.CreateEffect(c)
+    e1:SetType(EFFECT_TYPE_FIELD)
+    e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_OATH)
+    e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
+    e1:SetReset(RESET_PHASE+PHASE_END)
+    e1:SetTargetRange(1,0)
+    e1:SetTarget(cm.splimit)
+    Duel.RegisterEffect(e1,tp)
+    local e2=e1:Clone()
+    e2:SetCode(EFFECT_CANNOT_SUMMON)
+    Duel.RegisterEffect(e2,tp)
+end
+function cm.splimit(e,c,sump,sumtype,sumpos,targetp,se)
+    return not c:IsSetCard(0xcc30)
+end
+function cm.thfilter(c)
+    return c:IsFaceup() and c:IsCode(m)
+end
+function cm.thcon(e,tp,eg,ep,ev,re,r,rp)
+    return not Duel.IsExistingMatchingCard(cm.thfilter,tp,LOCATION_MZONE,0,1,nil)
+end
+function cm.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
+    if chk==0 then return Duel.IsPlayerCanDraw(tp,1) end
+    Duel.SetTargetPlayer(tp)
+    Duel.SetTargetParam(1)
+    Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,1)
+    Duel.SetFlagEffectLabel(tp,m,Duel.GetFlagEffectLabel(tp,m)+1)
+end
+function cm.thop(e,tp,eg,ep,ev,re,r,rp)
+    local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM)
+    Duel.Draw(p,d,REASON_EFFECT)
+    Duel.RaiseSingleEvent(e:GetHandler(),EVENT_CUSTOM+m,re,r,rp,ep,ev)
+end
+function cm.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
+    local c=e:GetHandler()
+    if Duel.GetFlagEffectLabel(tp,m)>=4 then
+        if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and c:IsCanBeSpecialSummoned(e,0,tp,true,true) end
+        Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,c,1,0,0)
+        e:SetCategory(CATEGORY_SPECIAL_SUMMON)
+    else
+        if chk==0 then return c:IsAbleToDeck() end
+        Duel.SetOperationInfo(0,CATEGORY_TODECK,c,1,0,0)
+        e:SetCategory(CATEGORY_TODECK)
+    end
+end
+function cm.spop(e,tp,eg,ep,ev,re,r,rp)
+    local c=e:GetHandler()
+    if not c:IsRelateToEffect(e) then return end
+    if Duel.GetFlagEffectLabel(tp,m)>=4 then
+        Duel.SpecialSummon(c,0,tp,tp,true,true,POS_FACEUP)
+    else
+        Duel.SendtoDeck(c,nil,2,REASON_EFFECT)
+    end
+end
+function cm.destg(e,tp,eg,ep,ev,re,r,rp,chk)
+    if chk==0 then return true end
+    local g=Duel.GetFieldGroup(tp,0,LOCATION_ONFIELD)
+    Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0)
+    Duel.SetChainLimit(cm.chlimit)
+end
+function cm.chlimit(e,ep,tp)
+    return tp==ep
+end
+function cm.desop(e,tp,eg,ep,ev,re,r,rp)
+    local g=Duel.GetFieldGroup(tp,0,LOCATION_ONFIELD)
+    if g:GetCount()>0 then
+        Duel.Destroy(g,REASON_EFFECT)
+    end
+end
+function cm.actcon(e)
+    return Duel.GetAttacker()==e:GetHandler() or Duel.GetAttackTarget()==e:GetHandler()
+end
+function cm.disop(e,tp,eg,ep,ev,re,r,rp)
+    local tc=e:GetHandler():GetBattleTarget()
+    if not tc then return end
+    tc:RegisterFlagEffect(m,RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_BATTLE,0,1)
+end
+function cm.distg(e,c)
+    return c:GetFlagEffect(m)~=0
+end

expansions/script/c89386003.lua

+--暴噬星皇神帝·蒙大拿
+local m=89386003
+local cm=_G["c"..m]
+function cm.initial_effect(c)
+    c:EnableReviveLimit()
+    c:SetUniqueOnField(1,0,m,LOCATION_MZONE)
+    local e1=Effect.CreateEffect(c)
+    e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
+    e1:SetType(EFFECT_TYPE_SINGLE)
+    e1:SetCode(EFFECT_SPSUMMON_CONDITION)
+    e1:SetValue(aux.FALSE)
+    c:RegisterEffect(e1)
+    local e3=Effect.CreateEffect(c)
+    e3:SetCategory(CATEGORY_DRAW)
+    e3:SetType(EFFECT_TYPE_IGNITION)
+    e3:SetRange(LOCATION_HAND)
+    e3:SetCondition(cm.thcon)
+    e3:SetCost(cm.thcost)
+    e3:SetTarget(cm.thtg)
+    e3:SetOperation(cm.thop)
+    c:RegisterEffect(e3)
+    local e4=Effect.CreateEffect(c)
+    e4:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F)
+    e4:SetCode(EVENT_CUSTOM+m)
+    e4:SetRange(LOCATION_GRAVE+LOCATION_REMOVED)
+    e4:SetTarget(cm.sptg)
+    e4:SetOperation(cm.spop)
+    c:RegisterEffect(e4)
+    local e5=Effect.CreateEffect(c)
+    e5:SetCategory(CATEGORY_REMOVE+CATEGORY_ATKCHANGE+CATEGORY_DEFCHANGE)
+    e5:SetType(EFFECT_TYPE_QUICK_O)
+    e5:SetCode(EVENT_FREE_CHAIN)
+    e5:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DAMAGE_STEP)
+    e5:SetRange(LOCATION_MZONE)
+    e5:SetCountLimit(1)
+    e5:SetCondition(aux.dscon)
+    e5:SetTarget(cm.target)
+    e5:SetOperation(cm.operation)
+    c:RegisterEffect(e5)
+    local e6=Effect.CreateEffect(c)
+    e6:SetCategory(CATEGORY_REMOVE)
+    e6:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F)
+    e6:SetCode(EVENT_LEAVE_FIELD)
+    e6:SetCondition(cm.condition)
+    e6:SetTarget(cm.target2)
+    e6:SetOperation(cm.operation2)
+    c:RegisterEffect(e6)
+    Duel.AddCustomActivityCounter(m,ACTIVITY_SUMMON,cm.counterfilter)
+    Duel.AddCustomActivityCounter(m,ACTIVITY_SPSUMMON,cm.counterfilter)
+    if not cm.global_check then
+        cm.global_check=true
+        local e2=Effect.CreateEffect(c)
+        e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+        e2:SetCode(EVENT_CHAIN_NEGATED)
+        e2:SetCondition(cm.regcon)
+        e2:SetOperation(cm.regop2)
+        Duel.RegisterEffect(e2,0)
+        Duel.RegisterFlagEffect(0,m,0,0,0,0)
+        Duel.RegisterFlagEffect(1,m,0,0,0,0)
+    end
+end
+function cm.counterfilter(c)
+    return c:IsSetCard(0xcc30)
+end
+function cm.regcon(e,tp,eg,ep,ev,re,r,rp)
+    return re:GetHandler()==e:GetHandler()
+end
+function cm.regop2(e,tp,eg,ep,ev,re,r,rp)
+    Duel.SetFlagEffectLabel(ep,m,Duel.GetFlagEffectLabel(ep,m)-1)
+end
+function cm.ctfilter(c)
+    return c:IsFaceup() and c:IsCode(m)
+end
+function cm.ctvalue(e)
+    return Duel.IsExistingMatchingCard(cm.ctfilter,e:GetHandlerPlayer(),LOCATION_MZONE,0,1,nil)
+end
+function cm.thcost(e,tp,eg,ep,ev,re,r,rp,chk)
+    local c=e:GetHandler()
+    if chk==0 then return Duel.GetCustomActivityCount(m,tp,ACTIVITY_SUMMON)==0 and Duel.GetCustomActivityCount(m,tp,ACTIVITY_SPSUMMON)==0 and c:IsDiscardable() end
+    Duel.SendtoGrave(c,REASON_COST+REASON_DISCARD)
+    local e1=Effect.CreateEffect(c)
+    e1:SetType(EFFECT_TYPE_FIELD)
+    e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_OATH)
+    e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
+    e1:SetReset(RESET_PHASE+PHASE_END)
+    e1:SetTargetRange(1,0)
+    e1:SetTarget(cm.splimit)
+    Duel.RegisterEffect(e1,tp)
+    local e2=e1:Clone()
+    e2:SetCode(EFFECT_CANNOT_SUMMON)
+    Duel.RegisterEffect(e2,tp)
+end
+function cm.splimit(e,c,sump,sumtype,sumpos,targetp,se)
+    return not c:IsSetCard(0xcc30)
+end
+function cm.thfilter(c)
+    return c:IsFaceup() and c:IsCode(m)
+end
+function cm.thcon(e,tp,eg,ep,ev,re,r,rp)
+    return not Duel.IsExistingMatchingCard(cm.thfilter,tp,LOCATION_MZONE,0,1,nil)
+end
+function cm.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
+    if chk==0 then return Duel.IsPlayerCanDraw(tp,1) end
+    Duel.SetTargetPlayer(tp)
+    Duel.SetTargetParam(1)
+    Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,1)
+    Duel.SetFlagEffectLabel(tp,m,Duel.GetFlagEffectLabel(tp,m)+1)
+end
+function cm.thop(e,tp,eg,ep,ev,re,r,rp)
+    local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM)
+    Duel.Draw(p,d,REASON_EFFECT)
+    Duel.RaiseSingleEvent(e:GetHandler(),EVENT_CUSTOM+m,re,r,rp,ep,ev)
+end
+function cm.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
+    local c=e:GetHandler()
+    if Duel.GetFlagEffectLabel(tp,m)>=4 then
+        if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and c:IsCanBeSpecialSummoned(e,0,tp,true,true) end
+        Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,c,1,0,0)
+        e:SetCategory(CATEGORY_SPECIAL_SUMMON)
+    else
+        if chk==0 then return c:IsAbleToDeck() end
+        Duel.SetOperationInfo(0,CATEGORY_TODECK,c,1,0,0)
+        e:SetCategory(CATEGORY_TODECK)
+    end
+end
+function cm.spop(e,tp,eg,ep,ev,re,r,rp)
+    local c=e:GetHandler()
+    if not c:IsRelateToEffect(e) then return end
+    if Duel.GetFlagEffectLabel(tp,m)>=4 then
+        Duel.SpecialSummon(c,0,tp,tp,true,true,POS_FACEUP)
+    else
+        Duel.SendtoDeck(c,nil,2,REASON_EFFECT)
+    end
+end
+function cm.destg(e,tp,eg,ep,ev,re,r,rp,chk)
+    if chk==0 then return true end
+    local g=Duel.GetFieldGroup(tp,0,LOCATION_ONFIELD)
+    Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0)
+    Duel.SetChainLimit(cm.chlimit)
+end
+function cm.chlimit(e,ep,tp)
+    return tp==ep
+end
+function cm.desop(e,tp,eg,ep,ev,re,r,rp)
+    local g=Duel.GetFieldGroup(tp,0,LOCATION_ONFIELD)
+    if g:GetCount()>0 then
+        Duel.Destroy(g,REASON_EFFECT)
+    end
+end
+function cm.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+    if chkc then return chkc:IsControler(1-tp) and chkc:IsLocation(LOCATION_GRAVE) and chkc:IsAbleToRemove() end
+    if chk==0 then return Duel.IsExistingTarget(Card.IsAbleToRemove,tp,0,LOCATION_GRAVE,1,nil) end
+    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
+    local g=Duel.SelectTarget(tp,Card.IsAbleToRemove,tp,0,LOCATION_GRAVE,1,3,nil)
+    Duel.SetOperationInfo(0,CATEGORY_REMOVE,g,g:GetCount(),1-tp,LOCATION_GRAVE)
+end
+function cm.operation(e,tp,eg,ep,ev,re,r,rp)
+    local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS):Filter(Card.IsRelateToEffect,nil,e)
+    local ct=Duel.Remove(g,POS_FACEUP,REASON_EFFECT)
+    local c=e:GetHandler()
+    if ct>0 and c:IsFaceup() and c:IsRelateToEffect(e) then
+        local e1=Effect.CreateEffect(c)
+        e1:SetType(EFFECT_TYPE_SINGLE)
+        e1:SetCode(EFFECT_UPDATE_ATTACK)
+        e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_DISABLE+RESET_PHASE+PHASE_END)
+        e1:SetValue(ct*300)
+        c:RegisterEffect(e1)
+        local e2=e1:Clone()
+        e2:SetCode(EFFECT_UPDATE_DEFENSE)
+        c:RegisterEffect(e2)
+    end
+end
+function cm.condition(e,tp,eg,ep,ev,re,r,rp)
+    local c=e:GetHandler()
+    return c:IsPreviousPosition(POS_FACEUP) and c:GetPreviousControler()==tp and rp==1-tp
+end
+function cm.target2(e,tp,eg,ep,ev,re,r,rp,chk)
+    if chk==0 then return true end
+    local g=Duel.GetMatchingGroup(Card.IsAbleToRemove,tp,0,LOCATION_ONFIELD,nil)
+    Duel.SetOperationInfo(0,CATEGORY_REMOVE,g,1,0,0)
+end
+function cm.operation2(e,tp,eg,ep,ev,re,r,rp)
+    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
+    local g=Duel.SelectMatchingCard(tp,Card.IsAbleToRemove,tp,0,LOCATION_ONFIELD,1,1,nil)
+    if g:GetCount()>0 then
+        Duel.HintSelection(g)
+        Duel.Remove(g,POS_FACEUP,REASON_EFFECT)
+    end
+end

expansions/script/c89386004.lua

+--暴噬星皇神帝·吉咖罗斯
+local m=89386004
+local cm=_G["c"..m]
+function cm.initial_effect(c)
+    c:EnableReviveLimit()
+    c:SetUniqueOnField(1,0,m,LOCATION_MZONE)
+    local e1=Effect.CreateEffect(c)
+    e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
+    e1:SetType(EFFECT_TYPE_SINGLE)
+    e1:SetCode(EFFECT_SPSUMMON_CONDITION)
+    e1:SetValue(aux.FALSE)
+    c:RegisterEffect(e1)
+    local e3=Effect.CreateEffect(c)
+    e3:SetCategory(CATEGORY_DRAW)
+    e3:SetType(EFFECT_TYPE_IGNITION)
+    e3:SetRange(LOCATION_HAND)
+    e3:SetCondition(cm.thcon)
+    e3:SetCost(cm.thcost)
+    e3:SetTarget(cm.thtg)
+    e3:SetOperation(cm.thop)
+    c:RegisterEffect(e3)
+    local e4=Effect.CreateEffect(c)
+    e4:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F)
+    e4:SetCode(EVENT_CUSTOM+m)
+    e4:SetRange(LOCATION_GRAVE+LOCATION_REMOVED)
+    e4:SetTarget(cm.sptg)
+    e4:SetOperation(cm.spop)
+    c:RegisterEffect(e4)
+    local e5=Effect.CreateEffect(c)
+    e5:SetCategory(CATEGORY_REMOVE)
+    e5:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+    e5:SetProperty(EFFECT_FLAG_DELAY+EFFECT_FLAG_CARD_TARGET)
+    e5:SetCode(EVENT_SPSUMMON_SUCCESS)
+    e5:SetTarget(cm.destg)
+    e5:SetOperation(cm.desop)
+    c:RegisterEffect(e5)
+    local e6=Effect.CreateEffect(c)
+    e6:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
+    e6:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+    e6:SetProperty(EFFECT_FLAG_DELAY)
+    e6:SetCode(EVENT_DESTROYED)
+    e6:SetCondition(cm.thcon2)
+    e6:SetTarget(cm.thtg2)
+    e6:SetOperation(cm.thop2)
+    c:RegisterEffect(e6)
+    Duel.AddCustomActivityCounter(m,ACTIVITY_SUMMON,cm.counterfilter)
+    Duel.AddCustomActivityCounter(m,ACTIVITY_SPSUMMON,cm.counterfilter)
+    if not cm.global_check then
+        cm.global_check=true
+        local e2=Effect.CreateEffect(c)
+        e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+        e2:SetCode(EVENT_CHAIN_NEGATED)
+        e2:SetCondition(cm.regcon)
+        e2:SetOperation(cm.regop2)
+        Duel.RegisterEffect(e2,0)
+        Duel.RegisterFlagEffect(0,m,0,0,0,0)
+        Duel.RegisterFlagEffect(1,m,0,0,0,0)
+    end
+end
+function cm.counterfilter(c)
+    return c:IsSetCard(0xcc30)
+end
+function cm.regcon(e,tp,eg,ep,ev,re,r,rp)
+    return re:GetHandler()==e:GetHandler()
+end
+function cm.regop2(e,tp,eg,ep,ev,re,r,rp)
+    Duel.SetFlagEffectLabel(ep,m,Duel.GetFlagEffectLabel(ep,m)-1)
+end
+function cm.ctfilter(c)
+    return c:IsFaceup() and c:IsCode(m)
+end
+function cm.ctvalue(e)
+    return Duel.IsExistingMatchingCard(cm.ctfilter,e:GetHandlerPlayer(),LOCATION_MZONE,0,1,nil)
+end
+function cm.thcost(e,tp,eg,ep,ev,re,r,rp,chk)
+    local c=e:GetHandler()
+    if chk==0 then return Duel.GetCustomActivityCount(m,tp,ACTIVITY_SUMMON)==0 and Duel.GetCustomActivityCount(m,tp,ACTIVITY_SPSUMMON)==0 and c:IsDiscardable() end
+    Duel.SendtoGrave(c,REASON_COST+REASON_DISCARD)
+    local e1=Effect.CreateEffect(c)
+    e1:SetType(EFFECT_TYPE_FIELD)
+    e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_OATH)
+    e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
+    e1:SetReset(RESET_PHASE+PHASE_END)
+    e1:SetTargetRange(1,0)
+    e1:SetTarget(cm.splimit)
+    Duel.RegisterEffect(e1,tp)
+    local e2=e1:Clone()
+    e2:SetCode(EFFECT_CANNOT_SUMMON)
+    Duel.RegisterEffect(e2,tp)
+end
+function cm.splimit(e,c,sump,sumtype,sumpos,targetp,se)
+    return not c:IsSetCard(0xcc30)
+end
+function cm.thfilter(c)
+    return c:IsFaceup() and c:IsCode(m)
+end
+function cm.thcon(e,tp,eg,ep,ev,re,r,rp)
+    return not Duel.IsExistingMatchingCard(cm.thfilter,tp,LOCATION_MZONE,0,1,nil)
+end
+function cm.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
+    if chk==0 then return Duel.IsPlayerCanDraw(tp,1) end
+    Duel.SetTargetPlayer(tp)
+    Duel.SetTargetParam(1)
+    Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,1)
+    Duel.SetFlagEffectLabel(tp,m,Duel.GetFlagEffectLabel(tp,m)+1)
+end
+function cm.thop(e,tp,eg,ep,ev,re,r,rp)
+    local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM)
+    Duel.Draw(p,d,REASON_EFFECT)
+    Duel.RaiseSingleEvent(e:GetHandler(),EVENT_CUSTOM+m,re,r,rp,ep,ev)
+end
+function cm.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
+    local c=e:GetHandler()
+    if Duel.GetFlagEffectLabel(tp,m)>=4 then
+        if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and c:IsCanBeSpecialSummoned(e,0,tp,true,true) end
+        Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,c,1,0,0)
+        e:SetCategory(CATEGORY_SPECIAL_SUMMON)
+    else
+        if chk==0 then return c:IsAbleToDeck() end
+        Duel.SetOperationInfo(0,CATEGORY_TODECK,c,1,0,0)
+        e:SetCategory(CATEGORY_TODECK)
+    end
+end
+function cm.spop(e,tp,eg,ep,ev,re,r,rp)
+    local c=e:GetHandler()
+    if not c:IsRelateToEffect(e) then return end
+    if Duel.GetFlagEffectLabel(tp,m)>=4 then
+        Duel.SpecialSummon(c,0,tp,tp,true,true,POS_FACEUP)
+    else
+        Duel.SendtoDeck(c,nil,2,REASON_EFFECT)
+    end
+end
+function cm.destg(e,tp,eg,ep,ev,re,r,rp,chk)
+    if chk==0 then return true end
+    local g=Duel.GetFieldGroup(tp,0,LOCATION_ONFIELD)
+    Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0)
+    Duel.SetChainLimit(cm.chlimit)
+end
+function cm.chlimit(e,ep,tp)
+    return tp==ep
+end
+function cm.desop(e,tp,eg,ep,ev,re,r,rp)
+    local g=Duel.GetFieldGroup(tp,0,LOCATION_ONFIELD)
+    if g:GetCount()>0 then
+        Duel.Destroy(g,REASON_EFFECT)
+    end
+end
+function cm.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+    if chkc then return chkc:IsControler(1-tp) and chkc:IsOnField() and chkc:IsAbleToRemove() end
+    if chk==0 then return Duel.IsExistingMatchingCard(Card.IsAbleToRemove,tp,0,LOCATION_ONFIELD,1,nil) end
+    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
+    local g=Duel.SelectTarget(tp,Card.IsAbleToRemove,tp,0,LOCATION_ONFIELD,1,1,nil)
+    Duel.SetOperationInfo(0,CATEGORY_REMOVE,g,g:GetCount(),0,0)
+end
+function cm.desop(e,tp,eg,ep,ev,re,r,rp)
+    local tc=Duel.GetFirstTarget()
+    if tc and tc:IsRelateToEffect(e) then
+        Duel.Remove(tc,POS_FACEDOWN,REASON_EFFECT)
+    end
+end
+function cm.thcon2(e,tp,eg,ep,ev,re,r,rp)
+    local c=e:GetHandler()
+    return c:IsReason(REASON_BATTLE) or (rp==1-tp and c:IsReason(REASON_EFFECT) and c:GetPreviousControler()==tp)
+end
+function cm.thfilter(c)
+    return c:IsSetCard(0xcc30) and c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsAbleToHand()
+end
+function cm.thtg2(e,tp,eg,ep,ev,re,r,rp,chk)
+    if chk==0 then return Duel.IsExistingMatchingCard(cm.thfilter,tp,LOCATION_DECK,0,1,nil) end
+    Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
+end
+function cm.thop2(e,tp,eg,ep,ev,re,r,rp)
+    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
+    local g=Duel.SelectMatchingCard(tp,cm.thfilter,tp,LOCATION_DECK,0,1,1,nil)
+    if g:GetCount()>0 then
+        Duel.SendtoHand(g,nil,REASON_EFFECT)
+        Duel.ConfirmCards(1-tp,g)
+    end
+end

expansions/script/c89386005.lua

+--暴噬星皇·重爪龙
+local m=89386005
+local cm=_G["c"..m]
+function cm.initial_effect(c)
+    local e1=Effect.CreateEffect(c)
+    e1:SetCategory(CATEGORY_TOHAND)
+    e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
+    e1:SetType(EFFECT_TYPE_QUICK_O)
+    e1:SetCode(EVENT_FREE_CHAIN)
+    e1:SetRange(LOCATION_MZONE)
+    e1:SetCountLimit(1,m)
+    e1:SetTarget(cm.thtg)
+    e1:SetOperation(cm.thop)
+    c:RegisterEffect(e1)
+    local e2=Effect.CreateEffect(c)
+    e2:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
+    e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+    e2:SetProperty(EFFECT_FLAG_DELAY)
+    e2:SetCode(EVENT_BATTLE_DESTROYED)
+    e2:SetCountLimit(1,m+100000000)
+    e2:SetCost(cm.setcost)
+    e2:SetTarget(cm.settg)
+    e2:SetOperation(cm.setop)
+    c:RegisterEffect(e2)
+    local e3=e2:Clone()
+    e3:SetCode(EVENT_TO_GRAVE)
+    e3:SetCondition(cm.setcon)
+    c:RegisterEffect(e3)
+end
+function cm.filter(c)
+    return c:IsLevelAbove(7) and c:IsSetCard(0xcc30) and c:IsAbleToHand()
+end
+function cm.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+    if chkc then return chkc:GetLocation()==LOCATION_GRAVE and chkc:GetControler()==tp and cm.filter(chkc) end
+    if chk==0 then return Duel.IsExistingTarget(cm.filter,tp,LOCATION_GRAVE,0,1,nil) end
+    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
+    local g=Duel.SelectTarget(tp,cm.filter,tp,LOCATION_GRAVE,0,1,1,nil)
+    Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,1,0,0)
+end
+function cm.thop(e,tp,eg,ep,ev,re,r,rp)
+    local tc=Duel.GetFirstTarget()
+    if tc:IsRelateToEffect(e) then
+        Duel.SendtoHand(tc,nil,REASON_EFFECT)
+    end
+end
+function cm.setcon(e,tp,eg,ep,ev,re,r,rp)
+    return e:GetHandler():IsReason(REASON_EFFECT)
+end
+function cm.setcost(e,tp,eg,ep,ev,re,r,rp,chk)
+    if chk==0 then return e:GetHandler():IsAbleToDeckAsCost() end
+    Duel.SendtoDeck(e:GetHandler(),nil,2,REASON_COST)
+end
+function cm.setfilter(c)
+    return c:IsSetCard(0xcc30) and c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsSSetable()
+end
+function cm.settg(e,tp,eg,ep,ev,re,r,rp,chk)
+    if chk==0 then return Duel.IsExistingMatchingCard(cm.setfilter,tp,LOCATION_DECK,0,1,nil) end
+end
+function cm.setop(e,tp,eg,ep,ev,re,r,rp)
+    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SET)
+    local g=Duel.SelectMatchingCard(tp,cm.setfilter,tp,LOCATION_DECK,0,1,1,nil)
+    local tc=g:GetFirst()
+    if not tc then return end
+    Duel.SSet(tp,tc)
+end

expansions/script/c89386006.lua

+--暴噬星皇·影界鱼
+local m=89386006
+local cm=_G["c"..m]
+function cm.initial_effect(c)
+    local e1=Effect.CreateEffect(c)
+    e1:SetCategory(CATEGORY_SEARCH+CATEGORY_TOHAND)
+    e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+    e1:SetCode(EVENT_SUMMON_SUCCESS)
+    e1:SetProperty(EFFECT_FLAG_DELAY+EFFECT_FLAG_DAMAGE_STEP)
+    e1:SetCountLimit(1,m)
+    e1:SetTarget(cm.cointg)
+    e1:SetOperation(cm.coinop)
+    c:RegisterEffect(e1)
+    local e2=e1:Clone()
+    e2:SetCode(EVENT_SPSUMMON_SUCCESS)
+    c:RegisterEffect(e2)
+    local e3=Effect.CreateEffect(c)
+    e3:SetCategory(CATEGORY_TODECK+CATEGORY_DRAW)
+    e3:SetType(EFFECT_TYPE_IGNITION)
+    e3:SetRange(LOCATION_GRAVE)
+    e3:SetCountLimit(1,m+100000000)
+    e3:SetCost(cm.drcost)
+    e3:SetTarget(cm.drtg)
+    e3:SetOperation(cm.drop)
+    c:RegisterEffect(e3)
+end
+function cm.coinfilter(c)
+    return c:IsSetCard(0xcc30) and c:IsType(TYPE_MONSTER) and c:IsLevelAbove(7) and c:IsAbleToHand()
+end
+function cm.cointg(e,tp,eg,ep,ev,re,r,rp,chk)
+    if chk==0 then return Duel.IsExistingMatchingCard(cm.coinfilter,tp,LOCATION_DECK,0,1,nil) end
+    Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
+end
+function cm.coinop(e,tp,eg,ep,ev,re,r,rp)
+    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
+    local g=Duel.SelectMatchingCard(tp,cm.coinfilter,tp,LOCATION_DECK,0,1,1,nil)
+    if g:GetCount()>0 then
+        Duel.SendtoHand(g,nil,REASON_EFFECT)
+        Duel.ConfirmCards(1-tp,g)
+    end
+end
+function cm.drcost(e,tp,eg,ep,ev,re,r,rp,chk)
+    if chk==0 then return e:GetHandler():IsAbleToDeckAsCost() end
+    Duel.SendtoDeck(e:GetHandler(),nil,2,REASON_COST)
+end
+function cm.drfilter(c)
+    return c:IsSetCard(0xcc30) and c:IsAbleToDeck()
+end
+function cm.drtg(e,tp,eg,ep,ev,re,r,rp,chk)
+    if chk==0 then return Duel.IsPlayerCanDraw(tp) and Duel.IsExistingMatchingCard(cm.drfilter,tp,LOCATION_HAND+LOCATION_GRAVE,0,1,nil) end
+    Duel.SetOperationInfo(0,CATEGORY_TODECK,nil,1,tp,LOCATION_HAND+LOCATION_GRAVE)
+end
+function cm.drop(e,tp,eg,ep,ev,re,r,rp)
+    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK)
+    local g=Duel.SelectMatchingCard(tp,cm.drfilter,tp,LOCATION_HAND+LOCATION_GRAVE,0,1,1,nil)
+    if g:GetCount()>0 then
+        Duel.ConfirmCards(1-tp,g)
+        Duel.SendtoDeck(g,nil,2,REASON_EFFECT)
+        Duel.ShuffleDeck(tp)
+        Duel.BreakEffect()
+        Duel.Draw(tp,1,REASON_EFFECT)
+    end
+end

expansions/script/c89386007.lua

+--暴噬星皇的灾厄
+local m=89386007
+local cm=_G["c"..m]
+function cm.initial_effect(c)
+    local e1=Effect.CreateEffect(c)
+    e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
+    e1:SetType(EFFECT_TYPE_ACTIVATE)
+    e1:SetCode(EVENT_FREE_CHAIN)
+    e1:SetCountLimit(1,m)
+    e1:SetTarget(cm.target)
+    e1:SetOperation(cm.activate)
+    c:RegisterEffect(e1)
+    local e2=Effect.CreateEffect(c)
+    e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+    e2:SetCode(EFFECT_DESTROY_REPLACE)
+    e2:SetRange(LOCATION_GRAVE)
+    e2:SetTarget(cm.reptg)
+    e2:SetValue(cm.repval)
+    e2:SetOperation(cm.repop)
+    c:RegisterEffect(e2)
+end
+function cm.filter(c)
+    return c:IsSetCard(0xcc30) and c:IsType(TYPE_MONSTER) and c:IsAbleToHand()
+end
+function cm.target(e,tp,eg,ep,ev,re,r,rp,chk)
+    if chk==0 then return Duel.IsExistingMatchingCard(cm.filter,tp,LOCATION_DECK,0,1,nil) end
+    Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
+end
+function cm.activate(e,tp,eg,ep,ev,re,r,rp)
+    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
+    local g=Duel.SelectMatchingCard(tp,cm.filter,tp,LOCATION_DECK,0,1,1,nil)
+    if g:GetCount()>0 then
+        Duel.SendtoHand(g,nil,REASON_EFFECT)
+        Duel.ConfirmCards(1-tp,g)
+    end
+end
+function cm.repfilter(c,tp)
+    return c:IsFaceup() and c:IsSetCard(0xcc30) and c:IsLocation(LOCATION_MZONE) and c:IsControler(tp) and c:IsReason(REASON_EFFECT+REASON_BATTLE) and not c:IsReason(REASON_REPLACE)
+end
+function cm.reptg(e,tp,eg,ep,ev,re,r,rp,chk)
+    if chk==0 then return e:GetHandler():IsAbleToDeck() and eg:IsExists(cm.repfilter,1,nil,tp) end
+    return Duel.SelectEffectYesNo(tp,e:GetHandler(),96)
+end
+function cm.repval(e,c)
+    return cm.repfilter(c,e:GetHandlerPlayer())
+end
+function cm.repop(e,tp,eg,ep,ev,re,r,rp)
+    Duel.SendtoDeck(e:GetHandler(),nil,2,REASON_EFFECT)
+end

expansions/script/c89386008.lua

+--暴噬星皇的威胁
+local m=89386008
+local cm=_G["c"..m]
+function cm.initial_effect(c)
+    local e3=Effect.CreateEffect(c)
+    e3:SetCategory(CATEGORY_TODECK+CATEGORY_DRAW)
+    e3:SetType(EFFECT_TYPE_ACTIVATE)
+    e3:SetCode(EVENT_FREE_CHAIN)
+    e3:SetCountLimit(1,m)
+    e3:SetTarget(cm.drtg)
+    e3:SetOperation(cm.drop)
+    c:RegisterEffect(e3)
+    local e2=Effect.CreateEffect(c)
+    e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
+    e2:SetProperty(EFFECT_FLAG_DELAY)
+    e2:SetCode(EVENT_SPSUMMON_SUCCESS)
+    e2:SetRange(LOCATION_GRAVE)
+    e2:SetCountLimit(1,m+100000000)
+    e2:SetCondition(cm.setcon)
+    e2:SetTarget(cm.settg)
+    e2:SetOperation(cm.setop)
+    c:RegisterEffect(e2)
+end
+function cm.drfilter(c)
+    return c:IsSetCard(0xcc30) and c:IsType(TYPE_MONSTER) and c:IsAbleToDeck()
+end
+function cm.coinfilter(c)
+    return c:IsSetCard(0xcc30) and c:IsType(TYPE_MONSTER) and c:IsLevelAbove(7) and c:IsAbleToHand()
+end
+function cm.drtg(e,tp,eg,ep,ev,re,r,rp,chk)
+    if chk==0 then return Duel.IsPlayerCanDraw(tp) and Duel.IsExistingMatchingCard(cm.drfilter,tp,LOCATION_HAND+LOCATION_MZONE,0,1,nil) end
+    Duel.SetOperationInfo(0,CATEGORY_TODECK,nil,1,tp,LOCATION_HAND+LOCATION_MZONE)
+end
+function cm.drop(e,tp,eg,ep,ev,re,r,rp)
+    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK)
+    local g=Duel.SelectMatchingCard(tp,cm.drfilter,tp,LOCATION_HAND+LOCATION_MZONE,0,1,1,nil)
+    if not g or g:GetCount()==0 then return end
+    local flag=g:GetFirst():IsLocation(LOCATION_MZONE)
+    Duel.ConfirmCards(1-tp,g)
+    Duel.SendtoDeck(g,nil,2,REASON_EFFECT)
+    Duel.ShuffleDeck(tp)
+    Duel.BreakEffect()
+    Duel.Draw(tp,2,REASON_EFFECT)
+    if flag and Duel.IsExistingMatchingCard(cm.coinfilter,tp,LOCATION_DECK,0,1,nil) and Duel.SelectYesNo(tp,aux.Stringid(m,0)) then
+        Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
+        local g=Duel.SelectMatchingCard(tp,cm.coinfilter,tp,LOCATION_DECK,0,1,1,nil)
+        if g:GetCount()>0 then
+            Duel.SendtoHand(g,nil,REASON_EFFECT)
+            Duel.ConfirmCards(1-tp,g)
+        end
+    end
+end
+function cm.cfilter(c,tp)
+    return c:IsSetCard(0xcc30) and c:IsLevelAbove(7) and c:GetControler()==tp
+end
+function cm.setcon(e,tp,eg,ep,ev,re,r,rp)
+    return eg:IsExists(cm.cfilter,1,nil,tp)
+end
+function cm.settg(e,tp,eg,ep,ev,re,r,rp,chk)
+    if chk==0 then return e:GetHandler():IsSSetable() end
+    Duel.SetOperationInfo(0,CATEGORY_LEAVE_GRAVE,e:GetHandler(),1,0,0)
+end
+function cm.setop(e,tp,eg,ep,ev,re,r,rp)
+    local c=e:GetHandler()
+    if c:IsRelateToEffect(e) and Duel.SSet(tp,c)~=0 then
+        local e1=Effect.CreateEffect(c)
+        e1:SetType(EFFECT_TYPE_SINGLE)
+        e1:SetCode(EFFECT_LEAVE_FIELD_REDIRECT)
+        e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
+        e1:SetReset(RESET_EVENT+RESETS_REDIRECT)
+        e1:SetValue(LOCATION_DECKBOT)
+        c:RegisterEffect(e1)
+    end
+end

expansions/script/c89386009.lua

+--研究机构-神帝暴噬星皇
+local m=89386009
+local cm=_G["c"..m]
+function cm.initial_effect(c)
+    c:EnableCounterPermit(0xcc30)
+    local e1=Effect.CreateEffect(c)
+    e1:SetType(EFFECT_TYPE_ACTIVATE)
+    e1:SetCode(EVENT_FREE_CHAIN)
+    c:RegisterEffect(e1)
+    local e2=Effect.CreateEffect(c)
+    e2:SetType(EFFECT_TYPE_FIELD)
+    e2:SetCode(EFFECT_CANNOT_INACTIVATE)
+    e2:SetRange(LOCATION_FZONE)
+    e2:SetValue(cm.effectfilter)
+    c:RegisterEffect(e2)
+    local e3=Effect.CreateEffect(c)
+    e3:SetType(EFFECT_TYPE_FIELD)
+    e3:SetCode(EFFECT_CANNOT_DISEFFECT)
+    e3:SetRange(LOCATION_FZONE)
+    e3:SetValue(cm.effectfilter)
+    c:RegisterEffect(e3)
+    local e4=Effect.CreateEffect(c)
+    e4:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_FIELD)
+    e4:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
+    e4:SetCode(EVENT_CHAINING)
+    e4:SetRange(LOCATION_SZONE)
+    e4:SetOperation(aux.chainreg)
+    c:RegisterEffect(e4)
+    local e5=Effect.CreateEffect(c)
+    e5:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_FIELD)
+    e5:SetCode(EVENT_CHAIN_SOLVED)
+    e5:SetRange(LOCATION_SZONE)
+    e5:SetOperation(cm.acop)
+    c:RegisterEffect(e5)
+    local e6=Effect.CreateEffect(c)
+    e6:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
+    e6:SetType(EFFECT_TYPE_IGNITION)
+    e6:SetRange(LOCATION_FZONE)
+    e6:SetCountLimit(1,m)
+    e6:SetCost(cm.thcost)
+    e6:SetTarget(cm.thtg)
+    e6:SetOperation(cm.thop)
+    c:RegisterEffect(e6)
+    local e7=Effect.CreateEffect(c)
+    e7:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
+    e7:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
+    e7:SetCode(EVENT_PHASE+PHASE_BATTLE_START)
+    e7:SetRange(LOCATION_SZONE)
+    e7:SetCondition(cm.skcon)
+    e7:SetTarget(cm.sktg)
+    e7:SetOperation(cm.skop)
+    c:RegisterEffect(e7)
+end
+function cm.effectfilter(e,ct)
+    local te=Duel.GetChainInfo(ct,CHAININFO_TRIGGERING_EFFECT)
+    local tc=te:GetHandler()
+    return tc:IsSetCard(0xcc30) and tc:IsLevelAbove(7)
+end
+function cm.acop(e,tp,eg,ep,ev,re,r,rp)
+    local te,loc=Duel.GetChainInfo(ev,CHAININFO_TRIGGERING_EFFECT,CHAININFO_TRIGGERING_LOCATION)
+    local c=e:GetHandler()
+    local tc=te:GetHandler()
+    if re:IsActiveType(TYPE_MONSTER) and tc:IsSetCard(0xcc30) and loc==LOCATION_HAND and c:GetFlagEffect(1)>0 then
+        c:AddCounter(0xcc30,1)
+    end
+end
+function cm.thcost(e,tp,eg,ep,ev,re,r,rp,chk)
+    if chk==0 then return e:GetHandler():IsCanRemoveCounter(tp,0xcc30,3,REASON_COST) end
+    e:GetHandler():RemoveCounter(tp,0xcc30,3,REASON_COST)
+end
+function cm.thfilter(c)
+    return c:IsSetCard(0xcc30) and c:IsType(TYPE_MONSTER) and c:IsAbleToHand()
+end
+function cm.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
+    if chk==0 then return Duel.IsExistingMatchingCard(cm.thfilter,tp,LOCATION_DECK,0,1,nil) end
+    Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
+end
+function cm.thop(e,tp,eg,ep,ev,re,r,rp)
+    if not e:GetHandler():IsRelateToEffect(e) then return end
+    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
+    local g=Duel.SelectMatchingCard(tp,cm.thfilter,tp,LOCATION_DECK,0,1,1,nil)
+    if g:GetCount()>0 then
+        Duel.SendtoHand(g,nil,REASON_EFFECT)
+        Duel.ConfirmCards(1-tp,g)
+    end
+end
+function cm.skcon(e,tp,eg,ep,ev,re,r,rp)
+    return Duel.GetTurnPlayer()==1-tp and e:GetHandler():GetCounter(0xcc30)>0
+end
+function cm.sktg(e,tp,eg,ep,ev,re,r,rp,chk)
+    if chk==0 then return e:GetHandler():IsAbleToDeck() end
+    Duel.SetOperationInfo(0,CATEGORY_TODECK,e:GetHandler(),1,0,0)
+end
+function cm.skop(e,tp,eg,ep,ev,re,r,rp)
+    local c=e:GetHandler()
+    if not c:IsRelateToEffect(e) then return end
+    if Duel.SendtoDeck(c,nil,2,REASON_EFFECT)>0 then
+        Duel.SkipPhase(Duel.GetTurnPlayer(),PHASE_BATTLE,RESET_PHASE+PHASE_BATTLE_STEP,1)
+    end
+end

expansions/script/c89386010.lua

+--暴噬星皇神源·次元降下
+local m=89386010
+local cm=_G["c"..m]
+function cm.initial_effect(c)
+    aux.AddFusionProcFunRep(c,cm.matfilter,3,true)
+    aux.AddContactFusionProcedure(c,Card.IsAbleToDeckOrExtraAsCost,LOCATION_MZONE,0,aux.tdcfop(c))
+    local e1=Effect.CreateEffect(c)
+    e1:SetType(EFFECT_TYPE_SINGLE)
+    e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
+    e1:SetCode(EFFECT_SELF_DESTROY)
+    e1:SetRange(LOCATION_MZONE)
+    e1:SetCondition(cm.descon)
+    c:RegisterEffect(e1)
+    local e2=Effect.CreateEffect(c)
+    e2:SetType(EFFECT_TYPE_SINGLE)
+    e2:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
+    e2:SetRange(LOCATION_MZONE)
+    e2:SetCode(EFFECT_IMMUNE_EFFECT)
+    e2:SetValue(cm.efilter)
+    c:RegisterEffect(e2)
+    local e3=Effect.CreateEffect(c)
+    e3:SetType(EFFECT_TYPE_SINGLE)
+    e3:SetCode(EFFECT_CANNOT_BE_EFFECT_TARGET)
+    e3:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
+    e3:SetRange(LOCATION_MZONE)
+    e3:SetValue(aux.tgoval)
+    c:RegisterEffect(e3)
+    local e4=Effect.CreateEffect(c)
+    e4:SetCategory(CATEGORY_REMOVE)
+    e4:SetType(EFFECT_TYPE_QUICK_O)
+    e4:SetCode(EVENT_FREE_CHAIN)
+    e4:SetRange(LOCATION_MZONE)
+    e4:SetCountLimit(1,m)
+    e4:SetTarget(cm.extg)
+    e4:SetOperation(cm.exop)
+    c:RegisterEffect(e4)
+    local e5=Effect.CreateEffect(c)
+    e5:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_TODECK)
+    e5:SetType(EFFECT_TYPE_IGNITION)
+    e5:SetProperty(EFFECT_FLAG_CARD_TARGET)
+    e5:SetRange(LOCATION_GRAVE)
+    e5:SetCountLimit(1,m+100000000)
+    e5:SetCondition(cm.spcon)
+    e5:SetTarget(cm.target)
+    e5:SetOperation(cm.operation)
+    c:RegisterEffect(e5)
+end
+function cm.matfilter(c)
+    return c:GetOriginalLevel()>=7 and c:IsFusionSetCard(0xcc30)
+end
+function cm.desfilter(c,code)
+    return c:IsFaceup() and c:IsCode(code)
+end
+function cm.descon(e)
+    return not (Duel.IsExistingMatchingCard(cm.desfilter,e:GetHandlerPlayer(),LOCATION_ONFIELD,0,1,nil,89386001) and Duel.IsExistingMatchingCard(cm.desfilter,e:GetHandlerPlayer(),LOCATION_ONFIELD,0,1,nil,89386009))
+end
+function cm.efilter(e,te)
+    return te:IsActiveType(TYPE_MONSTER) and te:GetOwner()~=e:GetOwner()
+end
+function cm.extg(e,tp,eg,ep,ev,re,r,rp,chk)
+    if chk==0 then return Duel.IsExistingMatchingCard(Card.IsAbleToRemove,tp,0,LOCATION_EXTRA,1,nil,tp,POS_FACEDOWN) end
+    Duel.SetOperationInfo(0,CATEGORY_REMOVE,nil,1,1-tp,LOCATION_EXTRA)
+end
+function cm.exop(e,tp,eg,ep,ev,re,r,rp)
+    local g=Duel.GetFieldGroup(tp,0,LOCATION_EXTRA)
+    Duel.ConfirmCards(tp,g)
+    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
+    local sg=g:FilterSelect(tp,Card.IsAbleToRemove,1,1,nil,tp,POS_FACEDOWN)
+    Duel.Remove(sg,POS_FACEDOWN,REASON_EFFECT)
+    Duel.ShuffleExtra(1-tp)
+end
+function cm.spcon(e,tp,eg,ep,ev,re,r,rp)
+    local ph=Duel.GetCurrentPhase()
+    return ph==PHASE_MAIN1 or ph==PHASE_MAIN2
+end
+function cm.filter(c)
+    return c:IsFaceup() and c:IsSetCard(0xcc30) and c:IsAbleToDeck() and Duel.GetMZoneCount(tp,c)>0
+end
+function cm.spfilter(c,e,tp)
+    return c:IsSetCard(0xcc30) and c:IsType(TYPE_MONSTER) and c:IsCanBeSpecialSummoned(e,0,tp,true,false)
+end
+function cm.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+    if chkc then return chkc:IsControler(tp) and chkc:IsLocation(LOCATION_MZONE) and cm.filter(chkc) end
+    if chk==0 then return Duel.IsExistingTarget(cm.filter,tp,LOCATION_MZONE,0,1,nil) and Duel.IsExistingTarget(cm.spfilter,tp,LOCATION_GRAVE,0,1,nil,e,tp) end
+    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK)
+    local g=Duel.SelectTarget(tp,cm.filter,tp,LOCATION_MZONE,0,1,1,nil)
+    Duel.SetOperationInfo(0,CATEGORY_TODECK,g,1,0,0)
+    Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_GRAVE)
+end
+function cm.operation(e,tp,eg,ep,ev,re,r,rp)
+    local tc=Duel.GetFirstTarget()
+    if not (tc:IsRelateToEffect(e) and tc:IsFaceup()) then return end
+    if Duel.SendtoDeck(tc,nil,2,REASON_EFFECT)>0 and Duel.IsExistingMatchingCard(cm.spfilter,tp,LOCATION_GRAVE,0,1,nil,e,tp) then
+        Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
+        local g=Duel.SelectMatchingCard(tp,cm.spfilter,tp,LOCATION_DECK,0,1,1,nil,e,tp)
+        if g:GetCount()>0 then
+            Duel.SpecialSummon(g,0,tp,tp,true,false,POS_FACEUP)
+        end
+    end
+end

expansions/script/c89389004.lua

@@ -61,7 +61,7 @@ function cm.thop(e,tp,eg,ep,ev,re,r,rp)
     e2:SetProperty(EFFECT_FLAG_SET_AVAILABLE+EFFECT_FLAG_IGNORE_IMMUNE)
     e2:SetCode(EFFECT_TO_GRAVE_REDIRECT)
     e2:SetTargetRange(LOCATION_ONFIELD,LOCATION_ONFIELD)
-    e2:SetValue(LOCATION_DECKBOT)
+    e2:SetValue(LOCATION_DECKSHF)
     e2:SetTarget(cm.rmtg)
     e2:SetReset(RESET_PHASE+PHASE_END)
     Duel.RegisterEffect(e2,tp)

expansions/script/c9910197.lua

@@ -2,7 +2,7 @@
 function c9910197.initial_effect(c)
 	--remove
 	local e1=Effect.CreateEffect(c)
-	e1:SetCategory(CATEGORY_REMOVE)
+	e1:SetCategory(CATEGORY_REMOVE+CATEGORY_DRAW)
 	e1:SetType(EFFECT_TYPE_QUICK_O)
 	e1:SetCode(EVENT_FREE_CHAIN)
 	e1:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_END_PHASE)

expansions/script/c9910241.lua

@@ -14,56 +14,76 @@ function c9910241.initial_effect(c)
 	local e2=e1:Clone()
 	e2:SetCode(EFFECT_INDESTRUCTABLE_EFFECT)
 	c:RegisterEffect(e2)
-	--race
+	--remove
 	local e3=Effect.CreateEffect(c)
-	e3:SetType(EFFECT_TYPE_FIELD)
-	e3:SetRange(LOCATION_MZONE)
-	e3:SetTargetRange(LOCATION_MZONE+LOCATION_GRAVE,LOCATION_MZONE+LOCATION_GRAVE)
-	e3:SetCode(EFFECT_CHANGE_RACE)
-	e3:SetCondition(c9910241.racon)
-	e3:SetValue(RACE_PSYCHO)
+	e3:SetDescription(aux.Stringid(9910241,0))
+	e3:SetCategory(CATEGORY_REMOVE)
+	e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+	e3:SetProperty(EFFECT_FLAG_DELAY)
+	e3:SetCode(EVENT_SPSUMMON_SUCCESS)
+	e3:SetCountLimit(1,9910241)
+	e3:SetCondition(c9910241.rmcon)
+	e3:SetTarget(c9910241.rmtg)
+	e3:SetOperation(c9910241.rmop)
 	c:RegisterEffect(e3)
-	--remove
-	local e4=Effect.CreateEffect(c)
-	e4:SetCategory(CATEGORY_REMOVE)
-	e4:SetProperty(EFFECT_FLAG_CARD_TARGET)
-	e4:SetType(EFFECT_TYPE_QUICK_O)
-	e4:SetCode(EVENT_CHAINING)
-	e4:SetRange(LOCATION_MZONE)
-	e4:SetCountLimit(1)
-	e4:SetCondition(c9910241.rmcon)
-	e4:SetTarget(c9910241.rmtg)
-	e4:SetOperation(c9910241.rmop)
-	c:RegisterEffect(e4)
+	Duel.AddCustomActivityCounter(9910241,ACTIVITY_CHAIN,c9910241.chainfilter1)
+	Duel.AddCustomActivityCounter(9910242,ACTIVITY_CHAIN,c9910241.chainfilter2)
+	Duel.AddCustomActivityCounter(9910243,ACTIVITY_CHAIN,c9910241.chainfilter3)
+end
+function c9910241.chainfilter1(re,tp,cid,mc)
+	return not (re:GetHandler():IsRace(RACE_PSYCHO) and re:IsActiveType(TYPE_MONSTER)
+		and Duel.GetChainInfo(cid,CHAININFO_TRIGGERING_LOCATION)==LOCATION_MZONE)
+end
+function c9910241.chainfilter2(re,tp,cid)
+	return not (re:GetHandler():IsRace(RACE_PSYCHO) and re:IsActiveType(TYPE_MONSTER)
+		and Duel.GetChainInfo(cid,CHAININFO_TRIGGERING_LOCATION)==LOCATION_GRAVE)
+end
+function c9910241.chainfilter3(re,tp,cid)
+	return not (re:GetHandler():IsRace(RACE_PSYCHO) and re:IsActiveType(TYPE_MONSTER)
+		and Duel.GetChainInfo(cid,CHAININFO_TRIGGERING_LOCATION)==LOCATION_HAND)
 end
 function c9910241.matfilter(c)
 	return c:IsLinkRace(RACE_PSYCHO) and c:IsLinkType(TYPE_LINK)
 end
-function c9910241.racon(e)
-	local tp=e:GetHandlerPlayer()
-	return not Duel.IsPlayerAffectedByEffect(tp,EFFECT_NECRO_VALLEY) 
-		and not Duel.IsPlayerAffectedByEffect(1-tp,EFFECT_NECRO_VALLEY)
-end
 function c9910241.rmcon(e,tp,eg,ep,ev,re,r,rp)
-	local race=Duel.GetChainInfo(ev,CHAININFO_TRIGGERING_RACE)
-	return race&RACE_PSYCHO>0
+	return e:GetHandler():IsSummonType(SUMMON_TYPE_LINK)
+end
+function c9910241.rmfilter(c,tp)
+	local b1=c:IsLocation(LOCATION_ONFIELD) and (Duel.GetCustomActivityCount(9910241,tp,ACTIVITY_CHAIN)~=0 or Duel.GetCustomActivityCount(9910241,1-tp,ACTIVITY_CHAIN)~=0)
+	local b2=c:IsLocation(LOCATION_GRAVE) and (Duel.GetCustomActivityCount(9910242,tp,ACTIVITY_CHAIN)~=0 or Duel.GetCustomActivityCount(9910242,1-tp,ACTIVITY_CHAIN)~=0)
+	local b3=c:IsLocation(LOCATION_HAND) and (Duel.GetCustomActivityCount(9910243,tp,ACTIVITY_CHAIN)~=0 or Duel.GetCustomActivityCount(9910243,1-tp,ACTIVITY_CHAIN)~=0)
+	return c:IsAbleToRemove() and (b1 or b2 or b3)
 end
-function c9910241.rmfilter(c)
-	return (c:IsFaceup() or c:IsLocation(LOCATION_GRAVE)) and c:IsSetCard(0x955) and c:IsAbleToRemove()
+function c9910241.rmfilter2(c,tp,id,ct)
+	local act=ACTIVITY_CHAIN 
+	return c:IsAbleToRemove()
+		and (Duel.GetCustomActivityCount(id,tp,act)>ct or Duel.GetCustomActivityCount(id,1-tp,act)>0)
 end
-function c9910241.rmtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
-	local loc=LOCATION_ONFIELD+LOCATION_GRAVE 
-	if chkc then return chkc:IsControler(tp) and chkc:IsLocation(loc) and c9910241.rmfilter(chkc) end
-	if chk==0 then return Duel.IsExistingTarget(c9910241.rmfilter,tp,loc,0,1,nil) end
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
-	local g1=Duel.SelectTarget(tp,c9910241.rmfilter,tp,loc,0,1,1,nil)
-	local g2=Duel.GetMatchingGroup(Card.IsAbleToRemove,tp,0,loc,nil)
-	g1:Merge(g2)
-	Duel.SetOperationInfo(0,CATEGORY_REMOVE,g1,g1:GetCount(),0,0)
+function c9910241.rmtg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(c9910241.rmfilter,tp,0,LOCATION_HAND+LOCATION_ONFIELD+LOCATION_GRAVE,1,nil,tp) end
+	Duel.SetOperationInfo(0,CATEGORY_REMOVE,nil,1,0,LOCATION_HAND+LOCATION_ONFIELD+LOCATION_GRAVE)
 end
 function c9910241.rmop(e,tp,eg,ep,ev,re,r,rp)
-	local tc=Duel.GetFirstTarget()
-	local g=Duel.GetMatchingGroup(Card.IsAbleToRemove,tp,0,LOCATION_ONFIELD+LOCATION_GRAVE,nil)
-	if tc:IsAbleToRemove() and tc:IsRelateToEffect(e) then g:AddCard(tc) end
-	Duel.Remove(g,POS_FACEUP,REASON_EFFECT)
+	local g1=Duel.GetMatchingGroup(c9910241.rmfilter2,tp,0,LOCATION_ONFIELD,nil,tp,9910241,1)
+	local g2=Duel.GetMatchingGroup(c9910241.rmfilter2,tp,0,LOCATION_GRAVE,nil,tp,9910242,0)
+	local g3=Duel.GetMatchingGroup(c9910241.rmfilter2,tp,0,LOCATION_HAND,nil,tp,9910243,0)
+	local sg=Group.CreateGroup()
+	if g1:GetCount()>0 and ((g2:GetCount()==0 and g3:GetCount()==0) or Duel.SelectYesNo(tp,aux.Stringid(9910241,1))) then
+		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
+		local sg1=g1:Select(tp,1,1,nil)
+		Duel.HintSelection(sg1)
+		sg:Merge(sg1)
+	end
+	if g2:GetCount()>0 and ((sg:GetCount()==0 and g3:GetCount()==0) or Duel.SelectYesNo(tp,aux.Stringid(9910241,2))) then
+		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
+		local sg2=g2:Select(tp,1,1,nil)
+		Duel.HintSelection(sg2)
+		sg:Merge(sg2)
+	end
+	if g3:GetCount()>0 and (sg:GetCount()==0 or Duel.SelectYesNo(tp,aux.Stringid(9910241,3))) then
+		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
+		local sg3=g3:RandomSelect(tp,1)
+		sg:Merge(sg3)
+	end
+	Duel.Remove(sg,POS_FACEUP,REASON_EFFECT)
 end

expansions/script/c9910331.lua

@@ -103,6 +103,7 @@ function c9910331.target1(e,tp,eg,ep,ev,re,r,rp,chk)
 	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND)
 end
 function c9910331.operation1(e,tp,eg,ep,ev,re,r,rp)
+	if not e:GetHandler():IsRelateToEffect(e) then return end
 	if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end
 	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
 	local g=Duel.SelectMatchingCard(tp,c9910331.filter1,tp,LOCATION_HAND,0,1,1,nil,e,tp)
@@ -145,6 +146,7 @@ function c9910331.target3(e,tp,eg,ep,ev,re,r,rp,chk)
 	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,2,tp,LOCATION_DECK+LOCATION_HAND)
 end
 function c9910331.operation3(e,tp,eg,ep,ev,re,r,rp)
+	if not e:GetHandler():IsRelateToEffect(e) then return end
 	if Duel.IsPlayerAffectedByEffect(tp,59822133) then return end
 	local ft1=Duel.GetLocationCount(tp,LOCATION_MZONE)
 	local ft2=Duel.GetLocationCount(1-tp,LOCATION_MZONE)

expansions/script/c9910362.lua

+--虹彩偶像的悸动 高咲侑
+function c9910362.initial_effect(c)
+	--act
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_TRIGGER_O+EFFECT_TYPE_SINGLE)
+	e1:SetProperty(EFFECT_FLAG_DELAY)
+	e1:SetCode(EVENT_SUMMON_SUCCESS)
+	e1:SetTarget(c9910362.acttg)
+	e1:SetOperation(c9910362.actop)
+	c:RegisterEffect(e1)
+	local e2=e1:Clone()
+	e2:SetCode(EVENT_SPSUMMON_SUCCESS)
+	c:RegisterEffect(e2)
+	--equip
+	local e3=Effect.CreateEffect(c)
+	e3:SetCategory(CATEGORY_EQUIP)
+	e3:SetType(EFFECT_TYPE_QUICK_O)
+	e3:SetProperty(EFFECT_FLAG_CARD_TARGET)
+	e3:SetCode(EVENT_FREE_CHAIN)
+	e3:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_END_PHASE)
+	e3:SetRange(LOCATION_MZONE)
+	e3:SetCountLimit(1)
+	e3:SetTarget(c9910362.eqtg)
+	e3:SetOperation(c9910362.eqop)
+	c:RegisterEffect(e3)
+end
+function c9910362.actfilter(c,tp)
+	return c:IsSetCard(0x5951) and c:IsType(TYPE_FIELD) and c:GetActivateEffect():IsActivatable(tp,true,true)
+end
+function c9910362.acttg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(c9910362.actfilter,tp,LOCATION_HAND+LOCATION_DECK,0,1,nil,tp) end
+	if not Duel.CheckPhaseActivity() then e:SetLabel(1) else e:SetLabel(0) end
+end
+function c9910362.thfilter(c,mc)
+	return c:IsSetCard(0x5951) and c:IsAbleToHand() and aux.IsCodeListed(mc,c:GetCode())
+end
+function c9910362.actop(e,tp,eg,ep,ev,re,r,rp)
+	Duel.Hint(HINT_SELECTMSG,tp,aux.Stringid(9910362,0))
+	if e:GetLabel()==1 then Duel.RegisterFlagEffect(tp,9910362,RESET_CHAIN,0,1) end
+	local tc=Duel.SelectMatchingCard(tp,c9910362.actfilter,tp,LOCATION_HAND+LOCATION_DECK,0,1,1,nil,tp):GetFirst()
+	Duel.ResetFlagEffect(tp,9910362)
+	if tc then
+		local fc=Duel.GetFieldCard(tp,LOCATION_FZONE,0)
+		if fc then
+			Duel.SendtoGrave(fc,REASON_RULE)
+			Duel.BreakEffect()
+		end
+		local res=tc:IsLocation(LOCATION_HAND)
+		if not Duel.MoveToField(tc,tp,tp,LOCATION_FZONE,POS_FACEUP,true) then return end
+		local te=tc:GetActivateEffect()
+		te:UseCountLimit(tp,1,true)
+		local tep=tc:GetControler()
+		local cost=te:GetCost()
+		if cost then cost(te,tep,eg,ep,ev,re,r,rp,1) end
+		Duel.RaiseEvent(tc,4179255,te,0,tp,tp,Duel.GetCurrentChain())
+		local g=Duel.GetMatchingGroup(aux.NecroValleyFilter(c9910362.thfilter),tp,LOCATION_DECK+LOCATION_GRAVE,0,nil,tc)
+		if res and g:GetCount()>0 and Duel.SelectYesNo(tp,aux.Stringid(9910362,1)) then
+			Duel.BreakEffect()
+			Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
+			local sg=g:Select(tp,1,1,nil)
+			Duel.SendtoHand(sg,nil,REASON_EFFECT)
+			Duel.ConfirmCards(1-tp,sg)
+		end
+	end
+end
+function c9910362.eqfilter(c)
+	return c:IsFaceup() and c:IsSetCard(0x5951)
+end
+function c9910362.eqtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	local c=e:GetHandler()
+	if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and c9910362.eqfilter(chkc) and chkc~=c end
+	if chk==0 then return Duel.GetLocationCount(tp,LOCATION_SZONE)>0
+		and Duel.IsExistingTarget(c9910362.eqfilter,tp,LOCATION_MZONE,0,1,c) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_EQUIP)
+	local g=Duel.SelectTarget(tp,c9910362.eqfilter,tp,LOCATION_MZONE,0,1,1,c)
+	Duel.SetOperationInfo(0,CATEGORY_EQUIP,c,1,0,0)
+end
+function c9910362.eqop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	local tc=Duel.GetFirstTarget()
+	if not c:IsRelateToEffect(e) or c:IsFacedown() then return end
+	if Duel.GetLocationCount(tp,LOCATION_SZONE)<=0 or tc:GetControler()~=tp or tc:IsFacedown() or not tc:IsRelateToEffect(e) then
+		Duel.SendtoGrave(c,REASON_EFFECT)
+		return
+	end
+	Duel.Equip(tp,c,tc)
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_SINGLE)
+	e1:SetCode(EFFECT_EQUIP_LIMIT)
+	e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
+	e1:SetReset(RESET_EVENT+RESETS_STANDARD)
+	e1:SetValue(c9910362.eqlimit)
+	e1:SetLabelObject(tc)
+	c:RegisterEffect(e1)
+	local e2=Effect.CreateEffect(c)
+	e2:SetType(EFFECT_TYPE_SINGLE)
+	e2:SetCode(EFFECT_LEAVE_FIELD_REDIRECT)
+	e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
+	e2:SetReset(RESET_EVENT+RESETS_REDIRECT)
+	e2:SetValue(LOCATION_HAND)
+	c:RegisterEffect(e2)
+end
+function c9910362.eqlimit(e,c)
+	return c==e:GetLabelObject()
+end

expansions/script/c9910363.lua

+--虹彩偶像 优木雪菜
+function c9910363.initial_effect(c)
+	--spsummon
+	local e1=Effect.CreateEffect(c)
+	e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
+	e1:SetType(EFFECT_TYPE_QUICK_O)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	e1:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_END_PHASE)
+	e1:SetRange(LOCATION_HAND)
+	e1:SetCountLimit(1,9910363)
+	e1:SetCondition(c9910363.spcon)
+	e1:SetTarget(c9910363.sptg)
+	e1:SetOperation(c9910363.spop)
+	c:RegisterEffect(e1)
+	--destroy
+	local e2=Effect.CreateEffect(c)
+	e2:SetCategory(CATEGORY_DESTROY+CATEGORY_TODECK)
+	e2:SetType(EFFECT_TYPE_QUICK_O)
+	e2:SetCode(EVENT_FREE_CHAIN)
+	e2:SetProperty(EFFECT_FLAG_CARD_TARGET)
+	e2:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_END_PHASE)
+	e2:SetRange(LOCATION_MZONE)
+	e2:SetCountLimit(1,9910364)
+	e2:SetTarget(c9910363.destg)
+	e2:SetOperation(c9910363.desop)
+	c:RegisterEffect(e2)
+end
+function c9910363.spcon(e,tp,eg,ep,ev,re,r,rp)
+	return Duel.IsExistingMatchingCard(Card.IsFaceup,tp,LOCATION_FZONE,LOCATION_FZONE,1,nil)
+end
+function c9910363.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 c9910363.spfilter(c,e,tp)
+	return c:IsSetCard(0x5951) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
+end
+function c9910363.fselect(g,tp,c)
+	local res=true
+	if Duel.GetLocationCount(tp,LOCATION_MZONE)==1 or Duel.IsPlayerAffectedByEffect(tp,59822133) then
+		res=g:GetCount()<=1
+	end
+	return res and g:IsContains(c)
+end
+function c9910363.spop(e,tp,eg,ep,ev,re,r,rp)
+	if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end
+	local g=Duel.GetMatchingGroup(c9910363.spfilter,tp,LOCATION_HAND,0,nil,e,tp)
+	if g:GetCount()==0 then return end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
+	local sg=g:SelectSubGroup(tp,c9910363.fselect,false,1,2,tp,e:GetHandler())
+	if sg:GetCount()>0 then Duel.SpecialSummon(sg,0,tp,tp,false,false,POS_FACEUP) end
+end
+function c9910363.spellfilter(c)
+	return c:IsFaceup() and c:IsType(TYPE_SPELL) and c:IsAbleToDeck()
+end
+function c9910363.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chkc then return chkc:IsOnField() and chkc:IsControler(tp) and c9910363.spellfilter(chkc) end
+	if chk==0 then return Duel.IsExistingTarget(c9910363.spellfilter,tp,LOCATION_ONFIELD,0,1,nil)
+		and Duel.IsExistingMatchingCard(nil,tp,0,LOCATION_ONFIELD,1,nil) end
+	Duel.Hint(HINT_SELECTMSG,tp,aux.Stringid(9910363,0))
+	local g=Duel.SelectTarget(tp,c9910363.spellfilter,tp,LOCATION_ONFIELD,0,1,1,nil)
+	g:AddCard(e:GetHandler())
+	local g2=Duel.GetMatchingGroup(nil,tp,0,LOCATION_ONFIELD,nil)
+	Duel.SetOperationInfo(0,CATEGORY_TODECK,g,2,0,0)
+	Duel.SetOperationInfo(0,CATEGORY_DESTROY,g2,1,0,0)
+end
+function c9910363.desop(e,tp,eg,ep,ev,re,r,rp)
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
+	local g2=Duel.SelectMatchingCard(tp,nil,tp,0,LOCATION_ONFIELD,1,1,nil)
+	if g2:GetCount()==0 then return end
+	Duel.HintSelection(g2)
+	if Duel.Destroy(g2,REASON_EFFECT)==0 then return end
+	local g=Group.CreateGroup()
+	local c=e:GetHandler()
+	local tc=Duel.GetFirstTarget()
+	if c:IsRelateToEffect(e) then g:AddCard(c) end
+	if tc:IsRelateToEffect(e) then g:AddCard(tc) end
+	if g:GetCount()>0 then
+		Duel.BreakEffect()
+		Duel.SendtoDeck(g,nil,2,REASON_EFFECT)
+	end
+end

expansions/script/c9910365.lua

+--虹彩偶像舞台 深渊焰火
+function c9910365.initial_effect(c)
+	aux.AddCodeList(c,9910363)
+	--Activate
+	local e1=Effect.CreateEffect(c)
+	e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	e1:SetOperation(c9910365.activate)
+	c:RegisterEffect(e1)
+	--spsummon limit
+	local e2=Effect.CreateEffect(c)
+	e2:SetType(EFFECT_TYPE_FIELD)
+	e2:SetRange(LOCATION_FZONE)
+	e2:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
+	e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
+	e2:SetTargetRange(1,0)
+	e2:SetTarget(c9910365.sumlimit)
+	c:RegisterEffect(e2)
+	--double
+	local e3=Effect.CreateEffect(c)
+	e3:SetType(EFFECT_TYPE_QUICK_O)
+	e3:SetCode(EVENT_FREE_CHAIN)
+	e3:SetProperty(EFFECT_FLAG_CARD_TARGET)
+	e3:SetRange(LOCATION_FZONE)
+	e3:SetCountLimit(1)
+	e3:SetCondition(c9910365.dbcon)
+	e3:SetTarget(c9910365.dbtg)
+	e3:SetOperation(c9910365.dbop)
+	c:RegisterEffect(e3)
+end
+function c9910365.thfilter(c)
+	return c:IsCode(9910363) and c:IsAbleToHand()
+end
+function c9910365.activate(e,tp,eg,ep,ev,re,r,rp)
+	if not e:GetHandler():IsRelateToEffect(e) then return end
+	local g=Duel.GetMatchingGroup(c9910365.thfilter,tp,LOCATION_DECK,0,nil)
+	if g:GetCount()>0 and Duel.SelectYesNo(tp,aux.Stringid(9910365,0)) then
+		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
+		local sg=g:Select(tp,1,1,nil)
+		Duel.SendtoHand(sg,nil,REASON_EFFECT)
+		Duel.ConfirmCards(1-tp,sg)
+	end
+end
+function c9910365.sumlimit(e,c,sump,sumtype,sumpos,targetp)
+	return c:IsLocation(LOCATION_EXTRA)
+end
+function c9910365.dbcon(e,tp,eg,ep,ev,re,r,rp)
+	return Duel.GetCurrentPhase()>=PHASE_BATTLE_START and Duel.GetCurrentPhase()<=PHASE_BATTLE 
+end
+function c9910365.dbfilter(c)
+	return c:IsFaceup() and c:IsSetCard(0x5951)
+end
+function c9910365.dbtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and c9910365.dbfilter(chkc) end
+	if chk==0 then return Duel.IsExistingTarget(c9910365.dbfilter,tp,LOCATION_MZONE,0,1,nil) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP)
+	Duel.SelectTarget(tp,c9910365.dbfilter,tp,LOCATION_MZONE,0,1,1,nil)
+end
+function c9910365.dbop(e,tp,eg,ep,ev,re,r,rp)
+	if not e:GetHandler():IsRelateToEffect(e) then return end
+	local c=e:GetHandler()
+	local tc=Duel.GetFirstTarget()
+	if tc:IsRelateToEffect(e) and tc:IsFaceup() then
+		local fid=c:GetFieldID()
+		local e1=Effect.CreateEffect(c)
+		e1:SetType(EFFECT_TYPE_SINGLE)
+		e1:SetCode(EFFECT_INDESTRUCTABLE_BATTLE)
+		e1:SetValue(1)
+		e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
+		tc:RegisterEffect(e1)
+		tc:RegisterFlagEffect(9910365,RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END,0,1,fid)
+		local e2=Effect.CreateEffect(c)
+		e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+		e2:SetCode(EVENT_PHASE+PHASE_END)
+		e2:SetCountLimit(1)
+		e2:SetLabel(fid)
+		e2:SetLabelObject(tc)
+		e2:SetCondition(c9910365.atkcon)
+		e2:SetOperation(c9910365.atkop)
+		e2:SetReset(RESET_PHASE+PHASE_END)
+		Duel.RegisterEffect(e2,tp)
+	end
+end
+function c9910365.atkcon(e,tp,eg,ep,ev,re,r,rp)
+	local tc=e:GetLabelObject()
+	if tc and tc:GetFlagEffectLabel(9910365)==e:GetLabel() then
+		return true
+	else
+		e:Reset()
+		return false
+	end
+end
+function c9910365.atkop(e,tp,eg,ep,ev,re,r,rp)
+	local tc=e:GetLabelObject()
+	local e1=Effect.CreateEffect(e:GetHandler())
+	e1:SetType(EFFECT_TYPE_SINGLE)
+	e1:SetCode(EFFECT_SET_ATTACK_FINAL)
+	e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
+	e1:SetReset(RESET_EVENT+RESETS_STANDARD)
+	e1:SetValue(tc:GetBaseAttack()*2)
+	tc:RegisterEffect(e1)
+	local e2=e1:Clone()
+	e2:SetCode(EFFECT_SET_DEFENSE_FINAL)
+	e2:SetValue(tc:GetBaseDefense()*2)
+	tc:RegisterEffect(e2)
+end

expansions/script/c9910366.lua

+--虹彩偶像 近江彼方
+function c9910366.initial_effect(c)
+	--spsummon
+	local e1=Effect.CreateEffect(c)
+	e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
+	e1:SetType(EFFECT_TYPE_QUICK_O)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	e1:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_END_PHASE)
+	e1:SetRange(LOCATION_HAND)
+	e1:SetCountLimit(1,9910366)
+	e1:SetCondition(c9910366.spcon)
+	e1:SetTarget(c9910366.sptg)
+	e1:SetOperation(c9910366.spop)
+	c:RegisterEffect(e1)
+	--set
+	local e2=Effect.CreateEffect(c)
+	e2:SetCategory(CATEGORY_POSITION+CATEGORY_TODECK)
+	e2:SetType(EFFECT_TYPE_IGNITION)
+	e2:SetProperty(EFFECT_FLAG_CARD_TARGET)
+	e2:SetRange(LOCATION_MZONE)
+	e2:SetCountLimit(1,9910367)
+	e2:SetTarget(c9910366.destg)
+	e2:SetOperation(c9910366.desop)
+	c:RegisterEffect(e2)
+end
+function c9910366.spcon(e,tp,eg,ep,ev,re,r,rp)
+	return Duel.IsExistingMatchingCard(Card.IsFaceup,tp,LOCATION_FZONE,LOCATION_FZONE,1,nil)
+end
+function c9910366.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 c9910366.spfilter(c,e,tp)
+	return c:IsSetCard(0x5951) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
+end
+function c9910366.fselect(g,tp,c)
+	local res=true
+	if Duel.GetLocationCount(tp,LOCATION_MZONE)==1 or Duel.IsPlayerAffectedByEffect(tp,59822133) then
+		res=g:GetCount()<=1
+	end
+	return res and g:IsContains(c)
+end
+function c9910366.spop(e,tp,eg,ep,ev,re,r,rp)
+	if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end
+	local g=Duel.GetMatchingGroup(c9910366.spfilter,tp,LOCATION_HAND,0,nil,e,tp)
+	if g:GetCount()==0 then return end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
+	local sg=g:SelectSubGroup(tp,c9910366.fselect,false,1,2,tp,e:GetHandler())
+	if sg:GetCount()>0 then Duel.SpecialSummon(sg,0,tp,tp,false,false,POS_FACEUP) end
+end
+function c9910366.spellfilter(c)
+	return c:IsFaceup() and c:IsType(TYPE_SPELL) and c:IsAbleToDeck()
+end
+function c9910366.setfilter(c)
+	return c:IsFaceup() and c:IsCanTurnSet()
+end
+function c9910366.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chkc then return chkc:IsOnField() and chkc:IsControler(tp) and c9910366.spellfilter(chkc) end
+	if chk==0 then return Duel.IsExistingTarget(c9910366.spellfilter,tp,LOCATION_ONFIELD,0,1,nil)
+		and Duel.IsExistingMatchingCard(c9910366.setfilter,tp,0,LOCATION_ONFIELD,1,nil) end
+	Duel.Hint(HINT_SELECTMSG,tp,aux.Stringid(9910366,0))
+	local g=Duel.SelectTarget(tp,c9910366.spellfilter,tp,LOCATION_ONFIELD,0,1,1,nil)
+	g:AddCard(e:GetHandler())
+	local g2=Duel.GetMatchingGroup(c9910366.setfilter,tp,0,LOCATION_ONFIELD,nil)
+	Duel.SetOperationInfo(0,CATEGORY_TODECK,g,2,0,0)
+	Duel.SetOperationInfo(0,CATEGORY_POSITION,g2,1,0,0)
+end
+function c9910366.desop(e,tp,eg,ep,ev,re,r,rp)
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SET)
+	local g2=Duel.SelectMatchingCard(tp,c9910366.setfilter,tp,0,LOCATION_ONFIELD,1,1,nil)
+	if g2:GetCount()==0 then return end
+	Duel.HintSelection(g2)
+	if Duel.ChangePosition(g2,POS_FACEDOWN)==0 then return end
+	local g=Group.CreateGroup()
+	local c=e:GetHandler()
+	local tc=Duel.GetFirstTarget()
+	if c:IsRelateToEffect(e) then g:AddCard(c) end
+	if tc:IsRelateToEffect(e) then g:AddCard(tc) end
+	if g:GetCount()>0 then
+		Duel.BreakEffect()
+		Duel.SendtoDeck(g,nil,2,REASON_EFFECT)
+	end
+end
+

expansions/script/c9910368.lua

+--虹彩偶像舞台 蝴蝶迷梦
+function c9910368.initial_effect(c)
+	aux.AddCodeList(c,9910366)
+	--Activate
+	local e1=Effect.CreateEffect(c)
+	e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	e1:SetOperation(c9910368.activate)
+	c:RegisterEffect(e1)
+	--spsummon limit
+	local e2=Effect.CreateEffect(c)
+	e2:SetType(EFFECT_TYPE_FIELD)
+	e2:SetRange(LOCATION_FZONE)
+	e2:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
+	e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
+	e2:SetTargetRange(1,0)
+	e2:SetTarget(c9910368.sumlimit)
+	c:RegisterEffect(e2)
+	--Lock S&T
+	local e3=Effect.CreateEffect(c)
+	e3:SetCategory(CATEGORY_TOGRAVE+CATEGORY_DRAW)
+	e3:SetType(EFFECT_TYPE_IGNITION)
+	e3:SetProperty(EFFECT_FLAG_CARD_TARGET)
+	e3:SetRange(LOCATION_FZONE)
+	e3:SetCountLimit(1,9910368)
+	e3:SetTarget(c9910368.lcktg)
+	e3:SetOperation(c9910368.lckop)
+	c:RegisterEffect(e3)
+end
+function c9910368.thfilter(c)
+	return c:IsCode(9910366) and c:IsAbleToHand()
+end
+function c9910368.activate(e,tp,eg,ep,ev,re,r,rp)
+	if not e:GetHandler():IsRelateToEffect(e) then return end
+	local g=Duel.GetMatchingGroup(c9910368.thfilter,tp,LOCATION_DECK,0,nil)
+	if g:GetCount()>0 and Duel.SelectYesNo(tp,aux.Stringid(9910368,0)) then
+		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
+		local sg=g:Select(tp,1,1,nil)
+		Duel.SendtoHand(sg,nil,REASON_EFFECT)
+		Duel.ConfirmCards(1-tp,sg)
+	end
+end
+function c9910368.sumlimit(e,c,sump,sumtype,sumpos,targetp)
+	return c:IsLocation(LOCATION_EXTRA)
+end
+function c9910368.lcktg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chkc then return chkc:IsLocation(LOCATION_SZONE) and chkc:IsFacedown() end
+	if chk==0 then return Duel.IsExistingTarget(Card.IsFacedown,tp,LOCATION_SZONE,LOCATION_SZONE,1,nil) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEDOWN)
+	Duel.SelectTarget(tp,Card.IsFacedown,tp,LOCATION_SZONE,LOCATION_SZONE,1,1,nil)
+end
+function c9910368.lckop(e,tp,eg,ep,ev,re,r,rp)
+	if not e:GetHandler():IsRelateToEffect(e) then return end
+	local c=e:GetHandler()
+	local fid=c:GetFieldID()
+	local tc=Duel.GetFirstTarget()
+	if tc:IsRelateToEffect(e) then
+		local e1=Effect.CreateEffect(c)
+		e1:SetType(EFFECT_TYPE_SINGLE)
+		e1:SetCode(EFFECT_CANNOT_TRIGGER)
+		e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END,2)
+		e1:SetValue(1)
+		tc:RegisterEffect(e1)
+		tc:RegisterFlagEffect(9910368,RESET_EVENT+RESETS_STANDARD,0,1,fid)
+		local e1=Effect.CreateEffect(c)
+		e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+		e1:SetCode(EVENT_PHASE+PHASE_END)
+		e1:SetLabel(fid)
+		e1:SetLabelObject(tc)
+		e1:SetCountLimit(1)
+		e1:SetCondition(c9910368.tgcon)
+		e1:SetOperation(c9910368.tgop)
+		Duel.RegisterEffect(e1,tp)
+	end
+end
+function c9910368.tgcon(e,tp,eg,ep,ev,re,r,rp)
+	local tc=e:GetLabelObject()
+	if tc and tc:GetFlagEffectLabel(9910368)==e:GetLabel() then
+		return true
+	else
+		e:Reset()
+		return false
+	end
+end
+function c9910368.tgop(e,tp,eg,ep,ev,re,r,rp)
+	local tc=e:GetLabelObject()
+	local p=tc:GetControler()
+	Duel.HintSelection(Group.FromCards(tc))
+	if tc:IsAbleToGrave() and Duel.IsPlayerCanDraw(p,1) and Duel.SelectYesNo(p,aux.Stringid(9910368,1)) then
+		if Duel.SendtoGrave(tc,REASON_EFFECT)~=0 then
+			Duel.Draw(p,1,REASON_EFFECT)
+		end
+		e:Reset()
+	end
+end

expansions/script/c9910553.lua

@@ -12,11 +12,11 @@ function c9910553.initial_effect(c)
 	c:RegisterEffect(e1)
 	--disable
 	local e2=Effect.CreateEffect(c)
-	e2:SetCategory(CATEGORY_ATKCHANGE+CATEGORY_DISABLE+CATEGORY_REMOVE+CATEGORY_SEARCH+CATEGORY_TOHAND)
+	e2:SetCategory(CATEGORY_DISABLE+CATEGORY_REMOVE+CATEGORY_TODECK)
 	e2:SetType(EFFECT_TYPE_QUICK_O)
-	e2:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DAMAGE_STEP)
+	e2:SetProperty(EFFECT_FLAG_CARD_TARGET)
 	e2:SetCode(EVENT_FREE_CHAIN)
-	e2:SetHintTiming(TIMING_DAMAGE_STEP,TIMING_DAMAGE_STEP+TIMINGS_CHECK_MONSTER)
+	e2:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_END_PHASE)
 	e2:SetRange(LOCATION_HAND)
 	e2:SetCountLimit(1,9910553)
 	e2:SetCost(c9910553.discost)
@@ -53,8 +53,8 @@ end
 function c9910553.rmfilter(c)
 	return c:IsSetCard(0x3951) and c:IsAbleToRemove()
 end
-function c9910553.thfilter(c)
-	return c:IsSetCard(0x3951) and c:IsAbleToHand()
+function c9910553.tdfilter(c)
+	return c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsAbleToDeck()
 end
 function c9910553.disop(e,tp,eg,ep,ev,re,r,rp)
 	local c=e:GetHandler()
@@ -73,16 +73,14 @@ function c9910553.disop(e,tp,eg,ep,ev,re,r,rp)
 	e4:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
 	tc:RegisterEffect(e4)
 	local g1=Duel.GetMatchingGroup(aux.NecroValleyFilter(c9910553.rmfilter),tp,LOCATION_GRAVE,0,nil)
-	local g2=Duel.GetMatchingGroup(c9910553.thfilter,tp,LOCATION_DECK,0,nil)
+	local g2=Duel.GetMatchingGroup(c9910553.tdfilter,tp,0,LOCATION_ONFIELD,nil)
 	if g1:GetCount()>1 and g2:GetCount()>0 and Duel.SelectYesNo(tp,aux.Stringid(9910553,1)) then
 		Duel.BreakEffect()
 		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
 		local sg1=g1:Select(tp,2,2,nil)
 		if Duel.Remove(sg1,POS_FACEUP,REASON_EFFECT)==0 then return end
-		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
+		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK)
 		local sg2=g2:Select(tp,1,1,nil)
-		Duel.SendtoHand(sg2,nil,REASON_EFFECT)
-		Duel.ConfirmCards(1-tp,sg2)
-		Duel.ShuffleHand(tp)
+		Duel.SendtoDeck(sg2,nil,2,REASON_EFFECT)
 	end
 end

expansions/script/c9910555.lua

@@ -10,15 +10,15 @@ function c9910555.initial_effect(c)
 	e1:SetTarget(c9910555.target)
 	e1:SetOperation(c9910555.activate)
 	c:RegisterEffect(e1)
-	--synchro/xyz summon
+	--draw
 	local e2=Effect.CreateEffect(c)
-	e2:SetCategory(CATEGORY_SPECIAL_SUMMON)
+	e2:SetCategory(CATEGORY_DRAW+CATEGORY_HANDES)
 	e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
 	e2:SetProperty(EFFECT_FLAG_DELAY)
 	e2:SetCode(EVENT_REMOVE)
 	e2:SetCountLimit(1,9910556)
-	e2:SetTarget(c9910555.sptg)
-	e2:SetOperation(c9910555.spop)
+	e2:SetTarget(c9910555.drtg)
+	e2:SetOperation(c9910555.drop)
 	c:RegisterEffect(e2)
 end
 function c9910555.spfilter(c,e,tp)
@@ -46,54 +46,34 @@ function c9910555.activate(e,tp,eg,ep,ev,re,r,rp)
 	if Duel.IsPlayerAffectedByEffect(tp,59822133) then ft=1 end
 	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
 	local sg=g:SelectSubGroup(tp,c9910555.fselect,false,1,ft,id)
-	if sg and sg:GetCount()>0 then
-		Duel.SpecialSummon(sg,0,tp,tp,false,false,POS_FACEUP)
+	for tc in aux.Next(sg) do
+		Duel.SpecialSummonStep(tc,0,tp,tp,false,false,POS_FACEUP)
+		local e1=Effect.CreateEffect(e:GetHandler())
+		e1:SetType(EFFECT_TYPE_FIELD)
+		e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
+		e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
+		e1:SetRange(LOCATION_MZONE)
+		e1:SetAbsoluteRange(tp,1,0)
+		e1:SetTarget(c9910555.splimit)
+		e1:SetReset(RESET_EVENT+RESETS_STANDARD)
+		tc:RegisterEffect(e1)
 	end
+	Duel.SpecialSummonComplete()
 end
-function c9910555.xyzfilter(c)
-	return c:IsRankBelow(2) and c:IsXyzSummonable(nil)
+function c9910555.splimit(e,c)
+	return not c:IsSetCard(0x3951)
 end
-function c9910555.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
-	local mg=Duel.GetMatchingGroup(Card.IsLevelBelow,tp,LOCATION_MZONE,0,nil,2)
-	if chk==0 then
-		local sel=0
-		if Duel.IsExistingMatchingCard(Card.IsSynchroSummonable,tp,LOCATION_EXTRA,0,1,nil,nil,mg) then
-			sel=sel+1
-		end
-		if Duel.IsExistingMatchingCard(c9910555.xyzfilter,tp,LOCATION_EXTRA,0,1,nil) then
-			sel=sel+2
-		end
-		e:SetLabel(sel)
-		return sel~=0
-	end
-	local sel=e:GetLabel()
-	if sel==3 then
-		Duel.Hint(HINT_SELECTMSG,tp,aux.Stringid(9910555,0))
-		sel=Duel.SelectOption(tp,aux.Stringid(9910555,1),aux.Stringid(9910555,2))+1
-	elseif sel==1 then
-		Duel.SelectOption(tp,aux.Stringid(9910555,1))
-	else
-		Duel.SelectOption(tp,aux.Stringid(9910555,2))
-	end
-	e:SetLabel(sel)
-	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA)
+function c9910555.tgfilter(c)
+	return c:IsType(TYPE_MONSTER) and c:IsRace(RACE_CYBERSE) and c:IsDiscardable()
+end
+function c9910555.drtg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(c9910555.tgfilter,tp,LOCATION_HAND,0,1,nil)
+		and Duel.IsPlayerCanDraw(tp,1) end
+	Duel.SetOperationInfo(0,CATEGORY_HANDES,nil,0,tp,1)
+	Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,1)
 end
-function c9910555.spop(e,tp,eg,ep,ev,re,r,rp)
-	local mg=Duel.GetMatchingGroup(Card.IsLevelBelow,tp,LOCATION_MZONE,0,nil,2)
-	local sel=e:GetLabel()
-	if sel==1 then
-		local g=Duel.GetMatchingGroup(Card.IsSynchroSummonable,tp,LOCATION_EXTRA,0,nil,nil,mg)
-		if g:GetCount()>0 then
-			Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
-			local sg=g:Select(tp,1,1,nil)
-			Duel.SynchroSummon(tp,sg:GetFirst(),nil,mg)
-		end
-	else
-		local g=Duel.GetMatchingGroup(c9910555.xyzfilter,tp,LOCATION_EXTRA,0,nil)
-		if g:GetCount()>0 then
-			Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
-			local sg=g:Select(tp,1,1,nil)
-			Duel.XyzSummon(tp,sg:GetFirst(),nil)
-		end
+function c9910555.drop(e,tp,eg,ep,ev,re,r,rp)
+	if Duel.DiscardHand(tp,c9910555.tgfilter,1,1,REASON_EFFECT+REASON_DISCARD)~=0 then
+		Duel.Draw(tp,1,REASON_EFFECT)
 	end
 end

expansions/script/c9910561.lua

@@ -46,7 +46,8 @@ function c9910561.xmtg(e,tp,eg,ep,ev,re,r,rp,chk)
 	if chk==0 then return Duel.IsExistingMatchingCard(c9910561.xmfilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,c,tp) end
 end
 function c9910561.xmop(e,tp,eg,ep,ev,re,r,rp)
-	local c=e:GetHandler()
+	local c=aux.ExceptThisCard(e)
+	if not c then return end
 	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_XMATERIAL)
 	local g=Duel.SelectMatchingCard(tp,c9910561.xmfilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,c,tp)
 	if g:GetCount()>0 then

expansions/script/c9910562.lua

+--甜心机仆 永恒的礼物
+function c9910562.initial_effect(c)
+	--link summon
+	aux.AddLinkProcedure(c,aux.FilterBoolFunction(Card.IsLinkType,TYPE_EFFECT),3)
+	c:EnableReviveLimit()
+	--remove
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
+	e1:SetCode(EVENT_SPSUMMON_SUCCESS)
+	e1:SetCondition(c9910562.rmcon)
+	e1:SetOperation(c9910562.rmop)
+	c:RegisterEffect(e1)
+	--draw
+	local e2=Effect.CreateEffect(c)
+	e2:SetCategory(CATEGORY_DRAW+CATEGORY_ATKCHANGE)
+	e2:SetType(EFFECT_TYPE_TRIGGER_O+EFFECT_TYPE_SINGLE)
+	e2:SetProperty(EFFECT_FLAG_DELAY)
+	e2:SetCode(EVENT_MOVE)
+	e2:SetCondition(c9910562.drcon)
+	e2:SetTarget(c9910562.drtg)
+	e2:SetOperation(c9910562.drop)
+	c:RegisterEffect(e2)
+	--search
+	local e3=Effect.CreateEffect(c)
+	e3:SetCategory(CATEGORY_REMOVE)
+	e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+	e3:SetProperty(EFFECT_FLAG_DELAY)
+	e3:SetCode(EVENT_MOVE)
+	e3:SetCondition(c9910562.rmcon2)
+	e3:SetTarget(c9910562.rmtg2)
+	e3:SetOperation(c9910562.rmop2)
+	c:RegisterEffect(e3)
+end
+function c9910562.rmcon(e,tp,eg,ep,ev,re,r,rp)
+	return e:GetHandler():GetSummonType()==SUMMON_TYPE_LINK 
+end
+function c9910562.rmop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	local fid=c:GetFieldID()
+	local g=Duel.GetMatchingGroup(Card.IsAbleToRemove,tp,LOCATION_MZONE,LOCATION_MZONE,c)
+	if c:IsFaceup() and g:GetCount()>0 and Duel.SelectYesNo(tp,aux.Stringid(9910562,0)) then
+		Duel.Hint(HINT_CARD,0,9910562)
+		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
+		local sg=g:Select(tp,1,1,nil)
+		sg:AddCard(c)
+		Duel.HintSelection(sg)
+		Duel.Remove(sg,POS_FACEUP,REASON_EFFECT+REASON_TEMPORARY)
+		local og=Duel.GetOperatedGroup()
+		if og:GetCount()~=2 then return end
+		local oc=og:GetFirst()
+		while oc do
+			oc:RegisterFlagEffect(9910562,RESET_EVENT+RESETS_STANDARD,0,1,fid)
+			oc=og:GetNext()
+		end
+		og:KeepAlive()
+		local e1=Effect.CreateEffect(c)
+		e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+		e1:SetCode(EVENT_PHASE+PHASE_END)
+		e1:SetLabel(fid)
+		e1:SetLabelObject(og)
+		e1:SetCountLimit(1)
+		e1:SetCondition(c9910562.retcon)
+		e1:SetOperation(c9910562.retop)
+		Duel.RegisterEffect(e1,tp)
+	end
+end
+function c9910562.retfilter(c,fid)
+	return c:GetFlagEffectLabel(9910562)==fid
+end
+function c9910562.retcon(e,tp,eg,ep,ev,re,r,rp)
+	local g=e:GetLabelObject()
+	if g:FilterCount(c9910562.retfilter,nil,e:GetLabel())~=2 then
+		g:DeleteGroup()
+		e:Reset()
+		return false
+	else return true end
+end
+function c9910562.retop(e,tp,eg,ep,ev,re,r,rp)
+	local g=e:GetLabelObject()
+	if Duel.SelectYesNo(tp,aux.Stringid(9910562,1)) then
+		Duel.ReturnToField(g:GetFirst())
+		Duel.ReturnToField(g:GetNext())
+		g:DeleteGroup()
+		e:Reset()
+	end
+end
+function c9910562.drcon(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	return c:IsLocation(LOCATION_MZONE) and c:IsPreviousLocation(LOCATION_REMOVED) and not c:IsReason(REASON_SPSUMMON)
+end
+function c9910562.drtg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsPlayerCanDraw(tp,1) end
+	Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,1)
+end
+function c9910562.drop(e,tp,eg,ep,ev,re,r,rp)
+	if Duel.Draw(tp,1,REASON_EFFECT)>0 then
+		local c=e:GetHandler()
+		local e1=Effect.CreateEffect(c)
+		e1:SetType(EFFECT_TYPE_SINGLE)
+		e1:SetCode(EFFECT_UPDATE_ATTACK)
+		e1:SetValue(2000)
+		e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_DISABLE)
+		c:RegisterEffect(e1)
+	end
+end
+function c9910562.rmcon2(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	return c:IsLocation(LOCATION_GRAVE) and c:IsPreviousLocation(LOCATION_REMOVED) and c:IsReason(REASON_RETURN)
+end
+function c9910562.rmtg2(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(Card.IsAbleToRemove,tp,LOCATION_DECK,0,1,nil,tp,POS_FACEDOWN) end
+	Duel.SetOperationInfo(0,CATEGORY_REMOVE,nil,1,tp,LOCATION_DECK)
+end
+function c9910562.rmop2(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
+	local g=Duel.SelectMatchingCard(tp,Card.IsAbleToRemove,tp,LOCATION_DECK,0,1,1,nil,tp,POS_FACEDOWN)
+	local tc=g:GetFirst()
+	if tc==nil or Duel.Remove(tc,POS_FACEDOWN,REASON_EFFECT)==0 then return end
+	local fid=c:GetFieldID()
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+	e1:SetCode(EVENT_PHASE+PHASE_STANDBY)
+	e1:SetCountLimit(1)
+	e1:SetLabel(fid)
+	e1:SetLabelObject(tc)
+	e1:SetCondition(c9910562.thcon)
+	e1:SetOperation(c9910562.thop)
+	if Duel.GetTurnPlayer()==tp and Duel.GetCurrentPhase()==PHASE_STANDBY then
+		e1:SetReset(RESET_PHASE+PHASE_STANDBY+RESET_SELF_TURN,2)
+		e1:SetValue(Duel.GetTurnCount())
+		tc:RegisterFlagEffect(9910563,RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_STANDBY+RESET_SELF_TURN,0,2,fid)
+	else
+		e1:SetReset(RESET_PHASE+PHASE_STANDBY+RESET_SELF_TURN)
+		e1:SetValue(0)
+		tc:RegisterFlagEffect(9910563,RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_STANDBY+RESET_SELF_TURN,0,1,fid)
+	end
+	Duel.RegisterEffect(e1,tp)
+end
+function c9910562.thcon(e,tp,eg,ep,ev,re,r,rp)
+	return Duel.GetTurnPlayer()==tp and Duel.GetTurnCount()~=e:GetValue()
+end
+function c9910562.thop(e,tp,eg,ep,ev,re,r,rp)
+	local tc=e:GetLabelObject()
+	if tc and tc:GetFlagEffectLabel(9910563)==e:GetLabel() then
+		Duel.Hint(HINT_CARD,0,9910562)
+		Duel.SendtoHand(tc,nil,REASON_EFFECT)
+		Duel.ConfirmCards(1-tp,tc)
+	end
+end

expansions/script/c9910564.lua

+--甜心机仆 天镜的礼物
+function c9910564.initial_effect(c)
+	--special summon
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_FIELD)
+	e1:SetCode(EFFECT_SPSUMMON_PROC)
+	e1:SetProperty(EFFECT_FLAG_UNCOPYABLE)
+	e1:SetRange(LOCATION_HAND)
+	e1:SetCountLimit(1,9910550+EFFECT_COUNT_CODE_OATH)
+	e1:SetCondition(c9910564.spcon)
+	e1:SetOperation(c9910564.spop)
+	c:RegisterEffect(e1)
+	--to hand
+	local e2=Effect.CreateEffect(c)
+	e2:SetCategory(CATEGORY_REMOVE+CATEGORY_SEARCH+CATEGORY_TOHAND)
+	e2:SetType(EFFECT_TYPE_IGNITION)
+	e2:SetRange(LOCATION_HAND)
+	e2:SetCountLimit(1,9910564)
+	e2:SetCost(c9910564.thcost)
+	e2:SetTarget(c9910564.thtg)
+	e2:SetOperation(c9910564.thop)
+	c:RegisterEffect(e2)
+end
+function c9910564.spcon(e,c)
+	if c==nil then return true end
+	local tp=c:GetControler()
+	return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
+		and Duel.IsExistingMatchingCard(Card.IsAbleToGrave,tp,LOCATION_REMOVED,LOCATION_REMOVED,1,nil)
+end
+function c9910564.spop(e,tp,eg,ep,ev,re,r,rp,c)
+	Duel.Hint(HINT_SELECTMSG,tp,aux.Stringid(9910564,0))
+	local g=Duel.SelectMatchingCard(tp,Card.IsAbleToGrave,tp,LOCATION_REMOVED,LOCATION_REMOVED,1,1,nil)
+	Duel.SendtoGrave(g,REASON_COST+REASON_RETURN)
+end
+function c9910564.costfilter(c)
+	return c:IsSetCard(0x3951) and c:IsDiscardable()
+end
+function c9910564.thcost(e,tp,eg,ep,ev,re,r,rp,chk)
+	local c=e:GetHandler()
+	if chk==0 then return c:IsDiscardable()
+		and Duel.IsExistingMatchingCard(c9910564.costfilter,tp,LOCATION_HAND,0,1,c) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DISCARD)
+	local g=Duel.SelectMatchingCard(tp,c9910564.costfilter,tp,LOCATION_HAND,0,1,1,c)
+	g:AddCard(c)
+	Duel.SendtoGrave(g,REASON_COST+REASON_DISCARD)
+end
+function c9910564.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(Card.IsAbleToRemove,tp,LOCATION_EXTRA,0,1,nil) end
+	Duel.SetOperationInfo(0,CATEGORY_REMOVE,nil,1,tp,LOCATION_EXTRA)
+end
+function c9910564.thfilter(c)
+	return c:IsSetCard(0x3951) and c:IsAbleToHand()
+end
+function c9910564.thop(e,tp,eg,ep,ev,re,r,rp)
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
+	local g=Duel.SelectMatchingCard(tp,Card.IsAbleToRemove,tp,LOCATION_EXTRA,0,1,1,nil)
+	local ct=Duel.Remove(g,POS_FACEUP,REASON_EFFECT)
+	local g1=Duel.GetMatchingGroup(Card.IsAbleToRemove,tp,LOCATION_HAND,0,nil)
+	local g2=Duel.GetMatchingGroup(c9910564.thfilter,tp,LOCATION_DECK,0,nil)
+	if ct~=0 and g1:GetCount()>0 and g2:GetCount()>0
+		and Duel.SelectYesNo(tp,aux.Stringid(9910564,1)) then
+		Duel.BreakEffect()
+		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
+		local sg1=g1:Select(tp,1,1,nil)
+		if Duel.Remove(sg1,POS_FACEUP,REASON_EFFECT)==0 then return end
+		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
+		local sg2=g2:Select(tp,1,1,nil)
+		Duel.SendtoHand(sg2,nil,REASON_EFFECT)
+		Duel.ConfirmCards(1-tp,sg2)
+		Duel.ShuffleHand(tp)
+	end
+	local e1=Effect.CreateEffect(e:GetHandler())
+	e1:SetType(EFFECT_TYPE_FIELD)
+	e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
+	e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
+	e1:SetTargetRange(1,0)
+	e1:SetTarget(c9910564.splimit)
+	e1:SetReset(RESET_PHASE+PHASE_END)
+	Duel.RegisterEffect(e1,tp)
+end
+function c9910564.splimit(e,c)
+	return not c:IsRace(RACE_CYBERSE)
+end