advance!

2024.txt

@@ -32,6 +32,7 @@ S.A.R.A.(172016020) 无 3星 龙/调整 0 1800 (Custom)
 那个什么来着(172016021) 通常陷阱 (Custom)
 这张卡能且只能从手卡发动。
 ①：自己场上没有怪兽存在，对方场上这回合特殊召唤且攻击表示的怪兽把效果发动时才能发动。从卡组选1张「健忘」除外，那张卡的效果适用。那之后，这张卡返回手卡。
+②：这张卡送去墓地时才能发动。自己除外的「健忘」尽可能在场上盖放。这个效果盖放的卡从场上离开时返回卡组。
 
 纵欲之壶(172016022) 通常魔法 (Custom)
 ①：从卡组选2张「纵欲之壶」以外的「之壶」魔法卡（同名卡至多1张）在自己卡组最上方放置，抽2张卡。

MyDIY.txt

@@ -45,8 +45,10 @@
 
 # 万恶之始
 岩融冰结(172016005) 水 3星 念动力 0 1800 (Custom)
-①：对方回合的主要阶段，把这张卡从手卡送去墓地，宣言任意数量的卡名才能发动。直到回合结束，宣言的卡名的卡不能使用。场上每有1张卡，这回合每有1次卡的效果的发动，宣言的卡每有1种类，从游戏开始每经过1回合，为发动这个效果需额外支付1500生命分。
+这张卡不能置入SIDE。
+①：对方回合的主要阶段，把这张卡从手卡送去墓地，宣言任意数量的卡名才能发动。直到回合结束，宣言的卡名的卡不能使用。场上每有1张卡，这回合每有1次卡的效果的发动，宣言的卡每有1种类，从游戏开始每经过1回合，为发动这个效果需额外支付1000生命分。
 分类：常驻-DIY
+提示文本：宣言第一张卡需支付1000基本分、宣言第一张卡需支付2000基本分、宣言第一张卡需支付3000基本分、宣言第一张卡需支付4000基本分、宣言第一张卡需支付5000基本分、宣言第一张卡需支付6000基本分、宣言第一张卡需支付7000基本分、宣言第一张卡需支付8000以上基本分
 
 # 禹铸九鼎，以镇九州。
 九鼎(172016006) 装备魔法 (Custom)
@@ -186,9 +188,9 @@ SHUT UP！(172016014) 通常魔法 (Custom)
 系列：影依
 「影依兽」+「影依古龙」+「神影依 米德拉什」
 这张卡不是用上记素材的融合召唤不能特殊召唤，这张卡的融合召唤不能适用「影牢之咒缚」。
-这个卡名的②③效果1回合合计只能发动1次，对方回合也能发动。
+这个卡名的③效果1回合只能发动1次。
 ①：这张卡融合召唤成功时才能发动。选择自己墓地1只「影依」融合怪兽，获得那只怪兽所记载的效果。
-②：以对方场上1只怪兽为对象才能发动。那只怪兽变成里侧表示，在自己场上把1只「影依衍生物/暗/兽族/？/？」攻击表示特殊召唤。那衍生物的属性·种族·攻击力·守备力变成与那只怪兽相同，当作与那怪兽的同名卡使用。只要这衍生物在场上表侧表示存在，衍生物和那只怪兽不能把表示形式变更。这个效果对方回合也能发动。
+②：自己·对方回合，以对方场上1只怪兽为对象才能发动。那只怪兽变成里侧表示，在自己场上把1只「影依衍生物/暗/兽族/？/？」攻击表示特殊召唤。那衍生物的属性·种族·攻击力·守备力变成与那只怪兽相同，当作与那怪兽的同名卡使用。那之后，从手卡把1张「影依」卡送去墓地。只要这衍生物在场上表侧表示存在，衍生物和那只怪兽不能把表示形式变更。
 ③：为这张卡的融合召唤使用过的1组融合素材在墓地集齐的场合才能发动。把这张卡送去墓地，那些怪兽在在自己场上盖放。
 分类：暗属性、魔法师族、融合、DT
 效果分类：卡片回收、衍生物

script/c172016005.lua

 -- 岩融冰结
 local s,id,o=GetID()
+local factor=1000
 function s.initial_effect(c)
     -- disable
 	local e1=Effect.CreateEffect(c)
@@ -34,17 +35,13 @@ function s.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
 end
 function s.cost(e,tp,eg,ep,ev,re,r,rp,chk)
     local count=s.count(tp)
-    local maxc=math.floor(Duel.GetLP(tp)/1500)-count
+    local maxc=math.floor(Duel.GetLP(tp)/factor)-count
     if chk==0 then return maxc>0 and e:GetHandler():IsAbleToGraveAsCost() end
     if maxc<=0 then return end
-    --Duel.PayLPCost(1-tp, Duel.GetFieldGroupCount(tp,LOCATION_ONFIELD,LOCATION_ONFIELD)+1)
-    --Duel.PayLPCost(1-tp, Duel.GetTurnCount())
-    --Duel.PayLPCost(1-tp, Duel.GetCustomActivityCount(id,tp,ACTIVITY_CHAIN)+1)
-    --Duel.PayLPCost(1-tp, Duel.GetCustomActivityCount(id,1-tp,ACTIVITY_CHAIN)+1)
     local t={}
 	for i=1,maxc do t[i]=i end
 	local a1=Duel.AnnounceNumber(tp,table.unpack(t))
-    Duel.PayLPCost(tp,(a1+count)*1500)
+    Duel.PayLPCost(tp,(a1+count)*factor)
     Duel.SendtoGrave(e:GetHandler(),REASON_COST+REASON_DISCARD)
     e:SetLabel(a1)
 end

script/c172016021.lua

@@ -3,6 +3,8 @@
 --- 这张卡能且只能从手卡发动。
 --- ①：自己场上没有怪兽存在，对方场上这回合特殊召唤且攻击表示的怪兽把效果发动时才能发动。
 ---    从卡组选1张「健忘」除外，那张卡的效果适用。那之后，这张卡返回手卡。
+-- ②：这张卡送去墓地时才能发动。自己除外的「健忘」尽可能在场上盖放。
+--     这个效果盖放的卡从场上离开时返回卡组。
 -----------------------------------------------------------------------------------
 local s,id,o=GetID()
 
@@ -22,6 +24,13 @@ function s.initial_effect(c)
 	e1:SetTarget(s.target)
 	e1:SetOperation(s.activate)
 	c:RegisterEffect(e1)
+    --to grave
+	local e2=Effect.CreateEffect(c)
+	e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+	e2:SetCode(EVENT_TO_GRAVE)
+	e2:SetTarget(s.tgtg)
+	e2:SetOperation(s.tgop)
+	c:RegisterEffect(e2)
 end
 function s.condition(e,tp,eg,ep,ev,re,r,rp)
 	local tgp,loc=Duel.GetChainInfo(ev,CHAININFO_TRIGGERING_CONTROLER,CHAININFO_TRIGGERING_LOCATION)
@@ -52,3 +61,25 @@ function s.activate(e,tp,eg,ep,ev,re,r,rp)
         end
     end
 end
+function s.tgfilter(c,tp)
+    return Duel.IsPlayerCanSSet(tp,c) and c:IsCode(71098407) and c:IsFaceup()
+end
+function s.tgtg(e,tp,eg,ep,ev,re,r,rp,chk)
+    if chk==0 then return Duel.IsExistingMatchingCard(s.tgfilter,tp,LOCATION_REMOVED,0,1,nil,tp) end 
+end
+function s.tgop(e,tp,eg,ep,ev,re,r,rp)
+    local g=Duel.GetMatchingGroup(s.tgfilter,tp,LOCATION_REMOVED,0,nil,tp)
+    if #g>0 then
+        Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SET)
+        Duel.SSet(tp,g)
+        for tc in aux.Next(g) do
+            local e1=Effect.CreateEffect(e:GetHandler())
+            e1:SetType(EFFECT_TYPE_SINGLE)
+            e1:SetCode(EFFECT_LEAVE_FIELD_REDIRECT)
+            e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_CLIENT_HINT)
+            e1:SetReset(RESET_EVENT+RESETS_REDIRECT)
+            e1:SetValue(LOCATION_DECK)
+            tc:RegisterEffect(e1)
+        end
+    end
+end

script/c172016230.lua

@@ -33,7 +33,6 @@ function s.initial_effect(c)
 	e4:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_END_PHASE)
 	e4:SetTarget(s.dolltg)
 	e4:SetOperation(s.dollop)
-	e4:SetCountLimit(1,id)
     c:RegisterEffect(e4)
     --defusion
     local e5=Effect.CreateEffect(c)
@@ -45,7 +44,7 @@ function s.initial_effect(c)
 	e5:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_END_PHASE)
 	e5:SetCondition(s.decon)
 	e5:SetOperation(s.deop)
-	e5:SetCountLimit(1,id)
+	e5:SetCountLimit(1)
     c:RegisterEffect(e5) 
 end
 
@@ -75,7 +74,7 @@ function s.dollfilter(c)
 end
 function s.dolltg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
 	if chkc then return chkc:IsLocation(LOCATION_MZONE) and c:IsControler(1-tp) and s.dollfilter(chkc,tp) end
-	if chk==0 then return Duel.IsExistingTarget(s.dollfilter,tp,0,LOCATION_MZONE,1,nil) end
+	if chk==0 then return Duel.IsExistingTarget(s.dollfilter,tp,0,LOCATION_MZONE,1,nil) and Duel.IsExistingMatchingCard(Card.IsSetCard,tp,LOCATION_HAND,0,1,nil,0x9d) end
 	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP)
 	local g=Duel.SelectTarget(tp,s.dollfilter,tp,0,LOCATION_MZONE,1,1,nil)
 	Duel.SetOperationInfo(0,CATEGORY_POSITION,g,1,0,0)
@@ -135,6 +134,11 @@ function s.dollop(e,tp,eg,ep,ev,re,r,rp)
 		e9:SetOperation(s.disop(e7))
 		token:RegisterEffect(e9)
 	end
+	local g=Duel.SelectMatchingCard(tp,Card.IsSetCard,tp,LOCATION_HAND,0,1,1,nil,0x9d)
+	if g:GetCount()>0 then
+		Duel.BreakEffect()
+		Duel.SendtoGrave(g,REASON_EFFECT)
+	end
 end
 
 function s.disop(te)