2023/1/14 新增：苍救，THE新卡，修改同名卡判定

script/RDAction.lua

@@ -103,7 +103,8 @@ end
 function RushDuel.CanSelectAndSpecialSummon(desc, filter, tp, s_range, o_range, min, max, expect, e, pos, break_effect, target_player)
     local ct = RushDuel.GetMZoneCount(target_player or tp, max)
     if ct >= min then
-        return RushDuel._private_action_can_select_match(desc, HINTMSG_SPSUMMON, filter, tp, s_range, o_range, min, ct, expect, false, false, RushDuel._special_summon, e, tp, pos, break_effect, target_player)
+        return RushDuel._private_action_can_select_match(desc, HINTMSG_SPSUMMON, filter, tp, s_range, o_range, min, ct, expect, false, false, RushDuel._special_summon, e, tp, pos, break_effect,
+            target_player)
     end
     return 0
 end
@@ -111,7 +112,8 @@ end
 function RushDuel.SelectGroupAndSpecialSummon(filter, check, tp, s_range, o_range, min, max, expect, e, pos, break_effect, target_player)
     local ct = RushDuel.GetMZoneCount(target_player or tp, max)
     if ct >= min then
-        return RushDuel._private_action_select_group(HINTMSG_SPSUMMON, filter, check, tp, s_range, o_range, min, ct, expect, false, false, RushDuel._special_summon, e, tp, pos, break_effect, target_player)
+        return RushDuel._private_action_select_group(HINTMSG_SPSUMMON, filter, check, tp, s_range, o_range, min, ct, expect, false, false, RushDuel._special_summon, e, tp, pos, break_effect,
+            target_player)
     end
     return 0
 end
@@ -119,7 +121,8 @@ end
 function RushDuel.CanSelectGroupAndSpecialSummon(desc, filter, check, tp, s_range, o_range, min, max, expect, e, pos, break_effect, target_player)
     local ct = RushDuel.GetMZoneCount(target_player or tp, max)
     if ct >= min then
-        return RushDuel._private_action_can_select_group(desc, HINTMSG_SPSUMMON, filter, check, tp, s_range, o_range, min, ct, expect, false, false, RushDuel._special_summon, e, tp, pos, break_effect, target_player)
+        return RushDuel._private_action_can_select_group(desc, HINTMSG_SPSUMMON, filter, check, tp, s_range, o_range, min, ct, expect, false, false, RushDuel._special_summon, e, tp, pos, break_effect,
+            target_player)
     end
     return 0
 end
@@ -271,6 +274,37 @@ function RushDuel.SendToOpponentDeckBottom(target, player)
     end
 end
 
+-- 操作: 翻开卡组并选择卡
+function RushDuel.RevealDeckTopAndSelect(player, count, hint, filter, min, max)
+    Duel.ConfirmDecktop(player, count)
+    local g = Duel.GetDecktopGroup(player, count)
+    if g:GetCount() > 0 then
+        Duel.Hint(HINT_SELECTMSG, player, hint)
+        local sg = g:FilterSelect(player, filter, 1, 1, nil)
+        g:Sub(sg)
+        return sg, g
+    else
+        return g, g
+    end
+end
+-- 操作: 翻开卡组并可以选择卡
+function RushDuel.RevealDeckTopAndCanSelect(player, count, desc, hint, filter, min, max)
+    Duel.ConfirmDecktop(player, count)
+    local g = Duel.GetDecktopGroup(player, count)
+    if g:GetCount() > 0 then
+        if g:IsExists(filter, 1, nil) and Duel.SelectYesNo(player, desc) then
+            Duel.Hint(HINT_SELECTMSG, player, hint)
+            local sg = g:FilterSelect(player, filter, 1, 1, nil)
+            g:Sub(sg)
+            return sg, g
+        else
+            return Group.CreateGroup(), g
+        end
+    else
+        return g, g
+    end
+end
+
 -- 可选操作: 抽卡
 function RushDuel.CanDraw(desc, player, count, break_effect)
     if Duel.IsPlayerCanDraw(player, count) and Duel.SelectYesNo(player, desc) then

script/RDAttach.lua

 -- Rush Duel 赋予Buff
 RushDuel = RushDuel or {}
 
+-- 赋予: 改变卡名
+function RushDuel.AttachCardCode(e, card, code, reset, forced)
+    return RushDuel.CreateSingleEffect(e, nil, card, EFFECT_CHANGE_CODE, code, reset, forced)
+end
 -- 赋予: 攻守升降
 function RushDuel.AttachAtkDef(e, card, atk, def, reset, forced)
     if atk ~= nil and atk ~= 0 then

script/RDCode.lua

@@ -29,7 +29,7 @@ end
 function RushDuel.IsLegendCode(card, ...)
     for _, item in ipairs {...} do
         local type = aux.GetValueType(item)
-        if type == "number" and RushDuel.IsLegend(card) and card:GetOriginalCode() == item then
+        if type == "number" and RushDuel.GetCardCode(card) == item then
             return true
         elseif type == "table" and RushDuel.IsLegendCode(card, table.unpack(item)) then
             return true
@@ -38,11 +38,20 @@ function RushDuel.IsLegendCode(card, ...)
     return false
 end
 
+-- 获取卡牌的密码
+function RushDuel.GetCardCode(card)
+    local code = card:GetCode()
+    if RushDuel.IsLegend(card) then
+        code = card:GetOriginalCode()
+    end
+    local codes = RushDuel.GetEffectValues(card, EFFECT_CHANGE_CODE)
+    for _, val in ipairs(codes) do
+        code = val
+    end
+    return code
+end
+
 -- 条件: 是否为同名卡
 function RushDuel.IsSameCode(card1, card2)
-    if (RushDuel.IsLegend(card1) or RushDuel.IsLegend(card2)) then
-        return card1:GetOriginalCode() == card2:GetOriginalCode()
-    else
-        return card1:IsCode(card2:GetCode())
-    end
+    return RushDuel.GetCardCode(card1) == RushDuel.GetCardCode(card2)
 end

script/RDCost.lua

@@ -112,6 +112,13 @@ function RushDuel.CostShowHand(filter, min, max, set_label, set_object)
         Duel.ShuffleHand(tp)
     end)
 end
+-- 代价: 把额外卡组给对方观看 (子卡片组)
+function RushDuel.CostShowGroupExtra(filter, check, min, max, set_label, set_object)
+    return RushDuel._private_cost_select_group(HINTMSG_CONFIRM, filter, check, LOCATION_EXTRA, 0, min, max, false, function(g, e, tp, eg, ep, ev, re, r, rp)
+        RushDuel.SetLabelAndObject(e, g, set_label, set_object)
+        Duel.ConfirmCards(1 - tp, g)
+    end)
+end
 -- 代价: 从卡组上面把卡送去墓地
 function RushDuel.CostSendDeckTopToGrave(count, set_label, set_object)
     return function(e, tp, eg, ep, ev, re, r, rp, chk)
@@ -163,37 +170,41 @@ end
 function RushDuel.CostSendOnFieldToGrave(filter, min, max, except_self, set_label_before, set_object_before, set_label_after, set_object_after)
     return RushDuel.CostSendMatchToGrave(filter, LOCATION_ONFIELD, min, max, except_self, false, false, set_label_before, set_object_before, set_label_after, set_object_after)
 end
+-- 代价: 让场上的卡返回卡组下面
+function RushDuel.CostSendOnFieldToDeckBottom(filter, min, max, except_self, set_label_before, set_object_before, set_label_after, set_object_after)
+    return RushDuel.CostSendMatchToDeckSort(filter, LOCATION_ONFIELD, min, max, except_self, SEQ_DECKBOTTOM, true, false, set_label_before, set_object_before, set_label_after, set_object_after)
+end
 -- 代价: 把场上的卡送去墓地 (子卡片组)
 function RushDuel.CostSendOnFieldSubToGrave(filter, check, min, max, except_self, set_label_before, set_object_before, set_label_after, set_object_after)
     return RushDuel.CostSendGroupToGrave(filter, check, LOCATION_ONFIELD, min, max, except_self, false, false, set_label_before, set_object_before, set_label_after, set_object_after)
 end
 -- 代价: 把手卡返回卡组上面
 function RushDuel.CostSendHandToDeckTop(filter, min, max, confirm, set_label_before, set_object_before, set_label_after, set_object_after)
-    return RushDuel.CostSendMatchToDeckSort(filter, LOCATION_HAND, min, max, true, 0, false, confirm, set_label_before, set_object_before, set_label_after, set_object_after)
+    return RushDuel.CostSendMatchToDeckSort(filter, LOCATION_HAND, min, max, true, SEQ_DECKTOP, false, confirm, set_label_before, set_object_before, set_label_after, set_object_after)
 end
 -- 代价: 把手卡返回卡组下面
 function RushDuel.CostSendHandToDeckBottom(filter, min, max, confirm, set_label_before, set_object_before, set_label_after, set_object_after)
-    return RushDuel.CostSendMatchToDeckSort(filter, LOCATION_HAND, min, max, true, 1, false, confirm, set_label_before, set_object_before, set_label_after, set_object_after)
+    return RushDuel.CostSendMatchToDeckSort(filter, LOCATION_HAND, min, max, true, SEQ_DECKBOTTOM, false, confirm, set_label_before, set_object_before, set_label_after, set_object_after)
 end
 -- 代价: 让墓地的卡返回卡组
 function RushDuel.CostSendGraveToDeck(filter, min, max, set_label_before, set_object_before, set_label_after, set_object_after)
-    return RushDuel.CostSendMatchToDeckSort(filter, LOCATION_GRAVE, min, max, false, 2, false, true, set_label_before, set_object_before, set_label_after, set_object_after)
+    return RushDuel.CostSendMatchToDeckSort(filter, LOCATION_GRAVE, min, max, false, SEQ_DECKSHUFFLE, false, true, set_label_before, set_object_before, set_label_after, set_object_after)
 end
 -- 代价: 让墓地的卡返回卡组 (子卡片组)
 function RushDuel.CostSendGraveSubToDeck(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, 2, false, true, set_label_before, set_object_before, set_label_after, set_object_after)
+    return RushDuel.CostSendGroupToDeckSort(filter, check, LOCATION_GRAVE, min, max, false, SEQ_DECKSHUFFLE, false, true, set_label_before, set_object_before, set_label_after, set_object_after)
 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, 0, false, true, 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.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, 1, false, true, 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)
 end
 -- 代价: 让墓地的卡返回卡组下面 (子卡片组)
 function RushDuel.CostSendGraveSubToDeckBottom(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, 1, false, true, set_label_before, set_object_before, set_label_after, set_object_after)
+    return RushDuel.CostSendGroupToDeckSort(filter, check, LOCATION_GRAVE, min, max, false, SEQ_DECKBOTTOM, false, true, set_label_before, set_object_before, set_label_after, set_object_after)
 end
 -- 代价: 把怪兽返回手卡
 function RushDuel.CostSendMZoneToHand(filter, min, max, except_self, set_label_before, set_object_before, set_label_after, set_object_after)

script/RDRule.lua

@@ -39,7 +39,7 @@ function RushDuel.InitRule()
             -- 极大怪兽的L/R部分的效果分开计算
             return e:GetLabel()
         else
-            return e:GetOwner():GetCode()
+            return e:GetOwner():GetOriginalCode()
         end
     end
     RushDuel.CreatePlayerTargetGlobalEffect(EFFECT_CANNOT_ACTIVATE, function(e, re, tp)

script/c120208045.lua

@@ -24,19 +24,14 @@ function cm.target(e,tp,eg,ep,ev,re,r,rp,chk)
 end
 function cm.activate(e,tp,eg,ep,ev,re,r,rp)
 	if Duel.GetFieldGroupCount(tp,LOCATION_DECK,0)<2 then return end
-	Duel.ConfirmDecktop(tp,2)
-	local g=Duel.GetDecktopGroup(tp,2)
-	if g:GetCount()>0 then
-		if g:IsExists(cm.thfilter,1,nil) and Duel.SelectYesNo(tp,aux.Stringid(m,1)) then
-			Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
-			local sg=g:FilterSelect(tp,cm.thfilter,1,1,nil)
-			Duel.DisableShuffleCheck()
-			RD.SendToHandAndExists(sg,1-tp)
-			Duel.ShuffleHand(tp)
-			RD.SendDeckTopToBottom(tp,1)
-		else
-			Duel.SortDecktop(tp,tp,2)
-			RD.SendDeckTopToBottom(tp,2)
-		end
+	local sg=RD.RevealDeckTopAndCanSelect(tp,2,aux.Stringid(m,1),HINTMSG_ATOHAND,cm.thfilter,1,1)
+	if sg:GetCount()>0 then
+		Duel.DisableShuffleCheck()
+		RD.SendToHandAndExists(sg,1-tp)
+		Duel.ShuffleHand(tp)
+		RD.SendDeckTopToBottom(tp,1)
+	else
+		Duel.SortDecktop(tp,tp,2)
+		RD.SendDeckTopToBottom(tp,2)
 	end
 end
\ No newline at end of file

script/c120217092.lua

@@ -18,12 +18,7 @@ function cm.target(e,tp,eg,ep,ev,re,r,rp,chk)
 end
 function cm.operation(e,tp,eg,ep,ev,re,r,rp)
 	if Duel.GetFieldGroupCount(tp,LOCATION_DECK,0)<3 then return end
-	Duel.ConfirmDecktop(tp,3)
-	local g=Duel.GetDecktopGroup(tp,3)
-	if g:GetCount()>0 then
-		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
-		local sg=g:FilterSelect(tp,Card.IsAbleToGrave,1,1,nil)
-		Duel.SendtoGrave(sg,REASON_EFFECT)
-		Duel.ShuffleDeck(tp)
-	end
+	local sg=RD.RevealDeckTopAndSelect(tp,3,HINTMSG_TOGRAVE,Card.IsAbleToGrave,1,1)
+	Duel.SendtoGrave(sg,REASON_EFFECT)
+	Duel.ShuffleDeck(tp)
 end
\ No newline at end of file

script/c120235012.lua

+local m=120235012
+local list={120235046,120235047,120235003}
+local cm=_G["c"..m]
+cm.name="THE☆克隆"
+function cm.initial_effect(c)
+	RD.AddCodeList(c,list)
+	--Draw
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(m,0))
+	e1:SetCategory(CATEGORY_DRAW)
+	e1:SetType(EFFECT_TYPE_IGNITION)
+	e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
+	e1:SetRange(LOCATION_MZONE)
+	e1:SetCondition(cm.condition)
+	e1:SetCost(cm.cost)
+	e1:SetTarget(cm.target)
+	e1:SetOperation(cm.operation)
+	c:RegisterEffect(e1)
+end
+--Draw
+function cm.confilter1(c)
+	return c:IsRace(RACE_DRAGON) or c:IsRace(RACE_HYDRAGON)
+end
+function cm.confilter2(c)
+	return c:IsType(TYPE_MONSTER) and not cm.confilter1(c)
+end
+function cm.exfilter(c)
+	return c:IsCode(list[1],list[2])
+end
+function cm.condition(e,tp,eg,ep,ev,re,r,rp)
+	return Duel.IsExistingMatchingCard(cm.confilter1,tp,LOCATION_GRAVE,0,1,nil)
+		and not Duel.IsExistingMatchingCard(cm.confilter2,tp,LOCATION_GRAVE,0,1,nil)
+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.IsPlayerCanDraw(tp,1) end
+	RD.TargetDraw(tp,1)
+end
+function cm.operation(e,tp,eg,ep,ev,re,r,rp)
+	if RD.Draw() and Duel.IsExistingMatchingCard(cm.exfilter,tp,LOCATION_GRAVE,0,1,nil) then
+		local c=e:GetHandler()
+		if c:IsFaceup() and c:IsRelateToEffect(e) then
+			RD.AttachCardCode(e,c,list[3],RESET_EVENT+RESETS_STANDARD+RESET_DISABLE+RESET_PHASE+PHASE_END)
+		end
+	end
+end
\ No newline at end of file

script/c120235013.lua

+local m=120235013
+local cm=_G["c"..m]
+cm.name="镜连接飞龙"
+function cm.initial_effect(c)
+	--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.confilter1(c)
+	return c:IsRace(RACE_DRAGON) or c:IsRace(RACE_HYDRAGON)
+end
+function cm.confilter2(c)
+	return c:IsType(TYPE_MONSTER) and not cm.confilter1(c)
+end
+function cm.spfilter(c,e,tp)
+	return c:IsType(TYPE_NORMAL) and RD.IsCanBeSpecialSummoned(c,e,tp,POS_FACEUP)
+end
+function cm.condition(e,tp,eg,ep,ev,re,r,rp)
+	return RD.IsSummonTurn(e:GetHandler())
+		and Duel.IsExistingMatchingCard(cm.confilter1,tp,LOCATION_GRAVE,0,1,nil)
+		and not 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.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)
+	if RD.SelectAndSpecialSummon(aux.NecroValleyFilter(cm.spfilter),tp,LOCATION_GRAVE,0,1,1,nil,e,POS_FACEUP)~=0 then
+		local tc=Duel.GetOperatedGroup():GetFirst()
+		local c=e:GetHandler()
+		if c:IsFaceup() and c:IsRelateToEffect(e) and tc:IsFaceup() then
+			local code=RD.GetCardCode(tc)
+			RD.AttachCardCode(e,c,code,RESET_EVENT+RESETS_STANDARD+RESET_DISABLE+RESET_PHASE+PHASE_END)
+		end
+	end
+end
\ No newline at end of file

script/c120235020.lua

+local m=120235020
+local list={120235021,120196050}
+local cm=_G["c"..m]
+cm.name="苍救天使 苏蕾"
+function cm.initial_effect(c)
+	RD.AddCodeList(c,list)
+	--Change Code
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(m,0))
+	e1:SetCategory(CATEGORY_SEARCH+CATEGORY_TOHAND)
+	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
+--Pierce
+function cm.costfilter(c,e,tp)
+	return not c:IsPublic() and c:IsRace(RACE_WARRIOR)
+end
+function cm.thfilter(c)
+	return c:IsCode(list[2]) and c:IsAbleToHand()
+end
+function cm.condition(e,tp,eg,ep,ev,re,r,rp)
+	return not e:GetHandler():IsCode(list[1])
+end
+cm.cost=RD.CostShowHand(cm.costfilter,1,1)
+function cm.target(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.GetFieldGroupCount(tp,LOCATION_DECK,0)>3 end
+end
+function cm.operation(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	if c:IsFaceup() and c:IsRelateToEffect(e) then
+		RD.AttachCardCode(e,c,list[1],RESET_EVENT+RESETS_STANDARD+RESET_DISABLE+RESET_PHASE+PHASE_END)
+		if Duel.GetFieldGroupCount(tp,LOCATION_DECK,0)<4 then return end
+		Duel.BreakEffect()
+		local sg,g=RD.RevealDeckTopAndCanSelect(tp,4,aux.Stringid(m,1),HINTMSG_ATOHAND,cm.thfilter,1,1)
+		if sg:GetCount()>0 then
+			Duel.DisableShuffleCheck()
+			RD.SendToHandAndExists(sg,1-tp)
+			Duel.ShuffleHand(tp)
+		end
+		local ct=g:GetCount()
+		if ct>0 then
+			Duel.SortDecktop(tp,tp,ct)
+			RD.SendDeckTopToBottom(tp,ct)
+		end
+	end
+end
\ No newline at end of file

script/c120235021.lua

+local m=120235021
+local list={120235020,120196050}
+local cm=_G["c"..m]
+cm.name="苍救天使 卢阿"
+function cm.initial_effect(c)
+	RD.AddCodeList(c,list)
+	--Change Code
+	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:SetCondition(cm.condition)
+	e1:SetCost(cm.cost)
+	e1:SetTarget(cm.target)
+	e1:SetOperation(cm.operation)
+	c:RegisterEffect(e1)
+end
+--Pierce
+function cm.costfilter(c,e,tp)
+	return not c:IsPublic() and c:IsRace(RACE_WARRIOR)
+end
+function cm.thfilter(c)
+	return c:IsCode(list[2]) and c:IsAbleToHand()
+end
+function cm.condition(e,tp,eg,ep,ev,re,r,rp)
+	return not e:GetHandler():IsCode(list[1])
+end
+cm.cost=RD.CostShowHand(cm.costfilter,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)
+	local c=e:GetHandler()
+	if c:IsFaceup() and c:IsRelateToEffect(e) then
+		RD.AttachCardCode(e,c,list[1],RESET_EVENT+RESETS_STANDARD+RESET_DISABLE+RESET_PHASE+PHASE_END)
+		Duel.BreakEffect()
+		if RD.SendDeckTopToGraveAndExists(tp,3) then
+			local og=Duel.GetOperatedGroup()
+			if og:IsExists(cm.thfilter,1,nil) and Duel.SelectYesNo(tp,aux.Stringid(m,1)) then
+				Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
+				local sg=og:FilterSelect(tp,cm.thfilter,1,1,nil)
+				RD.SendToHandAndExists(sg,1-tp)
+			end
+		end
+	end
+end
\ No newline at end of file

script/c120235022.lua

+local m=120235022
+local list={120235052,120196050,120235020,120235021}
+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:SetCost(cm.cost)
+	e1:SetTarget(cm.target)
+	e1:SetOperation(cm.operation)
+	c:RegisterEffect(e1)
+end
+--Special Summon
+function cm.costfilter(c,e,tp)
+	return not c:IsPublic() and c:IsCode(list[1],list[2])
+end
+function cm.spfilter(c,e,tp)
+	return c:IsCode(list[3],list[4]) and RD.IsCanBeSpecialSummoned(c,e,tp,POS_FACEUP)
+end
+function cm.condition(e,tp,eg,ep,ev,re,r,rp)
+	return RD.IsSummonTurn(e:GetHandler())
+end
+cm.cost=RD.CostShowHand(cm.costfilter,1,1)
+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)
+end
\ No newline at end of file

script/c120235023.lua

+local m=120235023
+local list={120235052,120196050}
+local cm=_G["c"..m]
+cm.name="苍救骑士 赛尔"
+function cm.initial_effect(c)
+	RD.AddCodeList(c,list)
+	--Draw
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(m,0))
+	e1:SetCategory(CATEGORY_DRAW)
+	e1:SetType(EFFECT_TYPE_IGNITION)
+	e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
+	e1:SetRange(LOCATION_MZONE)
+	e1:SetCondition(cm.condition)
+	e1:SetCost(cm.cost)
+	e1:SetTarget(cm.target)
+	e1:SetOperation(cm.operation)
+	c:RegisterEffect(e1)
+end
+--Draw
+function cm.costfilter(c,e,tp)
+	return not c:IsPublic() and c:IsCode(list[1],list[2])
+end
+function cm.condition(e,tp,eg,ep,ev,re,r,rp)
+	return RD.IsSummonTurn(e:GetHandler())
+end
+cm.cost=RD.CostShowHand(cm.costfilter,1,1)
+function cm.target(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsPlayerCanDraw(tp,1) end
+	RD.TargetDraw(tp,1)
+end
+function cm.operation(e,tp,eg,ep,ev,re,r,rp)
+	RD.Draw()
+end
\ No newline at end of file

script/c120235024.lua

+local m=120235024
+local cm=_G["c"..m]
+cm.name="苍救骑士 杰拉"
+function cm.initial_effect(c)
+	--Atk Down
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(m,0))
+	e1:SetCategory(CATEGORY_ATKCHANGE)
+	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
+--Atk Down
+function cm.costfilter(c)
+	return c:IsRace(RACE_CELESTIALWARRIOR)
+end
+function cm.costcheck(g)
+	return g:GetCount()==g:GetClassCount(Card.GetCode)
+end
+cm.cost=RD.CostShowGroupExtra(cm.costfilter,cm.costcheck,1,5,Group.GetCount)
+function cm.target(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(Card.IsFaceup,tp,0,LOCATION_MZONE,1,nil) end
+end
+function cm.operation(e,tp,eg,ep,ev,re,r,rp)
+	RD.SelectAndDoAction(aux.Stringid(m,1),Card.IsFaceup,tp,0,LOCATION_MZONE,1,1,nil,function(g)
+		local atk=e:GetLabel()*-200
+		RD.AttachAtkDef(e,g:GetFirst(),atk,0,RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
+	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:IsRace(RACE_CELESTIALWARRIOR) or c:IsRace(RACE_WARRIOR+RACE_FAIRY))
+end
\ No newline at end of file

script/c120235025.lua

+local m=120235025
+local cm=_G["c"..m]
+cm.name="苍救骑士 邓克斯"
+function cm.initial_effect(c)
+	--Atk Up
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(m,0))
+	e1:SetCategory(CATEGORY_ATKCHANGE)
+	e1:SetType(EFFECT_TYPE_IGNITION)
+	e1:SetRange(LOCATION_MZONE)
+	e1:SetCost(cm.cost)
+	e1:SetOperation(cm.operation)
+	c:RegisterEffect(e1)
+end
+--Atk Up
+function cm.costfilter(c)
+	return c:IsRace(RACE_CELESTIALWARRIOR)
+end
+function cm.costcheck(g)
+	return g:GetCount()==g:GetClassCount(Card.GetCode)
+end
+cm.cost=RD.CostShowGroupExtra(cm.costfilter,cm.costcheck,1,5,Group.GetCount)
+function cm.operation(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	if c:IsFaceup() and c:IsRelateToEffect(e) then
+		local reset=RESET_EVENT+RESETS_STANDARD+RESET_DISABLE+RESET_PHASE+PHASE_END
+		local atk=e:GetLabel()*200
+		RD.AttachAtkDef(e,c,atk,0,reset)
+		RD.AttachCannotDirectAttack(e,c,aux.Stringid(m,1),reset)
+	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:IsRace(RACE_CELESTIALWARRIOR) or c:IsRace(RACE_WARRIOR+RACE_FAIRY))
+end
\ No newline at end of file

script/c120235038.lua

+local m=120235038
+local list={120235024,120235020,120235054}
+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])
+	--Multi-Choose Effect
+	RD.CreateMultiChooseEffect(c,nil,cm.cost,aux.Stringid(m,1),cm.target1,cm.operation1,aux.Stringid(m,2),cm.target2,cm.operation2,CATEGORY_DESTROY,CATEGORY_TOHAND+CATEGORY_GRAVE_ACTION)
+end
+--Multi-Choose Effect
+function cm.costfilter(c)
+	return c:IsAbleToDeckOrExtraAsCost()
+end
+cm.cost=RD.CostSendOnFieldToDeckBottom(cm.costfilter,1,1,true)
+--Destroy
+function cm.filter(c)
+	return c:IsFaceup() and c:IsRace(RACE_CELESTIALWARRIOR)
+end
+function cm.desfilter(c)
+	return c:IsType(TYPE_SPELL+TYPE_TRAP)
+end
+function cm.target1(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(cm.filter,tp,LOCATION_MZONE,0,1,nil)
+		and Duel.IsExistingMatchingCard(cm.desfilter,tp,0,LOCATION_ONFIELD,1,nil) end
+	local g=Duel.GetMatchingGroup(cm.desfilter,tp,0,LOCATION_ONFIELD,nil)
+	Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0)
+end
+function cm.operation1(e,tp,eg,ep,ev,re,r,rp)
+	local ct=Duel.GetMatchingGroupCount(cm.filter,tp,LOCATION_MZONE,0,nil)
+	if ct==0 then return end
+	RD.SelectAndDoAction(HINTMSG_DESTROY,cm.desfilter,tp,0,LOCATION_ONFIELD,1,ct,nil,function(g)
+		Duel.Destroy(g,REASON_EFFECT)
+	end)
+end
+--To Hand
+function cm.thfilter(c)
+	return c:IsCode(list[3]) and c:IsAbleToHand()
+end
+function cm.target2(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(cm.thfilter,tp,LOCATION_GRAVE,0,1,nil) end
+	Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_GRAVE)
+end
+function cm.operation2(e,tp,eg,ep,ev,re,r,rp)
+	RD.SelectAndDoAction(HINTMSG_ATOHAND,aux.NecroValleyFilter(cm.thfilter),tp,LOCATION_GRAVE,0,1,1,nil,function(g)
+		RD.SendToHandAndExists(g,1-tp)
+	end)
+end
\ No newline at end of file

script/c120235039.lua

+local m=120235039
+local list={120235024,120235021,120196050}
+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])
+	--Cannot Activate
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_FIELD)
+	e1:SetCode(EFFECT_CANNOT_ACTIVATE)
+	e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
+	e1:SetRange(LOCATION_MZONE)
+	e1:SetTargetRange(0,1)
+	e1:SetValue(cm.limit)
+	c:RegisterEffect(e1)
+end
+--Cannot Activate
+function cm.limit(e,re,tp)
+	local tc=re:GetHandler()
+	return not tc:IsCode(list[3]) and tc:GetType()==TYPE_SPELL
+		and re:IsHasType(EFFECT_TYPE_ACTIVATE) and re:IsActiveType(TYPE_SPELL)
+end
\ No newline at end of file

script/c120235040.lua

+local m=120235040
+local list={120235025,120235020}
+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])
+	--Multi-Choose Effect
+	RD.CreateMultiChooseEffect(c,nil,cm.cost,aux.Stringid(m,1),cm.target1,cm.operation1,aux.Stringid(m,2),cm.target2,cm.operation2,CATEGORY_ATKCHANGE,0)
+end
+--Multi-Choose Effect
+cm.cost=RD.CostSendDeckTopToGrave(1)
+--Atk Up
+function cm.filter(c)
+	return c:IsFaceup() and c:IsRace(RACE_CELESTIALWARRIOR)
+end
+function cm.target1(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(cm.filter,tp,LOCATION_MZONE,0,1,nil) end
+end
+function cm.operation1(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	if c:IsFaceup() and c:IsRelateToEffect(e) then
+		local atk=Duel.GetMatchingGroupCount(cm.filter,tp,LOCATION_MZONE,0,nil)*1000
+		RD.AttachAtkDef(e,c,atk,0,RESET_EVENT+RESETS_STANDARD+RESET_DISABLE+RESET_PHASE+PHASE_END)
+	end
+end
+--Multiple Attack
+function cm.target2(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsAbleToEnterBP() and RD.IsCanAttachExtraAttackMonster(e:GetHandler(),1) end
+end
+function cm.operation2(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	if c:IsFaceup() and c:IsRelateToEffect(e) then
+		RD.AttachExtraAttackMonster(e,c,1,aux.Stringid(m,3),RESET_EVENT+RESETS_STANDARD+RESET_DISABLE+RESET_PHASE+PHASE_END)
+	end
+end
\ No newline at end of file

script/c120235041.lua

+local m=120235041
+local list={120235025,120235021}
+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])
+	--Indes
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_FIELD)
+	e1:SetCode(EFFECT_INDESTRUCTABLE_EFFECT)
+	e1:SetRange(LOCATION_MZONE)
+	e1:SetTargetRange(LOCATION_ONFIELD,0)
+	e1:SetTarget(cm.target)
+	e1:SetValue(cm.indval)
+	c:RegisterEffect(e1)
+end
+--Indes
+cm.indval=RD.ValueEffectIndesType(0,TYPE_MONSTER+TYPE_SPELL+TYPE_TRAP)
+function cm.target(e,c)
+	return c:IsFaceup()
+end
\ No newline at end of file

script/c120235052.lua

+local m=120235052
+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.spfilter(c,e,tp)
+	return c:IsAttribute(ATTRIBUTE_LIGHT+ATTRIBUTE_DARK) and c:IsRace(RACE_CELESTIALWARRIOR)
+		and RD.IsCanBeSpecialSummoned(c,e,tp,POS_FACEUP)
+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.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/c120235053.lua

@@ -32,20 +32,20 @@ function cm.target(e,tp,eg,ep,ev,re,r,rp,chk)
 end
 function cm.activate(e,tp,eg,ep,ev,re,r,rp)
 	local p=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER)
-	Duel.ConfirmDecktop(p,5)
-	local g=Duel.GetDecktopGroup(p,5)
-	if g:GetCount()>0 then
-		Duel.Hint(HINT_SELECTMSG,p,HINTMSG_ATOHAND)
-		local sg=g:Select(p,1,1,nil)
-		g:Sub(sg)
+	if Duel.GetFieldGroupCount(p,LOCATION_DECK,0)<5 then return end
+	local sg,g=RD.RevealDeckTopAndSelect(p,5,HINTMSG_ATOHAND,aux.TRUE,1,1)
+	local tc=sg:GetFirst()
+	if tc then
 		Duel.DisableShuffleCheck()
-		if sg:GetFirst():IsAbleToHand() then
+		if tc:IsAbleToHand() then
 			RD.SendToHandAndExists(sg,1-p)
 			Duel.ShuffleHand(p)
 		else
 			Duel.SendtoGrave(sg,REASON_RULE)
 		end
-		local ct=g:GetCount()
+	end
+	local ct=g:GetCount()
+	if ct>0 then
 		Duel.SortDecktop(tp,tp,ct)
 		RD.SendDeckTopToBottom(tp,ct)
 	end

script/c120235054.lua

+local m=120235054
+local cm=_G["c"..m]
+cm.name="苍救之证"
+function cm.initial_effect(c)
+	--Activate
+	RD.RegisterEquipEffect(c,cm.condition,nil,cm.target)
+	--Atk Up
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_EQUIP)
+	e1:SetCode(EFFECT_UPDATE_ATTACK)
+	e1:SetValue(cm.upval)
+	c:RegisterEffect(e1)
+end
+--Activate
+function cm.condition(e,tp,eg,ep,ev,re,r,rp)
+	return Duel.IsExistingMatchingCard(Card.IsFaceup,tp,0,LOCATION_MZONE,1,nil)
+end
+function cm.target(c,e,tp)
+	return c:IsControler(tp) and c:IsFaceup() and (c:IsRace(RACE_CELESTIALWARRIOR) or c:IsRace(RACE_WARRIOR+RACE_FAIRY))
+end
+--Atk Up
+function cm.upval(e,c)
+	return e:GetHandler():GetEquipTarget():GetLevel()*100
+end
\ No newline at end of file