2024/3/24 新增：混合驱动新卡，bug修复

script/RDLegend.lua

@@ -5,20 +5,13 @@ LEGEND_MONSTER = 120000000
 LEGEND_SPELL = 120000001
 LEGEND_TRAP = 120000002
 
-RushDuel.LegendCodes = {
-    -- 青眼白龙
-    {120120000, 120198001, 120231001},
-    -- 真红眼黑龙
-    {120125001, 120203016, 120229101},
-    -- 黑魔术师
-    {120130000, 120203015, 120254001},
-    -- 死者苏生
-    {120194004, 120195004},
-    -- 天使的施舍
-    {120196049, 120195005},
-    -- 海龙-泰达路斯
-    {120199000, 120239060}
-}
+RushDuel.LegendCodes = { -- 青眼白龙
+{120120000, 120198001, 120231001}, -- 真红眼黑龙
+{120125001, 120203016, 120229101}, -- 黑魔术师
+{120130000, 120203015, 120254001}, -- 死者苏生
+{120194004, 120195004}, -- 天使的施舍
+{120196049, 120195005}, -- 海龙-泰达路斯
+{120199000, 120239060}}
 
 -- 初始化传说卡
 function RushDuel.InitLegend()
@@ -60,6 +53,17 @@ function RushDuel.IsSameCode(card1, card2)
     return card1:IsLinkCode(card2:GetLinkCode())
 end
 
+-- 条件: 是否为原本卡名相同的卡
+function RushDuel.IsSameOriginalCode(card1, card2)
+    if RushDuel.IsLegendCard(card1) and RushDuel.IsLegendCard(card2) then
+        local code1 = RushDuel.GetLegendCode(card1:GetOriginalCode())
+        local code2 = RushDuel.GetLegendCode(card2:GetOriginalCode())
+        return code1 == code2
+    else
+        return card1:IsOriginalCodeRule(card2:GetOriginalCodeRule())
+    end
+end
+
 -- 永续改变卡名
 function RushDuel.EnableChangeCode(c, code, location, condition)
     Auxiliary.AddCodeList(c, code)

script/RDLimit.lua

@@ -160,6 +160,21 @@ function RushDuel.CreateCannotSpecialSummonEffect(e, desc, target, player, s_ran
     Duel.RegisterEffect(e1, player)
     return e1
 end
+-- 创建限制: 不能表侧特殊召唤怪兽
+function RushDuel.CreateCannotFaceupSpecialSummonEffect(e, desc, target, player, s_range, o_range, reset)
+    local e1 = Effect.CreateEffect(e:GetHandler())
+    e1:SetDescription(desc)
+    e1:SetType(EFFECT_TYPE_FIELD)
+    e1:SetCode(EFFECT_LIMIT_SPECIAL_SUMMON_POSITION)
+    e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET + EFFECT_FLAG_CLIENT_HINT)
+    e1:SetTargetRange(s_range, o_range)
+    e1:SetTarget(function(e, c, sump, sumtype, sumpos, targetp)
+        return sumpos & POS_FACEUP > 0 and (not target or target(e, c))
+    end)
+    e1:SetReset(reset)
+    Duel.RegisterEffect(e1, player)
+    return e1
+end
 -- 创建限制: 只能用1只怪兽进行攻击
 function RushDuel.CreateOnlySoleAttackEffect(e, code, player, s_range, o_range, reset)
     local e1 = Effect.CreateEffect(e:GetHandler())

script/c120261003.lua

+local m=120261003
+local cm=_G["c"..m]
+cm.name="混合驱动鳞甲"
+function cm.initial_effect(c)
+	--Discard Deck
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(m,0))
+	e1:SetCategory(CATEGORY_DECKDES)
+	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
+--Discard Deck
+cm.trival=RD.ValueDoubleTributeAttrRace(nil,RACE_DRAGON+RACE_MACHINE)
+function cm.confilter1(c)
+	return c:IsAttribute(ATTRIBUTE_LIGHT) and c:IsRace(RACE_DRAGON)
+end
+function cm.confilter2(c)
+	return c:IsAttribute(ATTRIBUTE_EARTH) and c:IsRace(RACE_MACHINE)
+end
+function cm.condition(e,tp,eg,ep,ev,re,r,rp)
+	return Duel.IsExistingMatchingCard(cm.confilter1,tp,LOCATION_GRAVE,0,1,nil)
+		and Duel.IsExistingMatchingCard(cm.confilter2,tp,LOCATION_GRAVE,0,1,nil)
+end
+function cm.target(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsPlayerCanDiscardDeck(tp,1) end
+	Duel.SetOperationInfo(0,CATEGORY_DECKDES,nil,0,tp,1)
+end
+function cm.operation(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	if RD.SendDeckTopToGraveAndExists(tp,1) and c:IsFaceup() and c:IsRelateToEffect(e) then
+		RD.AttachDoubleTribute(e,c,cm.trival,aux.Stringid(m,1),RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
+	end
+end
\ No newline at end of file

script/c120261004.lua

+local m=120261004
+local list={120120026}
+local cm=_G["c"..m]
+cm.name="混合驱动牙刀龙"
+function cm.initial_effect(c)
+	RD.AddCodeList(c,list)
+	--Discard Deck
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(m,0))
+	e1:SetCategory(CATEGORY_DECKDES+CATEGORY_TOHAND+CATEGORY_GRAVE_ACTION)
+	e1:SetType(EFFECT_TYPE_IGNITION)
+	e1:SetRange(LOCATION_MZONE)
+	e1:SetCost(cm.cost)
+	e1:SetTarget(cm.target)
+	e1:SetOperation(cm.operation)
+	c:RegisterEffect(e1)
+end
+--Discard Deck
+function cm.thfilter(c)
+	return c:IsCode(list[1]) and c:IsAbleToHand()
+end
+cm.cost=RD.CostSendHandToGrave(Card.IsAbleToGraveAsCost,1,1)
+function cm.target(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsPlayerCanDiscardDeck(tp,3) end
+	Duel.SetOperationInfo(0,CATEGORY_DECKDES,nil,0,tp,3)
+end
+function cm.operation(e,tp,eg,ep,ev,re,r,rp)
+	if RD.SendDeckTopToGraveAndExists(tp,3) then
+		RD.CanSelectAndDoAction(aux.Stringid(m,1),HINTMSG_ATOHAND,aux.NecroValleyFilter(cm.thfilter),tp,LOCATION_GRAVE,0,1,1,nil,function(g)
+			Duel.BreakEffect()
+			RD.SendToHandAndExists(g,1-tp)
+		end)
+	end
+end
\ No newline at end of file

script/c120261005.lua

+local m=120261005
+local list={120261003,120261004}
+local cm=_G["c"..m]
+cm.name="混合驱动蜥蜴"
+function cm.initial_effect(c)
+	RD.AddCodeList(c,list)
+	--Special Summon
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(m,0))
+	e1:SetCategory(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
+--Special Summon
+function cm.spfilter(c,e,tp)
+	return c:IsCode(list[1],list[2]) and RD.IsCanBeSpecialSummoned(c,e,tp,POS_FACEUP_DEFENSE)
+end
+function cm.condition(e,tp,eg,ep,ev,re,r,rp)
+	return RD.IsSummonTurn(e:GetHandler())
+end
+function cm.target(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.GetMZoneCount(tp)>0
+		and Duel.IsExistingMatchingCard(cm.spfilter,tp,LOCATION_GRAVE,0,1,nil,e,tp) end
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_GRAVE)
+end
+function cm.operation(e,tp,eg,ep,ev,re,r,rp)
+	RD.SelectAndSpecialSummon(aux.NecroValleyFilter(cm.spfilter),tp,LOCATION_GRAVE,0,1,1,nil,e,POS_FACEUP_DEFENSE)
+end
\ No newline at end of file

script/c120261006.lua

+local m=120261006
+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:SetCost(cm.cost)
+	e1:SetTarget(cm.target)
+	e1:SetOperation(cm.operation)
+	c:RegisterEffect(e1)
+end
+--Destroy
+function cm.costfilter(c)
+	return c:IsRace(RACE_DRAGON+RACE_MACHINE) and c:IsAbleToDeckOrExtraAsCost()
+end
+function cm.costcheck(g,e,tp)
+	return g:FilterCount(Card.IsRace,nil,RACE_DRAGON)==2 and g:FilterCount(Card.IsRace,nil,RACE_MACHINE)==2
+end
+cm.cost=RD.CostSendGraveSubToDeckBottom(cm.costfilter,cm.costcheck,4,4)
+function cm.target(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(nil,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end
+	local g=Duel.GetMatchingGroup(nil,tp,LOCATION_MZONE,LOCATION_MZONE,nil)
+	Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0)
+end
+function cm.operation(e,tp,eg,ep,ev,re,r,rp)
+	RD.SelectAndDoAction(HINTMSG_DESTROY,nil,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil,function(g)
+		if Duel.Destroy(g,REASON_EFFECT)~=0 then
+			local tc=Duel.GetOperatedGroup():GetFirst()
+			local sumlimit=function(e,c)
+				return RD.IsSameOriginalCode(c,tc)
+			end
+			RD.CreateCannotSummonEffect(e,aux.Stringid(m,1),sumlimit,tp,1,1,RESET_PHASE+PHASE_END+RESET_OPPO_TURN)
+			RD.CreateCannotFaceupSpecialSummonEffect(e,aux.Stringid(m,2),sumlimit,tp,1,1,RESET_PHASE+PHASE_END+RESET_OPPO_TURN)
+		end
+	end)
+end
\ No newline at end of file

script/c120261007.lua

 local m=120261007
-local list={120120024,120115001,120196050}
+local list={120260062,120115001,120196050}
 local cm=_G["c"..m]
 cm.name="落单使魔女"
 function cm.initial_effect(c)

script/c120261008.lua

@@ -16,10 +16,7 @@ end
 --Discard Deck
 cm.trival=RD.ValueDoubleTributeAttrRace(ATTRIBUTE_DARK,RACE_SPELLCASTER)
 function cm.exfilter(c)
-	return c:IsRace(RACE_SPELLCASTER) and c:IsLocation(LOCATION_GRAVE)
-end
-function cm.filter(c)
-	return c:IsFaceup() and c:IsRace(RACE_PSYCHO) and RD.IsCanAttachDoubleTribute(c,cm.trival)
+	return c:IsType(TYPE_EFFECT) and c:IsRace(RACE_SPELLCASTER) and c:IsLocation(LOCATION_GRAVE)
 end
 function cm.condition(e,tp,eg,ep,ev,re,r,rp)
 	return RD.IsSummonTurn(e:GetHandler())

script/c120261044.lua

+local m=120261044
+local list={120222017,120208019}
+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])
+	--Destroy
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(m,0))
+	e1:SetCategory(CATEGORY_DESTROY+CATEGORY_ATKCHANGE)
+	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
+--Special Summon
+function cm.condition(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	return c:IsSummonType(SUMMON_TYPE_FUSION) and RD.IsSpecialSummonTurn(c)
+end
+function cm.target(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(Card.IsFacedown,tp,0,LOCATION_ONFIELD,1,nil) end
+	local g=Duel.GetMatchingGroup(Card.IsFacedown,tp,0,LOCATION_ONFIELD,nil)
+	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,Card.IsFacedown,tp,0,LOCATION_ONFIELD,1,3,nil,function(g)
+		local ct=Duel.Destroy(g,REASON_EFFECT)
+		local c=e:GetHandler()
+		if c:IsFaceup() and c:IsRelateToEffect(e) then
+			RD.AttachAtkDef(e,c,ct*500,0,RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
+			local mg=Duel.GetMatchingGroup(Card.IsFaceup,tp,0,LOCATION_MZONE,nil)
+			if mg:GetCount()>0 and Duel.SelectYesNo(tp,aux.Stringid(m,1)) then
+				Duel.BreakEffect()
+				mg:ForEach(function(tc)
+					RD.AttachAtkDef(e,tc,-1000,0,RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
+				end)
+			end
+		end
+	end)
+end
\ No newline at end of file

script/c120261052.lua

+local m=120261052
+local cm=_G["c"..m]
+cm.name="混合驱动回归融合"
+function cm.initial_effect(c)
+	--Activate
+	local e1=Effect.CreateEffect(c)
+	e1:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_GRAVE_SPSUMMON+CATEGORY_FUSION_SUMMON)
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	e1:SetCost(cm.cost)
+	e1:SetTarget(cm.target)
+	e1:SetOperation(cm.activate)
+	c:RegisterEffect(e1)
+end
+--Activate
+function cm.costfilter(c)
+	return c:IsRace(RACE_DRAGON+RACE_MACHINE) and c:IsAbleToDeckOrExtraAsCost()
+end
+function cm.filter(c,e,tp)
+	return RD.IsCanBeSpecialSummoned(c,e,tp,POS_FACEDOWN_DEFENSE)
+end
+function cm.exfilter(c)
+	return c:IsRace(RACE_DRAGON+RACE_MACHINE) and c:IsCanBeFusionMaterial() and c:IsAbleToDeck()
+end
+function cm.matcheck(tp,sg,fc)
+	return sg:GetClassCount(Card.GetRace)==sg:GetCount()
+end
+cm.cost=RD.CostSendGraveToDeck(cm.costfilter,4,4)
+function cm.target(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.GetMZoneCount(1-tp)>0
+		and Duel.IsExistingMatchingCard(cm.filter,tp,0,LOCATION_GRAVE,1,nil,e,1-tp) end
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,1-tp,LOCATION_GRAVE)
+end
+function cm.activate(e,tp,eg,ep,ev,re,r,rp)
+	if RD.SelectAndSpecialSummon(cm.filter,1-tp,LOCATION_GRAVE,0,1,1,nil,e,POS_FACEDOWN_DEFENSE)~=0 then
+		RD.CanFusionSummon(aux.Stringid(m,1),aux.FALSE,nil,cm.exfilter,LOCATION_GRAVE,0,cm.matcheck,RD.FusionToDeck,e,tp,true)
+	end
+	if Duel.GetFlagEffect(tp,m)~=0 then return end
+	RD.CreateHintEffect(e,aux.Stringid(m,2),tp,1,0,RESET_PHASE+PHASE_END)
+	RD.CreateAttackLimitEffect(e,cm.atktg,tp,LOCATION_MZONE,0,RESET_PHASE+PHASE_END)
+	Duel.RegisterFlagEffect(tp,m,RESET_PHASE+PHASE_END,0,1)
+end
+function cm.atktg(e,c)
+	return not c:IsType(TYPE_FUSION)
+end
\ No newline at end of file

script/c120261053.lua

+local m=120261053
+local cm=_G["c"..m]
+cm.name="混合驱动重构"
+function cm.initial_effect(c)
+	--Activate
+	local e1=Effect.CreateEffect(c)
+	e1:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_GRAVE_SPSUMMON)
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	e1:SetCost(cm.cost)
+	e1:SetTarget(cm.target)
+	e1:SetOperation(cm.activate)
+	c:RegisterEffect(e1)
+end
+--Activate
+function cm.costfilter(c)
+	return c:IsAttribute(ATTRIBUTE_LIGHT) and c:IsRace(RACE_DRAGON) and c:IsAbleToDeckOrExtraAsCost()
+end
+function cm.spfilter(c,e,tp)
+	return c:IsAttribute(ATTRIBUTE_EARTH) and c:IsRace(RACE_MACHINE) and RD.IsCanBeSpecialSummoned(c,e,tp,POS_FACEUP)
+end
+function cm.costcheck(g,e,tp)
+	return Duel.IsExistingMatchingCard(cm.spfilter,tp,LOCATION_GRAVE,0,1,g,e,tp)
+end
+cm.cost=RD.CostSendGraveSubToDeckBottom(cm.costfilter,cm.costcheck,2,2)
+function cm.target(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.GetMZoneCount(tp)>0
+		and Duel.IsExistingMatchingCard(cm.spfilter,tp,LOCATION_GRAVE,0,1,nil,e,tp) end
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_GRAVE)
+end
+function cm.activate(e,tp,eg,ep,ev,re,r,rp)
+	RD.SelectAndSpecialSummon(aux.NecroValleyFilter(cm.spfilter),tp,LOCATION_GRAVE,0,1,1,nil,e,POS_FACEUP)
+end
\ No newline at end of file

script/c120261059.lua

+local m=120261059
+local cm=_G["c"..m]
+cm.name="混合驱动保险杠"
+function cm.initial_effect(c)
+	--Activate
+	local e1=Effect.CreateEffect(c)
+	e1:SetCategory(CATEGORY_ATKCHANGE+CATEGORY_DESTROY)
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetCode(EVENT_ATTACK_ANNOUNCE)
+	e1:SetCondition(cm.condition)
+	e1:SetCost(cm.cost)
+	e1:SetOperation(cm.activate)
+	c:RegisterEffect(e1)
+end
+--Activate
+function cm.costfilter(c)
+	return c:IsRace(RACE_DRAGON+RACE_MACHINE) and c:IsAbleToDeckOrExtraAsCost()
+end
+function cm.desfilter(c)
+	return c:IsFaceup() and c:IsLevelBelow(9)
+end
+function cm.condition(e,tp,eg,ep,ev,re,r,rp)
+	return Duel.GetAttacker():IsControler(1-tp)
+end
+cm.cost=RD.CostSendGraveToDeck(cm.costfilter,4,4,nil,nil,function(g)
+	return g:GetClassCount(Card.GetRace)
+end)
+function cm.activate(e,tp,eg,ep,ev,re,r,rp)
+	local tc=Duel.GetAttacker()
+	if tc and tc:IsFaceup() and tc:IsRelateToBattle() then
+		RD.AttachAtkDef(e,tc,-1600,0,RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
+		if e:GetLabel()==2 then
+			RD.CanSelectAndDoAction(aux.Stringid(m,1),HINTMSG_DESTROY,cm.desfilter,tp,0,LOCATION_MZONE,1,1,nil,function(g)
+				Duel.Destroy(g,REASON_EFFECT)
+			end)
+		end
+	end
+end
\ No newline at end of file