2024/6/22 新增：暗物质新卡与接触融合术

script/RDFusion.lua

@@ -295,7 +295,7 @@ function RushDuel.ExecuteFusionSummon(e, tp, ce, mg1, mg2, sg1, sg2, gc, chkf, m
             Duel.ConfirmCards(1 - tp, cg)
         end
         fc:SetMaterial(mat)
-        mat_move(mat)
+        mat_move(tp, mat)
         Duel.BreakEffect()
         Duel.SpecialSummon(fc, SUMMON_TYPE_FUSION, tp, tp, false, false, POS_FACEUP)
     else
@@ -363,15 +363,33 @@ function RushDuel.CanFusionSummon(desc, matfilter, spfilter, exfilter, s_range,
 end
 
 -- 素材去向: 墓地
-function RushDuel.FusionToGrave(mat)
+function RushDuel.FusionToGrave(tp, mat)
     Duel.SendtoGrave(mat, REASON_EFFECT + REASON_MATERIAL + REASON_FUSION)
 end
 -- 素材去向: 卡组
-function RushDuel.FusionToDeck(mat)
+function RushDuel.FusionToDeck(tp, mat)
+    local g = mat:Filter(Card.IsFacedown, nil)
+    if g:GetCount() > 0 then
+        Duel.ConfirmCards(1 - tp, g)
+    end
     Duel.SendtoDeck(mat, nil, SEQ_DECKSHUFFLE, REASON_EFFECT + REASON_MATERIAL + REASON_FUSION)
 end
 -- 素材去向: 卡组下面
-function RushDuel.FusionToDeckBottom(mat)
-    local tp = mat:GetFirst():GetControler()
+function RushDuel.FusionToDeckBottom(tp, mat)
+    local g = mat:Filter(Card.IsFacedown, nil)
+    if g:GetCount() > 0 then
+        Duel.ConfirmCards(1 - tp, g)
+    end
     Auxiliary.PlaceCardsOnDeckBottom(tp, mat, REASON_EFFECT + REASON_MATERIAL + REASON_FUSION)
 end
+
+-- 可以进行接触融合术
+function RushDuel.EnableContactFusion(card, desc)
+    local e = aux.AddContactFusionProcedure(card, RushDuel.ContactFusionMaterialFilter, LOCATION_ONFIELD, 0, aux.tdcfop(card))
+    e:SetDescription(desc)
+    return e
+end
+-- 接触融合术: 素材过滤
+function RushDuel.ContactFusionMaterialFilter(card)
+    return card:IsFaceup() and card:IsAbleToDeckOrExtraAsCost()
+end

script/c120261033.lua

@@ -26,7 +26,7 @@ end
 function cm.target(e,tp,eg,ep,ev,re,r,rp,chk)
 	if chk==0 then return Duel.IsExistingMatchingCard(cm.desfilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) end
 	local g=Duel.GetMatchingGroup(cm.desfilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,nil)
-	Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0)
+	Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0)
 end
 function cm.operation(e,tp,eg,ep,ev,re,r,rp)
 	RD.SelectAndDoAction(HINTMSG_DESTROY,cm.desfilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil,function(g)

script/c120264003.lua

+local m=120264003
+local list={120264006}
+local cm=_G["c"..m]
+cm.name="接触体·暗物质飞龙"
+function cm.initial_effect(c)
+	RD.AddCodeList(c,list)
+	--Tribute
+	RD.CreateAdvanceCheck(c,cm.tricheck,1,20264003)
+	--Special Summon
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(m,0))
+	e1:SetCategory(CATEGORY_TOGRAVE+CATEGORY_SPECIAL_SUMMON+CATEGORY_GRAVE_SPSUMMON)
+	e1:SetType(EFFECT_TYPE_IGNITION)
+	e1:SetRange(LOCATION_MZONE)
+	e1:SetCondition(cm.condition)
+	e1:SetTarget(cm.target)
+	e1:SetOperation(cm.operation)
+	c:RegisterEffect(e1)
+end
+--Tribute
+function cm.tricheck(c)
+	return c:IsFacedown()
+end
+--Special Summon
+function cm.spfilter(c,e,tp)
+	return c:IsCode(list[1]) and RD.IsCanBeSpecialSummoned(c,e,tp,POS_FACEUP)
+end
+function cm.condition(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	return RD.IsSummonTurn(c) and c:GetFlagEffect(20264003)~=0
+end
+function cm.target(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(Card.IsAbleToGrave,tp,LOCATION_HAND,0,1,nil) end
+	Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,nil,1,tp,LOCATION_HAND)
+end
+function cm.operation(e,tp,eg,ep,ev,re,r,rp)
+	RD.SelectAndDoAction(HINTMSG_TOGRAVE,Card.IsAbleToGrave,tp,LOCATION_HAND,0,1,1,nil,function(g)
+		if RD.SendToGraveAndExists(g) then
+			RD.CanSelectAndSpecialSummon(aux.Stringid(m,1),aux.NecroValleyFilter(cm.spfilter),tp,LOCATION_GRAVE,0,1,1,nil,e,POS_FACEUP,true)
+		end
+	end)
+end
\ No newline at end of file

script/c120264006.lua

+local m=120264006
+local cm=_G["c"..m]
+cm.name="暗物质龙"
+function cm.initial_effect(c)
+	--Destroy
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(m,0))
+	e1:SetCategory(CATEGORY_DESTROY)
+	e1:SetType(EFFECT_TYPE_IGNITION)
+	e1:SetRange(LOCATION_MZONE)
+	e1:SetCondition(cm.condition)
+	e1:SetCost(cm.cost)
+	e1:SetTarget(cm.target)
+	e1:SetOperation(cm.operation)
+	c:RegisterEffect(e1)
+end
+--Destroy
+function cm.ctfilter(c)
+	return c:IsFacedown()
+end
+function cm.desfilter(c)
+	return c:IsFaceup() and c:IsLevelBelow(8)
+end
+function cm.condition(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	return RD.IsSummonTurn(c) or RD.IsSpecialSummonTurn(c)
+end
+cm.cost=RD.CostSendDeckTopToGrave(1)
+function cm.target(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(cm.ctfilter,tp,LOCATION_MZONE,0,1,nil)
+		and Duel.IsExistingMatchingCard(cm.desfilter,tp,0,LOCATION_MZONE,1,nil) end
+	local g=Duel.GetMatchingGroup(cm.desfilter,tp,0,LOCATION_MZONE,nil)
+	Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0)
+end
+function cm.operation(e,tp,eg,ep,ev,re,r,rp)
+	local ct=Duel.GetMatchingGroupCount(cm.ctfilter,tp,LOCATION_MZONE,0,nil)
+	if ct==0 then return end
+	RD.SelectAndDoAction(HINTMSG_DESTROY,cm.desfilter,tp,0,LOCATION_MZONE,1,ct,nil,function(g)
+		Duel.Destroy(g,REASON_EFFECT)
+	end)
+end
\ No newline at end of file

script/c120264038.lua

+local m=120264038
+local list={120264006,120264003}
+local cm=_G["c"..m]
+cm.name="暗物质皇帝龙"
+function cm.initial_effect(c)
+	RD.AddCodeList(c,list)
+	--Fusion Material
+	RD.AddFusionProcedure(c,list[1],list[2])
+	--Contact Fusion
+	RD.EnableContactFusion(c,aux.Stringid(m,0))
+	--Destroy
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(m,1))
+	e1:SetCategory(CATEGORY_DESTROY)
+	e1:SetType(EFFECT_TYPE_IGNITION)
+	e1:SetRange(LOCATION_MZONE)
+	e1:SetCondition(cm.condition)
+	e1:SetTarget(cm.target)
+	e1:SetOperation(cm.operation)
+	c:RegisterEffect(e1)
+end
+--Destroy
+function cm.desfilter(c)
+	return c:IsFacedown()
+end
+function cm.condition(e,tp,eg,ep,ev,re,r,rp)
+	return Duel.IsExistingMatchingCard(Card.IsFacedown,tp,LOCATION_MZONE,0,1,nil)
+end
+function cm.target(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(cm.desfilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,2,nil) end
+	local g=Duel.GetMatchingGroup(cm.desfilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,nil)
+	Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,2,0,0)
+end
+function cm.operation(e,tp,eg,ep,ev,re,r,rp)
+	RD.SelectAndDoAction(HINTMSG_DESTROY,cm.desfilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,2,2,nil,function(g)
+		Duel.Destroy(g,REASON_EFFECT)
+	end)
+	local c=e:GetHandler()
+	if c:IsFaceup() and c:IsRelateToEffect(e) then
+		RD.AttachAtkDef(e,c,2000,0,RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
+	end
+end
\ No newline at end of file

script/c120264039.lua

+local m=120264039
+local list={120222025,120264001}
+local cm=_G["c"..m]
+cm.name="暗物质噬兵 镇魂鹰巨人"
+function cm.initial_effect(c)
+	RD.AddCodeList(c,list)
+	--Fusion Material
+	RD.AddFusionProcedure(c,list[1],list[2])
+	--Contact Fusion
+	RD.EnableContactFusion(c,aux.Stringid(m,0))
+	--Position
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(m,1))
+	e1:SetCategory(CATEGORY_POSITION)
+	e1:SetType(EFFECT_TYPE_IGNITION)
+	e1:SetRange(LOCATION_MZONE)
+	e1:SetCondition(cm.condition)
+	e1:SetTarget(cm.target)
+	e1:SetOperation(cm.operation)
+	c:RegisterEffect(e1)
+end
+--Position
+function cm.posfilter(c)
+	return c:IsFaceup() and RD.IsCanChangePosition(c) and c:IsCanTurnSet()
+end
+function cm.condition(e,tp,eg,ep,ev,re,r,rp)
+	return RD.IsSpecialSummonTurn(e:GetHandler())
+end
+function cm.target(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(cm.posfilter,tp,0,LOCATION_MZONE,1,nil) end
+	local g=Duel.GetMatchingGroup(cm.posfilter,tp,0,LOCATION_MZONE,nil)
+	Duel.SetOperationInfo(0,CATEGORY_POSITION,g,1,0,0)
+end
+function cm.operation(e,tp,eg,ep,ev,re,r,rp)
+	RD.SelectAndDoAction(HINTMSG_SET,cm.posfilter,tp,0,LOCATION_MZONE,1,1,nil,function(g)
+		RD.ChangePosition(g,POS_FACEDOWN_DEFENSE)
+	end)
+	local c=e:GetHandler()
+	if c:IsFaceup() and c:IsRelateToEffect(e) then
+		RD.AttachAtkDef(e,c,1300,0,RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
+		RD.AttachPierce(e,c,aux.Stringid(m,2),RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
+	end
+end
\ No newline at end of file