0717 Update

Add author cards 011, 714, 132

expansions/script/c1146016.lua

+--辉光之针的魔法少女
+function c1146016.initial_effect(c)
+--
+	c:EnableReviveLimit()
+	aux.AddFusionProcFun2(c,c1146016.FusFilter1,c1146016.FusFilter2,false)
+	aux.AddContactFusionProcedure(c,Card.IsReleasable,LOCATION_MZONE,0,Duel.Release,REASON_COST+REASON_FUSION+REASON_MATERIAL)
+--
+	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(c1146016.splimit)
+	c:RegisterEffect(e1)
+--
+	local e2=Effect.CreateEffect(c)
+	e2:SetDescription(aux.Stringid(1146016,0))
+	e2:SetCategory(CATEGORY_ATKCHANGE+CATEGORY_DESTROY)
+	e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F)
+	e2:SetCode(EVENT_SPSUMMON_SUCCESS)
+	e2:SetRange(LOCATION_MZONE)
+	e2:SetCondition(c1146016.con2)
+	e2:SetOperation(c1146016.op2)
+	c:RegisterEffect(e2)
+--
+	if not c1146016.global_check then
+		c1146016.global_check=true
+		local e3=Effect.CreateEffect(c)
+		e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
+		e3:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
+		e3:SetCode(EVENT_LEVEL_UP)
+		e3:SetLabelObject(c)
+		e3:SetOperation(c1146016.op3)
+		local e4=Effect.GlobalEffect()
+		e4:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_GRANT)
+		e4:SetTargetRange(LOCATION_MZONE,LOCATION_MZONE)
+		e4:SetTarget(function (e,c) return c:IsFaceup() end)
+		e4:SetLabelObject(e3)
+		Duel.RegisterEffect(e4,0)
+	end
+--
+	local e5=Effect.CreateEffect(c)
+	e5:SetCategory(CATEGORY_SPECIAL_SUMMON)
+	e5:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
+	e5:SetProperty(EFFECT_FLAG_DELAY)
+	e5:SetCode(EVENT_CUSTOM+1146016)
+	e5:SetRange(LOCATION_GRAVE)
+	e5:SetCountLimit(1,1146016)
+	e5:SetTarget(c1146016.tg5)
+	e5:SetOperation(c1146016.op5)
+	c:RegisterEffect(e5)
+--
+end
+--
+function c1146016.FusFilter1(c)
+	return c:IsRace(RACE_FIEND)
+end
+function c1146016.FusFilter2(c)
+	return c:IsRace(RACE_SPELLCASTER)
+end
+--
+function c1146016.splimit(e,se,sp,st)
+	local c=e:GetHandler()
+	return not c:IsLocation(LOCATION_EXTRA) or aux.fuslimit(e,se,sp,st)
+end
+--
+function c1146016.con2(e,tp,eg,ep,ev,re,r,rp)
+	local b1=eg and eg:IsExists(aux.TRUE,1,e:GetHandler())
+	local b2=(Duel.GetCurrentPhase()~=PHASE_DAMAGE or not Duel.IsDamageCalculated())
+	return b1 and b2
+end
+--
+function c1146016.op2(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	local mg=Duel.GetMatchingGroup(Card.IsFaceup,tp,0,LOCATION_MZONE,nil)
+	if mg:GetCount()<1 then return end
+	local tc=mg:GetFirst()
+	while tc do
+		local e2_1=Effect.CreateEffect(c)
+		e2_1:SetType(EFFECT_TYPE_SINGLE)
+		e2_1:SetCode(EFFECT_UPDATE_ATTACK)
+		e2_1:SetReset(RESET_EVENT+RESETS_STANDARD)
+		e2_1:SetValue(-1200)
+		tc:RegisterEffect(e2_1)
+		tc=mg:GetNext()
+	end
+	Duel.BreakEffect()
+	local dg=mg:Filter(Card.IsAttack,nil,0)
+	if dg:GetCount()<1 then return end
+	Duel.Destroy(dg,REASON_EFFECT)
+end
+--
+function c1146016.op3(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetLabelObject()
+	Duel.RaiseEvent(c,EVENT_CUSTOM+1146016,re,r,rp,ep,ev)
+end
+--
+function c1146016.tg5(e,tp,eg,ep,ev,re,r,rp,chk)
+	local c=e:GetHandler()
+	if chk==0 then return Duel.GetMZoneCount(tp)>0
+		and c:IsCanBeSpecialSummoned(e,0,tp,false,false) end
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,c,1,0,0)
+end
+--
+function c1146016.op5(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	if Duel.GetMZoneCount(tp)<1 then return end
+	if not c:IsRelateToEffect(e) then return end
+	Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)
+end
+--

expansions/script/c13254031.lua

+--元始飞球·绿
+local m=13254031
+local cm=_G["c"..m]
+xpcall(function() require("expansions/script/tama") end,function() require("script/tama") end)
+function cm.initial_effect(c)
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(m,0))
+	e1:SetCategory(CATEGORY_DRAW+CATEGORY_HANDES)
+	e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+	e1:SetCode(EVENT_SUMMON_SUCCESS)
+	e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY)
+	e1:SetTarget(cm.target)
+	e1:SetOperation(cm.operation)
+	c:RegisterEffect(e1)
+	local e2=Effect.CreateEffect(c)
+	e2:SetDescription(aux.Stringid(m,1))
+	e2:SetCategory(CATEGORY_TODECK+CATEGORY_TOHAND)
+	e2:SetType(EFFECT_TYPE_QUICK_O)
+	e2:SetCode(EVENT_FREE_CHAIN)
+	e2:SetRange(LOCATION_MZONE)
+	e2:SetProperty(EFFECT_FLAG_CARD_TARGET)
+	e2:SetCountLimit(1)
+	e2:SetCost(cm.cost1)
+	e2:SetTarget(cm.target1)
+	e2:SetOperation(cm.operation1)
+	c:RegisterEffect(e2)
+	elements={"tama_elements",{{13254031,1}}}
+	cm[c]=elements
+end
+function cm.target(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.GetFieldGroupCount(tp,LOCATION_HAND,0)>0 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 cm.operation(e,tp,eg,ep,ev,re,r,rp)
+	local ct=Duel.DiscardHand(tp,aux.TRUE,1,2,REASON_EFFECT+REASON_DISCARD)
+	Duel.BreakEffect()
+	Duel.Draw(tp,ct,REASON_EFFECT)
+end
+function cm.elementsFilter(c)
+	return c:IsAbleToDeckAsCost() and tama.tamas_isExistElement(c,13254031)
+end
+function cm.cost1(e,tp,eg,ep,ev,re,r,rp,chk)
+	--[[
+	local el={{13254031,2}}
+	local mg=tama.tamas_checkGroupElements(Duel.GetFieldGroup(tp,LOCATION_GRAVE,0),el)
+	local sg=Group.CreateGroup()
+	if chk==0 then 
+		--return mg:CheckWithSumGreater(tama.tamas_getElementCount,2,13254031)
+		return mg:GetCount()>0 and mg:IsExists(tama.tamas_selectElementsForAbove,1,nil,mg,sg,el)
+	end
+	while mg:IsExists(tama.tamas_selectElementsForAbove,1,sg,mg,sg,el) do
+		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK)
+		local g=mg:FilterSelect(tp,tama.tamas_selectElementsForAbove,1,1,sg,mg,sg,el)
+		el=tama.tamas_decreaseElements(el,tama.tamas_getElements(g:GetFirst()))
+		sg:Merge(g)
+	end
+	Duel.SendtoDeck(sg,nil,2,REASON_COST)]]
+
+	local el={{13254031,2}}
+	local mg=tama.tamas_checkGroupElements(Duel.GetFieldGroup(tp,LOCATION_GRAVE,0),el)
+	local sg=Group.CreateGroup()
+	if chk==0 then 
+		--return mg:CheckWithSumGreater(tama.tamas_getElementCount,2,13254031)
+		return mg:GetCount()>0 and mg:IsExists(tama.tamas_selectElementsForAbove,1,nil,mg,sg,el)
+	end
+	local sg,elements=tama.tamas_selectAllSelectForAbove(mg,el,tp)
+	Duel.SendtoDeck(sg,nil,2,REASON_COST)
+	--Debug.Message(elements[1][1].."+"..elements[1][2])
+end
+function cm.target1(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chkc then return chkc:IsControler(1-tp) and chkc:IsOnField() and chkc:IsAbleToHand() end
+	if chk==0 then return Duel.IsExistingTarget(Card.IsAbleToHand,tp,0,LOCATION_ONFIELD,2,nil) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
+	local sg=Duel.SelectTarget(tp,Card.IsAbleToHand,tp,0,LOCATION_ONFIELD,2,2,nil)
+	--local g=Duel.GetMatchingGroup(Card.IsAbleToHand,tp,0,LOCATION_ONFIELD,nil)
+	--Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,2,0,0)
+	Duel.SetOperationInfo(0,CATEGORY_TOHAND,sg,2,0,0)
+	Duel.SetOperationInfo(0,CATEGORY_TODECK,nil,0,1-tp,2)
+end
+function cm.operation1(e,tp,eg,ep,ev,re,r,rp)
+	local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS)
+	if g:FilterCount(Card.IsRelateToEffect,nil,e)~=2 then return end
+	if Duel.SendtoHand(g,nil,REASON_EFFECT)==2 then
+		local g1=Duel.GetFieldGroup(tp,0,LOCATION_HAND)
+		if g1:GetCount()<2 then return end
+		local sg=g:RandomSelect(tp,2)
+		Duel.SendtoDeck(sg,nil,2,REASON_EFFECT)
+	end
+end

expansions/script/c13254032.lua

+--元始飞球·金
+local m=13254032
+local cm=_G["c"..m]
+xpcall(function() require("expansions/script/tama") end,function() require("script/tama") end)
+function cm.initial_effect(c)
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(m,0))
+	e1:SetCategory(CATEGORY_TOGRAVE+CATEGORY_SPECIAL_SUMMON)
+	e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+	e1:SetCode(EVENT_SUMMON_SUCCESS)
+	e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY)
+	e1:SetTarget(cm.target)
+	e1:SetOperation(cm.operation)
+	c:RegisterEffect(e1)
+	local e2=Effect.CreateEffect(c)
+	e2:SetDescription(aux.Stringid(m,1))
+	e2:SetCategory(CATEGORY_TODECK)
+	e2:SetType(EFFECT_TYPE_QUICK_O)
+	e2:SetCode(EVENT_FREE_CHAIN)
+	e2:SetRange(LOCATION_MZONE)
+	e2:SetProperty(EFFECT_FLAG_CARD_TARGET)
+	e2:SetCountLimit(1)
+	e2:SetCost(cm.cost1)
+	e2:SetTarget(cm.target1)
+	e2:SetOperation(cm.operation1)
+	c:RegisterEffect(e2)
+	elements={"tama_elements",{{13254032,1}}}
+	cm[c]=elements
+end
+function cm.spfilter(c,e,tp)
+	return c:IsSetCard(0x356) and c:IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEDOWN_DEFENSE)
+end
+function cm.target(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then
+		local ft=Duel.GetLocationCount(tp,LOCATION_MZONE)
+		if ft<-1 then return false end
+		local loc=LOCATION_ONFIELD
+		if ft==0 then loc=LOCATION_MZONE end
+		return Duel.IsExistingMatchingCard(nil,tp,loc,0,1,nil) 
+		and Duel.IsExistingMatchingCard(cm.spfilter,tp,LOCATION_DECK,0,1,nil,e,tp) end
+	Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,nil,1,tp,LOCATION_ONFIELD)
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK)
+end
+function cm.filter(c,ft)
+	return ft>0 or c:IsLocation(LOCATION_MZONE) 
+end
+function cm.operation(e,tp,eg,ep,ev,re,r,rp)
+	local ft1=Duel.GetLocationCount(tp,LOCATION_MZONE)
+	if ft1<-1 then return false end
+	local ft=ft1
+	if ft1<=1 then 
+		ft1=Duel.GetFieldGroupCount(tp,LOCATION_MZONE,0)
+		ft1=ft1+ft
+	end
+	if ft1<0 then return end
+	if ft1>2 then ft1=2 end
+	if Duel.IsPlayerAffectedByEffect(tp,59822133) then ft1=1 end
+	local i=1
+	local sg=Group.CreateGroup()
+	while i<=ft1 do
+		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
+		local g1=Duel.SelectMatchingCard(tp,cm.filter,tp,LOCATION_ONFIELD,0,1,1,nil,ft)
+		if g1:GetFirst():IsLocation(LOCATION_ONFIELD) then
+			ft=ft-1
+		end
+		sg:Merge(g1)
+		i=i+1
+	end
+	local ct=Duel.SendtoGrave(sg,REASON_EFFECT)
+	if ct>0 and ct<=Duel.GetLocationCount(tp,LOCATION_MZONE) then
+		Duel.BreakEffect()
+		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
+		local g=Duel.SelectMatchingCard(tp,cm.spfilter,tp,LOCATION_DECK,0,ct,ct,nil,e,tp)
+		Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEDOWN_DEFENSE)
+	end
+end
+function cm.cost1(e,tp,eg,ep,ev,re,r,rp,chk)
+	local el={{13254032,2}}
+	local mg=tama.tamas_checkGroupElements(Duel.GetFieldGroup(tp,LOCATION_GRAVE,0),el)
+	local sg=Group.CreateGroup()
+	if chk==0 then 
+		return mg:GetCount()>0 and mg:IsExists(tama.tamas_selectElementsForAbove,1,nil,mg,sg,el)
+	end
+	local sg=tama.tamas_selectAllSelectForAbove(mg,el,tp)
+	Duel.SendtoDeck(sg,nil,2,REASON_COST)
+end
+function cm.setfilter(c,e,tp)
+	return (c:IsType(TYPE_MONSTER) and Duel.GetMZoneCount(tp)>0 and c:IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEDOWN_DEFENSE) and (not rc:IsLocation(LOCATION_EXTRA) or Duel.GetLocationCountFromEx(tp)>0)) 
+	or ((rc:IsType(TYPE_FIELD) or Duel.GetLocationCount(tp,LOCATION_SZONE)>0) and rc:IsSSetable())
+end
+function cm.setfilter1(c,e,tp)
+	return not c:IsType(TYPE_MONSTER) and ((tc:IsType(TYPE_FIELD) or Duel.GetLocationCount(tp,LOCATION_SZONE)>0) and tc:IsSSetable())
+end
+function cm.target1(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chkc then return chkc:IsControler(1-tp) and chkc:IsLocation(LOCATION_GRAVE) and cm.setfilter(chkc) end
+	if chk==0 then return 
+		(not Duel.IsExistingMatchingCard(cm.setfilter1,tp,0,LOCATION_GRAVE,1,nil,e,tp) or Duel.IsPlayerAffectedByEffect(tp,59822133))
+		and Duel.IsExistingTarget(cm.setfilter,tp,0,LOCATION_GRAVE,2,nil,e,tp) 
+	end
+	local ft=2
+	if Duel.IsPlayerAffectedByEffect(tp,59822133) then 
+		ft=1
+		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SET)
+		Duel.SelectTarget(tp,cm.setfilter1,tp,LOCATION_GRAVE,0,1,1,nil)
+	end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SET)
+	local g=Duel.SelectTarget(tp,cm.setfilter,tp,LOCATION_GRAVE,0,ft,ft,nil)
+	local sg=g:Filter(Card.IsType,nil,TYPE_MONSTER)
+	local cat=e:GetCategory()
+	if sg:GetCount()>0 then
+		e:SetCategory(bit.bor(cat,CATEGORY_SPECIAL_SUMMON))
+		Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,sg,sg:GetCount(),0,0)
+	else
+		e:SetCategory(bit.band(cat,bit.bnot(CATEGORY_SPECIAL_SUMMON)))
+	end
+	Duel.SetOperationInfo(0,CATEGORY_TODECK,nil,2,1-tp,LOCATION_ONFIELD)
+end
+function cm.operation1(e,tp,eg,ep,ev,re,r,rp)
+	local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS)
+	if g:FilterCount(Card.IsRelateToEffect,nil,e)~=2 or 
+		(g:IsExists(Card.IsType,2,nil,TYPE_MONSTER) and Duel.IsPlayerAffectedByEffect(tp,59822133)) then return end
+	local tc=g:GetFirst()
+	local ct=0
+	while tc do
+		if tc:IsType(TYPE_MONSTER) and Duel.GetLocationCount(tp,LOCATION_MZONE)>0
+			and (not tc:IsLocation(LOCATION_EXTRA) or Duel.GetLocationCountFromEx(tp)>0)
+			and tc:IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEDOWN_DEFENSE) then
+			Duel.BreakEffect()
+			Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEDOWN_DEFENSE)
+			Duel.ConfirmCards(1-tp,tc)
+			ct=ct+1
+		elseif (tc:IsType(TYPE_FIELD) or Duel.GetLocationCount(tp,LOCATION_SZONE)>0)
+			and tc:IsSSetable() then
+			Duel.BreakEffect()
+			Duel.SSet(tp,tc)
+			Duel.ConfirmCards(1-tp,tc)
+			ct=ct+1
+		end
+		tc=g:GetNext()
+	end
+	local sg=Duel.GetMatchingGroup(Card.IsAbleToDeck,tp,0,LOCATION_ONFIELD,nil)
+	if ct==2 and sg:GetCount()>=2 then
+		Duel.BreakEffect()
+		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK)
+		local sg1=sg:Select(tp,2,2,nil)
+		Duel.SendtoDeck(sg1,nil,2,REASON_EFFECT)
+	end
+end

expansions/script/c13254033.lua

+--元始飞球·蓝
+local m=13254033
+local cm=_G["c"..m]
+xpcall(function() require("expansions/script/tama") end,function() require("script/tama") end)
+function cm.initial_effect(c)
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(m,0))
+	e1:SetCategory(CATEGORY_TOGRAVE+CATEGORY_REMOVE)
+	e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+	e1:SetCode(EVENT_SUMMON_SUCCESS)
+	e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY)
+	e1:SetTarget(cm.target)
+	e1:SetOperation(cm.operation)
+	c:RegisterEffect(e1)
+	local e2=Effect.CreateEffect(c)
+	e2:SetDescription(aux.Stringid(m,1))
+	e2:SetCategory(CATEGORY_REMOVE+CATEGORY_TODECK)
+	e2:SetType(EFFECT_TYPE_QUICK_O)
+	e2:SetCode(EVENT_FREE_CHAIN)
+	e2:SetRange(LOCATION_MZONE)
+	e2:SetProperty(EFFECT_FLAG_CARD_TARGET)
+	e2:SetCountLimit(1)
+	e2:SetCost(cm.cost1)
+	e2:SetTarget(cm.target1)
+	e2:SetOperation(cm.operation1)
+	c:RegisterEffect(e2)
+	elements={"tama_elements",{{13254033,1}}}
+	cm[c]=elements
+	
+end
+function cm.rmfilter(c)
+	return c:IsSetCard(0x356) and c:IsType(TYPE_MONSTER) and c:IsAbleToRemove()
+end
+function cm.target(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.GetFieldGroupCount(tp,LOCATION_REMOVED,0)>0 and Duel.IsExistingMatchingCard(cm.rmfilter,tp,LOCATION_DECK,0,1,nil) end
+	Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,nil,1,tp,LOCATION_REMOVED)
+	Duel.SetOperationInfo(0,CATEGORY_REMOVE,nil,1,tp,LOCATION_DECK)
+end
+function cm.operation(e,tp,eg,ep,ev,re,r,rp)
+	local g=Duel.GetFieldGroup(tp,LOCATION_REMOVED,0)
+	if g:GetCount()<=0 then return end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
+	local g1=g:Select(tp,1,2,nil)
+	local ct=Duel.SendtoGrave(g1,REASON_EFFECT)
+	if ct>0 and Duel.IsExistingMatchingCard(cm.rmfilter,tp,LOCATION_DECK,0,ct,nil) then
+		Duel.BreakEffect()
+		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
+		local sg=Duel.SelectMatchingCard(tp,cm.rmfilter,tp,LOCATION_DECK,0,ct,ct,nil)
+		Duel.Remove(sg,POS_FACEUP,REASON_EFFECT)
+	end
+end
+function cm.cost1(e,tp,eg,ep,ev,re,r,rp,chk)
+	local el={{13254033,2}}
+	local mg=tama.tamas_checkGroupElements(Duel.GetFieldGroup(tp,LOCATION_GRAVE,0),el)
+	local sg=Group.CreateGroup()
+	if chk==0 then 
+		return mg:GetCount()>0 and mg:IsExists(tama.tamas_selectElementsForAbove,1,nil,mg,sg,el)
+	end
+	local sg=tama.tamas_selectAllSelectForAbove(mg,el,tp)
+	Duel.SendtoDeck(sg,nil,2,REASON_COST)
+end
+function cm.rmfilter1(c)
+	return c:IsFaceup() and c:IsAbleToRemove()
+end
+function cm.target1(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chkc then return chkc:IsControler(1-tp) and chkc:IsLocation(LOCATION_EXTRA) and cm.rmfilter1(chkc) end
+	if chk==0 then return Duel.IsExistingTarget(cm.rmfilter1,tp,0,LOCATION_EXTRA,2,nil) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
+	local sg=Duel.SelectTarget(tp,cm.rmfilter1,tp,0,LOCATION_EXTRA,2,2,nil)
+	Duel.SetOperationInfo(0,CATEGORY_REMOVE,sg,2,0,0)
+	Duel.SetOperationInfo(0,CATEGORY_TODECK,nil,2,1-tp,LOCATION_ONFIELD)
+end
+function cm.operation1(e,tp,eg,ep,ev,re,r,rp)
+	local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS)
+	if g:FilterCount(Card.IsRelateToEffect,nil,e)~=2 then return end
+	if Duel.Remove(g,POS_FACEUP,REASON_EFFECT)==2 then
+		local sg=Duel.GetMatchingGroup(Card.IsAbleToDeck,tp,0,LOCATION_REMOVED,nil)
+		if sg:GetCount()>=2 then
+			Duel.BreakEffect()
+			Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK)
+			local sg1=sg:Select(tp,2,2,nil)
+			Duel.SendtoDeck(sg1,nil,2,REASON_EFFECT)
+		end
+	end
+end

expansions/script/c13254034.lua

+--元始飞球·红
+local m=13254034
+local cm=_G["c"..m]
+xpcall(function() require("expansions/script/tama") end,function() require("script/tama") end)
+function cm.initial_effect(c)
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(m,0))
+	e1:SetCategory(CATEGORY_TOGRAVE+CATEGORY_DESTROY)
+	e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+	e1:SetCode(EVENT_SUMMON_SUCCESS)
+	e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY)
+	e1:SetTarget(cm.target)
+	e1:SetOperation(cm.operation)
+	c:RegisterEffect(e1)
+	local e2=Effect.CreateEffect(c)
+	e2:SetDescription(aux.Stringid(m,1))
+	e2:SetCategory(CATEGORY_DESTROY)
+	e2:SetType(EFFECT_TYPE_QUICK_O)
+	e2:SetCode(EVENT_FREE_CHAIN)
+	e2:SetRange(LOCATION_MZONE)
+	e2:SetProperty(EFFECT_FLAG_CARD_TARGET)
+	e2:SetCountLimit(1)
+	e2:SetCost(cm.cost1)
+	e2:SetTarget(cm.target1)
+	e2:SetOperation(cm.operation1)
+	c:RegisterEffect(e2)
+	elements={"tama_elements",{{13254034,1}}}
+	cm[c]=elements
+	
+end
+function cm.desfilter(c)
+	return c:IsFaceup() and c:IsDestructable()
+end
+function cm.tgfilter(c)
+	return c:IsSetCard(0x356) and c:IsType(TYPE_MONSTER) and c:IsAbleToGrave()
+end
+function cm.target(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(cm.desfilter,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) and Duel.IsExistingMatchingCard(cm.tgfilter,tp,LOCATION_DECK,0,2,nil) end
+	local g=Duel.GetMatchingGroup(cm.desfilter,tp,LOCATION_MZONE,LOCATION_MZONE,nil)
+	local tg=g:GetMinGroup(Card.GetAttack)
+	Duel.SetOperationInfo(0,CATEGORY_DESTROY,tg,1,0,0)
+end
+function cm.operation(e,tp,eg,ep,ev,re,r,rp)
+	local g=Duel.GetMatchingGroup(cm.desfilter,tp,LOCATION_MZONE,LOCATION_MZONE,nil)
+	local ct=0
+	if g:GetCount()>0 then
+		local tg=g:GetMinGroup(Card.GetAttack)
+		if tg:GetCount()>1 then
+			Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
+			local sg=tg:Select(tp,1,1,nil)
+			Duel.HintSelection(sg)
+			local tc=sg:GetFirst()
+			local atk=tc:IsFaceup() and tc:GetAttack() or 0
+			ct=Duel.Destroy(sg,REASON_EFFECT)
+		else
+			local tc=tg:GetFirst()
+			local atk=tc:IsFaceup() and tc:GetAttack() or 0
+			ct=Duel.Destroy(tg,REASON_EFFECT)
+		end
+	end
+	if ct>0 and Duel.IsExistingMatchingCard(cm.tgfilter,tp,LOCATION_DECK,0,2,nil) then
+		Duel.BreakEffect()
+		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
+		local sg=Duel.SelectMatchingCard(tp,cm.tgfilter,tp,LOCATION_DECK,0,2,2,nil)
+		Duel.SendtoGrave(sg,REASON_EFFECT)
+	end
+end
+function cm.cost1(e,tp,eg,ep,ev,re,r,rp,chk)
+	local el={{13254034,2}}
+	local mg=tama.tamas_checkGroupElements(Duel.GetFieldGroup(tp,LOCATION_GRAVE,0),el)
+	local sg=Group.CreateGroup()
+	if chk==0 then 
+		return mg:GetCount()>0 and mg:IsExists(tama.tamas_selectElementsForAbove,1,nil,mg,sg,el)
+	end
+	local sg=tama.tamas_selectAllSelectForAbove(mg,el,tp)
+	Duel.SendtoDeck(sg,nil,2,REASON_COST)
+end
+function cm.target1(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chkc then return chkc:IsControler(1-tp) and chkc:IsOnField() and Card.IsFaceup(chkc) end
+	if chk==0 then return Duel.IsExistingTarget(Card.IsFaceup,tp,0,LOCATION_ONFIELD,2,nil) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
+	local sg=Duel.SelectTarget(tp,Card.IsFaceup,tp,0,LOCATION_ONFIELD,2,2,nil)
+	Duel.SetOperationInfo(0,CATEGORY_DESTROY,sg,2,0,0)
+end
+function cm.operation1(e,tp,eg,ep,ev,re,r,rp)
+	local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS)
+	if g:FilterCount(Card.IsRelateToEffect,nil,e)~=2 then return end
+	Duel.Destroy(g,REASON_EFFECT)
+end

expansions/script/c13254035.lua

+--元始飞球·白
+local m=13254035
+local cm=_G["c"..m]
+xpcall(function() require("expansions/script/tama") end,function() require("script/tama") end)
+function cm.initial_effect(c)
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(m,0))
+	e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+	e1:SetCode(EVENT_SUMMON_SUCCESS)
+	e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY)
+	e1:SetOperation(cm.operation)
+	c:RegisterEffect(e1)
+	local e2=Effect.CreateEffect(c)
+	e2:SetDescription(aux.Stringid(m,1))
+	e2:SetType(EFFECT_TYPE_QUICK_O)
+	e2:SetCode(EVENT_FREE_CHAIN)
+	e2:SetRange(LOCATION_MZONE)
+	e2:SetCountLimit(1)
+	e2:SetCost(cm.cost1)
+	e2:SetOperation(cm.operation1)
+	c:RegisterEffect(e2)
+	elements={"tama_elements",{{13254035,1}}}
+	cm[c]=elements
+	
+end
+function cm.operation(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	local e3=Effect.CreateEffect(c)
+	e3:SetType(EFFECT_TYPE_FIELD)
+	e3:SetCode(EFFECT_IMMUNE_EFFECT)
+	e3:SetTargetRange(LOCATION_MZONE,0)
+	e3:SetTarget(aux.TargetBoolFunction(Card.IsSetCard,0x356))
+	e3:SetValue(cm.efilter)
+	e3:SetReset(RESET_PHASE+PHASE_END)
+	Duel.RegisterEffect(e3,tp)
+end
+function cm.cost1(e,tp,eg,ep,ev,re,r,rp,chk)
+	local el={{13254035,2}}
+	local mg=tama.tamas_checkGroupElements(Duel.GetFieldGroup(tp,LOCATION_GRAVE,0),el)
+	local sg=Group.CreateGroup()
+	if chk==0 then 
+		return mg:GetCount()>0 and mg:IsExists(tama.tamas_selectElementsForAbove,1,nil,mg,sg,el)
+	end
+	local sg=tama.tamas_selectAllSelectForAbove(mg,el,tp)
+	Duel.SendtoDeck(sg,nil,2,REASON_COST)
+end
+function cm.operation1(e,tp,eg,ep,ev,re,r,rp)
+	local g=Duel.GetFieldGroup(p,0,LOCATION_ONFIELD+LOCATION_HAND)
+	if g:GetCount()>0 then
+		Duel.ConfirmCards(tp,g)
+		Duel.ShuffleHand(1-tp)
+	end
+	local e11=Effect.CreateEffect(e:GetHandler())
+	e11:SetType(EFFECT_TYPE_FIELD)
+	e11:SetCode(EFFECT_PUBLIC)
+	e11:SetTargetRange(LOCATION_HAND,0)
+	e11:SetReset(RESET_PHASE+PHASE_END)
+	Duel.RegisterEffect(e11,1-tp)
+	local e12=Effect.CreateEffect(e:GetHandler())
+	e12:SetType(EFFECT_TYPE_FIELD)
+	e12:SetCode(EFFECT_CANNOT_SSET)
+	e12:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
+	e12:SetTargetRange(1,0)
+	e12:SetReset(RESET_PHASE+PHASE_END)
+	Duel.RegisterEffect(e12,1-tp)
+	local e13=e12:Clone()
+	e13:SetCode(EFFECT_CANNOT_MSET)
+	Duel.RegisterEffect(e13,1-tp)
+end

expansions/script/c13254036.lua

+--元始飞球·黑
+local m=13254036
+local cm=_G["c"..m]
+xpcall(function() require("expansions/script/tama") end,function() require("script/tama") end)
+function cm.initial_effect(c)
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(m,0))
+	e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+	e1:SetCode(EVENT_SUMMON_SUCCESS)
+	e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY)
+	e1:SetOperation(cm.operation)
+	c:RegisterEffect(e1)
+	local e2=Effect.CreateEffect(c)
+	e2:SetDescription(aux.Stringid(m,1))
+	e2:SetType(EFFECT_TYPE_QUICK_O)
+	e2:SetCode(EVENT_FREE_CHAIN)
+	e2:SetRange(LOCATION_MZONE)
+	e2:SetCountLimit(1)
+	e2:SetCost(cm.cost1)
+	e2:SetOperation(cm.operation1)
+	c:RegisterEffect(e2)
+	elements={"tama_elements",{{13254036,1}}}
+	cm[c]=elements
+	
+end
+function cm.operation(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	local e3=Effect.CreateEffect(c)
+	e3:SetType(EFFECT_TYPE_FIELD)
+	e3:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
+	e3:SetCode(EFFECT_CANNOT_ACTIVATE)
+	e3:SetTargetRange(0,1)
+	e3:SetValue(cm.aclimit)
+	e3:SetReset(RESET_PHASE+PHASE_END)
+	Duel.RegisterEffect(e3,tp)
+end
+function cm.aclimit(e,re,tp)
+	local loc=re:GetHandler():GetLocation()
+	return (loc==LOCATION_GRAVE or loc==LOCATION_HAND or (loc==LOCATION_ONFIELD and re:GetHandler():IsFacedown())) and not re:GetHandler():IsImmuneToEffect(e)
+end
+function cm.cost1(e,tp,eg,ep,ev,re,r,rp,chk)
+	local el={{13254036,2}}
+	local mg=tama.tamas_checkGroupElements(Duel.GetFieldGroup(tp,LOCATION_GRAVE,0),el)
+	local sg=Group.CreateGroup()
+	if chk==0 then 
+		return mg:GetCount()>0 and mg:IsExists(tama.tamas_selectElementsForAbove,1,nil,mg,sg,el)
+	end
+	local sg=tama.tamas_selectAllSelectForAbove(mg,el,tp)
+	Duel.SendtoDeck(sg,nil,2,REASON_COST)
+end
+function cm.operation1(e,tp,eg,ep,ev,re,r,rp)
+	local g=Duel.GetMatchingGroup(Card.IsCanTurnSet,tp,0,LOCATION_MZONE,nil)
+	if g:GetCount()>0 then
+		Duel.ChangePosition(g,POS_FACEDOWN_DEFENSE)
+	end
+	local sg=Duel.GetMatchingGroup(Card.IsCanTurnSet,tp,0,LOCATION_ONFIELD,nil)
+	local tc=sg:GetFirst()
+	while tc do
+		Duel.ChangePosition(tc,POS_FACEDOWN)
+		Duel.RaiseEvent(tc,EVENT_SSET,e,REASON_EFFECT,tp,tp,0)
+		tc=sg:GetNext()
+	end
+end

expansions/script/c13254037.lua

+--元始飞球·元始
+local m=13254037
+local cm=_G["c"..m]
+xpcall(function() require("expansions/script/tama") end,function() require("script/tama") end)
+function cm.initial_effect(c)
+	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)
+	c:RegisterEffect(e1)
+	--special summon rule
+	local e2=Effect.CreateEffect(c)
+	e2:SetType(EFFECT_TYPE_FIELD)
+	e2:SetCode(EFFECT_SPSUMMON_PROC)
+	e2:SetProperty(EFFECT_FLAG_UNCOPYABLE)
+	e2:SetRange(LOCATION_EXTRA)
+	e2:SetCondition(cm.sprcon)
+	e2:SetOperation(cm.sprop)
+	c:RegisterEffect(e2)
+	local e3=Effect.CreateEffect(c)
+	e3:SetDescription(aux.Stringid(m,0))
+	e3:SetCategory(CATEGORY_SUMMON)
+	e3:SetType(EFFECT_TYPE_IGNITION)
+	e3:SetRange(LOCATION_MZONE)
+	e3:SetCountLimit(1,m)
+	e3:SetTarget(cm.smtg)
+	e3:SetOperation(cm.smop)
+	c:RegisterEffect(e3)
+	local e4=Effect.CreateEffect(c)
+	e4:SetDescription(aux.Stringid(m,1))
+	e4:SetType(EFFECT_TYPE_QUICK_O)
+	e4:SetCode(EVENT_FREE_CHAIN)
+	e4:SetRange(LOCATION_MZONE)
+	e4:SetCountLimit(1)
+	e4:SetCost(cm.cost)
+	e4:SetTarget(cm.remtg)
+	e4:SetOperation(cm.remop)
+	c:RegisterEffect(e4)
+	elements={"tama_sub_elements",{{13254031,1},{13254032,1},{13254033,1},{13254034,1},{13254035,1},{13254036,1}}}
+	cm[c]=elements
+	
+end
+function cm.spfilter(c)
+	return c:IsSetCard(0x3356) and c:IsCanBeFusionMaterial() and c:IsAbleToGraveAsCost() and not c:IsCode(m) and c:IsType(TYPE_MONSTER)
+end
+function cm.fselect(c,tp,mg,sg)
+	sg:AddCard(c)
+	local res=false
+	if sg:GetCount()<1 then
+		res=mg:IsExists(cm.fselect,1,sg,tp,mg,sg)
+	else
+		res=Duel.GetLocationCountFromEx(tp,tp,sg)>0
+	end
+	sg:RemoveCard(c)
+	return res
+end
+function cm.sprcon(e,c)
+	if c==nil then return true end 
+	local tp=c:GetControler()
+	local mg=Duel.GetMatchingGroup(cm.spfilter,tp,LOCATION_ONFIELD,0,nil)
+	local sg=Group.CreateGroup()
+	return mg:IsExists(cm.fselect,1,nil,tp,mg,sg)
+end
+function cm.sprop(e,tp,eg,ep,ev,re,r,rp,c)
+	local mg=Duel.GetMatchingGroup(cm.spfilter,tp,LOCATION_ONFIELD,0,nil)
+	local sg=Group.CreateGroup()
+	while sg:GetCount()<1 do
+		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK)
+		local g=mg:FilterSelect(tp,cm.fselect,1,1,sg,tp,mg,sg)
+		sg:Merge(g)
+	end
+	local cg=sg:Filter(Card.IsFacedown,nil)
+	if cg:GetCount()>0 then
+		Duel.ConfirmCards(1-tp,cg)
+	end
+	Duel.SendtoGrave(sg,REASON_COST)
+end
+function cm.smfilter(c)
+	return c:IsSetCard(0x3356) and c:IsSummonable(true,nil)
+end
+function cm.smtg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
+		and Duel.IsExistingMatchingCard(cm.smfilter,tp,LOCATION_HAND,0,1,nil) end
+	Duel.SetOperationInfo(0,CATEGORY_SUMMON,nil,1,0,0)
+end
+function cm.smop(e,tp,eg,ep,ev,re,r,rp)
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SUMMON)
+	local g=Duel.SelectMatchingCard(tp,cm.smfilter,tp,LOCATION_HAND,0,1,1,nil)
+	local tc=g:GetFirst()
+	if tc then
+		Duel.Summon(tp,tc,true,nil)
+	end
+end
+function cm.cost(e,tp,eg,ep,ev,re,r,rp,chk)
+	local el={{13254031,1},{13254031,2},{13254033,1},{13254034,1},{13254035,1},{13254036,1}}
+	local mg=tama.tamas_checkGroupElements(Duel.GetFieldGroup(tp,LOCATION_GRAVE,0),el)
+	local sg=Group.CreateGroup()
+	if chk==0 then 
+		return mg:GetCount()>0 and mg:IsExists(tama.tamas_selectElementsForAbove,1,nil,mg,sg,el)
+	end
+	local sg=tama.tamas_selectAllSelectForAbove(mg,el,tp)
+	Duel.SendtoDeck(sg,nil,2,REASON_COST)
+end
+function cm.remtg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(Card.IsAbleToRemove,tp,0,LOCATION_HAND+LOCATION_DECK+LOCATION_EXTRA,1,nil) end
+	Duel.SetOperationInfo(0,CATEGORY_REMOVE,nil,1,0,LOCATION_HAND+LOCATION_DECK+LOCATION_EXTRA)
+end
+function cm.remop(e,tp,eg,ep,ev,re,r,rp)
+	local g1=Duel.GetMatchingGroup(Card.IsAbleToRemove,tp,0,LOCATION_HAND,nil)
+	local g2=Duel.GetMatchingGroup(Card.IsAbleToRemove,tp,0,LOCATION_DECK,nil)
+	local g3=Duel.GetMatchingGroup(Card.IsAbleToRemove,tp,0,LOCATION_EXTRA,nil)
+	local sg=Group.CreateGroup()
+	if g1:GetCount()>0 and ((g2:GetCount()==0 and g3:GetCount()==0) or Duel.SelectYesNo(tp,aux.Stringid(m,2))) then
+		Duel.ConfirmCards(tp,g1)
+		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(m,3))) then
+		Duel.ConfirmCards(tp,g2)
+		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(m,4))) then
+		Duel.ConfirmCards(tp,g3)
+		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
+		local sg3=g3:Select(tp,1,1,nil)
+		sg:Merge(sg3)
+	end
+	Duel.Remove(sg,POS_FACEDOWN,REASON_EFFECT)
+end

expansions/script/c13254038.lua

+--元素飞球之雨
+local m=13254038
+local cm=_G["c"..m]
+xpcall(function() require("expansions/script/tama") end,function() require("script/tama") end)
+function cm.initial_effect(c)
+	--discard deck
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F)
+	e1:SetDescription(aux.Stringid(m,0))
+	e1:SetCategory(CATEGORY_DECKDES,CATEGORY_DRAW)
+	e1:SetCode(EVENT_PHASE+PHASE_END)
+	e1:SetRange(LOCATION_SZONE)
+	e1:SetCountLimit(1)
+	e1:SetTarget(cm.distg)
+	e1:SetOperation(cm.disop)
+	c:RegisterEffect(e1)
+	
+end
+function cm.distg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsPlayerCanDiscardDeck(tp,3) end
+end
+function cm.filter(c)
+	return c:IsSetCard(0x356) and c:IsType(TYPE_MONSTER)
+end
+function cm.filter1(c)
+	return c:IsSetCard(0x356) and c:IsType(TYPE_MONSTER) and c:IsAbleToGrave()
+end
+function cm.filter2(c)
+	return c:IsSetCard(0x356) and c:IsType(TYPE_MONSTER) and c:IsAbleToDeck()
+end
+function cm.disop(e,tp,eg,ep,ev,re,r,rp)
+	if not Duel.IsPlayerCanDiscardDeck(tp,3) then return end
+	Duel.ConfirmDecktop(tp,3)
+	local g=Duel.GetDecktopGroup(tp,3)
+	local sg=g:Filter(cm.filter,nil)
+	if sg:GetCount()<=0 then return end
+	Duel.DisableShuffleCheck()
+	Duel.SendtoGrave(g,REASON_EFFECT+REASON_REVEAL)
+	local sg1=Duel.GetOperatedGroup()
+	local sg2=sg1:Clone()
+	if sg1:GetCount()>0 then
+		if sg1:GetSum(tama.tamas_getElements,13254033)>0 and Duel.IsPlayerCanDiscardDeck(tp,2) then
+			Duel.BreakEffect()
+			Duel.ShuffleDeck(tp)
+			Duel.DiscardDeck(tp,2,REASON_EFFECT)
+			sg2:Merge(Duel.GetOperatedGroup())
+		end
+		if sg1:GetSum(tama.tamas_getElements,13254031)>0 and Duel.IsPlayerCanDraw(tp,1) then
+			Duel.BreakEffect()
+			Duel.Draw(tp,1,REASON_EFFECT)
+			Duel.ShuffleHand(tp)
+			Duel.DiscardHand(tp,aux.TRUE,1,1,REASON_EFFECT+REASON_DISCARD)
+			sg2:Merge(Duel.GetOperatedGroup())
+		end
+		if sg1:GetSum(tama.tamas_getElements,13254036)>0 and sg2:IsExists(cm.filter2,1,nil) then
+			local sg3=sg2:Filter(cm.filter2,nil)
+			local ct=sg3:GetCount()
+			Duel.BreakEffect()
+			Duel.SendtoDeck(sg3,tp,2,REASON_EFFECT)
+			Duel.ShuffleDeck(tp)
+			Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
+			local sg4=Duel.SelectMatchingCard(tp,cm.filter1,tp,LOCATION_DECK,0,ct,ct,nil)
+			Duel.SendtoGrave(sg4,REASON_EFFECT)
+		end
+	end
+
+end

expansions/script/c13254039.lua

+--元始飞球秘术·乱流
+local m=13254039
+local cm=_G["c"..m]
+xpcall(function() require("expansions/script/tama") end,function() require("script/tama") end)
+function cm.initial_effect(c)
+	--inferno
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(m,0))
+	e1:SetCategory(CATEGORY_DESTROY+CATEGORY_DRAW)
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	e1:SetCost(cm.cost)
+	e1:SetTarget(cm.target)
+	e1:SetOperation(cm.operation)
+	c:RegisterEffect(e1)
+	--typhoon
+	local e2=Effect.CreateEffect(c)
+	e2:SetDescription(aux.Stringid(m,1))
+	e2:SetCategory(CATEGORY_REMOVE+CATEGORY_DRAW)
+	e2:SetType(EFFECT_TYPE_ACTIVATE)
+	e2:SetCode(EVENT_FREE_CHAIN)
+	e2:SetCost(cm.cost1)
+	e2:SetTarget(cm.target1)
+	e2:SetOperation(cm.operation1)
+	c:RegisterEffect(e2)
+	--goldrush
+	local e3=Effect.CreateEffect(c)
+	e3:SetDescription(aux.Stringid(m,2))
+	e3:SetCategory(CATEGORY_DRAW)
+	e3:SetType(EFFECT_TYPE_ACTIVATE)
+	e3:SetCode(EVENT_FREE_CHAIN)
+	e3:SetCost(cm.cost2)
+	e3:SetTarget(cm.target2)
+	e3:SetOperation(cm.operation2)
+	c:RegisterEffect(e3)
+	
+end
+function cm.cost(e,tp,eg,ep,ev,re,r,rp,chk)
+	local el={{13254031,2},{13254034,1}}
+	local mg=tama.tamas_checkGroupElements(Duel.GetFieldGroup(tp,LOCATION_GRAVE,0),el)
+	local sg=Group.CreateGroup()
+	if chk==0 then 
+		return mg:GetCount()>0 and mg:IsExists(tama.tamas_selectElementsForAbove,1,nil,mg,sg,el)
+	end
+	local sg=tama.tamas_selectAllSelectForAbove(mg,el,tp)
+	Duel.SendtoDeck(sg,nil,2,REASON_COST)
+	e:SetLabel(sg:GetCount())
+end
+function cm.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chkc then return chkc:IsOnField() and chkc:IsControler(1-tp) end
+	if chk==0 then return Duel.IsExistingTarget(aux.TRUE,tp,0,LOCATION_ONFIELD,1,nil) and Duel.IsPlayerCanDraw(tp,1) end
+	local ct=e:GetLabel()
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
+	local eg=Duel.SelectTarget(tp,aux.TRUE,tp,0,LOCATION_ONFIELD,1,ct,nil)
+	Duel.SetOperationInfo(0,CATEGORY_DESTROY,eg,eg:GetCount(),0,0)
+	Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,eg:GetCount())
+end
+function cm.operation(e,tp,eg,ep,ev,re,r,rp)
+	local tg=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS)
+	local rg=tg:Filter(Card.IsRelateToEffect,nil,e)
+	if rg:GetCount()>0 then 
+		local ct=Duel.Destroy(rg,REASON_EFFECT)
+		Duel.Draw(tp,ct,REASON_EFFECT)
+	end
+end
+function cm.cost1(e,tp,eg,ep,ev,re,r,rp,chk)
+	local el={{13254031,2},{13254033,1}}
+	local mg=tama.tamas_checkGroupElements(Duel.GetFieldGroup(tp,LOCATION_GRAVE,0),el)
+	local sg=Group.CreateGroup()
+	if chk==0 then 
+		return mg:GetCount()>0 and mg:IsExists(tama.tamas_selectElementsForAbove,1,nil,mg,sg,el)
+	end
+	local sg=tama.tamas_selectAllSelectForAbove(mg,el,tp)
+	Duel.SendtoDeck(sg,nil,2,REASON_COST)
+	e:SetLabel(sg:GetCount())
+end
+function cm.target1(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chkc then return chkc:IsOnField() and chkc:IsControler(1-tp) end
+	if chk==0 then return Duel.IsExistingTarget(Card.IsAbleToRemove,tp,0,LOCATION_GRAVE,1,nil) and Duel.IsPlayerCanDraw(tp,1) end
+	local ct=e:GetLabel()
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
+	local eg=Duel.SelectTarget(tp,Card.IsAbleToRemove,tp,0,LOCATION_GRAVE,1,ct,nil)
+	Duel.SetOperationInfo(0,HINTMSG_REMOVE,eg,eg:GetCount(),0,0)
+	Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,eg:GetCount())
+end
+function cm.operation1(e,tp,eg,ep,ev,re,r,rp)
+	local tg=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS)
+	local rg=tg:Filter(Card.IsRelateToEffect,nil,e)
+	if rg:GetCount()>0 then 
+		local ct=Duel.Remove(rg,REASON_EFFECT)
+		Duel.Draw(tp,ct,REASON_EFFECT)
+	end
+end
+function cm.cost2(e,tp,eg,ep,ev,re,r,rp,chk)
+	local el={{13254031,2},{13254032,2}}
+	local mg=tama.tamas_checkGroupElements(Duel.GetFieldGroup(tp,LOCATION_GRAVE,0),el)
+	local sg=Group.CreateGroup()
+	if chk==0 then 
+		return mg:GetCount()>0 and mg:IsExists(tama.tamas_selectElementsForAbove,1,nil,mg,sg,el)
+	end
+	local sg=tama.tamas_selectAllSelectForAbove(mg,el,tp)
+	Duel.SendtoDeck(sg,nil,2,REASON_COST)
+end
+function cm.target2(e,tp,eg,ep,ev,re,r,rp,chk)
+	local ht=Duel.GetFieldGroupCount(tp,LOCATION_HAND,0)
+	local ht1=Duel.GetFieldGroupCount(tp,0,LOCATION_HAND)
+	if chk==0 then return Duel.IsPlayerCanDraw(tp) and ht<ht1 end
+	Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,ht1-ht)
+end
+function cm.operation2(e,tp,eg,ep,ev,re,r,rp)
+	local ht=Duel.GetFieldGroupCount(p,LOCATION_HAND,0)
+	local ht1=Duel.GetFieldGroupCount(tp,0,LOCATION_HAND)
+	if ht<ht1 then
+		Duel.Draw(p,ht1-ht,REASON_EFFECT)
+	end
+end

expansions/script/c13254040.lua

+--元始飞球秘术·爆震
+local m=13254040
+local cm=_G["c"..m]
+xpcall(function() require("expansions/script/tama") end,function() require("script/tama") end)
+function cm.initial_effect(c)
+	--blast
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(m,0))
+	e1:SetCategory(CATEGORY_TODECK)
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	e1:SetCost(cm.cost)
+	e1:SetTarget(cm.target)
+	e1:SetOperation(cm.operation)
+	c:RegisterEffect(e1)
+	--tornado
+	local e2=Effect.CreateEffect(c)
+	e2:SetDescription(aux.Stringid(m,1))
+	e2:SetCategory(CATEGORY_DESTROY)
+	e2:SetType(EFFECT_TYPE_ACTIVATE)
+	e2:SetCode(EVENT_FREE_CHAIN)
+	e2:SetCost(cm.cost1)
+	e2:SetTarget(cm.target1)
+	e2:SetOperation(cm.operation1)
+	c:RegisterEffect(e2)
+	--flow
+	local e3=Effect.CreateEffect(c)
+	e3:SetDescription(aux.Stringid(m,2))
+	e3:SetCategory(CATEGORY_DRAW+CATEGORY_SPECIAL_SUMMON)
+	e3:SetType(EFFECT_TYPE_ACTIVATE)
+	e3:SetCode(EVENT_FREE_CHAIN)
+	e3:SetCost(cm.cost2)
+	e3:SetOperation(cm.operation2)
+	c:RegisterEffect(e3)
+	
+end
+function cm.cost(e,tp,eg,ep,ev,re,r,rp,chk)
+	local el={{13254032,2},{13254031,1}}
+	local mg=tama.tamas_checkGroupElements(Duel.GetFieldGroup(tp,LOCATION_GRAVE,0),el)
+	local sg=Group.CreateGroup()
+	if chk==0 then 
+		return mg:GetCount()>0 and mg:IsExists(tama.tamas_selectElementsForAbove,1,nil,mg,sg,el)
+	end
+	local sg=tama.tamas_selectAllSelectForAbove(mg,el,tp)
+	Duel.SendtoDeck(sg,nil,2,REASON_COST)
+	e:SetLabel(sg:GetCount())
+end
+function cm.filter(c)
+	return c:IsAbleToDeck() and c:IsFacedown()
+end
+function cm.target(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(cm.filter,tp,0,LOCATION_ONFIELD,1,nil) end
+	local sg=Duel.GetMatchingGroup(cm.filter,tp,0,LOCATION_ONFIELD,nil)
+	Duel.SetOperationInfo(0,CATEGORY_TODECK,sg,sg:GetCount(),0,0)
+end
+function cm.operation(e,tp,eg,ep,ev,re,r,rp)
+	local sg=Duel.GetMatchingGroup(cm.filter,tp,0,LOCATION_ONFIELD,nil)
+	Duel.SendtoDeck(sg,tp,2,REASON_EFFECT)
+end
+function cm.cost1(e,tp,eg,ep,ev,re,r,rp,chk)
+	local el={{13254032,2},{13254034,1}}
+	local mg=tama.tamas_checkGroupElements(Duel.GetFieldGroup(tp,LOCATION_GRAVE,0),el)
+	local sg=Group.CreateGroup()
+	if chk==0 then 
+		return mg:GetCount()>0 and mg:IsExists(tama.tamas_selectElementsForAbove,1,nil,mg,sg,el)
+	end
+	local sg=tama.tamas_selectAllSelectForAbove(mg,el,tp)
+	Duel.SendtoDeck(sg,nil,2,REASON_COST)
+	e:SetLabel(sg:GetCount())
+end
+function cm.target1(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(nil,tp,0,LOCATION_ONFIELD,1,nil) end
+end
+function cm.operation1(e,tp,eg,ep,ev,re,r,rp)
+	local sg=Duel.GetFieldGroup(tp,0,LOCATION_ONFIELD)
+	if sg:GetCount()==0 then return end
+	local g=Group.CreateGroup()
+	if Duel.SelectYesNo(tp,aux.Stringid(m,3)) then
+		local tc=sg:GetFirst()
+		while tc do
+			local dg=Group.CreateGroup()
+			dg:AddCard(tc)
+			Duel.HintSelection(dg)
+			local d1=Duel.TossDice(tp,1)
+			if d1<=3 then
+				g:AddCard(tc)
+			end
+			tc=sg:GetNext()
+		end
+	else
+		while sg:GetCount()>0 do
+			local dg=sg:Select(tp,1,1,nil)
+			Duel.HintSelection(dg)
+			sg:Sub(dg)
+			local d1=Duel.TossDice(tp,1)
+			if d1<=3 then
+				g:Merge(dg)
+			end
+		end
+	end
+	if g:GetCount()>0 then
+		Duel.Destroy(g,REASON_EFFECT)
+	end
+end
+function cm.cost2(e,tp,eg,ep,ev,re,r,rp,chk)
+	local el={{13254032,2},{13254033,1}}
+	local mg=tama.tamas_checkGroupElements(Duel.GetFieldGroup(tp,LOCATION_GRAVE,0),el)
+	local sg=Group.CreateGroup()
+	if chk==0 then 
+		return mg:GetCount()>0 and mg:IsExists(tama.tamas_selectElementsForAbove,1,nil,mg,sg,el)
+	end
+	local sg=tama.tamas_selectAllSelectForAbove(mg,el,tp)
+	Duel.SendtoDeck(sg,nil,2,REASON_COST)
+	e:SetLabel(sg:GetCount())
+end
+function cm.filter2(c,e,tp)
+	return c:IsFaceup() and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
+end
+function cm.target2(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(cm.filter2,tp,LOCATION_REMOVED,0,1,nil,e,tp)
+		and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and Duel.IsPlayerCanDraw(tp,1) end
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_REMOVED)
+end
+function cm.operation2(e,tp,eg,ep,ev,re,r,rp)
+	Duel.Draw(tp,1,REASON_EFFECT)
+	if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
+	local g=Duel.SelectMatchingCard(tp,cm.filter2,tp,LOCATION_REMOVED,0,1,1,nil,e,tp)
+	if g:GetCount()>0 then
+		Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
+	end
+end

expansions/script/c13254041.lua

+--元始飞球秘术·飓风
+local m=13254041
+local cm=_G["c"..m]
+xpcall(function() require("expansions/script/tama") end,function() require("script/tama") end)
+function cm.initial_effect(c)
+	--hurricane
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(m,0))
+	e1:SetCategory(CATEGORY_REMOVE)
+	e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	e1:SetCost(cm.cost)
+	e1:SetTarget(cm.target)
+	e1:SetOperation(cm.operation)
+	c:RegisterEffect(e1)
+	--steam
+	local e2=Effect.CreateEffect(c)
+	e2:SetDescription(aux.Stringid(m,1))
+	e2:SetType(EFFECT_TYPE_ACTIVATE)
+	e2:SetCode(EVENT_FREE_CHAIN)
+	e2:SetCost(cm.cost1)
+	e2:SetOperation(cm.operation1)
+	c:RegisterEffect(e2)
+	--sandstorm
+	local e3=Effect.CreateEffect(c)
+	e3:SetDescription(aux.Stringid(m,2))
+	e3:SetCategory(CATEGORY_DESTROY)
+	e3:SetProperty(EFFECT_FLAG_CARD_TARGET)
+	e3:SetType(EFFECT_TYPE_ACTIVATE)
+	e3:SetCode(EVENT_FREE_CHAIN)
+	e3:SetCost(cm.cost2)
+	e3:SetTarget(cm.target2)
+	e3:SetOperation(cm.operation2)
+	c:RegisterEffect(e3)
+	
+end
+function cm.cost(e,tp,eg,ep,ev,re,r,rp,chk)
+	local el={{13254033,2},{13254031,1}}
+	local mg=tama.tamas_checkGroupElements(Duel.GetFieldGroup(tp,LOCATION_GRAVE,0),el)
+	local sg=Group.CreateGroup()
+	if chk==0 then 
+		return mg:GetCount()>0 and mg:IsExists(tama.tamas_selectElementsForAbove,1,nil,mg,sg,el)
+	end
+	local sg=tama.tamas_selectAllSelectForAbove(mg,el,tp)
+	Duel.SendtoDeck(sg,nil,2,REASON_COST)
+	e:SetLabel(sg:GetCount())
+end
+function cm.filter(c)
+	return c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsAbleToRemove()
+end
+function cm.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chkc then return chkc:IsOnField() and chkc:IsControler(1-tp) end
+	if chk==0 then return Duel.IsExistingTarget(cm.filter,tp,0,LOCATION_ONFIELD,1,nil) end
+	local ct=e:GetLabel()
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
+	local eg=Duel.SelectTarget(tp,cm.filter,tp,0,LOCATION_ONFIELD,1,ct,nil)
+	Duel.SetOperationInfo(0,CATEGORY_DESTROY,eg,eg:GetCount(),0,0)
+end
+function cm.operation(e,tp,eg,ep,ev,re,r,rp)
+	local tg=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS)
+	local rg=tg:Filter(Card.IsRelateToEffect,nil,e)
+	if rg:GetCount()>0 then 
+		ct=Duel.Remove(rg,POS_FACEUP,REASON_EFFECT)
+	end
+end
+function cm.cost1(e,tp,eg,ep,ev,re,r,rp,chk)
+	local el={{13254033,1},{13254034,1}}
+	local mg=tama.tamas_checkGroupElements(Duel.GetFieldGroup(tp,LOCATION_GRAVE,0),el)
+	local sg=Group.CreateGroup()
+	if chk==0 then 
+		return mg:GetCount()>0 and mg:IsExists(tama.tamas_selectElementsForAbove,1,nil,mg,sg,el)
+	end
+	local sg=tama.tamas_selectAllSelectForAbove(mg,el,tp)
+	Duel.SendtoDeck(sg,nil,2,REASON_COST)
+end
+function cm.operation1(e,tp,eg,ep,ev,re,r,rp)
+	--cannot be battle target
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_FIELD)
+	e1:SetCode(EFFECT_CANNOT_SELECT_BATTLE_TARGET)
+	e1:SetTargetRange(LOCATION_MZONE,0)
+	e1:SetValue(1)
+	e1:SetReset(RESET_PHASE+PHASE_END)
+	Duel.RegisterEffect(e1,tp)
+	--cannot be effect target
+	local e2=Effect.CreateEffect(c)
+	e2:SetType(EFFECT_TYPE_FIELD)
+	e2:SetCode(EFFECT_CANNOT_BE_EFFECT_TARGET)
+	e2:SetProperty(EFFECT_FLAG_IGNORE_IMMUNE)
+	e2:SetTargetRange(LOCATION_MZONE,0)
+	e2:SetValue(1)
+	e2:SetReset(RESET_PHASE+PHASE_END)
+	Duel.RegisterEffect(e2,tp)
+end
+function cm.cost2(e,tp,eg,ep,ev,re,r,rp,chk)
+	local el={{13254033,3},{13254032,2}}
+	local mg=tama.tamas_checkGroupElements(Duel.GetFieldGroup(tp,LOCATION_GRAVE,0),el)
+	local sg=Group.CreateGroup()
+	if chk==0 then 
+		return mg:GetCount()>0 and mg:IsExists(tama.tamas_selectElementsForAbove,1,nil,mg,sg,el)
+	end
+	local sg=tama.tamas_selectAllSelectForAbove(mg,el,tp)
+	Duel.SendtoDeck(sg,nil,2,REASON_COST)
+end
+function cm.filter3(c)
+	return c:IsType(TYPE_SPELL+TYPE_TRAP)
+end
+function cm.setfilter3(c)
+	return c:IsType(TYPE_TRAP) and c:IsSSetable()
+end
+function cm.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chkc then return chkc:IsOnField() and chkc:IsControler(1-tp) and cm.filter(chkc) end
+	if chk==0 then return Duel.IsExistingTarget(cm.filter,tp,0,LOCATION_ONFIELD,1,e:GetHandler()) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
+	local g=Duel.SelectTarget(tp,cm.filter,tp,0,LOCATION_ONFIELD,1,1,e:GetHandler())
+	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 and tc:IsRelateToEffect(e) and Duel.Destroy(tc,REASON_EFFECT)~=0 and Duel.GetFieldGroupCount(tp,LOCATION_DECK,0)>=5 and Duel.GetLocationCount(tp,LOCATION_SZONE)>0 and Duel.SelectYesNo(tp,aux.Stringid(cm,3)) then
+		Duel.BreakEffect()
+		Duel.ConfirmDecktop(tp,5)
+		local g=Duel.GetDecktopGroup(tp,5)
+		g:Merge(Duel.GetFieldGroup(tp,LOCATION_HAND,0))
+		g:Merge(Duel.GetMatchingGroup(Card.IsFaceup,tp,LOCATION_REMOVED,0,nil))
+		local g1=g:Filter(cm.setfilter3,nil)
+		if g1:GetCount()>0 then
+			local ct=Duel.GetLocationCount(tp,LOCATION_SZONE)
+			Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SET)
+			local sg=g1:Select(tp,1,ct,nil)
+			Duel.DisableShuffleCheck()
+			Duel.SSet(tp,sg:GetFirst())
+		end
+	end
+end

expansions/script/c13254042.lua

+--元始飞球秘术·崩炎
+local m=13254042
+local cm=_G["c"..m]
+xpcall(function() require("expansions/script/tama") end,function() require("script/tama") end)
+function cm.initial_effect(c)
+	--flame
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(m,0))
+	e1:SetCategory(CATEGORY_DESTROY)
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	e1:SetCost(cm.cost)
+	e1:SetTarget(cm.target)
+	e1:SetOperation(cm.operation)
+	c:RegisterEffect(e1)
+	--goddamn
+	local e2=Effect.CreateEffect(c)
+	e2:SetDescription(aux.Stringid(m,1))
+	e2:SetCategory(CATEGORY_TODECK)
+	e2:SetType(EFFECT_TYPE_ACTIVATE)
+	e2:SetCode(EVENT_FREE_CHAIN)
+	e2:SetCost(cm.cost1)
+	e2:SetTarget(cm.target1)
+	e2:SetOperation(cm.operation1)
+	c:RegisterEffect(e2)
+	--magma
+	local e3=Effect.CreateEffect(c)
+	e3:SetDescription(aux.Stringid(m,2))
+	e3:SetCategory(CATEGORY_DESTROY)
+	e3:SetProperty(EFFECT_FLAG_CARD_TARGET)
+	e3:SetType(EFFECT_TYPE_ACTIVATE)
+	e3:SetCode(EVENT_FREE_CHAIN)
+	e3:SetCost(cm.cost2)
+	e3:SetTarget(cm.target2)
+	e3:SetOperation(cm.operation2)
+	c:RegisterEffect(e3)
+	
+end
+function cm.cost(e,tp,eg,ep,ev,re,r,rp,chk)
+	local el={{13254034,2},{13254031,1}}
+	local mg=tama.tamas_checkGroupElements(Duel.GetFieldGroup(tp,LOCATION_GRAVE,0),el)
+	local sg=Group.CreateGroup()
+	if chk==0 then 
+		return mg:GetCount()>0 and mg:IsExists(tama.tamas_selectElementsForAbove,1,nil,mg,sg,el)
+	end
+	local sg=tama.tamas_selectAllSelectForAbove(mg,el,tp)
+	Duel.SendtoDeck(sg,nil,2,REASON_COST)
+end
+function cm.target(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(aux.TRUE,tp,0,LOCATION_MZONE,1,nil) end
+	local sg=Duel.GetMatchingGroup(aux.TRUE,tp,0,LOCATION_MZONE,nil)
+	Duel.SetOperationInfo(0,CATEGORY_DESTROY,sg,sg:GetCount(),0,0)
+end
+function cm.operation(e,tp,eg,ep,ev,re,r,rp)
+	local sg=Duel.GetMatchingGroup(cm.filter,tp,0,LOCATION_MZONE,nil)
+	Duel.Destroy(sg,REASON_EFFECT)
+end
+function cm.cost1(e,tp,eg,ep,ev,re,r,rp,chk)
+	local el={{13254034,3},{13254033,2}}
+	local mg=tama.tamas_checkGroupElements(Duel.GetFieldGroup(tp,LOCATION_GRAVE,0),el)
+	local sg=Group.CreateGroup()
+	if chk==0 then 
+		return mg:GetCount()>0 and mg:IsExists(tama.tamas_selectElementsForAbove,1,nil,mg,sg,el)
+	end
+	local sg=tama.tamas_selectAllSelectForAbove(mg,el,tp)
+	Duel.SendtoDeck(sg,nil,2,REASON_COST)
+	e:SetLabel(sg:GetCount())
+end
+function cm.filter1(c)
+	return c:IsAbleToDeck() and (not c:IsLocation(LOCATION_EXTRA) or c:IsFaceup())
+end
+function cm.target1(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(cm.filter1,tp,0,LOCATION_GRAVE+LOCATION_REMOVED+LOCATION_EXTRA,1,nil) end
+	local sg=Duel.GetMatchingGroup(cm.filter1,tp,0,LOCATION_GRAVE+LOCATION_REMOVED+LOCATION_EXTRA,nil)
+	Duel.SetOperationInfo(0,CATEGORY_TODECK,sg,sg:GetCount(),0,0)
+end
+function cm.operation1(e,tp,eg,ep,ev,re,r,rp)
+	local sg=Duel.GetMatchingGroup(cm.filter1,tp,0,LOCATION_GRAVE+LOCATION_REMOVED+LOCATION_EXTRA,nil)
+	Duel.SendtoDeck(sg,tp,2,REASON_EFFECT)
+end
+function cm.cost2(e,tp,eg,ep,ev,re,r,rp,chk)
+	local el={{13254034,2},{13254032,1}}
+	local mg=tama.tamas_checkGroupElements(Duel.GetFieldGroup(tp,LOCATION_GRAVE,0),el)
+	local sg=Group.CreateGroup()
+	if chk==0 then 
+		return mg:GetCount()>0 and mg:IsExists(tama.tamas_selectElementsForAbove,1,nil,mg,sg,el)
+	end
+	local sg=tama.tamas_selectAllSelectForAbove(mg,el,tp)
+	Duel.SendtoDeck(sg,nil,2,REASON_COST)
+end
+function cm.operation2(e,tp,eg,ep,ev,re,r,rp)
+	--attack up
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_FIELD)
+	e1:SetCode(EFFECT_UPDATE_ATTACK)
+	e1:SetTargetRange(LOCATION_MZONE,0)
+	e1:SetValue(2000)
+	e1:SetTarget(aux.TargetBoolFunction(Card.IsLevelBelow,1))
+	e1:SetReset(RESET_PHASE+PHASE_END)
+	Duel.RegisterEffect(e1,tp)
+end

expansions/script/c13254043.lua

+--元始飞球秘术·耀光
+local m=13254043
+local cm=_G["c"..m]
+xpcall(function() require("expansions/script/tama") end,function() require("script/tama") end)
+function cm.initial_effect(c)
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(m,0))
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	e1:SetCost(cm.cost)
+	e1:SetOperation(cm.operation)
+	c:RegisterEffect(e1)
+	--steam
+	local e2=Effect.CreateEffect(c)
+	e2:SetDescription(aux.Stringid(m,1))
+	e2:SetType(EFFECT_TYPE_QUICK_O)
+	e2:SetRange(LOCATION_GRAVE)
+	e2:SetCode(EVENT_FREE_CHAIN)
+	e2:SetCost(cm.cost1)
+	e2:SetOperation(cm.operation1)
+	c:RegisterEffect(e2)
+	
+end
+function cm.cost(e,tp,eg,ep,ev,re,r,rp,chk)
+	local el={{13254035,1}}
+	local mg=tama.tamas_checkGroupElements(Duel.GetFieldGroup(tp,LOCATION_GRAVE,0),el)
+	local sg=Group.CreateGroup()
+	if chk==0 then 
+		return mg:GetCount()>0 and mg:IsExists(tama.tamas_selectElementsForAbove,1,nil,mg,sg,el)
+	end
+	local sg=tama.tamas_selectAllSelectForAbove(mg,el,tp)
+	Duel.SendtoDeck(sg,nil,2,REASON_COST)
+end
+function cm.operation(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	local e3=Effect.CreateEffect(c)
+	e3:SetType(EFFECT_TYPE_FIELD)
+	e3:SetCode(EFFECT_IMMUNE_EFFECT)
+	e3:SetTargetRange(LOCATION_ONFIELD,0)
+	e3:SetTarget(aux.TargetBoolFunction(Card.IsSetCard,0x356))
+	e3:SetValue(cm.efilter)
+	e3:SetReset(RESET_PHASE+PHASE_END)
+	Duel.RegisterEffect(e3,tp)
+end
+function cm.efilter(e,re)
+	return e:GetOwnerPlayer()~=re:GetOwnerPlayer()
+end
+function cm.cost1(e,tp,eg,ep,ev,re,r,rp,chk)
+	local el={{13254035,2}}
+	local mg=tama.tamas_checkGroupElements(Duel.GetFieldGroup(tp,LOCATION_GRAVE,0),el)
+	local sg=Group.CreateGroup()
+	if chk==0 then 
+		return mg:GetCount()>0 and mg:IsExists(tama.tamas_selectElementsForAbove,1,nil,mg,sg,el) and e:GetHandler():IsAbleToRemoveAsCost()
+	end
+	Duel.Remove(e:GetHandler(),POS_FACEUP,REASON_COST)
+	local sg=tama.tamas_selectAllSelectForAbove(mg,el,tp)
+	Duel.SendtoDeck(sg,nil,2,REASON_COST)
+end
+function cm.operation1(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	local e3=Effect.CreateEffect(c)
+	e3:SetType(EFFECT_TYPE_FIELD)
+	e3:SetCode(EFFECT_IMMUNE_EFFECT)
+	e3:SetTargetRange(LOCATION_ONFIELD,0)
+	e3:SetTarget(aux.TargetBoolFunction(Card.IsSetCard,0x356))
+	e3:SetValue(cm.efilter)
+	e3:SetReset(RESET_EVENT+EVENT_CHAIN_END)
+	Duel.RegisterEffect(e3,tp)
+end

expansions/script/c13254044.lua

+--元始飞球秘术·帷幕
+local m=13254044
+local cm=_G["c"..m]
+xpcall(function() require("expansions/script/tama") end,function() require("script/tama") end)
+function cm.initial_effect(c)
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(m,0))
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	e1:SetCost(cm.cost)
+	e1:SetOperation(cm.operation)
+	c:RegisterEffect(e1)
+	local e2=Effect.CreateEffect(c)
+	e2:SetDescription(aux.Stringid(m,1))
+	e2:SetType(EFFECT_TYPE_QUICK_O)
+	e2:SetRange(LOCATION_GRAVE)
+	e2:SetCode(EVENT_FREE_CHAIN)
+	e2:SetCost(cm.cost1)
+	e2:SetOperation(cm.operation1)
+	c:RegisterEffect(e2)
+	
+end
+function cm.cost(e,tp,eg,ep,ev,re,r,rp,chk)
+	local el={{13254036,1}}
+	local mg=tama.tamas_checkGroupElements(Duel.GetFieldGroup(tp,LOCATION_GRAVE,0),el)
+	local sg=Group.CreateGroup()
+	if chk==0 then 
+		return mg:GetCount()>0 and mg:IsExists(tama.tamas_selectElementsForAbove,1,nil,mg,sg,el)
+	end
+	local sg=tama.tamas_selectAllSelectForAbove(mg,el,tp)
+	Duel.SendtoDeck(sg,nil,2,REASON_COST)
+end
+function cm.operation(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	local e3=Effect.CreateEffect(c)
+	e3:SetType(EFFECT_TYPE_FIELD)
+	e3:SetCode(EFFECT_IMMUNE_EFFECT)
+	e3:SetTargetRange(LOCATION_ONFIELD,0)
+	e3:SetTarget(aux.TargetBoolFunction(Card.IsSetCard,0x356))
+	e3:SetValue(cm.efilter)
+	e3:SetReset(RESET_PHASE+PHASE_END)
+	Duel.RegisterEffect(e3,tp)
+end
+function cm.efilter(e,re)
+	return e:GetOwnerPlayer()~=re:GetOwnerPlayer()
+end
+function cm.cost1(e,tp,eg,ep,ev,re,r,rp,chk)
+	local el={{13254036,2}}
+	local mg=tama.tamas_checkGroupElements(Duel.GetFieldGroup(tp,LOCATION_GRAVE,0),el)
+	local sg=Group.CreateGroup()
+	if chk==0 then 
+		return mg:GetCount()>0 and mg:IsExists(tama.tamas_selectElementsForAbove,1,nil,mg,sg,el) and e:GetHandler():IsAbleToRemoveAsCost()
+	end
+	Duel.Remove(e:GetHandler(),POS_FACEUP,REASON_COST)
+	local sg=tama.tamas_selectAllSelectForAbove(mg,el,tp)
+	Duel.SendtoDeck(sg,nil,2,REASON_COST)
+end
+function cm.operation1(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	--actlimit
+	local e3=Effect.CreateEffect(c)
+	e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+	e3:SetCode(EVENT_CHAINING)
+	e3:SetOperation(cm.chainop)
+	e3:SetReset(RESET_EVENT+EVENT_CHAIN_END)
+	Duel.RegisterEffect(e3,tp)
+end
+function cm.chainop(e,tp,eg,ep,ev,re,r,rp)
+	if re:GetHandler():IsSetCard(0x356) then
+		Duel.SetChainLimit(
+			function (e,tp,fp)
+				return tp==fp
+			end
+		)
+	end
+end

expansions/script/c13254045.lua

+--元始飞球秘术·活化
+local m=13254045
+local cm=_G["c"..m]
+xpcall(function() require("expansions/script/tama") end,function() require("script/tama") end)
+function cm.initial_effect(c)
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription()
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	c:RegisterEffect(e1)
+	local e2=Effect.CreateEffect(c)
+	e2:SetDescription(aux.Stringid(m,0))
+	e2:SetCategory(CATEGORY_SEARCH+CATEGORY_TOHAND+CATEGORY_SUMMON)
+	e2:SetType(EFFECT_TYPE_IGNITION)
+	e2:SetRange(LOCATION_FZONE)
+	e2:SetCountLimit(1,m)
+	e2:SetCost(cm.cost)
+	e2:SetTarget(cm.target)
+	e2:SetOperation(cm.operation)
+	c:RegisterEffect(e2)
+	local e3=Effect.CreateEffect(c)
+	e3:SetDescription(aux.Stringid(m,1))
+	e3:SetCategory(CATEGORY_DRAW)
+	e3:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
+	e3:SetType(EFFECT_TYPE_IGNITION)
+	e3:SetRange(LOCATION_FZONE)
+	e3:SetCountLimit(1)
+	e3:SetCost(cm.cost1)
+	e3:SetTarget(cm.target1)
+	e3:SetOperation(cm.operation1)
+	c:RegisterEffect(e3)
+	
+end
+function cm.tdfilter(c)
+	return c:IsType(TYPE_MONSTER) and c:IsAbleToDeckAsCost() and Duel.IsExistingMatchingCard(cm.tdfilter,tp,0,LOCATION_DECK,1,nil,c)
+end
+function cm.thfilter(c,tc)
+	return c:IsSetCard(0x3356) and c:IsType(TYPE_MONSTER) and tama.tamas_checkElementsEmpty(tama.tamas_getElements(c) and tama.tamas_checkCardElementsGreater(tc,c) and c:IsAbleToHand()
+end
+function cm.cost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(cm.tdfilter,tp,LOCATION_GRAVE,0,1,nil) end
+	local sg=Duel.SelectMatchingCard(tp,cm.tdfilter,tp,LOCATION_GRAVE,0,1,1,nil)
+	Duel.SendtoDeck(sg,nil,2,REASON_COST)
+	e:SetLabelObject(sg:GetFirst())
+end
+function cm.target(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return true end
+	Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
+end
+function cm.operation(e,tp,eg,ep,ev,re,r,rp)
+	if not e:GetLabelObject() or 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,e:GetLabelObject())
+	if g:GetCount()>0 then
+		Duel.SendtoHand(g,nil,REASON_EFFECT)
+		Duel.ConfirmCards(1-tp,g)
+		if Duel.SelectYesNo(aux.Stringid(m,2)) then
+			Duel.BreakEffect()
+			Duel.Summon(tp,g:GetFirst(),true,nil)
+		end
+	end
+end
+function cm.tdfilter1(c)
+	return c:IsSetCard(0x3356) and c:IsAbleToDeckAsCost()
+end
+function cm.cost1(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(cm.tdfilter1,tp,LOCATION_HAND,0,2,nil) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK)
+	local g=Duel.SelectMatchingCard(tp,cm.tdfilter1,tp,LOCATION_HAND,0,1,2,nil)
+	Duel.SendtoDeck(g,nil,2,REASON_COST)
+end
+function cm.target1(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsPlayerCanDraw(tp,1) end
+	local ct=e:GetLabel()
+	Duel.SetTargetPlayer(tp)
+	Duel.SetTargetParam(ct)
+	Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,ct)
+end
+function cm.operation1(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)
+end

expansions/script/c71400001.lua

+--梦见
+	yume=yume or {}
+	yume.temp_card_field=yume.temp_card_field or {}
+if c71400001 then
+function c71400001.initial_effect(c)
+	--Activate(nofield)
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(71400001,1))
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	e1:SetCondition(yume.nonYumeCon)
+	e1:SetTarget(yume.YumeFieldCheckTarget(0,1))
+	e1:SetCost(c71400001.cost)
+	e1:SetOperation(c71400001.activate1)
+	e1:SetCountLimit(1,71400001+EFFECT_COUNT_CODE_OATH)
+	c:RegisterEffect(e1)
+	--Activate(field)
+	local e2=Effect.CreateEffect(c)
+	e2:SetDescription(aux.Stringid(71400001,2))
+	e2:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
+	e2:SetType(EFFECT_TYPE_ACTIVATE)
+	e2:SetCode(EVENT_FREE_CHAIN)
+	e2:SetCondition(yume.YumeCon)
+	e2:SetTarget(c71400001.target2)
+	e2:SetCost(c71400001.cost)
+	e2:SetOperation(c71400001.activate2)
+	e2:SetCountLimit(1,71400001+EFFECT_COUNT_CODE_OATH)
+	c:RegisterEffect(e2)
+end
+function c71400001.cost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.CheckLPCost(tp,500) end
+	Duel.PayLPCost(tp,500)
+end
+function c71400001.activate1(e,tp,eg,ep,ev,re,r,rp)
+	yume.FieldActivation(tp,nil,1)
+end
+function c71400001.activate2(e,tp,eg,ep,ev,re,r,rp)
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
+	local g=Duel.SelectMatchingCard(tp,c71400001.filter2,tp,LOCATION_DECK,0,1,1,nil,tp)
+	if g:GetCount()>0 then
+		Duel.SendtoHand(g,nil,REASON_EFFECT)
+		Duel.ConfirmCards(1-tp,g)
+	end
+end
+function c71400001.filter1(c,tp)
+	return c:IsType(TYPE_FIELD) and c:GetActivateEffect():IsActivatable(tp,true) and c:IsSetCard(0xb714)
+end
+function c71400001.filter2(c,tp)
+	return c:IsSetCard(0x714) and c:IsAbleToHand() and not c:IsCode(71400001)
+end
+function c71400001.target2(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(c71400001.filter2,tp,LOCATION_DECK,0,1,nil,tp) end
+	Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
+end
+end
+--global part
+table=require("table")
+function yume.AddYumeSummonLimit(c,ssm)
+--1=special summon monster, 0=non special summon monster
+	ssm=ssm or 0
+	local el1=Effect.CreateEffect(c)
+	el1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
+	el1:SetType(EFFECT_TYPE_SINGLE)
+	el1:SetCode(EFFECT_SPSUMMON_CONDITION)
+	el1:SetValue(yume.YumeCheck)
+	c:RegisterEffect(el1)
+	if ssm==0 then
+		local el2=Effect.CreateEffect(c)
+		el2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
+		el2:SetType(EFFECT_TYPE_SINGLE)
+		el2:SetCode(EFFECT_CANNOT_MSET)
+		el2:SetCondition(yume.YumeCheck2)
+		c:RegisterEffect(el2)
+		local el3=el2:Clone()
+		el3:SetCode(EFFECT_CANNOT_SUMMON)
+		c:RegisterEffect(el3)
+	end
+end
+function yume.GetValueType(v)
+	local t=type(v)
+	if t=="userdata" then
+		local mt=getmetatable(v)
+		if mt==Group then return "Group"
+		elseif mt==Effect then return "Effect"
+		else return "Card" end
+	else return t end
+end
+function yume.YumeCheckFilter(c)
+	return c:IsFaceup() and c:IsSetCard(0x3714)
+end
+function yume.IsYumeFieldOnField(tp)
+	return Duel.IsExistingMatchingCard(yume.YumeCheckFilter,tp,LOCATION_FZONE,0,1,nil)
+end
+--[[
+Yume SpSummon Check
+v in effect = spsummon condition value(return true = can summon)
+v in card = material filter gen(return true = can summon)
+--]]
+function yume.YumeCheck(v,se,sp)
+	local t=yume.GetValueType(v)
+	if t=="Effect" then
+		return yume.IsYumeFieldOnField(sp)
+	elseif t=="Card" then
+		return function(c) return yume.IsYumeFieldOnField(v:GetControler()) end
+	end
+end
+--[[
+Yume Summon/Set Check
+return true = cannot summon
+--]]
+function yume.YumeCheck2(e)
+	return not yume.IsYumeFieldOnField(e:GetHandler():GetControler())
+end
+--Yume Condition
+function yume.YumeCon(e,tp,eg,ep,ev,re,r,rp)
+	if not tp then tp=e:GetHandlerPlayer() end
+	return yume.IsYumeFieldOnField(tp)
+end
+--Yume Condition for lethal weapons
+function yume.YumeLethalCon(e,tp,eg,ep,ev,re,r,rp)
+	return Duel.GetTurnPlayer()==tp and yume.YumeCon(e,tp,eg,ep,ev,re,r,rp)
+end
+function yume.nonYumeCon(e,tp,eg,ep,ev,re,r,rp)
+	if not tp then tp=e:GetHandlerPlayer() end
+	return not yume.IsYumeFieldOnField(tp)
+end
+--ft=field type, 0-All Yume 1-Visionary Yume 2-Erosive Yume
+--loc=location
+function yume.AddYumeFieldGlobal(c,id,ft)
+	ft=ft or 0
+	if not id then return end
+	yume.temp_card_field[c]=yume.temp_card_field[c] or {}
+	yume.temp_card_field[c].id=id
+	yume.temp_card_field[c].ft=ft
+	--Activate
+	local eac=Effect.CreateEffect(c)
+	eac:SetType(EFFECT_TYPE_ACTIVATE)
+	eac:SetCode(EVENT_FREE_CHAIN)
+	eac:SetCountLimit(1,id+EFFECT_COUNT_CODE_OATH)
+	--eac:SetCost(yume.FieldActCostForNow)
+	c:RegisterEffect(eac)
+	--self limitation
+	local esl=Effect.CreateEffect(c)
+	esl:SetDescription(aux.Stringid(71400001,1))
+	esl:SetType(EFFECT_TYPE_QUICK_F)
+	esl:SetCode(EVENT_CHAINING)
+	esl:SetRange(LOCATION_FZONE)
+	esl:SetCondition(yume.YumeFieldLimitCon)
+	esl:SetOperation(yume.YumeFieldLimitOp)
+	c:RegisterEffect(esl)
+	--field activation
+	local efa=Effect.CreateEffect(c)
+	efa:SetDescription(aux.Stringid(71400001,2))
+	efa:SetCategory(EFFECT_TYPE_ACTIVATE)
+	efa:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F)
+	efa:SetCode(EVENT_LEAVE_FIELD)
+	efa:SetRange(LOCATION_FZONE)
+	efa:SetProperty(EFFECT_FLAG_DAMAGE_STEP)
+	efa:SetCondition(yume.FieldActivationCon)
+	efa:SetOperation(yume.FieldActivationOp)
+	c:RegisterEffect(efa)
+end
+function yume.FieldActCostForNow(e,tp,eg,ep,ev,re,r,rp,chk)
+	local c=e:GetHandler()
+	local num=yume.temp_card_field[c].id
+	if chk==0 then return Duel.GetFlagEffect(tp,num)==0 end
+end
+--Against Yume
+function yume.YumeFieldLimitCon(e,tp,eg,ep,ev,re,r,rp)
+	local ec=re:GetHandler()
+	local loc=Duel.GetChainInfo(ev,CHAININFO_TRIGGERING_LOCATION)
+	return re:IsActiveType(TYPE_MONSTER) and rp==tp and (not ec:IsSetCard(0x714) and (ec:IsLocation(loc) or loc&LOCATION_ONFIELD==0) or not (ec:IsPreviousSetCard(0x714) or ec:IsLocation(loc)) and loc&LOCATION_ONFIELD~=0)
+end
+function yume.YumeFieldLimitOp(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	if not c:IsRelateToEffect(e) then return end
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_FIELD)
+	e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
+	e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
+	e1:SetReset(RESET_PHASE+PHASE_END)
+	e1:SetTarget(aux.TargetBoolFunction(Card.IsSetCard,0x714))
+	e1:SetTargetRange(1,0)
+	Duel.RegisterEffect(e1,tp)
+	local e2=Effect.CreateEffect(c)
+	e2:SetType(EFFECT_TYPE_FIELD)
+	e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
+	e2:SetCode(EFFECT_CANNOT_SUMMON)
+	e2:SetReset(RESET_PHASE+PHASE_END)
+	e2:SetTarget(aux.TargetBoolFunction(Card.IsSetCard,0x714))
+	e2:SetTargetRange(1,0)
+	Duel.RegisterEffect(e2,tp)
+	local e3=Effect.CreateEffect(c)
+	e3:SetType(EFFECT_TYPE_FIELD)
+	e3:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
+	e3:SetCode(EFFECT_CANNOT_MSET)
+	e3:SetReset(RESET_PHASE+PHASE_END)
+	e3:SetTarget(aux.TargetBoolFunction(Card.IsSetCard,0x714))
+	e3:SetTargetRange(1,0)
+	Duel.RegisterEffect(e3,tp)
+	local e4=Effect.CreateEffect(c)
+	e4:SetType(EFFECT_TYPE_FIELD)
+	e4:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
+	e4:SetCode(EFFECT_CANNOT_ACTIVATE)
+	e4:SetReset(RESET_PHASE+PHASE_END)
+	e4:SetValue(yume.YumeFieldActivationLimit)
+	e4:SetTargetRange(1,0)
+	Duel.RegisterEffect(e4,tp)
+end
+function yume.YumeFieldActivationLimit(e,re,tp)
+	local c=re:GetHandler()
+	return c:IsSetCard(0x714) and not c:IsImmuneToEffect(e)
+end
+--Field Activation
+function yume.YumeFieldCheck(tp,num,ft,loc)
+	ft=ft or 0
+	num=num or 0
+	loc=loc or LOCATION_DECK
+	return Duel.IsExistingMatchingCard(yume.FieldActivationFilter,tp,loc,0,1,nil,tp,num,ft)
+end
+function yume.YumeFieldCheckTarget(num,ft,loc)
+	return function(e,tp,eg,ep,ev,re,r,rp,chk)
+		if chk==0 then return yume.YumeFieldCheck(tp,num,ft,loc) end
+	end
+end
+function yume.FieldActivation(tp,num,ft,loc)
+	ft=ft or 0
+	num=num or 0
+	loc=loc or LOCATION_DECK
+	Duel.Hint(HINT_SELECTMSG,tp,aux.Stringid(71400001,3))
+	local tc=Duel.SelectMatchingCard(tp,yume.FieldActivationFilter,tp,loc,0,1,1,nil,tp,num,ft):GetFirst()
+	if tc then
+		local fc=Duel.GetFieldCard(tp,LOCATION_SZONE,5)
+		if fc then
+			Duel.SendtoGrave(fc,REASON_RULE)
+			Duel.BreakEffect()
+		end
+		Duel.MoveToField(tc,tp,tp,LOCATION_SZONE,POS_FACEUP,true)
+		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
+		local id=yume.temp_card_field[tc].id or 0
+		--Duel.RegisterFlagEffect(tp,id,RESET_PHASE+PHASE_END,0,1)
+		Duel.RaiseEvent(tc,4179255,te,0,tp,tp,Duel.GetCurrentChain())
+		return tc
+	end
+end
+function yume.FieldActivationFilter(c,tp,num,ft)
+	local flag=c:IsType(TYPE_FIELD) and c:GetActivateEffect():IsActivatable(tp,true,true) and not c:IsCode(num)
+	if ft==0 then return flag and c:IsSetCard(0x3714)
+	elseif ft==1 then return flag and c:IsSetCard(0xb714)
+	elseif ft==2 then return flag and c:IsSetCard(0x7714)
+	end
+end
+function yume.FieldActivationCon(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	return c:IsReason(REASON_EFFECT) and not c:IsLocation(LOCATION_DECK)
+		and c:IsPreviousPosition(POS_FACEUP)
+end
+function yume.FieldActivationOp(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	local num=yume.temp_card_field[c].id
+	local ft=yume.temp_card_field[c].ft
+	yume.FieldActivation(tp,num,ft,LOCATION_DECK+LOCATION_HAND)
+end
+--uniquify the same name
+function yume.UniquifyCardName(g)
+	local tc=g:GetFirst()
+	while tc do
+		g:Remove(Card.IsCode,tc,tc:GetCode())
+		tc=g:GetNext()
+	end
+end
\ No newline at end of file

expansions/script/c71400002.lua

+--冰雪中的梦之旅者
+function c71400002.initial_effect(c)
+	--special summon
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_FIELD)
+	e1:SetProperty(EFFECT_FLAG_UNCOPYABLE)
+	e1:SetCode(EFFECT_SPSUMMON_PROC)
+	e1:SetRange(LOCATION_HAND)
+	e1:SetCountLimit(1,71400002)
+	e1:SetCondition(c71400002.condition1)
+	c:RegisterEffect(e1)
+	--attribute
+	local e2=Effect.CreateEffect(c)
+	e2:SetType(EFFECT_TYPE_FIELD)
+	e2:SetRange(LOCATION_MZONE)
+	e2:SetTargetRange(LOCATION_GRAVE+LOCATION_MZONE,0)
+	e2:SetCode(EFFECT_CHANGE_ATTRIBUTE)
+	e2:SetValue(ATTRIBUTE_WATER)
+	c:RegisterEffect(e2)
+	--to deck
+	local e3=Effect.CreateEffect(c)
+	e3:SetDescription(aux.Stringid(71400002,0))
+	e3:SetCategory(CATEGORY_TODECK)
+	e3:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DAMAGE_STEP)
+	e3:SetType(EFFECT_TYPE_QUICK_O)
+	e3:SetHintTiming(TIMING_DAMAGE_STEP,TIMING_DAMAGE_STEP+TIMING_TOGRAVE)
+	e3:SetCode(EVENT_FREE_CHAIN)
+	e3:SetRange(LOCATION_MZONE)
+	e3:SetTarget(c71400002.target3)
+	e3:SetOperation(c71400002.operation3)
+	e3:SetCountLimit(1)
+	c:RegisterEffect(e3)
+end
+function c71400002.filter1(c)
+	return c:IsSetCard(0x714) and c:IsFaceup()
+end
+function c71400002.filter3(c)
+	return c:IsAbleToDeck() and c:IsType(TYPE_MONSTER) and c:IsAttribute(ATTRIBUTE_WATER)
+end
+function c71400002.condition1(e,c)
+	if c==nil then return true end
+	local tp=c:GetControler()
+	return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
+		and Duel.GetFieldGroupCount(tp,LOCATION_ONFIELD,LOCATION_ONFIELD)>0
+		and Duel.IsExistingMatchingCard(c71400002.filter1,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil)
+end
+function c71400002.target3(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	local c=e:GetHandler()
+	if chkc then return chkc:IsLocation(LOCATION_MZONE+LOCATION_GRAVE) and c71400002.filter3(chkc) and chkc~=c end
+	if chk==0 then return Duel.IsExistingTarget(c71400002.filter3,tp,LOCATION_MZONE+LOCATION_GRAVE,LOCATION_MZONE+LOCATION_GRAVE,1,c) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK)
+	local g=Duel.SelectTarget(tp,c71400002.filter3,tp,LOCATION_MZONE+LOCATION_GRAVE,LOCATION_MZONE+LOCATION_GRAVE,1,1,c)
+	Duel.SetOperationInfo(0,CATEGORY_TODECK,g,1,0,LOCATION_MZONE+LOCATION_GRAVE)
+end
+function c71400002.operation3(e,tp,eg,ep,ev,re,r,rp,chk)
+	local tc=Duel.GetFirstTarget()
+	local c=e:GetHandler()
+	if tc:IsRelateToEffect(e) and Duel.SendtoDeck(tc,nil,2,REASON_EFFECT)>0 and c:IsRelateToEffect(e) then
+		local e1=Effect.CreateEffect(c)
+		e1:SetType(EFFECT_TYPE_SINGLE)
+		e1:SetCode(EFFECT_UPDATE_ATTACK)
+		e1:SetReset(RESET_EVENT+0x1ff0000)
+		e1:SetValue(500)
+		c:RegisterEffect(e1)
+	end
+end
\ No newline at end of file

expansions/script/c71400004.lua

+--梦之公寓的圆盘人
+xpcall(function() require("expansions/script/c71400001") end,function() require("script/c71400001") end)
+function c71400004.initial_effect(c)
+	--summon limit
+	yume.AddYumeSummonLimit(c)
+	--special summon
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_FIELD)
+	e1:SetProperty(EFFECT_FLAG_UNCOPYABLE)
+	e1:SetCode(EFFECT_SPSUMMON_PROC)
+	e1:SetRange(LOCATION_HAND)
+	e1:SetCondition(c71400004.condition1)
+	c:RegisterEffect(e1)
+	--search
+	local e2=Effect.CreateEffect(c)
+	e2:SetDescription(aux.Stringid(71400004,0))
+	e2:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
+	e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+	e2:SetProperty(EFFECT_FLAG_DELAY)
+	e2:SetCode(EVENT_BE_MATERIAL)
+	e2:SetCountLimit(1,71400004)
+	e2:SetCondition(c71400004.condition2)
+	e2:SetTarget(c71400004.target2)
+	e2:SetOperation(c71400004.operation2)
+	c:RegisterEffect(e2)
+end
+function c71400004.filter1(c)
+	return c:IsSetCard(0x714) and c:IsFaceup() and c:IsType(TYPE_TUNER)
+end
+function c71400004.condition1(e,c)
+	if c==nil then return true end
+	local tp=c:GetControler()
+	return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
+		and Duel.GetFieldGroupCount(tp,LOCATION_MZONE,0)>0
+		and Duel.IsExistingMatchingCard(c71400004.filter1,tp,LOCATION_MZONE,0,1,nil) and yume.YumeCheck(c)
+end
+function c71400004.filter2(c)
+	return c:IsSetCard(0xe714) and c:IsAbleToHand()
+end
+function c71400004.condition2(e,tp,eg,ep,ev,re,r,rp)
+	return e:GetHandler():IsLocation(LOCATION_GRAVE) and r==REASON_SYNCHRO
+end
+function c71400004.target2(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(c71400004.filter2,tp,LOCATION_DECK,0,1,nil) end
+	Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
+end
+function c71400004.operation2(e,tp,eg,ep,ev,re,r,rp)
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
+	local g=Duel.SelectMatchingCard(tp,c71400004.filter2,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
\ No newline at end of file

expansions/script/c71400005.lua

+--梦之钢琴师
+xpcall(function() require("expansions/script/c71400001") end,function() require("script/c71400001") end)
+function c71400005.initial_effect(c)
+	--summon limit
+	yume.AddYumeSummonLimit(c)
+	--summon success
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(71400005,0))
+	e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
+	e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+	e1:SetCode(EVENT_SUMMON_SUCCESS)
+	e1:SetTarget(c71400005.target1)
+	e1:SetCountLimit(1,71400005)
+	e1:SetOperation(c71400005.operation1)
+	c:RegisterEffect(e1)
+	--synchro effect
+	local e2=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(71400005,1))
+	e2:SetCategory(CATEGORY_SPECIAL_SUMMON)
+	e2:SetType(EFFECT_TYPE_QUICK_O)
+	e2:SetCode(EVENT_FREE_CHAIN)
+	e2:SetRange(LOCATION_MZONE)
+	e2:SetHintTiming(0,TIMING_BATTLE_START+TIMING_BATTLE_END)
+	e2:SetCountLimit(1)
+	e2:SetCondition(c71400005.condition2)
+	e2:SetTarget(c71400005.target2)
+	e2:SetOperation(c71400005.operation2)
+	c:RegisterEffect(e2)
+end
+function c71400005.filter1(c,e,sp)
+	return c:IsSetCard(0x714) and c:IsCanBeSpecialSummoned(e,0,sp,false,false)
+end
+function c71400005.target1(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(c71400005.filter1,tp,LOCATION_DECK,0,1,nil,e,tp)
+		and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 end
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK)
+end
+function c71400005.operation1(e,tp,eg,ep,ev,re,r,rp)
+	if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
+	local g=Duel.SelectMatchingCard(tp,c71400005.filter1,tp,LOCATION_DECK,0,1,1,nil,e,tp)
+	if g:GetCount()>0 then
+		Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP_DEFENSE)
+	end
+end
+function c71400005.condition2(e,tp,eg,ep,ev,re,r,rp)
+	if Duel.GetTurnPlayer()==tp then return false end
+	local ph=Duel.GetCurrentPhase()
+	return ph==PHASE_MAIN1 or (ph>=PHASE_BATTLE_START and ph<=PHASE_BATTLE) or ph==PHASE_MAIN2
+end
+function c71400005.filter2(c)
+	return c:IsSetCard(0x714)
+end
+function c71400005.synfilter(c,mg)
+	return c:IsSetCard(0x714) and c:IsSynchroSummonable(nil,mg)
+end
+function c71400005.target2(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then
+		local mg=Duel.GetMatchingGroup(c71400005.filter2,tp,LOCATION_MZONE,0,nil)
+		return Duel.IsExistingMatchingCard(c71400005.synfilter,tp,LOCATION_EXTRA,0,1,nil,mg)
+	end
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA)
+end
+function c71400005.operation2(e,tp,eg,ep,ev,re,r,rp)
+	local mg=Duel.GetMatchingGroup(c71400005.filter2,tp,LOCATION_MZONE,0,nil)
+	local g=Duel.GetMatchingGroup(c71400005.synfilter,tp,LOCATION_EXTRA,0,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
+end
\ No newline at end of file

expansions/script/c71400006.lua

+--梦医院的梦之患者
+xpcall(function() require("expansions/script/c71400001") end,function() require("script/c71400001") end)
+function c71400006.initial_effect(c)
+	--summon limit
+	yume.AddYumeSummonLimit(c)
+	--summon success
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(71400006,0))
+	e1:SetCountLimit(1,71400006)
+	e1:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_REMOVE)
+	e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+	e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
+	e1:SetCode(EVENT_SUMMON_SUCCESS)
+	e1:SetTarget(c71400006.target1)
+	e1:SetOperation(c71400006.operation1)
+	c:RegisterEffect(e1)
+	local e1a=e1:Clone()
+	e1a:SetCode(EVENT_SPSUMMON_SUCCESS)
+	c:RegisterEffect(e1a)
+	--self des
+	local e2=Effect.CreateEffect(c)
+	e2:SetDescription(aux.Stringid(71400006,1))
+	e2:SetCategory(CATEGORY_DESTROY)
+	e2:SetType(EFFECT_TYPE_QUICK_F)
+	e2:SetRange(LOCATION_MZONE)
+	e2:SetCode(EVENT_BECOME_TARGET)
+	e2:SetCondition(c71400006.con2)
+	e2:SetTarget(c71400006.target2)
+	e2:SetOperation(c71400006.operation2)
+	c:RegisterEffect(e2)
+	local e2a=e2:Clone()
+	e2a:SetDescription(aux.Stringid(71400006,1))
+	e2a:SetCode(EVENT_BE_BATTLE_TARGET)
+	c:RegisterEffect(e2a)
+end
+function c71400006.filter1(c,e,tp)
+	return c:IsLevelBelow(4) and c:IsSetCard(0x714) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
+end
+function c71400006.target1(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c71400006.filter1(chkc,e,tp) end
+	if chk==0 then return Duel.IsExistingTarget(c71400006.filter1,tp,LOCATION_GRAVE,0,1,nil,e,tp) and Duel.IsExistingMatchingCard(aux.TRUE,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
+	local g=Duel.SelectTarget(tp,c71400006.filter1,tp,LOCATION_GRAVE,0,1,1,nil,e,tp)
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,tp,LOCATION_GRAVE)
+	Duel.SetOperationInfo(0,CATEGORY_REMOVE,g,1,0,LOCATION_MZONE)
+end
+function c71400006.operation1(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	local tc=Duel.GetFirstTarget()
+	if tc:IsRelateToEffect(e) and Duel.SpecialSummonStep(tc,0,tp,tp,false,false,POS_FACEUP_DEFENSE) then
+		Duel.SpecialSummonComplete()
+		local dg=Duel.GetMatchingGroup(Card.IsAbleToRemove,tp,LOCATION_MZONE,LOCATION_MZONE,nil)
+		if dg:GetCount()>0 then
+			Duel.BreakEffect()
+			Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
+			local g=Duel.SelectMatchingCard(tp,Card.IsAbleToRemove,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil)
+			Duel.HintSelection(g)
+			Duel.Remove(g:GetFirst(),POS_FACEUP,REASON_EFFECT)
+		end
+	end
+end
+function c71400006.con2(e,tp,eg,ep,ev,re,r,rp)
+	return eg:IsContains(e:GetHandler())
+end
+function c71400006.target2(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return true end
+	Duel.SetOperationInfo(0,CATEGORY_DESTROY,e:GetHandler(),1,0,0)
+end
+function c71400006.operation2(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	if c:IsRelateToEffect(e) then
+		Duel.Destroy(c,REASON_EFFECT)
+	end
+end
\ No newline at end of file

expansions/script/c71400007.lua

+--梦之镇的路标
+xpcall(function() require("expansions/script/c71400001") end,function() require("script/c71400001") end)
+function c71400007.initial_effect(c)
+	--summon limit
+	yume.AddYumeSummonLimit(c)
+	--summon success
+	local e1=Effect.CreateEffect(c)
+	e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
+	e1:SetDescription(aux.Stringid(71400007,0))
+	e1:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DELAY)
+	e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+	e1:SetCode(EVENT_SUMMON_SUCCESS)
+	e1:SetCountLimit(1,71400007)
+	e1:SetTarget(c71400007.tg1)
+	e1:SetOperation(c71400007.op1)
+	c:RegisterEffect(e1)
+	local e1a=e1:Clone()
+	e1a:SetCode(EVENT_SPSUMMON_SUCCESS)
+	c:RegisterEffect(e1a)
+	--gy banish
+	local e2=Effect.CreateEffect(c)
+	e2:SetCategory(CATEGORY_SPECIAL_SUMMON)
+	e2:SetProperty(EFFECT_FLAG_CARD_TARGET)
+	e2:SetDescription(aux.Stringid(71400007,1))
+	e2:SetType(EFFECT_TYPE_IGNITION)
+	e2:SetRange(LOCATION_GRAVE)
+	e2:SetCountLimit(1,71500007)
+	e2:SetCost(c71400007.cost)
+	e2:SetTarget(c71400007.target)
+	e2:SetOperation(c71400007.operation)
+	c:RegisterEffect(e2)
+end
+function c71400007.tg1(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 Card.IsLinkState(chkc) and chkc~=c end
+	if chk==0 then return Duel.IsExistingTarget(Card.IsLinkState,tp,LOCATION_MZONE,0,1,c) and Duel.GetLocationCount(tp,LOCATION_MZONE,tp,LOCATION_REASON_CONTROL)>0 end
+	Duel.Hint(HINT_SELECTMSG,tp,aux.Stringid(71400007,2))
+	Duel.SelectTarget(tp,Card.IsLinkState,tp,LOCATION_MZONE,0,1,1,c)
+end
+function c71400007.op1(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	local tc=Duel.GetFirstTarget()
+	if not tc:IsRelateToEffect(e) or tc:IsControler(1-tp) or tc:IsImmuneToEffect(e) or Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOZONE)
+	local s=Duel.SelectDisableField(tp,1,LOCATION_MZONE,0,0)
+	local nseq=math.log(s,2)
+	Duel.MoveSequence(tc,nseq)
+end
+function c71400007.filter(c,e,tp,zone)
+	return c:IsSetCard(0x714) and c:IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEUP,tp,zone)
+end
+function c71400007.cost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return e:GetHandler():IsAbleToRemoveAsCost() end
+	Duel.Remove(e:GetHandler(),POS_FACEUP,REASON_COST)
+end
+function c71400007.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	local zone=Duel.GetLinkedZone(tp)
+	if chkc then return chkc:IsControler(tp) and chkc:IsLocation(LOCATION_GRAVE) and c71400007.filter(chkc,e,tp,zone) end
+	if chk==0 then return zone~=0
+		and Duel.IsExistingTarget(c71400007.filter,tp,LOCATION_GRAVE,0,1,e:GetHandler(),e,tp,zone) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
+	local tg=Duel.SelectTarget(tp,c71400007.filter,tp,LOCATION_GRAVE,0,1,1,e:GetHandler(),e,tp,zone)
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,tg,1,0,0)
+end
+function c71400007.operation(e,tp,eg,ep,ev,re,r,rp)
+	local zone=Duel.GetLinkedZone(tp)
+	local tc=Duel.GetFirstTarget()
+	if tc:IsRelateToEffect(e) and zone~=0 then
+		Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP,zone)
+	end
+end
\ No newline at end of file

expansions/script/c71400008.lua

+--梦之书中的三足怪物
+xpcall(function() require("expansions/script/c71400001") end,function() require("script/c71400001") end)
+function c71400008.initial_effect(c)
+	--xyz summon
+	aux.AddXyzProcedure(c,yume.YumeCheck(c),4,3)
+	c:EnableReviveLimit()
+	--summon limit
+	yume.AddYumeSummonLimit(c,1)
+	--nuke
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(71400008,0))
+	e1:SetCategory(CATEGORY_DESTROY)
+	e1:SetType(EFFECT_TYPE_QUICK_F)
+	e1:SetCode(EVENT_CHAINING)
+	e1:SetRange(LOCATION_MZONE)
+	e1:SetCondition(c71400008.condition)
+	e1:SetCost(c71400008.cost)
+	e1:SetTarget(c71400008.target)
+	e1:SetOperation(c71400008.operation)
+	c:RegisterEffect(e1)
+end
+function c71400008.condition(e,tp,eg,ep,ev,re,r,rp)
+	return rp~=tp
+end
+function c71400008.cost(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 c71400008.target(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return true end
+	local g=Duel.GetMatchingGroup(aux.TRUE,tp,0,LOCATION_ONFIELD,e:GetHandler())
+	Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),1-tp,0)
+end
+function c71400008.operation(e,tp,eg,ep,ev,re,r,rp)
+	local g=Duel.GetMatchingGroup(aux.TRUE,tp,0,LOCATION_ONFIELD,e:GetHandler())
+	if Duel.Destroy(g,REASON_EFFECT)>0 then
+		Duel.BreakEffect()
+		Duel.SetLP(tp,Duel.GetLP(tp)-1500)
+	end
+end
\ No newline at end of file

expansions/script/c71400009.lua

+--梦之书中的公式证明图表
+xpcall(function() require("expansions/script/c71400001") end,function() require("script/c71400001") end)
+function c71400009.initial_effect(c)
+	--xyz summon
+	aux.AddXyzProcedure(c,yume.YumeCheck(c),4,2)
+	c:EnableReviveLimit()
+	--summon limit
+	yume.AddYumeSummonLimit(c,1)
+	--destroy
+	local e1=Effect.CreateEffect(c)
+	e1:SetCategory(CATEGORY_DESTROY+CATEGORY_REMOVE)
+	e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F)
+	e1:SetCode(EVENT_LEAVE_FIELD)
+	e1:SetDescription(aux.Stringid(71400009,0))
+	e1:SetCondition(c71400009.condition)
+	e1:SetTarget(c71400009.target)
+	e1:SetOperation(c71400009.operation)
+	c:RegisterEffect(e1)
+end
+function c71400009.condition(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	local ct=c:GetOverlayCount()
+	e:SetLabel(ct)
+	return c:IsPreviousPosition(POS_FACEUP) and not c:IsLocation(LOCATION_DECK)
+end
+function c71400009.target(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return true end
+	Duel.SetOperationInfo(0,CATEGORY_DESTROY,nil,0,1-tp,LOCATION_ONFIELD+LOCATION_HAND)
+end
+function c71400009.operation(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
+	local g=Duel.SelectMatchingCard(tp,aux.TRUE,tp,LOCATION_HAND,0,1,1,nil)
+	if g:GetCount()==0 then return end
+	if Duel.Destroy(g,REASON_EFFECT)~=0 then
+		local mcount=e:GetLabel()
+		if not mcount or mcount<=0 or not Duel.IsExistingMatchingCard(aux.TRUE,tp,0,LOCATION_ONFIELD,mcount,nil) then return end
+		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
+		local sg=Duel.SelectMatchingCard(tp,aux.TRUE,tp,0,LOCATION_ONFIELD,mcount,mcount,nil)
+		Duel.HintSelection(sg)
+		if Duel.Destroy(sg,REASON_EFFECT)>0 then
+			Duel.BreakEffect()
+			Duel.SetLP(tp,Duel.GetLP(tp)-1000)
+		end
+	end
+end
\ No newline at end of file

expansions/script/c71400010.lua

+--梦之书中的脑女
+xpcall(function() require("expansions/script/c71400001") end,function() require("script/c71400001") end)
+function c71400010.initial_effect(c)
+	--xyz summon
+	aux.AddXyzProcedure(c,yume.YumeCheck(c),4,2)
+	c:EnableReviveLimit()
+	--summon limit
+	yume.AddYumeSummonLimit(c,1)
+	--get all
+	local e1=Effect.CreateEffect(c)
+	e1:SetCategory(CATEGORY_CONTROL)
+	e1:SetDescription(aux.Stringid(71400010,0))
+	e1:SetType(EFFECT_TYPE_IGNITION)
+	e1:SetCountLimit(1,71400010)
+	e1:SetRange(LOCATION_MZONE)
+	e1:SetCost(c71400010.cost)
+	e1:SetTarget(c71400010.target1)
+	e1:SetOperation(c71400010.operation1)
+	c:RegisterEffect(e1)
+	--lose one
+	local e2=Effect.CreateEffect(c)
+	e2:SetCategory(CATEGORY_CONTROL)
+	e2:SetDescription(aux.Stringid(71400010,1))
+	e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F)
+	e2:SetCode(EVENT_LEAVE_FIELD)
+	e2:SetProperty(EFFECT_FLAG_CARD_TARGET)
+	e2:SetTarget(c71400010.target2)
+	e2:SetOperation(c71400010.operation2)
+	e2:SetCondition(c71400010.condition2)
+	c:RegisterEffect(e2)
+end
+function c71400010.cost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return e:GetHandler():CheckRemoveOverlayCard(tp,1,REASON_COST) and Duel.GetCurrentPhase()~=PHASE_MAIN2 end
+	local e1=Effect.CreateEffect(e:GetHandler())
+	e1:SetType(EFFECT_TYPE_FIELD)
+	e1:SetCode(EFFECT_CANNOT_BP)
+	e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_OATH)
+	e1:SetTargetRange(1,0)
+	e1:SetReset(RESET_PHASE+PHASE_END)
+	Duel.RegisterEffect(e1,tp)
+	e:GetHandler():RemoveOverlayCard(tp,1,1,REASON_COST)
+end
+function c71400010.filter1(c)
+	return c:IsFaceup() and c:IsAbleToChangeControler()
+end
+function c71400010.target1(e,tp,eg,ep,ev,re,r,rp,chk)
+	local c=e:GetHandler()
+	local ft=Duel.GetLocationCount(tp,LOCATION_MZONE,1-tp,LOCATION_REASON_CONTROL)
+	if chk==0 then return Duel.IsExistingMatchingCard(c71400010.filter1,tp,0,LOCATION_MZONE,1,nil) and ft>0 end
+	local g=Duel.GetMatchingGroup(c71400010.filter1,tp,0,LOCATION_MZONE,c)
+	Duel.SetOperationInfo(0,CATEGORY_CONTROL,g,g:GetCount(),1-tp,LOCATION_MZONE)
+end
+function c71400010.operation1(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	local ft=Duel.GetLocationCount(tp,LOCATION_MZONE,1-tp,LOCATION_REASON_CONTROL)
+	local g=Duel.GetMatchingGroup(c71400010.filter1,tp,0,LOCATION_MZONE,c)
+	local ct=g:GetCount()
+	if ct>ft then ct=ft end
+	if ct<1 then return end
+	if ct<g:GetCount() then
+		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_CONTROL)
+		g=g:Select(tp,ct,ct,nil)
+	end
+	Duel.GetControl(g,tp)
+	local og=Duel.GetOperatedGroup()
+	if og:GetCount()<1 then return end
+	local tc=og:GetFirst()
+	local atk=0
+	while tc do
+		local tatk=tc:GetAttack()
+		if tatk>0 then atk=atk+tatk end
+		local e1=Effect.CreateEffect(c)
+		e1:SetType(EFFECT_TYPE_SINGLE)
+		e1:SetCode(EFFECT_ADD_SETCODE)
+		e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
+		e1:SetValue(0x714)
+		e1:SetReset(RESET_EVENT+0x1fe0000)
+		tc:RegisterEffect(e1,true)
+		local e2=Effect.CreateEffect(c)
+		e2:SetType(EFFECT_TYPE_SINGLE)
+		e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
+		e2:SetCode(EFFECT_CANNOT_BE_LINK_MATERIAL)
+		e2:SetValue(1)
+		e2:SetReset(RESET_EVENT+0x1fe0000)
+		tc:RegisterEffect(e2,true)
+		tc=og:GetNext()
+	end
+	Duel.BreakEffect()
+	Duel.SetLP(tp,Duel.GetLP(tp)-atk/2)
+end
+function c71400010.condition2(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	return c:IsPreviousPosition(POS_FACEUP) and not c:IsLocation(LOCATION_DECK)
+end
+function c71400010.target2(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chkc then return chkc:GetLocation()==LOCATION_MZONE and chkc:GetControler()==tp and chkc:IsControlerCanBeChanged() end
+	if chk==0 then return Duel.IsExistingTarget(Card.IsControlerCanBeChanged,tp,LOCATION_MZONE,0,1,nil) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_CONTROL)
+	local g=Duel.SelectTarget(tp,Card.IsControlerCanBeChanged,tp,LOCATION_MZONE,0,1,1,nil)
+	Duel.SetOperationInfo(0,CATEGORY_CONTROL,g,1,tp,LOCATION_MZONE)
+end
+function c71400010.operation2(e,tp,eg,ep,ev,re,r,rp)
+	local tc=Duel.GetFirstTarget()
+	if tc:IsRelateToEffect(e) then
+		Duel.GetControl(tc,1-tp)
+	end
+end
\ No newline at end of file