251214 wd

expansions/lflist.conf

@@ -41,6 +41,30 @@
 130002004 0
 130002005 0
 #WILD, I say WILD, WAHAHA
+17339020 0
+17339100 0
+62501101 0
+62501106 0
+62501111 0
+62501116 0
+62501121 0
+62501126 0
+62501131 0
+62501136 0
+62501141 0
+62501146 0
+62501151 0
+62501156 0
+62501161 0
+62501166 0
+62501201 0
+62501171 0
+62501176 0
+62501181 0
+62501186 0
+92501191 0
+62501196 0
+62501201 0
 17338780 0
 17338790 0
 17338800 0

expansions/script/c17339020.lua

+--·莱茵哈鲁特·范·阿斯特雷亚·
+local s,id,o=GetID()
+function s.initial_effect(c)
+	c:EnableReviveLimit()
+
+	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(s.splimit)
+	c:RegisterEffect(e1)
+
+	local e2=Effect.CreateEffect(c)
+	e2:SetType(EFFECT_TYPE_FIELD)
+	e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
+	e2:SetCode(EFFECT_SPSUMMON_PROC)
+	e2:SetRange(LOCATION_HAND+LOCATION_GRAVE)
+	e2:SetCondition(s.sprcon)
+	e2:SetTarget(s.sprtg)
+	e2:SetOperation(s.sprop)
+	c:RegisterEffect(e2)
+
+	local e3=Effect.CreateEffect(c)
+	e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
+	e3:SetCode(EVENT_SPSUMMON)
+	e3:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
+	e3:SetOperation(s.spsumop)
+	c:RegisterEffect(e3)
+
+	local e4=Effect.CreateEffect(c)
+	e4:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+	e4:SetCode(EVENT_SPSUMMON_SUCCESS)
+	e4:SetRange(LOCATION_MZONE)
+	e4:SetCondition(s.wincon)
+	e4:SetOperation(s.winop)
+	c:RegisterEffect(e4)
+end
+
+function s.splimit(e,se,sp,st)
+	return bit.band(st,SUMMON_TYPE_SPECIAL)==SUMMON_TYPE_SPECIAL
+end
+
+function s.mfilter(c,exc)
+	return c:IsType(TYPE_MONSTER) and c:IsReleasable() and not c:IsCode(id)
+end
+
+function s.wcfilter(c)
+	return c:IsSetCard(0x5f52) and c:IsType(TYPE_MONSTER)
+end
+
+function s.sprcon(e,c)
+	if c==nil then return true end
+	local tp=c:GetControler()
+
+	local ct2=Duel.GetFlagEffect(tp,17337900)
+	local required=12
+	if ct2>0 then
+		if ct2>11 then ct2=11 end 
+		required=required-ct2
+		if required<1 then required=1 end
+	end
+
+	local mg=Duel.GetMatchingGroup(s.mfilter,tp,LOCATION_HAND+LOCATION_MZONE,0,nil,nil)
+	if #mg<required then return false end
+
+	local wmg=mg:Filter(s.wcfilter,nil)
+	if #wmg==0 then return false end
+
+	local function check(g)
+		return g:GetCount()==required and g:IsExists(s.wcfilter,1,nil)
+	end
+	
+	return mg:CheckSubGroup(check,required,required)
+end
+
+function s.sprtg(e,tp,eg,ep,ev,re,r,rp,chk,c)
+	local required=12
+	local ct2=Duel.GetFlagEffect(tp,17337900)
+	if ct2>0 then
+		if ct2>11 then ct2=11 end
+		required=required-ct2
+		if required<1 then required=1 end
+	end
+	
+	local mg=Duel.GetMatchingGroup(s.mfilter,tp,LOCATION_HAND+LOCATION_MZONE,0,nil,nil)
+	local g=Group.CreateGroup()
+
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RELEASE)
+	local sg=mg:SelectSubGroup(tp,function(g)
+		return g:GetCount()==required and g:IsExists(s.wcfilter,1,nil)
+	end,true,required,required)
+	
+	if sg then
+		g:Merge(sg)
+		g:KeepAlive()
+		e:SetLabelObject(g)
+		return true
+	else
+		return false
+	end
+end
+
+function s.sprop(e,tp,eg,ep,ev,re,r,rp,c)
+	local g=e:GetLabelObject()
+	if not g then return end
+	Duel.Release(g,REASON_COST)
+	g:DeleteGroup()
+end
+
+function s.spsumop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	if c:IsSummonType(SUMMON_TYPE_SPECIAL) then
+		local e1=Effect.CreateEffect(c)
+		e1:SetType(EFFECT_TYPE_SINGLE)
+		e1:SetCode(EFFECT_CANNOT_DISABLE_SPSUMMON)
+		e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
+		e1:SetReset(RESET_EVENT+RESETS_STANDARD)
+		c:RegisterEffect(e1)
+	end
+end
+
+function s.wincon(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	return c:IsSummonType(SUMMON_TYPE_SPECIAL) and c:IsSummonPlayer(tp)
+end
+
+function s.winop(e,tp,eg,ep,ev,re,r,rp)
+	Duel.Win(tp,0xf7) 
+end
\ No newline at end of file

expansions/script/c62501101.lua

+--团团圆圆 黄色团子
+function c62501101.initial_effect(c)
+	--tango spsummon
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(62501101,0))
+	e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
+	e1:SetType(EFFECT_TYPE_IGNITION)
+	e1:SetRange(LOCATION_HAND)
+	e1:SetCountLimit(1,62501101)
+	e1:SetCost(c62501101.spcost)
+	e1:SetTarget(c62501101.sptg)
+	e1:SetOperation(c62501101.spop)
+	c:RegisterEffect(e1)
+	--to hand
+	local e2=Effect.CreateEffect(c)
+	e2:SetCategory(CATEGORY_SEARCH+CATEGORY_TOHAND)
+	e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+	e2:SetCode(EVENT_SUMMON_SUCCESS)
+	e2:SetProperty(EFFECT_FLAG_DELAY)
+	e2:SetCountLimit(1,62501101+1)
+	e2:SetTarget(c62501101.thtg)
+	e2:SetOperation(c62501101.thop)
+	c:RegisterEffect(e2)
+	local e3=e2:Clone()
+	e3:SetCode(EVENT_SPSUMMON_SUCCESS)
+	c:RegisterEffect(e3)
+	--tango remove
+	local e0=Effect.CreateEffect(c)
+	e0:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
+	e0:SetCode(EVENT_TO_GRAVE)
+	e0:SetOperation(c62501101.regop)
+	c:RegisterEffect(e0)
+end
+function c62501101.costfilter(c)
+	return (c:IsLevel(1) or c:IsRank(1) or c:IsLink(1)) and c:IsAbleToGraveAsCost()
+end
+function c62501101.spcost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(c62501101.costfilter,tp,LOCATION_EXTRA,0,1,nil) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
+	local g=Duel.SelectMatchingCard(tp,c62501101.costfilter,tp,LOCATION_EXTRA,0,1,1,nil)
+	Duel.SendtoGrave(g,REASON_COST)
+end
+function c62501101.sptg(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 c62501101.spop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	if c:IsRelateToEffect(e) then
+		Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)
+	end
+end
+function c62501101.thfilter(c,chk)
+	return c:IsSetCard(0xea1) and c:IsAbleToHand() and (chk==0 or aux.NecroValleyFilter()(c))
+end
+function c62501101.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(c62501101.thfilter,tp,LOCATION_DECK,0,1,nil,0) end
+	Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
+end
+function c62501101.thop(e,tp,eg,ep,ev,re,r,rp)
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
+	local tc=Duel.SelectMatchingCard(tp,c62501101.thfilter,tp,LOCATION_DECK,0,1,1,nil,1):GetFirst()
+	if tc then
+		Duel.SendtoHand(tc,nil,REASON_EFFECT)
+		Duel.ConfirmCards(1-tp,tc)
+	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(c62501101.splimit)
+	e1:SetReset(RESET_PHASE+PHASE_END)
+	Duel.RegisterEffect(e1,tp)
+end
+function c62501101.splimit(e,c)
+	return not (c:IsLevel(1) or c:IsRank(1) or c:IsLink(1))
+end
+function c62501101.regop(e,tp,eg,ep,ev,re,r,rp)
+	Duel.Remove(e:GetHandler(),POS_FACEUP,REASON_EFFECT)
+end

expansions/script/c62501106.lua

+--团团圆圆 红色团子
+function c62501106.initial_effect(c)
+	--spsummon rule
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(62501106,0))
+	e1:SetType(EFFECT_TYPE_FIELD)
+	e1:SetCode(EFFECT_SPSUMMON_PROC)
+	e1:SetProperty(EFFECT_FLAG_UNCOPYABLE)
+	e1:SetRange(LOCATION_HAND)
+	e1:SetCountLimit(1,62501106+EFFECT_COUNT_CODE_OATH)
+	e1:SetCondition(c62501106.sprcon)
+	c:RegisterEffect(e1)
+	--spsummon
+	local e2=Effect.CreateEffect(c)
+	e2:SetCategory(CATEGORY_SPECIAL_SUMMON)
+	e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+	e2:SetCode(EVENT_SUMMON_SUCCESS)
+	e2:SetProperty(EFFECT_FLAG_DELAY)
+	e2:SetCountLimit(1,62501106)
+	e2:SetTarget(c62501106.sptg)
+	e2:SetOperation(c62501106.spop)
+	c:RegisterEffect(e2)
+	local e3=e2:Clone()
+	e3:SetCode(EVENT_SPSUMMON_SUCCESS)
+	c:RegisterEffect(e3)
+	--tango remove
+	local e0=Effect.CreateEffect(c)
+	e0:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
+	e0:SetCode(EVENT_TO_GRAVE)
+	e0:SetOperation(c62501106.regop)
+	c:RegisterEffect(e0)
+end
+function c62501106.cfilter(c)
+	return (c:IsLevel(1) or c:IsRank(1) or c:IsLink(1)) and c:IsFaceup()
+end
+function c62501106.sprcon(e,c)
+	if c==nil then return true end
+	return Duel.GetLocationCount(c:GetControler(),LOCATION_MZONE)>0
+		and Duel.IsExistingMatchingCard(c62501106.cfilter,c:GetControler(),LOCATION_MZONE,0,1,nil)
+end
+function c62501106.spfilter(c,e,tp,chk)
+	return c:IsSetCard(0xea1) and c:IsFaceup() and c:IsCanBeSpecialSummoned(e,0,tp,false,false) and (chk==0 or aux.NecroValleyFilter()(c))-- and Duel.GetLocationCountFromEx(tp,tp,nil,c)>0
+end
+function c62501106.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.GetMZoneCount(tp)>0
+		and Duel.IsExistingMatchingCard(c62501106.spfilter,tp,LOCATION_REMOVED,0,1,nil,e,tp,0)
+	end
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_REMOVED)
+end
+function c62501106.spop(e,tp,eg,ep,ev,re,r,rp)
+	if Duel.GetMZoneCount(tp)>0 then
+		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
+		local sc=Duel.SelectMatchingCard(tp,c62501106.spfilter,tp,LOCATION_REMOVED,0,1,1,nil,e,tp,1):GetFirst()
+		if sc then
+			Duel.SpecialSummon(sc,0,tp,tp,false,false,POS_FACEUP)
+		end
+	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(c62501106.splimit)
+	e1:SetReset(RESET_PHASE+PHASE_END)
+	Duel.RegisterEffect(e1,tp)
+end
+function c62501106.splimit(e,c)
+	return not (c:IsLevel(1) or c:IsRank(1) or c:IsLink(1))
+end
+function c62501106.regop(e,tp,eg,ep,ev,re,r,rp)
+	Duel.Remove(e:GetHandler(),POS_FACEUP,REASON_EFFECT)
+end

expansions/script/c62501111.lua

+--团团圆圆 蓝色团子
+function c62501111.initial_effect(c)
+	--spsummon rule
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(62501111,0))
+	e1:SetType(EFFECT_TYPE_FIELD)
+	e1:SetCode(EFFECT_SPSUMMON_PROC)
+	e1:SetProperty(EFFECT_FLAG_UNCOPYABLE)
+	e1:SetRange(LOCATION_HAND)
+	e1:SetCountLimit(1,62501111+EFFECT_COUNT_CODE_OATH)
+	e1:SetCondition(c62501111.sprcon)
+	c:RegisterEffect(e1)
+	--spsummon
+	local e2=Effect.CreateEffect(c)
+	e2:SetCategory(CATEGORY_SPECIAL_SUMMON)
+	e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+	e2:SetCode(EVENT_SUMMON_SUCCESS)
+	e2:SetProperty(EFFECT_FLAG_DELAY)
+	e2:SetCountLimit(1,62501111)
+	e2:SetTarget(c62501111.sptg)
+	e2:SetOperation(c62501111.spop)
+	c:RegisterEffect(e2)
+	local e3=e2:Clone()
+	e3:SetCode(EVENT_SPSUMMON_SUCCESS)
+	c:RegisterEffect(e3)
+	--tango remove
+	local e0=Effect.CreateEffect(c)
+	e0:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
+	e0:SetCode(EVENT_TO_GRAVE)
+	e0:SetOperation(c62501111.regop)
+	c:RegisterEffect(e0)
+end
+function c62501111.cfilter(c)
+	return (c:IsLevel(1) or c:IsRank(1) or c:IsLink(1)) and c:IsFaceup()
+end
+function c62501111.sprcon(e,c)
+	if c==nil then return true end
+	return Duel.GetLocationCount(c:GetControler(),LOCATION_MZONE)>0
+		and Duel.IsExistingMatchingCard(c62501111.cfilter,c:GetControler(),LOCATION_MZONE,0,1,nil)
+end
+function c62501111.spfilter(c,e,tp,chk)
+	return c:IsSetCard(0xea1) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) and (chk==0 or aux.NecroValleyFilter()(c))-- and Duel.GetLocationCountFromEx(tp,tp,nil,c)>0
+end
+function c62501111.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.GetMZoneCount(tp)>0
+		and Duel.IsExistingMatchingCard(c62501111.spfilter,tp,LOCATION_HAND,0,1,nil,e,tp,0)
+	end
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND)
+end
+function c62501111.spop(e,tp,eg,ep,ev,re,r,rp)
+	if Duel.GetMZoneCount(tp)>0 then
+		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
+		local sc=Duel.SelectMatchingCard(tp,c62501111.spfilter,tp,LOCATION_HAND,0,1,1,nil,e,tp,1):GetFirst()
+		if sc then
+			Duel.SpecialSummon(sc,0,tp,tp,false,false,POS_FACEUP)
+		end
+	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(c62501111.splimit)
+	e1:SetReset(RESET_PHASE+PHASE_END)
+	Duel.RegisterEffect(e1,tp)
+end
+function c62501111.splimit(e,c)
+	return not (c:IsLevel(1) or c:IsRank(1) or c:IsLink(1))
+end
+function c62501111.regop(e,tp,eg,ep,ev,re,r,rp)
+	Duel.Remove(e:GetHandler(),POS_FACEUP,REASON_EFFECT)
+end

expansions/script/c62501116.lua

+--团团圆圆 紫色团子
+function c62501116.initial_effect(c)
+	--spsummon
+	local e1=Effect.CreateEffect(c)
+	e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
+	e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+	e1:SetCode(EVENT_REMOVE)
+	e1:SetProperty(EFFECT_FLAG_DELAY+EFFECT_FLAG_DAMAGE_STEP)
+	e1:SetCountLimit(1,62501116)
+	e1:SetCost(c62501116.spcost)
+	e1:SetTarget(c62501116.sptg)
+	e1:SetOperation(c62501116.spop)
+	c:RegisterEffect(e1)
+	--tango remove
+	local e0=Effect.CreateEffect(c)
+	e0:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
+	e0:SetCode(EVENT_TO_GRAVE)
+	e0:SetOperation(c62501116.regop)
+	c:RegisterEffect(e0)
+end
+function c62501116.cfilter(c)
+	return c:IsSetCard(0xea1) and c:IsFaceupEx() and c:GetTextAttack()>0 and c:IsAbleToDeckOrExtraAsCost()
+end
+function c62501116.gcheck(g,e,tp)
+	local atk=g:GetSum(Card.GetTextAttack)
+	return Duel.IsExistingMatchingCard(c62501116.spfilter,tp,LOCATION_EXTRA+LOCATION_REMOVED,0,1,g,e,tp,atk)
+end
+function c62501116.spfilter(c,e,tp,atk)
+	return c:IsSetCard(0xea1) and c:IsType(TYPE_FUSION) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) and c:IsAttack(atk) and (c:IsLocation(LOCATION_REMOVED) and c:IsFaceup() and Duel.GetMZoneCount(tp)>0 or c:IsLocation(LOCATION_EXTRA) and Duel.GetLocationCountFromEx(tp,tp,nil,c)>0)
+end
+function c62501116.spcost(e,tp,eg,ep,ev,re,r,rp,chk)
+	local g=Duel.GetMatchingGroup(c62501116.cfilter,tp,LOCATION_MZONE+LOCATION_GRAVE+LOCATION_REMOVED,0,nil)
+	if chk==0 then return g:CheckSubGroup(c62501116.gcheck,1,#g,e,tp) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK)
+	local sg=g:SelectSubGroup(tp,c62501116.gcheck,false,1,#g,e,tp)
+	Duel.HintSelection(sg)
+	e:SetLabel(sg:GetSum(Card.GetTextAttack))
+	Duel.SendtoDeck(sg,nil,SEQ_DECKSHUFFLE,REASON_COST)
+end
+function c62501116.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return true end
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA+LOCATION_REMOVED)
+end
+function c62501116.spop(e,tp,eg,ep,ev,re,r,rp)
+	local atk=e:GetLabel()
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
+	local sc=Duel.SelectMatchingCard(tp,c62501116.spfilter,tp,LOCATION_EXTRA+LOCATION_REMOVED,0,1,1,nil,e,tp,atk):GetFirst()
+	if sc then
+		Duel.SpecialSummon(sc,0,tp,tp,false,false,POS_FACEUP)
+	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(c62501116.splimit)
+	e1:SetReset(RESET_PHASE+PHASE_END)
+	Duel.RegisterEffect(e1,tp)
+end
+function c62501116.splimit(e,c)
+	return not (c:IsLevel(1) or c:IsRank(1) or c:IsLink(1))
+end
+function c62501116.regop(e,tp,eg,ep,ev,re,r,rp)
+	Duel.Remove(e:GetHandler(),POS_FACEUP,REASON_EFFECT)
+end

expansions/script/c62501121.lua

+--团团圆圆 白色团子
+function c62501121.initial_effect(c)
+	--spsummon
+	local e1=Effect.CreateEffect(c)
+	e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
+	e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+	e1:SetCode(EVENT_REMOVE)
+	e1:SetProperty(EFFECT_FLAG_DELAY+EFFECT_FLAG_DAMAGE_STEP)
+	e1:SetCountLimit(1,62501121)
+	e1:SetCost(c62501121.spcost)
+	e1:SetTarget(c62501121.sptg)
+	e1:SetOperation(c62501121.spop)
+	c:RegisterEffect(e1)
+	--tango remove
+	local e0=Effect.CreateEffect(c)
+	e0:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
+	e0:SetCode(EVENT_TO_GRAVE)
+	e0:SetOperation(c62501121.regop)
+	c:RegisterEffect(e0)
+end
+function c62501121.cfilter(c)
+	return c:IsSetCard(0xea1) and c:IsFaceupEx() and c:GetTextAttack()>0 and c:IsAbleToDeckOrExtraAsCost()
+end
+function c62501121.gcheck(g,e,tp)
+	local atk=g:GetSum(Card.GetTextAttack)
+	return Duel.IsExistingMatchingCard(c62501121.spfilter,tp,LOCATION_EXTRA+LOCATION_REMOVED,0,1,g,e,tp,atk)
+end
+function c62501121.spfilter(c,e,tp,atk)
+	return c:IsSetCard(0xea1) and c:IsType(TYPE_SYNCHRO) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) and c:IsAttack(atk) and (c:IsLocation(LOCATION_REMOVED) and c:IsFaceup() and Duel.GetMZoneCount(tp)>0 or c:IsLocation(LOCATION_EXTRA) and Duel.GetLocationCountFromEx(tp,tp,nil,c)>0)
+end
+function c62501121.spcost(e,tp,eg,ep,ev,re,r,rp,chk)
+	local g=Duel.GetMatchingGroup(c62501121.cfilter,tp,LOCATION_MZONE+LOCATION_GRAVE+LOCATION_REMOVED,0,nil)
+	if chk==0 then return g:CheckSubGroup(c62501121.gcheck,1,#g,e,tp) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK)
+	local sg=g:SelectSubGroup(tp,c62501121.gcheck,false,1,#g,e,tp)
+	Duel.HintSelection(sg)
+	e:SetLabel(sg:GetSum(Card.GetTextAttack))
+	Duel.SendtoDeck(sg,nil,SEQ_DECKSHUFFLE,REASON_COST)
+end
+function c62501121.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return true end
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA+LOCATION_REMOVED)
+end
+function c62501121.spop(e,tp,eg,ep,ev,re,r,rp)
+	local atk=e:GetLabel()
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
+	local sc=Duel.SelectMatchingCard(tp,c62501121.spfilter,tp,LOCATION_EXTRA+LOCATION_REMOVED,0,1,1,nil,e,tp,atk):GetFirst()
+	if sc then
+		Duel.SpecialSummon(sc,0,tp,tp,false,false,POS_FACEUP)
+	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(c62501121.splimit)
+	e1:SetReset(RESET_PHASE+PHASE_END)
+	Duel.RegisterEffect(e1,tp)
+end
+function c62501121.splimit(e,c)
+	return not (c:IsLevel(1) or c:IsRank(1) or c:IsLink(1))
+end
+function c62501121.regop(e,tp,eg,ep,ev,re,r,rp)
+	Duel.Remove(e:GetHandler(),POS_FACEUP,REASON_EFFECT)
+end

expansions/script/c62501126.lua

+--团团圆圆 黑色团子
+function c62501126.initial_effect(c)
+	--spsummon
+	local e1=Effect.CreateEffect(c)
+	e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
+	e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+	e1:SetCode(EVENT_REMOVE)
+	e1:SetProperty(EFFECT_FLAG_DELAY+EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DAMAGE_STEP)
+	e1:SetCountLimit(1,62501126)
+	e1:SetTarget(c62501126.sptg)
+	e1:SetOperation(c62501126.spop)
+	c:RegisterEffect(e1)
+	--tango remove
+	local e0=Effect.CreateEffect(c)
+	e0:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
+	e0:SetCode(EVENT_TO_GRAVE)
+	e0:SetOperation(c62501126.regop)
+	c:RegisterEffect(e0)
+end
+function c62501126.cfilter(c,e)
+	return c:IsSetCard(0xea1) and c:IsFaceupEx() and c:GetTextAttack()>0 and c:IsCanOverlay() and c:IsCanBeEffectTarget(e)
+end
+function c62501126.gcheck(g,e,tp)
+	local atk=g:GetSum(Card.GetTextAttack)
+	return Duel.IsExistingMatchingCard(c62501126.spfilter,tp,LOCATION_EXTRA+LOCATION_REMOVED,0,1,g,e,tp,atk)
+end
+function c62501126.spfilter(c,e,tp,atk)
+	return c:IsSetCard(0xea1) and c:IsType(TYPE_XYZ) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) and c:IsAttack(atk) and (c:IsLocation(LOCATION_REMOVED) and c:IsFaceup() and Duel.GetMZoneCount(tp)>0 or c:IsLocation(LOCATION_EXTRA) and Duel.GetLocationCountFromEx(tp,tp,nil,c)>0)
+end
+function c62501126.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	local g=Duel.GetMatchingGroup(c62501126.cfilter,tp,LOCATION_MZONE+LOCATION_GRAVE+LOCATION_REMOVED,0,nil,e)
+	if chk==0 then return g:CheckSubGroup(c62501126.gcheck,1,#g,e,tp) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_XMATERIAL)
+	local sg=g:SelectSubGroup(tp,c62501126.gcheck,false,1,#g,e,tp)
+	Duel.HintSelection(sg)
+	Duel.SetTargetCard(sg)
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA+LOCATION_REMOVED)
+end
+function c62501126.spop(e,tp,eg,ep,ev,re,r,rp)
+	local g=Duel.GetTargetsRelateToChain()
+	if #g~=0 then
+		local atk=g:GetSum(Card.GetTextAttack)
+		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
+		local sc=Duel.SelectMatchingCard(tp,c62501126.spfilter,tp,LOCATION_EXTRA+LOCATION_REMOVED,0,1,1,nil,e,tp,atk):GetFirst()
+		if sc then
+			Duel.SpecialSummon(sc,0,tp,tp,false,false,POS_FACEUP)
+			Duel.Overlay(sc,g)
+		end
+	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(c62501126.splimit)
+	e1:SetReset(RESET_PHASE+PHASE_END)
+	Duel.RegisterEffect(e1,tp)
+end
+function c62501126.splimit(e,c)
+	return not (c:IsLevel(1) or c:IsRank(1) or c:IsLink(1))
+end
+function c62501126.regop(e,tp,eg,ep,ev,re,r,rp)
+	Duel.Remove(e:GetHandler(),POS_FACEUP,REASON_EFFECT)
+end

expansions/script/c62501131.lua

+--团团圆圆 青色团子
+function c62501131.initial_effect(c)
+	--spsummon
+	local e1=Effect.CreateEffect(c)
+	e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
+	e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+	e1:SetCode(EVENT_REMOVE)
+	e1:SetProperty(EFFECT_FLAG_DELAY+EFFECT_FLAG_DAMAGE_STEP)
+	e1:SetCountLimit(1,62501131)
+	e1:SetCost(c62501131.spcost)
+	e1:SetTarget(c62501131.sptg)
+	e1:SetOperation(c62501131.spop)
+	c:RegisterEffect(e1)
+	--tango remove
+	local e0=Effect.CreateEffect(c)
+	e0:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
+	e0:SetCode(EVENT_TO_GRAVE)
+	e0:SetOperation(c62501131.regop)
+	c:RegisterEffect(e0)
+end
+function c62501131.cfilter(c)
+	return c:IsSetCard(0xea1) and c:IsFaceupEx() and c:GetTextAttack()>0 and c:IsAbleToDeckOrExtraAsCost()
+end
+function c62501131.gcheck(g,e,tp)
+	local atk=g:GetSum(Card.GetTextAttack)
+	return Duel.IsExistingMatchingCard(c62501131.spfilter,tp,LOCATION_DECK+LOCATION_EXTRA+LOCATION_REMOVED,0,1,g,e,tp,atk)
+end
+function c62501131.spfilter(c,e,tp,atk)
+	return c:IsSetCard(0xea1) and c:IsType(TYPE_RITUAL) and c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_RITUAL,tp,false,true) and c:IsFaceupEx() and c:IsAttack(atk) and (c:IsLocation(LOCATION_DECK+LOCATION_REMOVED) and Duel.GetMZoneCount(tp)>0 or c:IsLocation(LOCATION_EXTRA) and Duel.GetLocationCountFromEx(tp,tp,nil,c)>0)
+end
+function c62501131.spcost(e,tp,eg,ep,ev,re,r,rp,chk)
+	local g=Duel.GetMatchingGroup(c62501131.cfilter,tp,LOCATION_MZONE+LOCATION_GRAVE+LOCATION_REMOVED,0,nil)
+	if chk==0 then return g:CheckSubGroup(c62501131.gcheck,1,#g,e,tp) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK)
+	local sg=g:SelectSubGroup(tp,c62501131.gcheck,false,1,#g,e,tp)
+	Duel.HintSelection(sg)
+	e:SetLabel(sg:GetSum(Card.GetTextAttack))
+	Duel.SendtoDeck(sg,nil,SEQ_DECKSHUFFLE,REASON_COST)
+end
+function c62501131.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return true end
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK+LOCATION_EXTRA+LOCATION_REMOVED)
+end
+function c62501131.spop(e,tp,eg,ep,ev,re,r,rp)
+	local atk=e:GetLabel()
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
+	local sc=Duel.SelectMatchingCard(tp,c62501131.spfilter,tp,LOCATION_DECK+LOCATION_EXTRA+LOCATION_REMOVED,0,1,1,nil,e,tp,atk):GetFirst()
+	if sc then
+		sc:SetMaterial(nil)
+		Duel.SpecialSummon(sc,SUMMON_TYPE_RITUAL,tp,tp,false,true,POS_FACEUP)
+		sc:CompleteProcedure()
+	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(c62501131.splimit)
+	e1:SetReset(RESET_PHASE+PHASE_END)
+	Duel.RegisterEffect(e1,tp)
+end
+function c62501131.splimit(e,c)
+	return not (c:IsLevel(1) or c:IsRank(1) or c:IsLink(1))
+end
+function c62501131.regop(e,tp,eg,ep,ev,re,r,rp)
+	Duel.Remove(e:GetHandler(),POS_FACEUP,REASON_EFFECT)
+end

expansions/script/c62501136.lua

+--团团圆圆 粉色团子
+function c62501136.initial_effect(c)
+	--to grave and spsummon
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(62501136,0))
+	e1:SetCategory(CATEGORY_TOGRAVE+CATEGORY_SPECIAL_SUMMON)
+	e1:SetType(EFFECT_TYPE_IGNITION)
+	e1:SetRange(LOCATION_HAND)
+	e1:SetCountLimit(1,62501136)
+	e1:SetCost(c62501136.tgcost)
+	e1:SetTarget(c62501136.tgtg)
+	e1:SetOperation(c62501136.tgop)
+	c:RegisterEffect(e1)
+	--remove
+	local e2=Effect.CreateEffect(c)
+	e2:SetCategory(CATEGORY_REMOVE)
+	e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+	e2:SetCode(EVENT_REMOVE)
+	e2:SetProperty(EFFECT_FLAG_DELAY)
+	e2:SetCountLimit(1,62501136+1)
+	e2:SetTarget(c62501136.rmtg)
+	e2:SetOperation(c62501136.rmop)
+	c:RegisterEffect(e2)
+	--tango remove
+	local e0=Effect.CreateEffect(c)
+	e0:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
+	e0:SetCode(EVENT_TO_GRAVE)
+	e0:SetOperation(c62501136.regop)
+	c:RegisterEffect(e0)
+end
+function c62501136.costfilter(c,ec,e,tp)
+	if not c:IsSetCard(0xea1) or not c:IsType(TYPE_MONSTER) or c:IsPublic() then return false end
+	local g=Group.FromCards(c,ec)
+	return g:IsExists(c62501136.gcheck,1,nil,g,e,tp)
+end
+function c62501136.gcheck(c,g,e,tp)
+	return c:IsCanBeSpecialSummoned(e,0,tp,false,false) and g:IsExists(Card.IsAbleToGrave,1,c)
+end
+function c62501136.tgcost(e,tp,eg,ep,ev,re,r,rp,chk)
+	local c=e:GetHandler()
+	if chk==0 then return Duel.IsExistingMatchingCard(c62501136.costfilter,tp,LOCATION_HAND,0,1,c,c,e,tp) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_CONFIRM)
+	local sc=Duel.SelectMatchingCard(tp,c62501136.costfilter,tp,LOCATION_HAND,0,1,1,c,c,e,tp):GetFirst()
+	Duel.ConfirmCards(1-tp,sc)
+	Duel.ShuffleHand(tp)
+	sc:CreateEffectRelation(e)
+	e:SetLabelObject(sc)
+end
+function c62501136.tgtg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 end
+	Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,nil,1,tp,LOCATION_HAND)
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND)
+end
+function c62501136.tgop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	local sc=e:GetLabelObject()
+	local g=Group.FromCards(c,sc)
+	local fg=g:Filter(Card.IsRelateToEffect,nil,e)
+	if fg:GetCount()~=2 then return end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
+	local sg=fg:FilterSelect(tp,c62501136.gcheck,1,1,nil,fg,e,tp)
+	if #sg>0 and Duel.SpecialSummon(sg,0,tp,tp,false,false,POS_FACEUP)>0 then
+		Duel.SendtoGrave(g-sg,REASON_EFFECT)
+	end
+end
+function c62501136.rmfilter(c)
+	return c:IsSetCard(0xea1) and c:IsType(TYPE_MONSTER) and c:IsAbleToRemove()
+end
+function c62501136.rmtg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(c62501136.rmfilter,tp,LOCATION_DECK,0,1,nil) end
+	Duel.SetOperationInfo(0,CATEGORY_REMOVE,nil,1,tp,LOCATION_DECK)
+end
+function c62501136.rmop(e,tp,eg,ep,ev,re,r,rp)
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
+	local rg=Duel.SelectMatchingCard(tp,c62501136.rmfilter,tp,LOCATION_DECK,0,1,1,nil)
+	if rg:GetCount()>0 then
+		Duel.Remove(rg,POS_FACEUP,REASON_EFFECT)
+	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(c62501136.splimit)
+	e1:SetReset(RESET_PHASE+PHASE_END)
+	Duel.RegisterEffect(e1,tp)
+end
+function c62501136.splimit(e,c)
+	return not (c:IsLevel(1) or c:IsRank(1) or c:IsLink(1))
+end
+function c62501136.regop(e,tp,eg,ep,ev,re,r,rp)
+	Duel.Remove(e:GetHandler(),POS_FACEUP,REASON_EFFECT)
+end

expansions/script/c62501141.lua

+--团团圆圆 灰色团子
+function c62501141.initial_effect(c)
+	--tango spsummon
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(62501141,0))
+	e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
+	e1:SetType(EFFECT_TYPE_IGNITION)
+	e1:SetRange(LOCATION_HAND)
+	e1:SetCountLimit(1,62501141)
+	e1:SetCost(c62501141.spcost)
+	e1:SetTarget(c62501141.sptg)
+	e1:SetOperation(c62501141.spop)
+	c:RegisterEffect(e1)
+	--to hand
+	local e2=Effect.CreateEffect(c)
+	e2:SetCategory(CATEGORY_TOHAND)
+	e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+	e2:SetCode(EVENT_REMOVE)
+	e2:SetProperty(EFFECT_FLAG_DELAY)
+	e2:SetCountLimit(1,62501141+1)
+	e2:SetTarget(c62501141.thtg)
+	e2:SetOperation(c62501141.thop)
+	c:RegisterEffect(e2)
+	--tango remove
+	local e0=Effect.CreateEffect(c)
+	e0:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
+	e0:SetCode(EVENT_TO_GRAVE)
+	e0:SetOperation(c62501141.regop)
+	c:RegisterEffect(e0)
+end
+function c62501141.costfilter(c,tp)
+	return c:IsAbleToGraveAsCost() and Duel.GetMZoneCount(tp,c)>0
+end
+function c62501141.spcost(e,tp,eg,ep,ev,re,r,rp,chk)
+	local c=e:GetHandler()
+	if chk==0 then return Duel.IsExistingMatchingCard(c62501141.costfilter,tp,LOCATION_ONFIELD+LOCATION_HAND,0,1,c,tp) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
+	local g=Duel.SelectMatchingCard(tp,c62501141.costfilter,tp,LOCATION_ONFIELD+LOCATION_HAND,0,1,1,c,tp)
+	Duel.SendtoGrave(g,REASON_COST)
+end
+function c62501141.sptg(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 c62501141.spop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	if c:IsRelateToEffect(e) then
+		Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)
+	end
+end
+function c62501141.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(Card.IsAbleToHand,tp,0,LOCATION_ONFIELD,1,nil) end
+	Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,1-tp,LOCATION_ONFIELD)
+end
+function c62501141.thop(e,tp,eg,ep,ev,re,r,rp)
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RTOHAND)
+	local g=Duel.SelectMatchingCard(tp,Card.IsAbleToHand,tp,0,LOCATION_ONFIELD,1,1,nil)
+	if g:GetCount()>0 then
+		Duel.HintSelection(g)
+		Duel.SendtoHand(g,nil,REASON_EFFECT)
+	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(c62501141.splimit)
+	e1:SetReset(RESET_PHASE+PHASE_END)
+	Duel.RegisterEffect(e1,tp)
+end
+function c62501141.splimit(e,c)
+	return not (c:IsLevel(1) or c:IsRank(1) or c:IsLink(1))
+end
+function c62501141.regop(e,tp,eg,ep,ev,re,r,rp)
+	Duel.Remove(e:GetHandler(),POS_FACEUP,REASON_EFFECT)
+end

expansions/script/c62501146.lua

+--团团圆圆 棕色团子
+function c62501146.initial_effect(c)
+	--dis attack
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(62501146,0))
+	e1:SetType(EFFECT_TYPE_QUICK_O)
+	e1:SetCode(EVENT_ATTACK_ANNOUNCE)
+	e1:SetRange(LOCATION_HAND)
+	e1:SetCountLimit(1,62501146)
+	e1:SetCondition(c62501146.discon)
+	e1:SetCost(c62501146.discost)
+	e1:SetOperation(c62501146.disop)
+	c:RegisterEffect(e1)
+	--spsummon
+	local e2=Effect.CreateEffect(c)
+	e2:SetDescription(aux.Stringid(62501146,0))
+	e2:SetCategory(CATEGORY_SPECIAL_SUMMON)
+	e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+	e2:SetCode(EVENT_REMOVE)
+	e2:SetProperty(EFFECT_FLAG_DELAY)
+	e2:SetCountLimit(1,62501146+1)
+	e2:SetTarget(c62501146.sptg)
+	e2:SetOperation(c62501146.spop)
+	c:RegisterEffect(e2)
+	--tango remove
+	local e0=Effect.CreateEffect(c)
+	e0:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
+	e0:SetCode(EVENT_TO_GRAVE)
+	e0:SetOperation(c62501146.regop)
+	c:RegisterEffect(e0)
+end
+function c62501146.discon(e,tp,eg,ep,ev,re,r,rp)
+	return Duel.GetAttacker():IsControler(1-tp)
+end
+function c62501146.discost(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 c62501146.disop(e,tp,eg,ep,ev,re,r,rp)
+	if Duel.NegateAttack() then
+		Duel.BreakEffect()
+		Duel.SkipPhase(1-tp,PHASE_BATTLE,RESET_PHASE+PHASE_BATTLE_STEP,1)
+	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(c62501146.splimit)
+	e1:SetReset(RESET_PHASE+PHASE_END,2)
+	Duel.RegisterEffect(e1,tp)
+end
+function c62501146.splimit(e,c)
+	return not (c:IsLevel(1) or c:IsRank(1) or c:IsLink(1))
+end
+function c62501146.sptg(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 c62501146.spop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	if c:IsRelateToEffect(e) then
+		Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)
+	end
+end
+function c62501146.regop(e,tp,eg,ep,ev,re,r,rp)
+	Duel.Remove(e:GetHandler(),POS_FACEUP,REASON_EFFECT)
+end

expansions/script/c62501151.lua

+--团团圆圆 橙色团子
+function c62501151.initial_effect(c)
+	--link summon
+	aux.AddLinkProcedure(c,aux.FilterBoolFunction(Card.IsLinkSetCard,0xea1),1,1)
+	c:EnableReviveLimit()
+	--splimit
+	local e0=Effect.CreateEffect(c)
+	e0:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
+	e0:SetCode(EVENT_SPSUMMON_SUCCESS)
+	e0:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
+	e0:SetCondition(c62501151.regcon)
+	e0:SetOperation(c62501151.regop)
+	c:RegisterEffect(e0)
+	--spsummon
+	local e1=Effect.CreateEffect(c)
+	e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
+	e1:SetType(EFFECT_TYPE_IGNITION)
+	e1:SetRange(LOCATION_MZONE)
+	e1:SetCountLimit(1,62501151)
+	e1:SetTarget(c62501151.sptg)
+	e1:SetOperation(c62501151.spop)
+	c:RegisterEffect(e1)
+	--tango remove
+	local e2=Effect.CreateEffect(c)
+	e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
+	e2:SetCode(EVENT_TO_GRAVE)
+	e2:SetOperation(c62501151.rmop)
+	c:RegisterEffect(e2)
+end
+function c62501151.regcon(e,tp,eg,ep,ev,re,r,rp)
+	return e:GetHandler():IsSummonType(SUMMON_TYPE_LINK)
+end
+function c62501151.regop(e,tp,eg,ep,ev,re,r,rp)
+	local e0=Effect.CreateEffect(e:GetHandler())
+	e0:SetType(EFFECT_TYPE_FIELD)
+	e0:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
+	e0:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
+	e0:SetTargetRange(1,0)
+	e0:SetTarget(c62501151.lklimit)
+	e0:SetReset(RESET_PHASE+PHASE_END)
+	Duel.RegisterEffect(e0,tp)
+end
+function c62501151.lklimit(e,c,sump,sumtype,sumpos,targetp,se)
+	return c:IsCode(62501151) and bit.band(sumtype,SUMMON_TYPE_LINK)==SUMMON_TYPE_LINK
+end
+function c62501151.spfilter(c,e,tp,chk)
+	return c:IsSetCard(0xea1) and c:IsFaceupEx() and c:IsCanBeSpecialSummoned(e,0,tp,false,false) and (chk==0 or aux.NecroValleyFilter()(c))-- and Duel.GetLocationCountFromEx(tp,tp,nil,c)>0
+end
+function c62501151.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.GetMZoneCount(tp)>0
+		and Duel.IsExistingMatchingCard(c62501151.spfilter,tp,LOCATION_DECK+LOCATION_REMOVED,0,1,nil,e,tp,0)
+	end
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK+LOCATION_REMOVED)
+end
+function c62501151.spop(e,tp,eg,ep,ev,re,r,rp)
+	if Duel.GetMZoneCount(tp)>0 then
+		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
+		local sc=Duel.SelectMatchingCard(tp,c62501151.spfilter,tp,LOCATION_DECK+LOCATION_REMOVED,0,1,1,nil,e,tp,1):GetFirst()
+		if sc then
+			Duel.SpecialSummon(sc,0,tp,tp,false,false,POS_FACEUP)
+		end
+	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(c62501151.splimit)
+	e1:SetReset(RESET_PHASE+PHASE_END)
+	Duel.RegisterEffect(e1,tp)
+end
+function c62501151.splimit(e,c)
+	return not (c:IsLevel(1) or c:IsRank(1) or c:IsLink(1))
+end
+function c62501151.rmop(e,tp,eg,ep,ev,re,r,rp)
+	Duel.Remove(e:GetHandler(),POS_FACEUP,REASON_EFFECT)
+end

expansions/script/c62501156.lua

+--团团圆圆 绿色团子
+function c62501156.initial_effect(c)
+	--link summon
+	aux.AddLinkProcedure(c,aux.FilterBoolFunction(Card.IsLinkSetCard,0xea1),1,1)
+	c:EnableReviveLimit()
+	--splimit
+	local e0=Effect.CreateEffect(c)
+	e0:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
+	e0:SetCode(EVENT_SPSUMMON_SUCCESS)
+	e0:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
+	e0:SetCondition(c62501156.regcon)
+	e0:SetOperation(c62501156.regop)
+	c:RegisterEffect(e0)
+	--to hand
+	local e1=Effect.CreateEffect(c)
+	e1:SetCategory(CATEGORY_SEARCH+CATEGORY_TOHAND)
+	e1:SetType(EFFECT_TYPE_IGNITION)
+	e1:SetRange(LOCATION_MZONE)
+	e1:SetCountLimit(1,62501156)
+	e1:SetTarget(c62501156.thtg)
+	e1:SetOperation(c62501156.thop)
+	c:RegisterEffect(e1)
+	--tango remove
+	local e2=Effect.CreateEffect(c)
+	e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
+	e2:SetCode(EVENT_TO_GRAVE)
+	e2:SetOperation(c62501101.rmop)
+	c:RegisterEffect(e2)
+end
+function c62501156.regcon(e,tp,eg,ep,ev,re,r,rp)
+	return e:GetHandler():IsSummonType(SUMMON_TYPE_LINK)
+end
+function c62501156.regop(e,tp,eg,ep,ev,re,r,rp)
+	local e0=Effect.CreateEffect(e:GetHandler())
+	e0:SetType(EFFECT_TYPE_FIELD)
+	e0:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
+	e0:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
+	e0:SetTargetRange(1,0)
+	e0:SetTarget(c62501156.lklimit)
+	e0:SetReset(RESET_PHASE+PHASE_END)
+	Duel.RegisterEffect(e0,tp)
+end
+function c62501156.lklimit(e,c,sump,sumtype,sumpos,targetp,se)
+	return c:IsCode(62501156) and bit.band(sumtype,SUMMON_TYPE_LINK)==SUMMON_TYPE_LINK
+end
+function c62501156.thfilter(c,chk)
+	return c:IsSetCard(0xea1) and c:IsType(TYPE_SPELL) and c:IsFaceupEx() and c:IsAbleToHand() and (chk==0 or aux.NecroValleyFilter()(c))
+end
+function c62501156.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(c62501156.thfilter,tp,LOCATION_DECK+LOCATION_REMOVED,0,1,nil,0) end
+	Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK+LOCATION_REMOVED)
+end
+function c62501156.thop(e,tp,eg,ep,ev,re,r,rp)
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
+	local tc=Duel.SelectMatchingCard(tp,c62501156.thfilter,tp,LOCATION_DECK+LOCATION_REMOVED,0,1,1,nil,1):GetFirst()
+	if tc then
+		Duel.SendtoHand(tc,nil,REASON_EFFECT)
+		Duel.ConfirmCards(1-tp,tc)
+	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(c62501101.splimit)
+	e1:SetReset(RESET_PHASE+PHASE_END)
+	Duel.RegisterEffect(e1,tp)
+end
+function c62501101.splimit(e,c)
+	return not (c:IsLevel(1) or c:IsRank(1) or c:IsLink(1))
+end
+function c62501101.rmop(e,tp,eg,ep,ev,re,r,rp)
+	Duel.Remove(e:GetHandler(),POS_FACEUP,REASON_EFFECT)
+end

expansions/script/c62501161.lua

+--团团圆圆 说说团子
+function c62501161.initial_effect(c)
+	--fusion material
+	aux.AddFusionProcFunRep(c,c62501161.ffilter,3,true)
+	aux.AddContactFusionProcedure(c,aux.FilterBoolFunction(Card.IsReleasable,REASON_SPSUMMON),LOCATION_MZONE,0,Duel.Release,REASON_SPSUMMON+REASON_MATERIAL)
+	c:EnableReviveLimit()
+	--spsummon condition
+	local e0=Effect.CreateEffect(c)
+	e0:SetType(EFFECT_TYPE_SINGLE)
+	e0:SetCode(EFFECT_SPSUMMON_CONDITION)
+	e0:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
+	e0:SetValue(c62501161.splimit)
+	c:RegisterEffect(e0)
+	--indes
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_FIELD)
+	e1:SetCode(EFFECT_INDESTRUCTABLE_BATTLE)
+	e1:SetRange(LOCATION_MZONE)
+	e1:SetTargetRange(LOCATION_MZONE,0)
+	e1:SetTarget(aux.TargetBoolFunction(Card.IsSetCard,0xea1))
+	e1:SetValue(1)
+	c:RegisterEffect(e1)
+	--reflect damage
+	local e2=Effect.CreateEffect(c)
+	e2:SetType(EFFECT_TYPE_FIELD)
+	e2:SetCode(EFFECT_REFLECT_DAMAGE)
+	e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
+	e2:SetRange(LOCATION_MZONE)
+	e2:SetTargetRange(1,0)
+	e2:SetValue(1)
+	c:RegisterEffect(e2)
+	--negate
+	local e3=Effect.CreateEffect(c)
+	e3:SetHintTiming(0,TIMINGS_CHECK_MONSTER)
+	e3:SetDescription(aux.Stringid(62501161,0))
+	e3:SetCategory(CATEGORY_DISABLE+CATEGORY_DESTROY)
+	e3:SetType(EFFECT_TYPE_QUICK_O)
+	e3:SetCode(EVENT_FREE_CHAIN)
+	e3:SetRange(LOCATION_MZONE)
+	e3:SetCountLimit(1,62501161)
+	e3:SetCondition(c62501161.discon)
+	e3:SetTarget(c62501161.distg)
+	e3:SetOperation(c62501161.disop)
+	c:RegisterEffect(e3)
+	--tango remove
+	local e4=Effect.CreateEffect(c)
+	e4:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
+	e4:SetCode(EVENT_TO_GRAVE)
+	e4:SetOperation(c62501161.rmop)
+	c:RegisterEffect(e4)
+end
+function c62501161.ffilter(c)
+	return c:IsLevel(1) or c:IsRank(1) or c:IsLink(1)
+end
+function c62501161.splimit(e,se,sp,st)
+	return not e:GetHandler():IsLocation(LOCATION_EXTRA) or se:GetHandler():IsSetCard(0xea1)
+end
+function c62501161.discon(e,tp,eg,ep,ev,re,r,rp)
+	local ph=Duel.GetCurrentPhase()
+	return ph==PHASE_MAIN1 or ph==PHASE_MAIN2--Duel.IsMainPhase()
+end
+function c62501161.distg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(aux.NegateAnyFilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) end
+	Duel.SetOperationInfo(0,CATEGORY_DISABLE,g,1,0,0)
+end
+function c62501161.disop(e,tp,eg,ep,ev,re,r,rp)
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DISABLE)
+	local tc=Duel.SelectMatchingCard(tp,aux.NegateAnyFilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil):GetFirst()
+	if not tc then return end
+	Duel.HintSelection(Group.FromCards(tc))
+	Duel.NegateRelatedChain(tc,RESET_TURN_SET)
+	local e1=Effect.CreateEffect(e:GetHandler())
+	e1:SetType(EFFECT_TYPE_SINGLE)
+	e1:SetCode(EFFECT_DISABLE)
+	e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
+	e1:SetReset(RESET_EVENT+RESETS_STANDARD)
+	tc:RegisterEffect(e1)
+	local e2=Effect.CreateEffect(e:GetHandler())
+	e2:SetType(EFFECT_TYPE_SINGLE)
+	e2:SetCode(EFFECT_DISABLE_EFFECT)
+	e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
+	e2:SetValue(RESET_TURN_SET)
+	e2:SetReset(RESET_EVENT+RESETS_STANDARD)
+	tc:RegisterEffect(e2)
+	if tc:IsType(TYPE_TRAPMONSTER) then
+		local e3=Effect.CreateEffect(e:GetHandler())
+		e3:SetType(EFFECT_TYPE_SINGLE)
+		e3:SetCode(EFFECT_DISABLE_TRAPMONSTER)
+		e3:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
+		e3:SetReset(RESET_EVENT+RESETS_STANDARD)
+		tc:RegisterEffect(e3)
+	end
+	if tc:IsImmuneToEffect(e) or not Duel.SelectYesNo(tp,aux.Stringid(62501161,2)) then return end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
+	local g=Duel.SelectMatchingCard(tp,nil,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil)
+	if #g~=0 then
+		Duel.BreakEffect()
+		Duel.HintSelection(g)
+		Duel.Destroy(g,REASON_EFFECT)
+	end
+end
+function c62501161.rmop(e,tp,eg,ep,ev,re,r,rp)
+	Duel.Remove(e:GetHandler(),POS_FACEUP,REASON_EFFECT)
+end

expansions/script/c62501166.lua

+--团团圆圆 蹦蹦团子
+function c62501166.initial_effect(c)
+	c:EnableReviveLimit()
+	--splimit
+	local e0=Effect.CreateEffect(c)
+	e0:SetType(EFFECT_TYPE_SINGLE)
+	e0:SetCode(EFFECT_SPSUMMON_CONDITION)
+	e0:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
+	e0:SetValue(c62501166.splimit)
+	c:RegisterEffect(e0)
+	--special summon rule
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_FIELD)
+	e1:SetCode(EFFECT_SPSUMMON_PROC)
+	e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
+	e1:SetRange(LOCATION_EXTRA)
+	e1:SetCondition(c62501166.sprcon)
+	e1:SetOperation(c62501166.sprop)
+	e1:SetValue(SUMMON_VALUE_SELF)
+	c:RegisterEffect(e1)
+	--destroy replace
+	local e2=Effect.CreateEffect(c)
+	e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+	e2:SetCode(EFFECT_DESTROY_REPLACE)
+	e2:SetRange(LOCATION_MZONE)
+	e2:SetTarget(c62501166.reptg)
+	e2:SetValue(c62501166.repval)
+	e2:SetOperation(c62501166.repop)
+	c:RegisterEffect(e2)
+	--tango remove
+	local e3=Effect.CreateEffect(c)
+	e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
+	e3:SetCode(EVENT_TO_GRAVE)
+	e3:SetOperation(c62501166.rmop)
+	c:RegisterEffect(e3)
+end
+function c62501166.splimit(e,se,sp,st)
+	return not e:GetHandler():IsLocation(LOCATION_EXTRA) or se:GetHandler():IsSetCard(0xea1)
+end
+function c62501166.sprfilter(c)
+	return (c:IsLevel(1) or c:IsRank(1) or c:IsLink(1)) and c:IsReleasable(REASON_SPSUMMON)
+end
+function c62501166.sprcheck(g,p)
+	return Duel.GetLocationCountFromEx(p,p,g,TYPE_SYNCHRO)>0 and g:FilterCount(Card.IsType,nil,TYPE_TUNER)==1
+end
+function c62501166.sprcon(e,c)
+	if c==nil then return true end
+	local tp=c:GetControler()
+	local g=Duel.GetMatchingGroup(c62501166.sprfilter,tp,LOCATION_MZONE,0,nil)
+	return g:CheckSubGroup(c62501166.sprcheck,3,3,tp)
+end
+function c62501166.sprop(e,tp,eg,ep,ev,re,r,rp,c)
+	local g=Duel.GetMatchingGroup(c62501166.sprfilter,tp,LOCATION_MZONE,0,nil)
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RELEASE)
+	local sg=g:SelectSubGroup(tp,c62501166.sprcheck,false,3,3,tp)
+	Duel.Release(sg,REASON_COST)
+end
+function c62501166.repfilter(c,tp)
+	return c:IsSetCard(0xea1) and c:IsLocation(LOCATION_MZONE) and c:IsControler(tp) and c:IsFaceup() and c:IsReason(REASON_EFFECT) and not c:IsReason(REASON_REPLACE)
+end
+function c62501166.tdfilter(c)
+	return (c:IsOnField() or c:IsSetCard(0xea1) and c:IsFaceup()) and c:IsAbleToDeck()
+end
+function c62501166.gcheck(g)
+	return g:FilterCount(Card.IsLocation,nil,LOCATION_REMOVED)==1
+end
+function c62501166.reptg(e,tp,eg,ep,ev,re,r,rp,chk)
+	local g=Duel.GetMatchingGroup(c62501166.tdfilter,tp,LOCATION_ONFIELD+LOCATION_REMOVED,LOCATION_ONFIELD,eg)
+	if chk==0 then return g:CheckSubGroup(c62501166.gcheck,2,3) and eg:IsExists(c62501166.repfilter,1,nil,tp) end
+	return Duel.SelectEffectYesNo(tp,e:GetHandler(),96)
+end
+function c62501166.repval(e,c)
+	return c62501166.repfilter(c,e:GetHandlerPlayer())
+end
+function c62501166.repop(e,tp,eg,ep,ev,re,r,rp)
+	local g=Duel.GetMatchingGroup(c62501166.tdfilter,tp,LOCATION_ONFIELD+LOCATION_REMOVED,LOCATION_ONFIELD,eg)
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK)
+	local sg=g:SelectSubGroup(tp,c62501166.gcheck,false,2,3)
+	Duel.SendtoDeck(sg,nil,SEQ_DECKSHUFFLE,REASON_EFFECT)
+end
+function c62501166.rmop(e,tp,eg,ep,ev,re,r,rp)
+	Duel.Remove(e:GetHandler(),POS_FACEUP,REASON_EFFECT)
+end

expansions/script/c62501171.lua

+--团团圆圆 叠叠团子
+function c62501171.initial_effect(c)
+	--xyz summon
+	c:EnableReviveLimit()
+	aux.AddXyzProcedureLevelFree(c,c62501171.mfilter,nil,3,3)
+	--spsummon condition
+	local e0=Effect.CreateEffect(c)
+	e0:SetType(EFFECT_TYPE_SINGLE)
+	e0:SetCode(EFFECT_SPSUMMON_CONDITION)
+	e0:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
+	e0:SetValue(c62501171.splimit)
+	c:RegisterEffect(e0)
+	--attack up-other
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_FIELD)
+	e1:SetCode(EFFECT_UPDATE_ATTACK)
+	e1:SetRange(LOCATION_MZONE)
+	e1:SetTargetRange(LOCATION_MZONE,0)
+	e1:SetTarget(aux.TargetBoolFunction(Card.IsSetCard,0xea1))
+	e1:SetValue(c62501171.atkval)
+	c:RegisterEffect(e1)
+	--attack up-action
+	local e2=Effect.CreateEffect(c)
+	e2:SetCategory(CATEGORY_ATKCHANGE)
+	e2:SetType(EFFECT_TYPE_QUICK_O)
+	e2:SetCode(EVENT_FREE_CHAIN)
+	e2:SetRange(LOCATION_MZONE)
+	e2:SetCountLimit(1,62501171)
+	e2:SetCondition(c62501171.atkcon)
+	e2:SetCost(c62501171.atkcost)
+	e2:SetTarget(c62501171.atktg)
+	e2:SetOperation(c62501171.atkop)
+	c:RegisterEffect(e2)
+	--tango remove
+	local e3=Effect.CreateEffect(c)
+	e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
+	e3:SetCode(EVENT_TO_GRAVE)
+	e3:SetOperation(c62501171.rmop)
+	c:RegisterEffect(e3)
+end
+function c62501171.mfilter(c,xyzc)
+	return c:IsXyzLevel(xyzc,1) or c:IsLink(1)
+end
+function c62501171.splimit(e,se,sp,st)
+	return not e:GetHandler():IsLocation(LOCATION_EXTRA) or aux.xyzlimit(e,se,sp,st) or se:GetHandler():IsSetCard(0xea1)
+end
+function c62501171.cfilter(c)
+	return c:IsSetCard(0xea1) and c:IsFaceup()
+end
+function c62501171.atkval(e,c)
+	return Duel.GetMatchingGroupCount(c62501171.cfilter,c:GetControler(),LOCATION_ONFIELD+LOCATION_REMOVED,0,nil)*100
+end
+function c62501171.atkcon(e,tp,eg,ep,ev,re,r,rp)
+	local ph=Duel.GetCurrentPhase()
+	return (Duel.GetTurnPlayer()==tp and ph==PHASE_MAIN1 or ph==PHASE_MAIN2)
+		or (Duel.GetTurnPlayer()==1-tp and ph>=PHASE_BATTLE_START and ph<=PHASE_BATTLE)
+end
+function c62501171.atkcost(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 c62501171.atktg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(c62501171.cfilter,tp,LOCATION_MZONE,0,1,nil) end
+end
+function c62501171.atkop(e,tp,eg,ep,ev,re,r,rp)
+	local g=Duel.GetMatchingGroup(c62501171.cfilter,tp,LOCATION_MZONE,0,nil)
+	for tc in aux.Next(g) do
+		local e1=Effect.CreateEffect(e:GetHandler())
+		e1:SetType(EFFECT_TYPE_SINGLE)
+		e1:SetCode(EFFECT_SET_ATTACK_FINAL)
+		e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
+		e1:SetValue(tc:GetAttack()*3)
+		e1:SetRange(LOCATION_MZONE)
+		e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
+		tc:RegisterEffect(e1)
+	end
+end
+function c62501171.rmop(e,tp,eg,ep,ev,re,r,rp)
+	Duel.Remove(e:GetHandler(),POS_FACEUP,REASON_EFFECT)
+end

expansions/script/c62501176.lua

+--团团圆圆 躲躲团子
+function c62501176.initial_effect(c)
+	c:EnableReviveLimit()
+	--pendulum
+	aux.EnablePendulumAttribute(c)
+	--to hand
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(62501176,1))
+	e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH+CATEGORY_DESTROY)
+	e1:SetType(EFFECT_TYPE_IGNITION)
+	e1:SetRange(LOCATION_PZONE)
+	e1:SetCountLimit(1,62501176)
+	e1:SetTarget(c62501176.thtg)
+	e1:SetOperation(c62501176.thop)
+	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_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
+	e2:SetRange(LOCATION_EXTRA)
+	e2:SetCountLimit(1,62501176+EFFECT_COUNT_CODE_OATH)
+	e2:SetCondition(c62501176.sprcon)
+	e2:SetOperation(c62501176.sprop)
+	e2:SetValue(SUMMON_TYPE_RITUAL)
+	c:RegisterEffect(e2)
+	--negate
+	local e3=Effect.CreateEffect(c)
+	e3:SetDescription(aux.Stringid(62501176,0))
+	e3:SetCategory(CATEGORY_DISABLE+CATEGORY_TOGRAVE)
+	e3:SetType(EFFECT_TYPE_QUICK_O)
+	e3:SetCode(EVENT_CHAINING)
+	e3:SetRange(LOCATION_MZONE)
+	e3:SetCountLimit(1,62501176+1)
+	e3:SetCondition(c62501176.discon)
+	e3:SetTarget(c62501176.distg)
+	e3:SetOperation(c62501176.disop)
+	c:RegisterEffect(e3)
+	--tango remove
+	local e0=Effect.CreateEffect(c)
+	e0:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
+	e0:SetCode(EVENT_TO_GRAVE)
+	e0:SetOperation(c62501176.regop)
+	c:RegisterEffect(e0)
+end
+function c62501176.thfilter(c,chk)
+	return c:IsSetCard(0xea1) and c:IsType(TYPE_SPELL) and c:IsAbleToHand() and (chk==0 or aux.NecroValleyFilter()(c))
+end
+function c62501176.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(c62501176.thfilter,tp,LOCATION_DECK,0,1,nil,0) end
+	Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
+end
+function c62501176.thop(e,tp,eg,ep,ev,re,r,rp)
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
+	local tc=Duel.SelectMatchingCard(tp,c62501176.thfilter,tp,LOCATION_DECK,0,1,1,nil,1):GetFirst()
+	if tc then
+		Duel.SendtoHand(tc,nil,REASON_EFFECT)
+		Duel.ConfirmCards(1-tp,tc)
+		if e:GetHandler():IsRelateToEffect(e) then
+			Duel.BreakEffect()
+			Duel.Destroy(e:GetHandler(),REASON_EFFECT)
+		end
+	end
+end
+function c62501176.sprfilter(c)
+	return (c:IsLevel(1) or c:IsRank(1) or c:IsLink(1)) and c:IsReleasable(REASON_SPSUMMON)
+end
+function c62501176.gcheck(g,p)
+	return Duel.GetLocationCountFromEx(p,p,g,TYPE_SYNCHRO)>0
+end
+function c62501176.sprcon(e,c)
+	if c==nil then return true end
+	local tp=c:GetControler()
+	local g=Duel.GetMatchingGroup(c62501176.sprfilter,tp,LOCATION_MZONE,0,nil)
+	return g:CheckSubGroup(c62501176.gcheck,3,3,tp)
+end
+function c62501176.sprop(e,tp,eg,ep,ev,re,r,rp,c)
+	local g=Duel.GetMatchingGroup(c62501176.sprfilter,tp,LOCATION_MZONE,0,nil)
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RELEASE)
+	local sg=g:SelectSubGroup(tp,c62501176.gcheck,false,3,3,tp)
+	Duel.Release(sg,REASON_COST)
+end
+function c62501176.discon(e,tp,eg,ep,ev,re,r,rp)
+	if rp~=1-tp or not re:IsHasProperty(EFFECT_FLAG_CARD_TARGET) then return false end
+	local tg=Duel.GetChainInfo(ev,CHAININFO_TARGET_CARDS)
+	return tg and tg:IsExists(Card.IsOnField,1,nil) and Duel.IsChainDisablable(ev)
+end
+function c62501176.distg(e,tp,eg,ep,ev,re,r,rp,chk)
+	local g=Duel.GetChainInfo(ev,CHAININFO_TARGET_CARDS):Filter(Card.IsOnField,nil)
+	if chk==0 then return g:IsExists(Card.IsAbleToGrave,1,nil) end
+	Duel.SetTargetCard(g)
+	Duel.SetOperationInfo(0,CATEGORY_DISABLE,eg,1,0,0)
+	Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,g,g:GetCount(),0,0)
+end
+function c62501176.disop(e,tp,eg,ep,ev,re,r,rp)
+	local g=Duel.GetTargetsRelateToChain()
+	if Duel.NegateEffect(ev) and #g>0 then
+		Duel.SendtoGrave(g,REASON_EFFECT)
+	end
+end
+function c62501176.regop(e,tp,eg,ep,ev,re,r,rp)
+	Duel.Remove(e:GetHandler(),POS_FACEUP,REASON_EFFECT)
+end

expansions/script/c62501181.lua

+--团团圆圆 美好团子
+function c62501181.initial_effect(c)
+	--fusion material
+	aux.AddFusionProcFunRep(c,c62501181.mfilter,4,true)
+	aux.AddContactFusionProcedure(c,Card.IsAbleToDeckOrExtraAsCost,LOCATION_HAND+LOCATION_MZONE+LOCATION_REMOVED,0,aux.ContactFusionSendToDeck(c))
+	c:EnableReviveLimit()
+	--spsummon condition
+	local e0=Effect.CreateEffect(c)
+	e0:SetType(EFFECT_TYPE_SINGLE)
+	e0:SetCode(EFFECT_SPSUMMON_CONDITION)
+	e0:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
+	e0:SetValue(c62501181.splimit)
+	c:RegisterEffect(e0)
+	--immune
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_SINGLE)
+	e1:SetCode(EFFECT_IMMUNE_EFFECT)
+	e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
+	e1:SetRange(LOCATION_MZONE)
+	e1:SetCondition(c62501181.imcon)
+	e1:SetValue(c62501181.efilter)
+	c:RegisterEffect(e1)
+	--activate cost
+	local e2=Effect.CreateEffect(c)
+	e2:SetType(EFFECT_TYPE_FIELD)
+	e2:SetCode(EFFECT_ACTIVATE_COST)
+	e2:SetRange(LOCATION_MZONE)
+	e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
+	e2:SetTargetRange(0,1)
+	e2:SetCost(c62501181.costchk)
+	e2:SetOperation(c62501181.costop)
+	c:RegisterEffect(e2)
+	--accumulate
+	local e3=Effect.CreateEffect(c)
+	e3:SetType(EFFECT_TYPE_FIELD)
+	e3:SetCode(EFFECT_FLAG_EFFECT+62501181)
+	e3:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
+	e3:SetRange(LOCATION_MZONE)
+	e3:SetTargetRange(0,1)
+	c:RegisterEffect(e3)
+	--damage
+	local e4=Effect.CreateEffect(c)
+	e4:SetCategory(CATEGORY_DAMAGE)
+	e4:SetType(EFFECT_TYPE_IGNITION)
+	--e4:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
+	e4:SetRange(LOCATION_MZONE)
+	e4:SetCost(c62501181.damcost)
+	e4:SetTarget(c62501181.damtg)
+	e4:SetOperation(c62501181.damop)
+	c:RegisterEffect(e4)
+	--tango remove
+	local e5=Effect.CreateEffect(c)
+	e5:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
+	e5:SetCode(EVENT_TO_GRAVE)
+	e5:SetOperation(c62501181.regop)
+	c:RegisterEffect(e5)
+end
+function c62501181.mfilter(c)
+	return c:IsSetCard(0xea1) and c:IsFusionType(TYPE_RITUAL+TYPE_FUSION+TYPE_SYNCHRO+TYPE_XYZ)
+end
+function c62501181.splimit(e,se,sp,st)
+	return not e:GetHandler():IsLocation(LOCATION_EXTRA) or se:GetHandler():IsSetCard(0xea1)
+end
+function c62501181.cfilter(c)
+	return c:IsSetCard(0xea1) and c:IsFaceup()
+end
+function c62501181.imcon(e)
+	return Duel.IsExistingMatchingCard(c62501181.cfilter,e:GetHandlerPlayer(),LOCATION_REMOVED,0,1,nil)
+end
+function c62501181.efilter(e,re)
+	return e:GetOwnerPlayer()~=re:GetOwnerPlayer()
+end
+function c62501181.costchk(e,te_or_c,tp)
+	local ct=Duel.GetFlagEffect(tp,62501181)
+	return Duel.CheckLPCost(tp,ct*600)
+end
+function c62501181.costop(e,tp,eg,ep,ev,re,r,rp)
+	Duel.PayLPCost(tp,600)
+end
+function c62501181.tdfilter(c)
+	return c:IsSetCard(0xea1) and c:IsType(TYPE_MONSTER) and c:IsAbleToDeckOrExtraAsCost() and c:IsFaceup()
+end
+function c62501181.damcost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(c62501181.tdfilter,tp,LOCATION_MZONE+LOCATION_REMOVED,0,1,nil) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
+	local g=Duel.SelectMatchingCard(tp,c62501181.tdfilter,tp,LOCATION_MZONE+LOCATION_REMOVED,0,1,1,nil)
+	e:SetLabel(g:GetFirst():GetCode())
+	Duel.SendtoDeck(g,nil,SEQ_DECKSHUFFLE,REASON_COST)
+end
+function c62501181.damtg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return true end
+	Duel.SetTargetPlayer(1-tp)
+	Duel.SetTargetParam(600)
+	Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,600)
+	Duel.SetChainLimit(c62501181.chainlm)
+end
+function c62501181.chainlm(e,ep,tp)
+	return tp==ep
+end
+function c62501181.damop(e,tp,eg,ep,ev,re,r,rp)
+	local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM)
+	Duel.Damage(p,d,REASON_EFFECT)
+	local e1=Effect.CreateEffect(e:GetHandler())
+	e1:SetType(EFFECT_TYPE_FIELD)
+	e1:SetCode(EFFECT_CANNOT_TO_DECK)
+	e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
+	e1:SetTargetRange(1,0)
+	e1:SetTarget(c62501181.rmlimit)
+	e1:SetLabel(e:GetLabel())
+	e1:SetReset(RESET_PHASE+PHASE_END)
+	Duel.RegisterEffect(e1,tp)
+end
+function c62501181.rmlimit(e,c,tp,r,re)
+	return c:IsCode(e:GetLabel()) and re and re:GetHandler():IsCode(62501181) and r==REASON_COST
+end
+function c62501181.regop(e,tp,eg,ep,ev,re,r,rp)
+	Duel.Remove(e:GetHandler(),POS_FACEUP,REASON_EFFECT)
+end

expansions/script/c62501186.lua

+--团团圆圆 多彩团子
+function c62501186.initial_effect(c)
+	--Activate
+	local e1=Effect.CreateEffect(c)
+	e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH+CATEGORY_REMOVE)
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	e1:SetCountLimit(1,62501186)
+	e1:SetTarget(c62501186.target)
+	e1:SetOperation(c62501186.activate)
+	c:RegisterEffect(e1)
+	--to deck
+	local e2=Effect.CreateEffect(c)
+	e2:SetDescription(aux.Stringid(62501186,1))
+	e2:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH+CATEGORY_TODECK)
+	e2:SetType(EFFECT_TYPE_IGNITION)
+	e2:SetProperty(EFFECT_FLAG_CARD_TARGET)
+	e2:SetRange(LOCATION_GRAVE)
+	e2:SetCountLimit(1,62501186)
+	e2:SetCost(aux.bfgcost)
+	e2:SetTarget(c62501186.tdtg)
+	e2:SetOperation(c62501186.tdop)
+	c:RegisterEffect(e2)
+end
+function c62501186.thfilter(c,chk)
+	return (chk==0 and c:IsSetCard(0xea1) and c:IsType(TYPE_MONSTER) and c:IsFaceupEx() or chk==1 and c:IsLevel(1)) and c:IsAbleToHand()
+end
+function c62501186.target(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(c62501186.thfilter,tp,LOCATION_DECK+0x20,0,1,nil,0) end
+	Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK+LOCATION_REMOVED)
+end
+function c62501186.activate(e,tp,eg,ep,ev,re,r,rp)
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
+	local tc=Duel.SelectMatchingCard(tp,c62501186.thfilter,tp,LOCATION_DECK+LOCATION_REMOVED,0,1,1,nil,0):GetFirst()
+	if tc then
+		Duel.SendtoHand(tc,nil,REASON_EFFECT)
+		Duel.ConfirmCards(1-tp,tc)
+		if Duel.IsExistingMatchingCard(Card.IsAbleToRemove,tp,LOCATION_HAND,0,1,nil) and Duel.SelectYesNo(tp,aux.Stringid(62501186,2)) then
+			Duel.BreakEffect()
+			Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
+			local g=Duel.SelectMatchingCard(tp,Card.IsAbleToRemove,tp,LOCATION_HAND,0,1,1,nil)
+			Duel.Remove(g,POS_FACEUP,REASON_EFFECT)
+		end
+	end
+end
+function c62501186.tdfilter(c)
+	return c:IsSetCard(0xea1) and c:IsType(TYPE_MONSTER) and c:IsFaceup() and c:IsAbleToDeck()
+end
+function c62501186.tdtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chkc then return chkc:IsControler(tp) and chkc:IsLocation(LOCATION_REMOVED) and c62501186.tdfilter(chkc) end
+	if chk==0 then return Duel.IsExistingTarget(c62501186.tdfilter,tp,LOCATION_REMOVED,0,1,nil) and Duel.IsExistingMatchingCard(c62501186.thfilter,tp,LOCATION_DECK,0,1,nil,1) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK)
+	local tg=Duel.SelectTarget(tp,c62501186.tdfilter,tp,LOCATION_REMOVED,0,1,1,nil)
+	Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
+	Duel.SetOperationInfo(0,CATEGORY_TODECK,tg,1,0,0)
+end
+function c62501186.tdop(e,tp,eg,ep,ev,re,r,rp)
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
+	local tc=Duel.SelectMatchingCard(tp,c62501186.thfilter,tp,LOCATION_DECK,0,1,1,nil,1):GetFirst()
+	if tc then
+		Duel.DisableShuffleCheck()
+		Duel.SendtoHand(tc,nil,REASON_EFFECT)
+		Duel.ConfirmCards(1-tp,tc)
+		local g=Duel.GetTargetsRelateToChain()
+		if #g>0 then
+			Duel.BreakEffect()
+			Duel.ShuffleDeck(tp)
+			Duel.SendtoDeck(g,nil,SEQ_DECKBOTTOM,REASON_EFFECT)
+		end
+	end
+end

expansions/script/c62501191.lua

+--团团圆圆 变大药剂
+function c62501191.initial_effect(c)
+	--Activate
+	local e1=Effect.CreateEffect(c)
+	e1:SetHintTiming(0,TIMINGS_CHECK_MONSTER)
+	e1:SetCategory(CATEGORY_ATKCHANGE+CATEGORY_DISABLE)
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
+	e1:SetCountLimit(1,62501191)
+	e1:SetTarget(c62501191.target)
+	e1:SetOperation(c62501191.activate)
+	c:RegisterEffect(e1)
+	--atk up
+	local e2=Effect.CreateEffect(c)
+	e2:SetDescription(aux.Stringid(62501191,1))
+	e2:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH+CATEGORY_TODECK)
+	e2:SetType(EFFECT_TYPE_IGNITION)
+	e2:SetProperty(EFFECT_FLAG_CARD_TARGET)
+	e2:SetRange(LOCATION_GRAVE)
+	e2:SetCountLimit(1,62501191+1)
+	e2:SetCost(aux.bfgcost)
+	e2:SetTarget(c62501191.atktg)
+	e2:SetOperation(c62501191.atkop)
+	c:RegisterEffect(e2)
+end
+function c62501191.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 aux.NegateEffectMonsterFilter(chkc) end
+	if chk==0 then return Duel.IsExistingTarget(aux.NegateEffectMonsterFilter,tp,0,LOCATION_MZONE,1,nil) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DISABLE)
+	Duel.SelectTarget(tp,aux.NegateEffectMonsterFilter,tp,0,LOCATION_MZONE,1,1,nil)
+end
+function c62501191.activate(e,tp,eg,ep,ev,re,r,rp)
+	local tc=Duel.GetFirstTarget()
+	if tc:IsRelateToEffect(e) and tc:IsFaceup() and tc:IsCanBeDisabledByEffect(e) then
+		Duel.NegateRelatedChain(tc,RESET_TURN_SET)
+		local e1=Effect.CreateEffect(e:GetHandler())
+		e1:SetType(EFFECT_TYPE_SINGLE)
+		e1:SetCode(EFFECT_DISABLE)
+		e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
+		tc:RegisterEffect(e1)
+		local e2=Effect.CreateEffect(e:GetHandler())
+		e2:SetType(EFFECT_TYPE_SINGLE)
+		e2:SetCode(EFFECT_DISABLE_EFFECT)
+		e2:SetValue(RESET_TURN_SET)
+		e2:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
+		tc:RegisterEffect(e2)
+		local e3=Effect.CreateEffect(e:GetHandler())
+		e3:SetType(EFFECT_TYPE_SINGLE)
+		e3:SetCode(EFFECT_SET_ATTACK_FINAL)
+		e3:SetValue(tc:GetAttack()*2)
+		e3:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
+		tc:RegisterEffect(e3)
+		local e4=Effect.CreateEffect(e:GetHandler())
+		e4:SetType(EFFECT_TYPE_SINGLE)
+		e4:SetCode(EFFECT_CANNOT_ATTACK_ANNOUNCE)
+		e4:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
+		tc:RegisterEffect(e4)
+	end
+end
+function c62501191.atktg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+	if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsFaceup() 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)
+	Duel.SelectTarget(tp,Card.IsFaceup,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil)
+end
+function c62501191.atkop(e,tp,eg,ep,ev,re,r,rp)
+	local tc=Duel.GetFirstTarget()
+	if tc:IsRelateToEffect(e) and tc:IsFaceup() then
+		local e1=Effect.CreateEffect(e:GetHandler())
+		e1:SetType(EFFECT_TYPE_SINGLE)
+		e1:SetCode(EFFECT_SET_ATTACK_FINAL)
+		e1:SetValue(tc:GetAttack()*2)
+		e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
+		tc:RegisterEffect(e1)
+	end
+end

expansions/script/c62501196.lua

+--团团圆圆 团子树
+function c62501196.initial_effect(c)
+	--Activate
+	local e1=Effect.CreateEffect(c)
+	e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	e1:SetCountLimit(1,62501196+EFFECT_COUNT_CODE_OATH)
+	e1:SetOperation(c62501196.activate)
+	c:RegisterEffect(e1)
+	--remove
+	local e2=Effect.CreateEffect(c)
+	e2:SetDescription(aux.Stringid(62501196,1))
+	e2:SetCategory(CATEGORY_REMOVE)
+	e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
+	e2:SetCode(EVENT_CHAINING)
+	e2:SetProperty(EFFECT_FLAG_DELAY)
+	e2:SetRange(LOCATION_SZONE)
+	e2:SetCountLimit(1,62501196)
+	e2:SetCondition(c62501196.rmcon)
+	e2:SetTarget(c62501196.rmtg)
+	e2:SetOperation(c62501196.rmop)
+	c:RegisterEffect(e2)
+	--to hand
+	local e3=Effect.CreateEffect(c)
+	e3:SetDescription(aux.Stringid(62501196,2))
+	e3:SetCategory(CATEGORY_TOHAND)
+	e3:SetType(EFFECT_TYPE_IGNITION)
+	e3:SetRange(LOCATION_GRAVE)
+	e3:SetCountLimit(1,62501196+1)
+	e3:SetCost(aux.bfgcost)
+	e3:SetTarget(c62501196.thtg)
+	e3:SetOperation(c62501196.thop)
+	c:RegisterEffect(e3)
+end
+function c62501196.thfilter(c)
+	return c:IsSetCard(0xea1) and c:IsType(TYPE_MONSTER) and c:IsFaceupEx() and c:IsAbleToHand()
+end
+function c62501196.activate(e,tp,eg,ep,ev,re,r,rp)
+	local g=Duel.GetMatchingGroup(c62501196.thfilter,tp,LOCATION_DECK,0,nil)
+	if g:GetCount()>0 and Duel.SelectYesNo(tp,aux.Stringid(62501196,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
+	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(c62501196.splimit)
+	e1:SetReset(RESET_PHASE+PHASE_END)
+	Duel.RegisterEffect(e1,tp)
+end
+function c62501196.splimit(e,c)
+	return not (c:IsLevel(1) or c:IsRank(1) or c:IsLink(1))
+end
+function c62501196.rmcon(e,tp,eg,ep,ev,re,r,rp)
+	return rp==1-tp
+end
+function c62501196.rmfilter(c)
+	return c:IsSetCard(0xea1) and c:IsType(TYPE_MONSTER) and c:IsAbleToRemove()
+end
+function c62501196.rmtg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(c62501196.rmfilter,tp,LOCATION_HAND+LOCATION_DECK,0,1,nil) end
+	Duel.SetOperationInfo(0,CATEGORY_REMOVE,nil,1,tp,LOCATION_HAND+LOCATION_DECK)
+end
+function c62501196.rmop(e,tp,eg,ep,ev,re,r,rp)
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
+	local g=Duel.SelectMatchingCard(tp,c62501196.rmfilter,tp,LOCATION_HAND+LOCATION_DECK,0,1,1,nil)
+	if #g>0 then
+		Duel.Remove(g,POS_FACEUP,REASON_EFFECT)
+	end
+end
+function c62501196.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(c62501196.thfilter,tp,LOCATION_REMOVED,0,1,nil) end
+	Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_REMOVED)
+end
+function c62501196.thop(e,tp,eg,ep,ev,re,r,rp)
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
+	local tc=Duel.SelectMatchingCard(tp,c62501196.thfilter,tp,LOCATION_REMOVED,0,1,1,nil):GetFirst()
+	if tc then
+		Duel.HintSelection(Group.FromCards(tc))
+		Duel.SendtoHand(tc,nil,REASON_EFFECT)
+		--Duel.ConfirmCards(1-tp,tc)
+	end
+end

expansions/script/c62501201.lua

+--团团圆圆大家庭
+function c62501201.initial_effect(c)
+	--Activate
+	local e0=Effect.CreateEffect(c)
+	e0:SetType(EFFECT_TYPE_ACTIVATE)
+	e0:SetCode(EVENT_FREE_CHAIN)
+	c:RegisterEffect(e0)
+	--cannot attack
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_FIELD)
+	e1:SetCode(EFFECT_CANNOT_ATTACK)
+	e1:SetRange(LOCATION_FZONE)
+	e1:SetTargetRange(LOCATION_MZONE,LOCATION_MZONE)
+	e1:SetTarget(c62501201.atktg)
+	c:RegisterEffect(e1)
+	--remove
+	local e2=Effect.CreateEffect(c)
+	e2:SetDescription(aux.Stringid(62501201,1))
+	e2:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_REMOVE)
+	e2:SetType(EFFECT_TYPE_IGNITION)
+	e2:SetRange(LOCATION_FZONE)
+	e2:SetCountLimit(1,62501201)
+	e2:SetTarget(c62501201.rmtg)
+	e2:SetOperation(c62501201.rmop)
+	c:RegisterEffect(e2)
+	--to hand
+	local e3=Effect.CreateEffect(c)
+	e3:SetDescription(aux.Stringid(62501201,2))
+	e3:SetCategory(CATEGORY_TOHAND)
+	e3:SetType(EFFECT_TYPE_IGNITION)
+	e3:SetRange(LOCATION_GRAVE)
+	e3:SetCountLimit(1,62501201)
+	e3:SetCost(aux.bfgcost)
+	e3:SetTarget(c62501201.thtg)
+	e3:SetOperation(c62501201.thop)
+	c:RegisterEffect(e3)
+end
+function c62501201.atktg(e,c)
+	return not (c:IsLevel(1) or c:IsRank(1) or c:IsLink(1))
+end
+function c62501201.spfilter(c,e,tp,chk)
+	return c:IsSetCard(0xea1) and c:IsFaceupEx() and c:IsCanBeSpecialSummoned(e,0,tp,false,false) and (chk==0 or aux.NecroValleyFilter()(c))-- and Duel.GetLocationCountFromEx(tp,tp,nil,c)>0
+end
+function c62501201.rmtg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.GetFieldGroupCount(tp,0,LOCATION_DECK)>=2 and Duel.IsPlayerCanRemove(tp) and Duel.IsPlayerCanSpecialSummonCount(tp,2) and Duel.GetMZoneCount(1-tp)>0 and Duel.GetMZoneCount(tp)>0 and Duel.IsExistingMatchingCard(c62501201.spfilter,tp,LOCATION_DECK+LOCATION_REMOVED,0,1,nil,e,tp,0) end
+end
+function c62501201.chkfilter(c,e,tp)
+	return c:IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEUP,1-tp) and c:IsAbleToRemove()
+end
+function c62501201.rmop(e,tp,eg,ep,ev,re,r,rp)
+	if Duel.GetMZoneCount(1-tp)>0 then
+		local g=Duel.GetMatchingGroup(c62501201.chkfilter,1-tp,LOCATION_DECK,0,nil,e,tp)
+		Duel.Hint(HINT_SELECTMSG,1-tp,HINTMSG_CONFIRM)
+		local sg=g:SelectSubGroup(1-tp,aux.gffcheck,false,2,2,Card.IsAttackAbove,300,Card.IsAttackBelow,100)
+		if sg and #sg==2 then
+			Duel.ConfirmCards(tp,sg)
+			Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
+			local sc=sg:Select(tp,1,1,nil):GetFirst()
+			Duel.SpecialSummonStep(sc,0,tp,1-tp,false,false,POS_FACEUP)
+			local e1=Effect.CreateEffect(e:GetHandler())
+			e1:SetType(EFFECT_TYPE_SINGLE)
+			e1:SetCode(EFFECT_DISABLE)
+			e1:SetReset(RESET_EVENT+RESETS_STANDARD)
+			sc:RegisterEffect(e1)
+			local e2=Effect.CreateEffect(e:GetHandler())
+			e2:SetType(EFFECT_TYPE_SINGLE)
+			e2:SetCode(EFFECT_DISABLE_EFFECT)
+			e2:SetValue(RESET_TURN_SET)
+			e2:SetReset(RESET_EVENT+RESETS_STANDARD)
+			sc:RegisterEffect(e2)
+			Duel.SpecialSummonComplete()
+			sg:RemoveCard(sc)
+			Duel.Remove(sg,POS_FACEUP,REASON_EFFECT)
+			if Duel.GetMZoneCount(tp)>0 then
+				Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
+				local tc=Duel.SelectMatchingCard(tp,c62501201.spfilter,tp,LOCATION_DECK+LOCATION_REMOVED,0,1,1,nil,e,tp,1):GetFirst()
+				if tc then
+					Duel.BreakEffect()
+					Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP)
+				end
+			end
+		end
+	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,1)
+	e1:SetTarget(c62501201.splimit)
+	e1:SetReset(RESET_PHASE+PHASE_END)
+	Duel.RegisterEffect(e1,tp)
+end
+function c62501201.splimit(e,c)
+	return not (c:IsLevel(1) or c:IsRank(1) or c:IsLink(1))
+end
+function c62501201.thfilter(c)
+	return c:IsSetCard(0xea1) and c:IsType(TYPE_SPELL) and c:IsFaceup() and c:IsAbleToHand()
+end
+function c62501201.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(c62501201.thfilter,tp,LOCATION_REMOVED,0,1,nil) end
+	Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_REMOVED)
+end
+function c62501201.thop(e,tp,eg,ep,ev,re,r,rp)
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
+	local tc=Duel.SelectMatchingCard(tp,c62501201.thfilter,tp,LOCATION_REMOVED,0,1,1,nil):GetFirst()
+	if tc then
+		Duel.SendtoHand(tc,nil,REASON_EFFECT)
+		Duel.ConfirmCards(1-tp,tc)
+	end
+end

expansions/script/c98941056.lua

@@ -8,16 +8,9 @@ function c98941056.initial_effect(c)
 	e1:SetHintTiming(TIMING_DRAW_PHASE,TIMING_DRAW_PHASE+TIMING_END_PHASE)
 	e1:SetOperation(s.trueac)
 	c:RegisterEffect(e1)
-	local e0=e1:Clone()
-	e0:SetDescription(aux.Stringid(id,6))
-	e0:SetRange(LOCATION_DECK)
-	e0:SetCondition(s.descon)
-	e0:SetCost(s.cost2)
-	c:RegisterEffect(e0)
 	local e10=e1:Clone()
 	e10:SetDescription(aux.Stringid(id,8))
 	e10:SetRange(LOCATION_DECK)
-	e10:SetCondition(s.descon2)
 	e10:SetCost(s.cost3)
 	c:RegisterEffect(e10)
 	--Fusion
@@ -180,12 +173,30 @@ function c98941056.activate(e,tp,eg,ep,ev,re,r,rp)
 				hg:RemoveCard(xc)
 				xc=mat1:GetNext()
 			end
-			local ss1=Duel.GetMatchingGroupCount(Card.IsSummonLocation,tp,LOCATION_MZONE,0,nil,LOCATION_EXTRA)
-			local ss2=Duel.GetMatchingGroupCount(Card.IsSummonLocation,tp,0,LOCATION_MZONE,nil,LOCATION_EXTRA)
-			if ss1<ss2 or (ss1==ss2 and Duel.SelectYesNo(tp,aux.Stringid(98941056,9))) then 
-			Duel.SpecialSummon(tc,SUMMON_TYPE_FUSION,tp,tp,false,false,POS_FACEUP)
+			local ss1=Duel.GetFieldGroupCount(tp,LOCATION_HAND,0)
+			local ss2=Duel.GetFieldGroupCount(tp,0,LOCATION_HAND)
+			local k=1-tp
+			if ss1<=ss2 and Duel.SelectYesNo(tp,aux.Stringid(98941056,9)) then 
+				k=tp
 			else
-			Duel.SpecialSummon(tc,SUMMON_TYPE_FUSION,tp,1-tp,false,false,POS_FACEUP) end			
+				k=1-tp 
+			end
+			if tc and Duel.SpecialSummonStep(tc,SUMMON_TYPE_FUSION,tp,k,false,false,POS_FACEUP) and Duel.GetFieldGroupCount(tp,LOCATION_ONFIELD,0)>Duel.GetFieldGroupCount(tp,0,LOCATION_ONFIELD) then
+					local e1=Effect.CreateEffect(c)
+					e1:SetType(EFFECT_TYPE_SINGLE)
+					e1:SetCode(EFFECT_DISABLE)
+					e1:SetProperty(EFFECT_FLAG_CANNOT_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:SetValue(RESET_TURN_SET)
+					e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
+					e2:SetReset(RESET_EVENT+RESETS_STANDARD)
+					tc:RegisterEffect(e2)
+			 end
+			 Duel.SpecialSummonComplete()
 		else
 			local mat2=Duel.SelectFusionMaterial(tp,tc,mg3,nil,chkf)
 			local fop=ce:GetOperation()