Merge branch 'develop' into 'develop'

update 37573005& 37573007

See merge request !2

expansions/script/c37573005.lua

+--月虹蝶
+local cm, m, o = GetID()
+cm.initial_effect = function (c)
+    aux.AddXyzProcedure(c,aux.FALSE,999,999,cm.xyz.filter,nil)
+    c:EnableReviveLimit()
+
+    if not cm.gloabl.chk then
+        cm.gloabl.chk = true
+        local e1 = Effect.CreateEffect(c)
+		e1:SetType(EFFECT_TYPE_FIELD + EFFECT_TYPE_CONTINUOUS)
+		e1:SetCode(EVENT_SUMMON_SUCCESS)
+		e1:SetCondition(cm.gloabl.con)
+		e1:SetOperation(cm.gloabl.op)
+		Duel.RegisterEffect(e1,0)
+        local e2 = e1:Clone()
+		e2:SetCode(EVENT_SPSUMMON_SUCCESS)
+		Duel.RegisterEffect(e2,0)
+    end
+
+    if cm.e1 then
+        local e1 = Effect.CreateEffect(c)
+        e1:SetType(EFFECT_TYPE_SINGLE)
+        e1:SetCode(EFFECT_MATERIAL_CHECK)
+        e1:SetValue(cm.e1.atk)
+        c:RegisterEffect(e1)
+        local e2 = Effect.CreateEffect(c)
+        e2:SetType(EFFECT_TYPE_SINGLE + EFFECT_TYPE_CONTINUOUS)
+        e2:SetCode(EVENT_SPSUMMON_SUCCESS)
+        e2:SetProperty(EFFECT_FLAG_DELAY)
+        e2:SetOperation(cm.e1.copy)
+        c:RegisterEffect(e2)
+    end
+
+    if cm.e2 then
+        local e2 = Effect.CreateEffect(c)
+        e2:SetDescription(aux.Stringid(m, 0))
+        e2:SetCategory(CATEGORY_REMOVE + CATEGORY_SPECIAL_SUMMON)
+        e2:SetType(EFFECT_TYPE_FIELD + EFFECT_TYPE_TRIGGER_O)
+        e2:SetCode(EVENT_PHASE + PHASE_END)
+        e2:SetRange(LOCATION_MZONE)
+        e2:SetCondition(cm.e2.con)
+        e2:SetTarget(cm.e2.tg)
+        e2:SetOperation(cm.e2.op)
+        c:RegisterEffect(e2)
+    end
+end
+cm.xyz = {
+    card = {false, false},
+    filter = function (c, e, tp)
+        return c:IsFaceup() and c:GetFlagEffect(m) > 0
+    end
+}
+
+cm.gloabl = {
+    chk = false,
+    con = function (e, tp, eg, ep, ev, re, r, rp)
+        return #eg > 0 and not cm.xyz.card[rp]
+    end,
+    op = function (e, tp, eg, ep, ev, re, r, rp)
+        cm.xyz.card[rp] = true
+        for tc in aux.Next(eg) do
+            tc:RegisterFlagEffect(m, RESET_EVENT + RESETS_WITHOUT_TEMP_REMOVE - RESET_TURN_SET, 0, 1)
+        end
+    end
+}
+
+cm.e1 = {
+    atk = function (_e, c)
+        local ct = c:GetMaterialCount()
+        if ct ~= 1 then return end
+        local tc = c:GetMaterial():GetFirst()
+        local e1 = Effect.CreateEffect(c)
+        e1:SetType(EFFECT_TYPE_SINGLE)
+        e1:SetCode(EFFECT_SET_ATTACK)
+        e1:SetValue(tc:GetBaseAttack())
+        e1:SetReset(RESET_EVENT + RESETS_STANDARD - RESET_TOFIELD + RESET_DISABLE)
+        c:RegisterEffect(e1)
+        local e2 = e1:Clone()
+        e2:SetCode(EFFECT_SET_DEFENSE)
+        e2:SetValue(tc:GetBaseDefense())
+        c:RegisterEffect(e2)
+
+    end,
+    copy = function (e, tp)
+        local c = e:GetHandler()
+        local ct = c:GetMaterialCount()
+        if ct ~= 1 then return end
+        local tc = c:GetMaterial():GetFirst()
+        if not tc:IsType(TYPE_TRAPMONSTER) then
+            c:CopyEffect(tc:GetOriginalCodeRule(), RESET_EVENT + RESETS_STANDARD, 1)
+            local t = table.pack(c:GetCardRegistered(nil, GETEFFECT_COPY))
+            for i, v in ipairs(t) do
+                local e1 = v:Clone()
+                if v:IsHasType(EFFECT_TYPE_IGNITION) then
+                    e1:SetType(EFFECT_TYPE_QUICK_O)
+                    e1:SetCode(EVENT_FREE_CHAIN)
+                    e1:SetHintTiming(0, TIMINGS_CHECK_MONSTER + TIMING_END_PHASE)
+                end
+                local cost = v:GetCost() or aux.TRUE
+                e1:SetCost(function (_e, _tp, _eg, _ep, _ev, _re, _r, _rp, _chk)
+                    if _chk == 0 then
+                        return cost(_e, _tp, _eg, _ep, _ev, _re, _r, _rp, _chk)
+                            and _e:GetHandler():CheckRemoveOverlayCard(tp, 1, REASON_COST)
+                    end
+                    _e:GetHandler():RemoveOverlayCard(tp, 1, 1, REASON_COST)
+                    cost(_e, _tp, _eg, _ep, _ev, _re, _r, _rp, _chk)
+                end)
+                c:RegisterEffect(e1)
+                v:Reset()
+            end
+        end
+    end
+}
+
+cm.e2 = {
+    filter = function (c, e, tp)
+        return c:IsCanBeSpecialSummoned(e, 0, tp, false, false)
+            and Duel.GetLocationCountFromEx(tp,tp,nil,c) > 0
+            and not c:IsCode(m)
+    end,
+    con = function (e, tp, eg, ep, ev, re, r, rp)
+        local c = e:GetHandler()
+        return not Duel.IsExistingMatchingCard(nil, tp, LOCATION_MZONE, 0, 1, c)
+            and c:GetOverlayCount() == 0 and Duel.GetTurnPlayer() == 1 - tp
+    end,
+    tg = function (e, tp, eg, ep, ev, re, r, rp, chk)
+        local c = e:GetHandler()
+        if chk == 0 then
+            return c:IsAbleToRemove() and Duel.IsExistingMatchingCard(cm.e2.filter, tp, LOCATION_EXTRA, 0, 1, nil, e, tp)
+        end
+        Duel.SetOperationInfo(0, CATEGORY_SPECIAL_SUMMON, nil, 1, tp, LOCATION_EXTRA)
+        Duel.SetOperationInfo(0, CATEGORY_REMOVE, c, 1, 0, 0)
+    end,
+    op = function (e, tp, eg, ep, ev, re, r, rp)
+        local c = e:GetHandler()
+        if Duel.Remove(c, POS_FACEUP, REASON_EFFECT) > 0 then
+            Duel.BreakEffect()
+            Duel.Hint(HINT_SELECTMSG, tp, HINTMSG_SPSUMMON)
+            local g=Duel.SelectMatchingCard(tp, cm.e2.filter, tp, LOCATION_EXTRA, 0, 1, 1, nil, e, tp)
+            if g:GetCount()>0 then
+                Duel.SpecialSummon(g, 0, tp, tp, false, false, POS_FACEUP)
+            end
+        end
+    end
+}
\ No newline at end of file

expansions/script/c37573007.lua

+--奇迹之心
+local cm, m, o = GetID()
+cm.initial_effect = function (c)
+    aux.AddXyzProcedure(c, nil, 4, 2)
+    c:EnableReviveLimit()
+
+    if cm.e1 then
+        local e1=Effect.CreateEffect(c)
+        e1:SetType(EFFECT_TYPE_SINGLE + EFFECT_TYPE_TRIGGER_F)
+        e1:SetCode(EVENT_BATTLE_START)
+        e1:SetTarget(cm.e1.tg)
+        e1:SetOperation(cm.e1.op)
+        c:RegisterEffect(e1)
+    end
+
+    if cm.e2 then
+        local e1 = Effect.CreateEffect(c)
+        e1:SetCategory(CATEGORY_REMOVE + CATEGORY_SPECIAL_SUMMON)
+        e1:SetType(EFFECT_TYPE_FIELD + EFFECT_TYPE_TRIGGER_O)
+        e1:SetCode(EVENT_PHASE + PHASE_END)
+        e1:SetRange(LOCATION_MZONE)
+        e1:SetCondition(cm.e2.con)
+        e1:SetTarget(cm.e2.tg)
+        e1:SetOperation(cm.e2.op)
+        c:RegisterEffect(e1)
+    end
+end
+
+cm.e1 = {
+    tg = function (e, tp, eg, ep, ev, re, r, rp, chk)
+        if chk==0 then return e:GetHandler():GetBattleTarget() ~= nil and e:GetHandler():GetBattleTarget():IsCanOverlay() and e:GetHandler():IsType(TYPE_XYZ) end
+        Duel.SetChainLimit(aux.FALSE)
+    end,
+    op = function (e, tp, eg, ep, ev, re, r, rp)
+        local c = e:GetHandler()
+        local tc = c:GetBattleTarget()
+        if not (tc and tc:IsRelateToBattle()) or tc:IsImmuneToEffect(e) then return end
+        local og = tc:GetOverlayGroup()
+        if og:GetCount() > 0 then
+            Duel.SendtoGrave(og, REASON_RULE)
+        end
+        Duel.Overlay(c, Group.FromCards(tc))
+    end
+}
+
+cm.e2 = {
+    filter = function (c, e, tp)
+        return c:IsCanBeSpecialSummoned(e, 0, tp, false, false)
+            and Duel.GetLocationCountFromEx(tp,tp,nil,c) > 0
+            and not c:IsCode(m)
+    end,
+    con = function (e, tp, eg, ep, ev, re, r, rp)
+        local c = e:GetHandler()
+        return c:IsRace(RACE_MACHINE) and c:GetOverlayCount() >= 3 and Duel.GetTurnPlayer() == 1 - tp
+    end,
+    tg = function (e, tp, eg, ep, ev, re, r, rp, chk)
+        local c = e:GetHandler()
+        if chk == 0 then
+            return c:IsAbleToRemove() and Duel.IsPlayerCanSpecialSummon(tp)
+        end
+        Duel.SetOperationInfo(0, CATEGORY_SPECIAL_SUMMON, nil, 1, tp, LOCATION_REMOVED)
+        Duel.SetOperationInfo(0, CATEGORY_REMOVE, c, 1, 0, 0)
+    end,
+    op = function (e, tp, eg, ep, ev, re, r, rp)
+        local c = e:GetHandler()
+        if Duel.Remove(c, POS_FACEUP, REASON_EFFECT) > 0 and c:IsLocation(LOCATION_REMOVED) and c:IsFaceup() then
+            Duel.BreakEffect()
+            Duel.SpecialSummon(c, 0, tp, tp, false, false, POS_FACEUP)
+            local e1=Effect.CreateEffect(e:GetHandler())
+            e1:SetType(EFFECT_TYPE_SINGLE)
+            e1:SetCode(EFFECT_CHANGE_RACE)
+            e1:SetValue(RACE_FAIRY)
+            e1:SetReset(RESET_EVENT + RESETS_STANDARD)
+            c:RegisterEffect(e1)
+            local e2 = Effect.CreateEffect(c)
+            e2:SetCategory(CATEGORY_SPECIAL_SUMMON)
+            e2:SetType(EFFECT_TYPE_QUICK_O)
+            e2:SetCode(EVENT_FREE_CHAIN)
+            e2:SetRange(LOCATION_MZONE)
+            e2:SetCountLimit(1, EFFECT_COUNT_CODE_CHAIN)
+            e2:SetHintTiming(0, TIMINGS_CHECK_MONSTER + TIMING_END_PHASE)
+            e2:SetTarget(cm.e2.gain.tg)
+            e2:SetOperation(cm.e2.gain.op)
+            c:RegisterEffect(e2)
+        end
+    end,
+    gain = {
+        filter = function (c, e, tp)
+            return c:IsCanBeSpecialSummoned(e, 0, tp, false, false)
+                and Duel.IsExistingMatchingCard(cm.e2.gain.atkfilter, tp, LOCATION_MZONE, LOCATION_MZONE, 1, e:GetHandler(), c:GetAttack())
+        end,
+        atkfilter = function (c, atk)
+            return c:GetAttack() < atk and c:IsFaceup()
+        end,
+        tg = function (e, tp, eg, ep, ev, re, r, rp, chk)
+            if chk==0 then return Duel.GetLocationCount(tp, LOCATION_MZONE) > 0
+                and Duel.IsExistingMatchingCard(cm.e2.gain.filter, tp, LOCATION_HAND, 0, 1, nil, e, tp)
+                and e:GetHandler():IsType(TYPE_XYZ) end
+            Duel.SetOperationInfo(0, CATEGORY_SPECIAL_SUMMON, nil, 1, tp, LOCATION_HAND)
+        end,
+        op = function (e, tp, eg, ep, ev, re, r, rp)
+            if Duel.GetLocationCount(tp, LOCATION_MZONE) <= 0 then return end
+            Duel.Hint(HINT_SELECTMSG, tp, HINTMSG_SPSUMMON)
+            local g=Duel.SelectMatchingCard(tp, cm.e2.gain.filter, tp, LOCATION_HAND, 0, 1, 1, nil, e, tp)
+            if g:GetCount() > 0 and Duel.SpecialSummon(g, 0, tp, tp, false, false, POS_FACEUP) > 0
+                and Duel.IsExistingMatchingCard(cm.e2.gain.atkfilter, tp, LOCATION_MZONE, LOCATION_MZONE, 1, e:GetHandler(), g:GetFirst():GetAttack())
+            then
+                Duel.BreakEffect()
+                Duel.Hint(HINT_SELECTMSG, tp, HINTMSG_FACEUP)
+                local sg = Duel.SelectMatchingCard(tp, cm.e2.gain.atkfilter, tp, LOCATION_MZONE, LOCATION_MZONE, 1, 1, e:GetHandler(), g:GetFirst():GetAttack())
+                local tc = sg:GetFirst()
+                if not tc:IsImmuneToEffect(e) then
+                    local og = tc:GetOverlayGroup()
+                    if og:GetCount() > 0 then
+                        Duel.SendtoGrave(og, REASON_RULE)
+                    end
+                    Duel.Overlay(e:GetHandler(), Group.FromCards(tc))
+                end
+            end
+        end
+    }
+}
\ No newline at end of file