2023/10/22 新增：苍救之心愿

script/RDCost.lua

@@ -270,6 +270,10 @@ end
 function RushDuel.CostSendGraveToDeckTop(filter, min, max, set_label_before, set_object_before, set_label_after, set_object_after)
     return RushDuel.CostSendMatchToDeckSort(filter, LOCATION_GRAVE, min, max, false, SEQ_DECKTOP, false, true, set_label_before, set_object_before, set_label_after, set_object_after)
 end
+-- 代价: 让墓地的卡返回卡组上面 (子卡片组)
+function RushDuel.CostSendGraveSubToDeckTop(filter, check, min, max, set_label_before, set_object_before, set_label_after, set_object_after)
+    return RushDuel.CostSendGroupToDeckSort(filter, check, LOCATION_GRAVE, min, max, false, SEQ_DECKTOP, false, true, set_label_before, set_object_before, set_label_after, set_object_after)
+end
 -- 代价: 让墓地的卡返回卡组下面
 function RushDuel.CostSendGraveToDeckBottom(filter, min, max, set_label_before, set_object_before, set_label_after, set_object_after)
     return RushDuel.CostSendMatchToDeckSort(filter, LOCATION_GRAVE, min, max, false, SEQ_DECKBOTTOM, false, true, set_label_before, set_object_before, set_label_after, set_object_after)

script/c120253064.lua

+local m=120253064
+local list={120235053,120196050}
+local cm=_G["c"..m]
+cm.name="苍救之心愿"
+function cm.initial_effect(c)
+	RD.AddCodeList(c,list)
+	--Activate
+	local e1=Effect.CreateEffect(c)
+	e1:SetCategory(CATEGORY_TODECK)
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetCode(EVENT_SUMMON_SUCCESS)
+	e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP)
+	e1:SetCondition(cm.condition)
+	e1:SetCost(cm.cost)
+	e1:SetTarget(cm.target)
+	e1:SetOperation(cm.activate)
+	c:RegisterEffect(e1)
+	local e2=e1:Clone()
+	e2:SetCode(EVENT_SPSUMMON_SUCCESS)
+	c:RegisterEffect(e2)
+end
+--Activate
+function cm.confilter(c,tp)
+	return c:GetSummonPlayer()==tp
+end
+function cm.costfilter(c)
+	return ((c:IsAttribute(ATTRIBUTE_WATER) and c:IsRace(RACE_WARRIOR)) or c:IsRace(RACE_FAIRY)) and c:IsAbleToDeckOrExtraAsCost()
+end
+function cm.costcheck(g)
+	return g:GetClassCount(Card.GetRace)==g:GetCount()
+end
+function cm.setfilter(c)
+	return c:IsCode(list[1],list[2]) and c:IsSSetable()
+end
+function cm.condition(e,tp,eg,ep,ev,re,r,rp)
+	return eg:IsExists(cm.confilter,1,nil,1-tp)
+end
+cm.cost=RD.CostSendGraveSubToDeckTop(cm.costfilter,cm.costcheck,2,2)
+function cm.target(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(Card.IsAbleToDeck,tp,0,LOCATION_MZONE,1,nil) end
+	local g=Duel.GetMatchingGroup(Card.IsAbleToDeck,tp,0,LOCATION_MZONE,nil)
+	Duel.SetOperationInfo(0,CATEGORY_TODECK,g,1,0,0)
+end
+function cm.activate(e,tp,eg,ep,ev,re,r,rp)
+	RD.SelectAndDoAction(HINTMSG_TODECK,Card.IsAbleToDeck,tp,0,LOCATION_MZONE,1,1,nil,function(g)
+		if RD.SendToOpponentDeckBottom(g,tp)~=0 then
+			RD.CanSelectAndSet(aux.Stringid(m,1),aux.NecroValleyFilter(cm.setfilter),tp,LOCATION_GRAVE,0,1,1,nil,e,true)
+		end
+	end)
+end
\ No newline at end of file