Skip to content

Y
ygopro-222DIY-cards
Commit b6f81f52 authored by REIKAI's avatar REIKAI 💬
Browse files
Options

Merge branch '2022.12.18' into 'master' 

2022.12.18

See merge request !3
parents d74ebeeb 5f4e8054
Pipeline #18831 passed with stages
      in 20 minutes and 34 seconds
      Hide whitespace changes
      Inline Side-by-side
      Showing with 229 additions and 146 deletions
      expansions/script/c10100000.lua
      View file @ b6f81f52
      ...@@ -2,7 +2,7 @@ ...@@ -2,7 +2,7 @@
      --the old library (c10199990.lua and c10199991.lua) has gone out of service, becuase it has become a SHIT MOUNTAIN, hard for reading. --the old library (c10199990.lua and c10199991.lua) has gone out of service, becuase it has become a SHIT MOUNTAIN, hard for reading.
      --any problems, you can call me: QQ/VX 852415212, PLZ note sth. about YGO while you add me, otherwise I will reject your friend request. --any problems, you can call me: QQ/VX 852415212, PLZ note sth. about YGO while you add me, otherwise I will reject your friend request.
      local Version_Number = "2022.10.04" local Version_Number = "2022.11.02"
      --<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< --<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
      --<<<<<<<<<<<<<<<<<<<<<<<<<<<<< Constant <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< --<<<<<<<<<<<<<<<<<<<<<<<<<<<<< Constant <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
      ...@@ -303,6 +303,7 @@ function s.create_timing_list() ...@@ -303,6 +303,7 @@ function s.create_timing_list()
      ["BeSummoned"] = { EVENT_SUMMON_SUCCESS, aux.TRUE, aux.TRUE, EVENT_SPSUMMON_SUCCESS, aux.TRUE, aux.TRUE, EVENT_FLIP_SUMMON_SUCCESS, aux.TRUE, aux.TRUE }, ["BeSummoned"] = { EVENT_SUMMON_SUCCESS, aux.TRUE, aux.TRUE, EVENT_SPSUMMON_SUCCESS, aux.TRUE, aux.TRUE, EVENT_FLIP_SUMMON_SUCCESS, aux.TRUE, aux.TRUE },
      ["BeNormalSummoned"] = { EVENT_SUMMON_SUCCESS }, ["BeNormalSummoned"] = { EVENT_SUMMON_SUCCESS },
      ["BeSpecialSummoned"] = { EVENT_SPSUMMON_SUCCESS }, ["BeSpecialSummoned"] = { EVENT_SPSUMMON_SUCCESS },
      ["BeNormal/SpecialSummoned"] = { EVENT_SUMMON_SUCCESS, aux.TRUE, aux.TRUE, EVENT_SPSUMMON_SUCCESS, aux.TRUE, aux.TRUE },
      ["BeRitualSummoned"] = { EVENT_SPSUMMON_SUCCESS, { Card.IsSummonType, SUMMON_TYPE_RITUAL } }, ["BeRitualSummoned"] = { EVENT_SPSUMMON_SUCCESS, { Card.IsSummonType, SUMMON_TYPE_RITUAL } },
      ["BeFusionSummoned"] = { EVENT_SPSUMMON_SUCCESS, { Card.IsSummonType, SUMMON_TYPE_FUSION } }, ["BeFusionSummoned"] = { EVENT_SPSUMMON_SUCCESS, { Card.IsSummonType, SUMMON_TYPE_FUSION } },
      ["BeSynchroSummoned"] = { EVENT_SPSUMMON_SUCCESS, { Card.IsSummonType, SUMMON_TYPE_SYNCHRO } }, ["BeSynchroSummoned"] = { EVENT_SPSUMMON_SUCCESS, { Card.IsSummonType, SUMMON_TYPE_SYNCHRO } },
      ...@@ -327,8 +328,8 @@ function s.create_timing_list() ...@@ -327,8 +328,8 @@ function s.create_timing_list()
      ["DuringDamageCalculation"] = { EVENT_PRE_DAMAGE_CALCULATE }, ["DuringDamageCalculation"] = { EVENT_PRE_DAMAGE_CALCULATE },
      ["AfterDamageCalculation"] = { EVENT_BATTLED }, ["AfterDamageCalculation"] = { EVENT_BATTLED },
      ["AtEndOfDamageStep"] = { EVENT_DAMAGE_STEP_END }, ["AtEndOfDamageStep"] = { EVENT_DAMAGE_STEP_END },
      ["BeDestroyed"] = { EVENT_DESTROYED },
      ["BeDestroyedByBattle"] = { EVENT_BATTLE_DESTROYED }, ["BeDestroyedByBattle"] = { EVENT_BATTLE_DESTROYED },
      ["BeSent2GYByEffect"] = { EVENT_TO_GRAVE, { Scl.IsReason, 0, "Effect" } },
      ["BeDestroyedByEffect"] = { EVENT_DESTROYED, { Scl.IsReason, 0, "Effect" } }, ["BeDestroyedByEffect"] = { EVENT_DESTROYED, { Scl.IsReason, 0, "Effect" } },
      ["BeDestroyedByBattle/Effect"] = { EVENT_DESTROYED, { Scl.IsReason, 0, "Battle", "Effect" } }, ["BeDestroyedByBattle/Effect"] = { EVENT_DESTROYED, { Scl.IsReason, 0, "Battle", "Effect" } },
      ["BeDestroyed&Sent2GY"] = { EVENT_TO_GRAVE, { Scl.IsReason, 0, "Destroy" } }, ["BeDestroyed&Sent2GY"] = { EVENT_TO_GRAVE, { Scl.IsReason, 0, "Destroy" } },
      ...@@ -340,6 +341,8 @@ function s.create_timing_list() ...@@ -340,6 +341,8 @@ function s.create_timing_list()
      ["DestroyOpponent'sMonsterByBattle"] = { EVENT_BATTLE_DESTROYING, s.bdocon }, ["DestroyOpponent'sMonsterByBattle"] = { EVENT_BATTLE_DESTROYING, s.bdocon },
      ["DestroyOpponent'sMonsterByBattle&Send2GY"] = { EVENT_BATTLE_DESTROYING, s.bdogcon }, ["DestroyOpponent'sMonsterByBattle&Send2GY"] = { EVENT_BATTLE_DESTROYING, s.bdogcon },
      ["BeSent2GY"] = { EVENT_TO_GRAVE }, ["BeSent2GY"] = { EVENT_TO_GRAVE },
      ["BeSent2GYByEffect"] = { EVENT_TO_GRAVE, { Scl.IsReason, 0, "Effect" } },
      ["BeSentFromField2GY"] = { EVENT_TO_GRAVE, { Scl.IsPreviouslyInZone, "OnField" } },
      ["BeBanished"] = { EVENT_REMOVE }, ["BeBanished"] = { EVENT_REMOVE },
      ["Draw"] = { EVENT_DRAW }, ["Draw"] = { EVENT_DRAW },
      ["Discard"] = { EVENT_DISCARD }, ["Discard"] = { EVENT_DISCARD },
      ...@@ -408,7 +411,7 @@ Scl.Effect_Property_List = { ...@@ -408,7 +411,7 @@ Scl.Effect_Property_List = {
      ["Delay"] = EFFECT_FLAG_DELAY, ["Delay"] = EFFECT_FLAG_DELAY,
      ["DamageStep"] = EFFECT_FLAG_DAMAGE_STEP, ["DamageStep"] = EFFECT_FLAG_DAMAGE_STEP,
      ["DamageCalculation"] = EFFECT_FLAG_DAMAGE_CAL, ["DamageCalculation"] = EFFECT_FLAG_DAMAGE_CAL,
      ["IgnoreImmune"] = EFFECT_FLAG_IGNORE_IMMUNE, ["IgnoreUnaffected"] = EFFECT_FLAG_IGNORE_IMMUNE,
      ["SetAvailable"] = EFFECT_FLAG_SET_AVAILABLE, ["SetAvailable"] = EFFECT_FLAG_SET_AVAILABLE,
      ["IgnoreZone"] = EFFECT_FLAG_IGNORE_RANGE, ["IgnoreZone"] = EFFECT_FLAG_IGNORE_RANGE,
      ["BuffZone"] = EFFECT_FLAG_SINGLE_RANGE, ["BuffZone"] = EFFECT_FLAG_SINGLE_RANGE,
      ...@@ -483,11 +486,13 @@ function s.create_category_list() ...@@ -483,11 +486,13 @@ function s.create_category_list()
      ["SpecialSummonInFacedownDefensePosition"] = { "Special summon in defense position", CATEGORY_SPECIAL_SUMMON, HINTMSG_SPSUMMON, { 74892653, 2 }, { 17535764, 1 }, { Scl.SpecialSummon, 10, sg, 0, tp, tp, false, false, POS_FACEDOWN_DEFENSE } }, ["SpecialSummonInFacedownDefensePosition"] = { "Special summon in defense position", CATEGORY_SPECIAL_SUMMON, HINTMSG_SPSUMMON, { 74892653, 2 }, { 17535764, 1 }, { Scl.SpecialSummon, 10, sg, 0, tp, tp, false, false, POS_FACEDOWN_DEFENSE } },
      ["IgnoreSummonCondition&SpecialSummon"] = { "Special summon ignore summon condition", CATEGORY_SPECIAL_SUMMON, HINTMSG_SPSUMMON, { 74892653, 2 }, { 17535764, 1 }, { Scl.SpecialSummon, 10, sg, 0, tp, tp, true, false, POS_FACEUP } }, ["IgnoreSummonCondition&SpecialSummon"] = { "Special summon ignore summon condition", CATEGORY_SPECIAL_SUMMON, HINTMSG_SPSUMMON, { 74892653, 2 }, { 17535764, 1 }, { Scl.SpecialSummon, 10, sg, 0, tp, tp, true, false, POS_FACEUP } },
      ["NegateEffect&SpecialSummon"] = { "Special summon, but negate its effects", { CATEGORY_SPECIAL_SUMMON, CATEGORY_DISABLE }, HINTMSG_SPSUMMON, { 74892653, 2 }, { 17535764, 1 }, { s.negate_effect_and_special_summon, 10, sg, 0, tp, tp, true, false, POS_FACEUP } }, ["NegateEffect&SpecialSummon"] = { "Special summon, but negate its effects", { CATEGORY_SPECIAL_SUMMON, CATEGORY_DISABLE }, HINTMSG_SPSUMMON, { 74892653, 2 }, { 17535764, 1 }, { s.negate_effect_and_special_summon, 10, sg, 0, tp, tp, true, false, POS_FACEUP } },
      ["SpecialSummonFromGY"] = { "Special Summon from GY", { CATEGORY_GRAVE_SPSUMMON, CATEGORY_SPECIAL_SUMMON }, 0 }, ["SpecialSummonFromGY"] = { "Special Summon from GY", { CATEGORY_GRAVE_SPSUMMON, CATEGORY_SPECIAL_SUMMON }, HINTMSG_SPSUMMON, { 74892653, 2 }, { 17535764, 1 }, { Scl.SpecialSummon, 10, sg, 0, tp, tp, false, false, POS_FACEUP } },
      ["SpecialSummonFromDeck"] = { "Special Summon from deck", { CATEGORY_DECKDES, CATEGORY_SPECIAL_SUMMON }, 0 }, ["SpecialSummonFromDeck"] = { "Special Summon from deck", { CATEGORY_DECKDES, CATEGORY_SPECIAL_SUMMON }, HINTMSG_SPSUMMON, { 74892653, 2 }, { 17535764, 1 }, { Scl.SpecialSummon, 10, sg, 0, tp, tp, false, false, POS_FACEUP } },
      ["SpecialSummonFromDeck/GY"] = { "Special Summon from deck or GY", { CATEGORY_DECKDES, CATEGORY_GRAVE_SPSUMMON, CATEGORY_SPECIAL_SUMMON }, 0 }, ["SpecialSummonFromExtra"] = { "Special Summon from extra", CATEGORY_SPECIAL_SUMMON, HINTMSG_SPSUMMON, { 74892653, 2 }, { 17535764, 1 }, { Scl.SpecialSummon, 10, sg, 0, tp, tp, false, false, POS_FACEUP } },
      ["SpecialSummonFromHand/GY"] = { "Special Summon from hand or GY", { CATEGORY_GRAVE_SPSUMMON, CATEGORY_SPECIAL_SUMMON }, 0 }, ["SpecialSummonFromHand/Deck/GY"] = { "Special Summon from hand, deck and/or GY", { CATEGORY_DECKDES, CATEGORY_GRAVE_SPSUMMON, CATEGORY_SPECIAL_SUMMON }, HINTMSG_SPSUMMON, { 74892653, 2 }, { 17535764, 1 }, { Scl.SpecialSummon, 10, sg, 0, tp, tp, false, false, POS_FACEUP } },
      ["SpecialSummonFromDeck/Extra"] = { "Special Summon from Deck or Extra", { CATEGORY_DECKDES, CATEGORY_SPECIAL_SUMMON }, 0 }, ["SpecialSummonFromDeck/GY"] = { "Special Summon from deck or GY", { CATEGORY_DECKDES, CATEGORY_GRAVE_SPSUMMON, CATEGORY_SPECIAL_SUMMON }, HINTMSG_SPSUMMON, { 74892653, 2 }, { 17535764, 1 }, { Scl.SpecialSummon, 10, sg, 0, tp, tp, false, false, POS_FACEUP } },
      ["SpecialSummonFromHand/GY"] = { "Special Summon from hand or GY", { CATEGORY_GRAVE_SPSUMMON, CATEGORY_SPECIAL_SUMMON }, HINTMSG_SPSUMMON, { 74892653, 2 }, { 17535764, 1 }, { Scl.SpecialSummon, 10, sg, 0, tp, tp, false, false, POS_FACEUP } },
      ["SpecialSummonFromDeck/Extra"] = { "Special Summon from Deck or Extra", { CATEGORY_DECKDES, CATEGORY_SPECIAL_SUMMON }, HINTMSG_SPSUMMON, { 74892653, 2 }, { 17535764, 1 }, { Scl.SpecialSummon, 10, sg, 0, tp, tp, false, false, POS_FACEUP } },
      ["RitualSummon"] = { "Ritual Summon", CATEGORY_SPECIAL_SUMMON, HINTMSG_SPSUMMON, { 59514116, 1 } }, ["RitualSummon"] = { "Ritual Summon", CATEGORY_SPECIAL_SUMMON, HINTMSG_SPSUMMON, { 59514116, 1 } },
      ["FusionSummon"] = { "Fusion Summon", { CATEGORY_FUSION_SUMMON, CATEGORY_SPECIAL_SUMMON }, HINTMSG_SPSUMMON, { 7241272, 1 } }, ["FusionSummon"] = { "Fusion Summon", { CATEGORY_FUSION_SUMMON, CATEGORY_SPECIAL_SUMMON }, HINTMSG_SPSUMMON, { 7241272, 1 } },
      ["SynchroSummon"] = { "Synchro Summon", CATEGORY_SPECIAL_SUMMON, HINTMSG_SPSUMMON, { 30983281, 1 }, { 27503418, 0 } }, ["SynchroSummon"] = { "Synchro Summon", CATEGORY_SPECIAL_SUMMON, HINTMSG_SPSUMMON, { 30983281, 1 }, { 27503418, 0 } },
      ...@@ -528,10 +533,12 @@ function s.create_category_list() ...@@ -528,10 +533,12 @@ function s.create_category_list()
      ["Reveal"] = { "Reveal, (cannot show public)", 0, HINTMSG_CONFIRM, {51351302, 0}, nil, { Scl.RevealCards, 2, sg, RESETS_SCL } }, ["Reveal"] = { "Reveal, (cannot show public)", 0, HINTMSG_CONFIRM, {51351302, 0}, nil, { Scl.RevealCards, 2, sg, RESETS_SCL } },
      ["RevealUntilEP"] = { "Reveal until End-Phase", 0, HINTMSG_CONFIRM, {51351302, 0}, nil, { Scl.RevealCards, 2, sg, RESETS_EP_SCL } }, ["RevealUntilEP"] = { "Reveal until End-Phase", 0, HINTMSG_CONFIRM, {51351302, 0}, nil, { Scl.RevealCards, 2, sg, RESETS_EP_SCL } },
      ["PlaceOnField"] = { "Place on field", 0, HINTMSG_TOFIELD, DESC_PLACE_TO_FIELD_SCL, nil, { Scl.Place2Field, 7, sg, tp } }, ["PlaceOnField"] = { "Place on field", 0, HINTMSG_TOFIELD, DESC_PLACE_TO_FIELD_SCL, nil, { Scl.Place2Field, 7, sg, tp } },
      ["PlaceInSpell&TrapZone"] = { "Place in spell and trap zone", 0, HINTMSG_TOFIELD, DESC_PLACE_TO_FIELD_SCL, nil, { Scl.Place2Field, 7, sg, tp, tp, "Spell&TrapZone" } }, ["PlaceInSpell&TrapZone"] = { "Place in spell and trap zone", 0, HINTMSG_TOFIELD, DESC_PLACE_TO_FIELD_SCL, nil, { Scl.Place2Field, 7, sg, tp, tp, "Spell&TrapZone", POS_FACEUP, true } },
      ["PlaceInFieldZone"] = { "Place in spell and trap zone", 0, HINTMSG_TOFIELD, DESC_PLACE_TO_FIELD_SCL, nil, { Scl.Place2Field, 7, sg, tp, tp, "FieldZone" } }, ["PlaceInFieldZone"] = { "Place in spell and trap zone", 0, HINTMSG_TOFIELD, DESC_PLACE_TO_FIELD_SCL, nil, { Scl.Place2Field, 7, sg, tp, tp, "FieldZone", POS_FACEUP, true } },
      ["PlaceInPendulumZone"] = { "Place in spell and trap zone", 0, HINTMSG_TOFIELD, DESC_PLACE_TO_FIELD_SCL, nil, { Scl.Place2Field, 7, sg, tp, tp, "PendulumZone" } }, ["PlaceInPendulumZone"] = { "Place in spell and trap zone", 0, HINTMSG_TOFIELD, DESC_PLACE_TO_FIELD_SCL, nil, { Scl.Place2Field, 7, sg, tp, tp, "PendulumZone", POS_FACEUP, true } },
      ["ActivateCard"] = { "Activate", 0, HINTMSG_RESOLVEEFFECT, DESC_ACTIVATE_SCL, nil, { Scl.Activate2Field, 7, sg, tp } } , ["ActivateSpell/Trap"] = { "Activate", 0, HINTMSG_RESOLVEEFFECT, DESC_ACTIVATE_SCL, nil, { Scl.ActivateSepllOrTrap, 4, sg, tp, false } } ,
      ["ActivateSpell"] = { "Activate", 0, HINTMSG_RESOLVEEFFECT, DESC_ACTIVATE_SCL, nil, { Scl.ActivateSepllOrTrap, 4, sg, tp, false } } ,
      ["ActivateTrap"] = { "Activate", 0, HINTMSG_RESOLVEEFFECT, DESC_ACTIVATE_SCL, nil, { Scl.ActivateSepllOrTrap, 4, sg, tp, false } } ,
      ["Return2Field"] = { "Return to field", 0, { 80335817, 0 }, nil, nil, { Scl.Return2Field, 3, sg } }, ["Return2Field"] = { "Return to field", 0, { 80335817, 0 }, nil, nil, { Scl.Return2Field, 3, sg } },
      ["ApplyEffect"] = { "Apply 1 Effect from Many", 0, HINTMSG_RESOLVEEFFECT, { 9560338, 0 } }, ["ApplyEffect"] = { "Apply 1 Effect from Many", 0, HINTMSG_RESOLVEEFFECT, { 9560338, 0 } },
      ["SetTrap"] = { "SSet", 0, HINTMSG_SET, { 2521011, 0 }, { 30741503, 1 }, { Scl.SetSpellOrTrap, 4, sg, tp, tp } }, ["SetTrap"] = { "SSet", 0, HINTMSG_SET, { 2521011, 0 }, { 30741503, 1 }, { Scl.SetSpellOrTrap, 4, sg, tp, tp } },
      ...@@ -604,8 +611,9 @@ function s.create_buff_list() ...@@ -604,8 +611,9 @@ function s.create_buff_list()
      ["!BeDestroyed"] = { EFFECT_INDESTRUCTABLE }, ["!BeDestroyed"] = { EFFECT_INDESTRUCTABLE },
      ["!BeDestroyedCountPerTurn"] = { EFFECT_INDESTRUCTABLE_COUNT, false, scl.value_indestructable_count(REASON_EFFECT + REASON_BATTLE), 1 }, ["!BeDestroyedCountPerTurn"] = { EFFECT_INDESTRUCTABLE_COUNT, false, scl.value_indestructable_count(REASON_EFFECT + REASON_BATTLE), 1 },
      ["!BeDestroyedByBattle"] = { EFFECT_INDESTRUCTABLE_BATTLE }, ["!BeDestroyedByBattle"] = { EFFECT_INDESTRUCTABLE_BATTLE },
      ["!BeDestroyedByEffect"] = { EFFECT_INDESTRUCTABLE_EFFECT }, ["!BeDestroyedByEffects"] = { EFFECT_INDESTRUCTABLE_EFFECT },
      ["ImmuneEffect"] = { EFFECT_IMMUNE_EFFECT, scl.value_immune_to_others }, ["!BeDestroyedByBattle/Effects"] = { { "!BeDestroyedByBattle", "!BeDestroyedByEffects" } },
      ["UnaffectedByEffects"] = { EFFECT_IMMUNE_EFFECT, scl.value_unaffected_by_other_card_effects },
      ["SpecialSumCondition"] = { EFFECT_SPSUMMON_CONDITION }, ["SpecialSumCondition"] = { EFFECT_SPSUMMON_CONDITION },
      ["!BeUsedAsFusionMaterial"] = { EFFECT_CANNOT_BE_FUSION_MATERIAL }, ["!BeUsedAsFusionMaterial"] = { EFFECT_CANNOT_BE_FUSION_MATERIAL },
      ["!BeUsedAsMaterial4FusionSummon"] = { EFFECT_CANNOT_BE_FUSION_MATERIAL, s.cannot_be_fusion_summon_material_value }, ["!BeUsedAsMaterial4FusionSummon"] = { EFFECT_CANNOT_BE_FUSION_MATERIAL, s.cannot_be_fusion_summon_material_value },
      ...@@ -649,6 +657,12 @@ function s.create_buff_list() ...@@ -649,6 +657,12 @@ function s.create_buff_list()
      ["Instead2Deck"] = { EFFECT_TO_DECK_REDIRECT, false, LOCATION_REMOVED, nil, EFFECT_FLAG_CANNOT_DISABLE, EFFECT_FLAG_IGNORE_IMMUNE + EFFECT_FLAG_SET_AVAILABLE, RESETS_REDIRECT }, ["Instead2Deck"] = { EFFECT_TO_DECK_REDIRECT, false, LOCATION_REMOVED, nil, EFFECT_FLAG_CANNOT_DISABLE, EFFECT_FLAG_IGNORE_IMMUNE + EFFECT_FLAG_SET_AVAILABLE, RESETS_REDIRECT },
      ["Instead2Hand"] = { EFFECT_TO_HAND_REDIRECT, false, LOCATION_REMOVED, nil, EFFECT_FLAG_CANNOT_DISABLE, EFFECT_FLAG_IGNORE_IMMUNE + EFFECT_FLAG_SET_AVAILABLE, RESETS_REDIRECT }, ["Instead2Hand"] = { EFFECT_TO_HAND_REDIRECT, false, LOCATION_REMOVED, nil, EFFECT_FLAG_CANNOT_DISABLE, EFFECT_FLAG_IGNORE_IMMUNE + EFFECT_FLAG_SET_AVAILABLE, RESETS_REDIRECT },
      ["InsteadLeaveField"] = { EFFECT_LEAVE_FIELD_REDIRECT, false, LOCATION_REMOVED, nil, EFFECT_FLAG_CANNOT_DISABLE, EFFECT_FLAG_IGNORE_IMMUNE + EFFECT_FLAG_SET_AVAILABLE, RESETS_REDIRECT }, ["InsteadLeaveField"] = { EFFECT_LEAVE_FIELD_REDIRECT, false, LOCATION_REMOVED, nil, EFFECT_FLAG_CANNOT_DISABLE, EFFECT_FLAG_IGNORE_IMMUNE + EFFECT_FLAG_SET_AVAILABLE, RESETS_REDIRECT },
      ["OpponentTakeBattleDamageInstead"] = { EFFECT_REFLECT_BATTLE_DAMAGE },
      ["ChangeBattleDamage"] = { EFFECT_CHANGE_INVOLVING_BATTLE_DAMAGE },
      ["HalveBattleDamageYouTake"] = { EFFECT_CHANGE_INVOLVING_BATTLE_DAMAGE, false, aux.ChangeBattleDamage(0,HALF_DAMAGE) },
      ["YouTakeNoBattleDamage"] = { EFFECT_AVOID_BATTLE_DAMAGE },
      ["YourOpponentTakesNoBattleDamage"] = { EFFECT_NO_BATTLE_DAMAGE },
      ["NeitherPlayerTakesNoBattleDamage"] = { { "YouTakeNoBattleDamage", "YourOpponentTakesNoBattleDamage" } },
      ["ActivateQuickPlaySpellFromHand"] = { EFFECT_QP_ACT_IN_NTPHAND }, ["ActivateQuickPlaySpellFromHand"] = { EFFECT_QP_ACT_IN_NTPHAND },
      ["ActivateQuickPlaySpellInSetTurn"] = { EFFECT_QP_ACT_IN_SET_TURN, false,1, nil, EFFECT_FLAG_SET_AVAILABLE, EFFECT_FLAG_SET_AVAILABLE }, ["ActivateQuickPlaySpellInSetTurn"] = { EFFECT_QP_ACT_IN_SET_TURN, false,1, nil, EFFECT_FLAG_SET_AVAILABLE, EFFECT_FLAG_SET_AVAILABLE },
      ["ActivateTrapFromHand"] = { EFFECT_TRAP_ACT_IN_HAND }, ["ActivateTrapFromHand"] = { EFFECT_TRAP_ACT_IN_HAND },
      ...@@ -811,7 +825,7 @@ function s.add_additional_effect_regop(e, p, eg, ep, ev, re, r, rp) ...@@ -811,7 +825,7 @@ function s.add_additional_effect_regop(e, p, eg, ep, ev, re, r, rp)
      for _, ae in pairs(arr) do for _, ae in pairs(arr) do
      ac = ae:GetHandler() ac = ae:GetHandler()
      local av = ae:GetValue() local av = ae:GetValue()
      local con, op, force= av(ae, ap, re, rp) local con, op, force= av(ae, ap, ev, re, rp)
      if con then if con then
      if force then if force then
      s.add_additional_effect_hint(ae, ap) s.add_additional_effect_hint(ae, ap)
      ...@@ -837,7 +851,7 @@ function s.add_additional_effect_regop(e, p, eg, ep, ev, re, r, rp) ...@@ -837,7 +851,7 @@ function s.add_additional_effect_regop(e, p, eg, ep, ev, re, r, rp)
      Duel.ConfirmCards(ap, sel_group[ap]) Duel.ConfirmCards(ap, sel_group[ap])
      repeat repeat
      Duel.Hint(HINT_SELECTMSG, ap, HINTMSG_EXTRA_EFFECT_CARD_SCL) Duel.Hint(HINT_SELECTMSG, ap, HINTMSG_EXTRA_EFFECT_CARD_SCL)
      ac = sel_group[ap]:SelectUnselect(sel_group_x, tp, true, true, 1, 1) ac = sel_group[ap]:SelectUnselect(sel_group_x, ap, true, true, 1, 1)
      if ac then if ac then
      s.add_additional_effect_hint2(ac) s.add_additional_effect_hint2(ac)
      Duel.Hint(HINT_SELECTMSG, ap, HINTMSG_EXTRA_EFFECT_SCL) Duel.Hint(HINT_SELECTMSG, ap, HINTMSG_EXTRA_EFFECT_SCL)
      ...@@ -886,7 +900,7 @@ function s.add_additional_effect_op(op, a_f_op, a_op) ...@@ -886,7 +900,7 @@ function s.add_additional_effect_op(op, a_f_op, a_op)
      end end
      end end
      function s.add_additional_effect_hint(ae, tp) function s.add_additional_effect_hint(ae, tp)
      s.AttachEffect_Hint2(ae:GetHandler()) s.add_additional_effect_hint2(ae:GetHandler())
      Duel.Hint(HINT_OPSELECTED, 1 - tp, ae:GetDescription()) Duel.Hint(HINT_OPSELECTED, 1 - tp, ae:GetDescription())
      end end
      function s.add_additional_effect_hint2(c) function s.add_additional_effect_hint2(c)
      ...@@ -1179,14 +1193,14 @@ end ...@@ -1179,14 +1193,14 @@ end
      -->>return cloned Quick Effect, that effet's id. -->>return cloned Quick Effect, that effet's id.
      function Scl.CloneEffectAsQucikEffect(reg_obj, base_eff, quick_con, tmg_arr) function Scl.CloneEffectAsQucikEffect(reg_obj, base_eff, quick_con, tmg_arr)
      tmg_arr = tmg_arr or { 0, TIMINGS_CHECK_MONSTER + TIMING_END_PHASE } tmg_arr = tmg_arr or { 0, TIMINGS_CHECK_MONSTER + TIMING_END_PHASE }
      local quick_eff, quick_fid = Scl.CloneEffect(reg_obj, base_eff, "type", EFFECT_TYPE_QUICK_O, "code", EVENT_FREE_CHAIN, "tmg", tmg_arr) local quick_eff, quick_fid = Scl.CloneEffect(reg_obj, base_eff, "Type", EFFECT_TYPE_QUICK_O, "Code", EVENT_FREE_CHAIN, "HintTiming", tmg_arr)
      base_con = base_eff:GetCondition() or aux.TRUE base_con = base_eff:GetCondition() or aux.TRUE
      base_eff:SetCondition(aux.AND(base_con, aux.NOT(quick_con))) base_eff:SetCondition(aux.AND(base_con, aux.NOT(quick_con)))
      quick_eff:SetCondition(aux.AND(base_con, quick_con)) quick_eff:SetCondition(aux.AND(base_con, quick_con))
      return quick_eff, quick_fid return quick_eff, quick_fid
      end end
      --Register Condition, Cost, Target and Operation for reg_eff --Register Condition, Cost, Target and Operation for reg_eff
      --cost, target and operation can be function or array. If be array-format, it calls s.list_format_cost_or_target_or_operation to change it to function. --cost, target and operation can be function or array. If be array-format, it calls scl.list_format_cost_or_target_or_operation to change it to function.
      -->>eg1. Scl.RegisterSolvePart(e, s.con, s.cost, s.tg, s.op) -->>eg1. Scl.RegisterSolvePart(e, s.con, s.cost, s.tg, s.op)
      -->>eg1. Scl.RegisterSolvePart(e, s.con, s.cost, { "~Target", Card.IsAbleToHand, "Add2Hand", LOCATION_DECK }, s.op) -->>eg1. Scl.RegisterSolvePart(e, s.con, s.cost, { "~Target", Card.IsAbleToHand, "Add2Hand", LOCATION_DECK }, s.op)
      function Scl.RegisterSolvePart(reg_eff, con, cost, tg, op) function Scl.RegisterSolvePart(reg_eff, con, cost, tg, op)
      ...@@ -1201,19 +1215,19 @@ function Scl.RegisterSolvePart(reg_eff, con, cost, tg, op) ...@@ -1201,19 +1215,19 @@ function Scl.RegisterSolvePart(reg_eff, con, cost, tg, op)
      if type(cost) ~= "function" and type(cost) ~= "table" then if type(cost) ~= "function" and type(cost) ~= "table" then
      Debug.Message(error_code .. " Scl.RegisterSolvePart cost must be function or table") Debug.Message(error_code .. " Scl.RegisterSolvePart cost must be function or table")
      end end
      reg_eff:SetCost(s.list_format_cost_or_target_or_operation(cost)) reg_eff:SetCost(scl.list_format_cost_or_target_or_operation(cost))
      end end
      if tg then if tg then
      if type(tg) ~= "function" and type(tg) ~= "table" then if type(tg) ~= "function" and type(tg) ~= "table" then
      Debug.Message(error_code .. " Scl.RegisterSolvePart tg must be function or table") Debug.Message(error_code .. " Scl.RegisterSolvePart tg must be function or table")
      end end
      reg_eff:SetTarget(s.list_format_cost_or_target_or_operation(tg)) reg_eff:SetTarget(scl.list_format_cost_or_target_or_operation(tg))
      end end
      if op then if op then
      if type(op) ~= "function" then if type(op) ~= "function" then
      Debug.Message(error_code .. " Scl.RegisterSolvePart op must be function") Debug.Message(error_code .. " Scl.RegisterSolvePart op must be function")
      end end
      reg_eff:SetOperation(s.list_format_cost_or_target_or_operation(op)) reg_eff:SetOperation(scl.list_format_cost_or_target_or_operation(op))
      end end
      end end
      --Register property and category for reg_eff. --Register property and category for reg_eff.
      ...@@ -1554,7 +1568,9 @@ end ...@@ -1554,7 +1568,9 @@ end
      --//return effect for code1, effect for code2, ... --//return effect for code1, effect for code2, ...
      -->>this function is an intermediate function, eg see Scl.CreateSingleBuffEffect, Scl.CreateSingleBuffCondition, Scl.CreateFieldBuffEffect, Scl.CreatePlayerBuffEffect and Scl.AddSingleBuff, Scl.AddEquipBuff -->>this function is an intermediate function, eg see Scl.CreateSingleBuffEffect, Scl.CreateSingleBuffCondition, Scl.CreateFieldBuffEffect, Scl.CreatePlayerBuffEffect and Scl.AddSingleBuff, Scl.AddEquipBuff
      function Scl.CreateBuffEffect(reg_obj, eff_typ, base_att_str, val_obj, tg, tgrng_obj, rng, con, rst_obj, desc_obj, lim_obj, flag) function Scl.CreateBuffEffect(reg_obj, eff_typ, base_att_str, val_obj, tg, tgrng_obj, rng, con, rst_obj, desc_obj, lim_obj, flag)
      s.set_global_error_code(reg_obj)
      local error_code = s.get_error_card_id() local error_code = s.get_error_card_id()
      Scl.Global_Effect_Owner_ID = nil
      local eff_typ_arr = Scl.SplitString(eff_typ, ",") local eff_typ_arr = Scl.SplitString(eff_typ, ",")
      local eff_typ1, eff_typ2 = eff_typ_arr[1], eff_typ_arr[2] local eff_typ1, eff_typ2 = eff_typ_arr[1], eff_typ_arr[2]
      local reg_typ2 = 0 local reg_typ2 = 0
      ...@@ -1823,6 +1839,7 @@ end ...@@ -1823,6 +1839,7 @@ end
      function Scl.AddSingleBuff(reg_obj, ...) function Scl.AddSingleBuff(reg_obj, ...)
      if not reg_obj then if not reg_obj then
      Scl.Single_Buff_List = { ... } Scl.Single_Buff_List = { ... }
      return true
      else else
      return Scl.AddBuff(reg_obj, "SingleBuff", false, ...) return Scl.AddBuff(reg_obj, "SingleBuff", false, ...)
      end end
      ...@@ -1835,6 +1852,7 @@ end ...@@ -1835,6 +1852,7 @@ end
      function Scl.AddSingleBuff2Self(c, ...) function Scl.AddSingleBuff2Self(c, ...)
      if not c then if not c then
      Scl.Single_Buff_Affect_Self_List = { ... } Scl.Single_Buff_Affect_Self_List = { ... }
      return true
      else else
      return Scl.AddBuff(c, "SingleBuff", true, ...) return Scl.AddBuff(c, "SingleBuff", true, ...)
      end end
      ...@@ -1857,6 +1875,7 @@ end ...@@ -1857,6 +1875,7 @@ end
      function Scl.AddEquipBuff(reg_obj, ...) function Scl.AddEquipBuff(reg_obj, ...)
      if not reg_obj then if not reg_obj then
      Scl.Equip_Buff_List = { ... } Scl.Equip_Buff_List = { ... }
      return true
      else else
      return Scl.AddBuff(reg_obj, "EquipBuff", false, ...) return Scl.AddBuff(reg_obj, "EquipBuff", false, ...)
      end end
      ...@@ -1896,13 +1915,13 @@ function Scl.CreateActivateEffect_Equip(reg_obj, eqfilter, desc_obj, lim_obj, co ...@@ -1896,13 +1915,13 @@ function Scl.CreateActivateEffect_Equip(reg_obj, eqfilter, desc_obj, lim_obj, co
      local limf = function(c, e, tp) local limf = function(c, e, tp)
      return c:IsFaceup() and eqfilter(c, tp) return c:IsFaceup() and eqfilter(c, tp)
      end end
      local e1 = Scl.CreateActivateEffect(reg_obj, nil, nil, lim_obj, "Equip", "Target", con, cost, {limf, "Equip", LOCATION_MZONE, LOCATION_MZONE}, s.create_activate_effect_equip_op) local e1 = Scl.CreateActivateEffect(reg_obj, nil, nil, lim_obj, "Equip", "Target", con, cost, { "Target", limf, "Equip", LOCATION_MZONE, LOCATION_MZONE}, s.create_activate_effect_equip_op)
      local e2 = Scl.CreateSingleBuffEffect(reg_obj, EFFECT_EQUIP_LIMIT, s.create_activate_effect_equip_value(limf)) local e2 = Scl.CreateSingleBuffCondition(reg_obj, "EquipLimit", s.create_activate_effect_equip_value(limf))
      return e1, e2 return e1, e2
      end end
      function s.create_activate_effect_equip_op(e, tp, eg, ep, ev, re, r, rp) function s.create_activate_effect_equip_op(e, tp, eg, ep, ev, re, r, rp)
      local c = Scl.GetFaceupActivateCard() local _, c = Scl.GetFaceupActivateCard()
      local tc = Scl.GetTargetsReleate2Chain(Card.IsFaceup) local _, tc = Scl.GetTargetsReleate2Chain(Card.IsFaceup)
      if c and tc then if c and tc then
      Duel.Equip(tp, c, tc) Duel.Equip(tp, c, tc)
      end end
      ...@@ -1910,7 +1929,7 @@ end ...@@ -1910,7 +1929,7 @@ end
      function s.create_activate_effect_equip_value(eqfilter) function s.create_activate_effect_equip_value(eqfilter)
      return function(e, c) return function(e, c)
      local tp = e:GetHandlerPlayer() local tp = e:GetHandlerPlayer()
      return eqfilter(c, tp) return eqfilter(c, e, tp)
      end end
      end end
      --Create an activate effect, negate the card's effect. --Create an activate effect, negate the card's effect.
      ...@@ -2050,7 +2069,7 @@ function s.fusion_summon_target(ex_tg, fus_filter, mat_obj, mat_fun, must_includ ...@@ -2050,7 +2069,7 @@ function s.fusion_summon_target(ex_tg, fus_filter, mat_obj, mat_fun, must_includ
      aux.FGoalCheckAdditional = nil aux.FGoalCheckAdditional = nil
      return res return res
      end end
      s.list_format_cost_or_target_or_operation(ex_tg)(e, tp, eg, ep, ev, re, r, rp, 1) scl.list_format_cost_or_target_or_operation(ex_tg)(e, tp, eg, ep, ev, re, r, rp, 1)
      if type(mat_fun) == "string" then if type(mat_fun) == "string" then
      local reg_p local reg_p
      if mat:IsExists(Card.IsControler, 1, nil, tp) then if mat:IsExists(Card.IsControler, 1, nil, tp) then
      ...@@ -2070,7 +2089,7 @@ function s.fusion_summon_target(ex_tg, fus_filter, mat_obj, mat_fun, must_includ ...@@ -2070,7 +2089,7 @@ function s.fusion_summon_target(ex_tg, fus_filter, mat_obj, mat_fun, must_includ
      end end
      function s.fusion_summon_operation(ex_op, fus_filter, mat_obj, mat_fun, must_include_card, fcheck, fgcheck, gcheck) function s.fusion_summon_operation(ex_op, fus_filter, mat_obj, mat_fun, must_include_card, fcheck, fgcheck, gcheck)
      return function(e, tp, eg, ep, ev, re, r, rp) return function(e, tp, eg, ep, ev, re, r, rp)
      local res = not ex_op and true or s.list_format_cost_or_target_or_operation(ex_op)(e, tp, eg, ep, ev, re, r, rp, 0) local res = not ex_op and true or scl.list_format_cost_or_target_or_operation(ex_op)(e, tp, eg, ep, ev, re, r, rp, 0)
      if Scl.CheckBoolean(res, true) or type(res) == "nil" then if Scl.CheckBoolean(res, true) or type(res) == "nil" then
      local chkf=tp local chkf=tp
      local mat = type(mat_obj) == "function" and mat_obj(e, tp, eg, ep, ev, re, r, rp) or Scl.Mix2Group(mat_obj) local mat = type(mat_obj) == "function" and mat_obj(e, tp, eg, ep, ev, re, r, rp) or Scl.Mix2Group(mat_obj)
      ...@@ -2127,14 +2146,14 @@ function s.fusion_summon_operation(ex_op, fus_filter, mat_obj, mat_fun, must_inc ...@@ -2127,14 +2146,14 @@ function s.fusion_summon_operation(ex_op, fus_filter, mat_obj, mat_fun, must_inc
      end end
      tc:CompleteProcedure() tc:CompleteProcedure()
      if res or type(res) == "nil" then if res or type(res) == "nil" then
      s.list_format_cost_or_target_or_operation(ex_op)(e, tp, eg, ep, ev, re, r, rp, 1) scl.list_format_cost_or_target_or_operation(ex_op)(e, tp, eg, ep, ev, re, r, rp, 1)
      end end
      end end
      :: FINAL :: :: FINAL ::
      aux.FCheckAdditional = nil aux.FCheckAdditional = nil
      aux.FGoalCheckAdditional = nil aux.FGoalCheckAdditional = nil
      aux.GCheckAdditional = nil aux.GCheckAdditional = nil
      s.list_format_cost_or_target_or_operation(ex_op)(e, tp, eg, ep, ev, re, r, rp, 2) scl.list_format_cost_or_target_or_operation(ex_op)(e, tp, eg, ep, ev, re, r, rp, 2)
      end end
      end end
      --Mix several single activate effects into one activate effect. --Mix several single activate effects into one activate effect.
      ...@@ -2361,7 +2380,7 @@ function Scl.CreateQuickOptionalEffect(reg_obj, code, desc_obj, lim_obj, ctgy, f ...@@ -2361,7 +2380,7 @@ function Scl.CreateQuickOptionalEffect(reg_obj, code, desc_obj, lim_obj, ctgy, f
      end end
      --Create a quick effect, negate the card's effect (neg_typ == "NegateEffect") or activation (neg_typ == "NegateActivation"). --Create a quick effect, negate the card's effect (neg_typ == "NegateEffect") or activation (neg_typ == "NegateActivation").
      --op_str is the index to find the corresponding operation and the extra category(s) in Scl.Category_List, means negate the effect/activation, and do that operation to the negated card. --op_str is the index to find the corresponding operation and the extra category(s) in Scl.Category_List, means negate the effect/activation, and do that operation to the negated card.
      --con can be function, nil, or be a array { ... }, if be nil or array-format, it equals to call the s.negate_activation_or_effect_con("NegateEffect" ,nil/ ...). --con can be function, nil, or be a array { ... }, if be nil or array-format, it equals to call the scl.negate_activation_or_effect_con("NegateEffect" ,nil/ ...).
      --automatic add "EFFECT_FLAG_DAMAGE_STEP" to the property if neg_typ == "NegateEffect". --automatic add "EFFECT_FLAG_DAMAGE_STEP" to the property if neg_typ == "NegateEffect".
      --automatic add "EFFECT_FLAG_DAMAGE_STEP + EFFECT_FLAG_DAMAGE_CAL" to the property if neg_typ == "NegateActivation". --automatic add "EFFECT_FLAG_DAMAGE_STEP + EFFECT_FLAG_DAMAGE_CAL" to the property if neg_typ == "NegateActivation".
      --ex_ctgy (defualt == nil) means extra categroy(s) the ex_op brings to. --ex_ctgy (defualt == nil) means extra categroy(s) the ex_op brings to.
      ...@@ -2381,9 +2400,9 @@ function Scl.CreateQuickOptionalEffect_Negate(reg_obj, neg_typ, op_str, lim_obj, ...@@ -2381,9 +2400,9 @@ function Scl.CreateQuickOptionalEffect_Negate(reg_obj, neg_typ, op_str, lim_obj,
      reg_ctgy = neg_typ == "NegateActivation" and reg_ctgy | CATEGORY_NEGATE or reg_ctgy | CATEGORY_DISABLE reg_ctgy = neg_typ == "NegateActivation" and reg_ctgy | CATEGORY_NEGATE or reg_ctgy | CATEGORY_DISABLE
      local reg_flag = Scl.GetNumFormatProperty(ex_flag or 0) local reg_flag = Scl.GetNumFormatProperty(ex_flag or 0)
      reg_flag = neg_typ == "NegateActivation" and reg_flag | (EFFECT_FLAG_DAMAGE_CAL + EFFECT_FLAG_DAMAGE_STEP) or reg_flag | ( EFFECT_FLAG_DAMAGE_STEP) reg_flag = neg_typ == "NegateActivation" and reg_flag | (EFFECT_FLAG_DAMAGE_CAL + EFFECT_FLAG_DAMAGE_STEP) or reg_flag | ( EFFECT_FLAG_DAMAGE_STEP)
      local reg_con = con or s.negate_activation_or_effect_con(neg_typ) local reg_con = con or scl.negate_activation_or_effect_con(neg_typ)
      if type(con) == "table" then if type(con) == "table" then
      reg_con = s.negate_activation_or_effect_con(neg_typ, table.unpack(con)) reg_con = scl.negate_activation_or_effect_con(neg_typ, table.unpack(con))
      end end
      ex_tg = ex_tg or aux.TRUE ex_tg = ex_tg or aux.TRUE
      ex_op = ex_op or aux.TRUE ex_op = ex_op or aux.TRUE
      ...@@ -2411,7 +2430,7 @@ end ...@@ -2411,7 +2430,7 @@ end
      function Scl.CreateQuickOptionalEffect_NegateActivation(reg_obj, op_str, lim_obj, rng, con, cost, ex_ctgy, ex_flag, ex_tg, ex_op, desc_obj, rst_obj) function Scl.CreateQuickOptionalEffect_NegateActivation(reg_obj, op_str, lim_obj, rng, con, cost, ex_ctgy, ex_flag, ex_tg, ex_op, desc_obj, rst_obj)
      return Scl.CreateQuickOptionalEffect_Negate(reg_obj, "NegateActivation", op_str, lim_obj, rng, con, cost, ex_ctgy, ex_flag, ex_tg, ex_op, desc_obj, rst_obj) return Scl.CreateQuickOptionalEffect_Negate(reg_obj, "NegateActivation", op_str, lim_obj, rng, con, cost, ex_ctgy, ex_flag, ex_tg, ex_op, desc_obj, rst_obj)
      end end
      function s.negate_activation_or_effect_con(neg_typ, eff_typ_obj, player) function scl.negate_activation_or_effect_con(neg_typ, eff_typ_obj, player)
      return function(e, tp, eg, ep, ev, re, r, rp) return function(e, tp, eg, ep, ev, re, r, rp)
      eff_typ_obj = eff_typ_obj or "All" eff_typ_obj = eff_typ_obj or "All"
      local c = e:GetHandler() local c = e:GetHandler()
      ...@@ -2451,24 +2470,24 @@ function s.negate_activation_or_effect_tg(neg_typ, op_str, ex_tg) ...@@ -2451,24 +2470,24 @@ function s.negate_activation_or_effect_tg(neg_typ, op_str, ex_tg)
      local rc = re:GetHandler() local rc = re:GetHandler()
      local cgty, ctgy_arr = Scl.GetNumFormatCategory(op_str) local cgty, ctgy_arr = Scl.GetNumFormatCategory(op_str)
      if chkc then if chkc then
      return s.list_format_cost_or_target_or_operation(ex_tg)(e, tp, eg, ep, ev, re, r, rp, 0, chkc) return scl.list_format_cost_or_target_or_operation(ex_tg)(e, tp, eg, ep, ev, re, r, rp, 0, chkc)
      end end
      if chk == 0 then if chk == 0 then
      return (cgty & CATEGORY_REMOVE == 0 or aux.nbcon(tp, re)) and (s.list_format_cost_or_target_or_operation(ex_tg)(e, tp, eg, ep, ev, re, r, rp, 0)) return (cgty & CATEGORY_REMOVE == 0 or aux.nbcon(tp, re)) and (scl.list_format_cost_or_target_or_operation(ex_tg)(e, tp, eg, ep, ev, re, r, rp, 0))
      end end
      if rc:IsRelateToChain(ev) then if rc:IsRelateToChain(ev) then
      for _, ctgy in pairs(ctgy_arr) do for _, ctgy in pairs(ctgy_arr) do
      Duel.SetOperationInfo(0, ctgy, eg, 1, 0, 0) Duel.SetOperationInfo(0, ctgy, eg, 1, 0, 0)
      end end
      end end
      s.list_format_cost_or_target_or_operation(ex_tg)(e, tp, eg, ep, ev, re, r, rp, 1) scl.list_format_cost_or_target_or_operation(ex_tg)(e, tp, eg, ep, ev, re, r, rp, 1)
      end end
      end end
      function s.negate_activation_or_effect_op(neg_typ, op_str, ex_op) function s.negate_activation_or_effect_op(neg_typ, op_str, ex_op)
      return function(e, tp, eg, ep, ev, re, r, rp) return function(e, tp, eg, ep, ev, re, r, rp)
      local c = e:GetHandler() local c = e:GetHandler()
      local rc = re:GetHandler() local rc = re:GetHandler()
      local res = not ex_op and true or s.list_format_cost_or_target_or_operation(ex_op)(e, tp, eg, ep, ev, re, r, rp, 0) local res = not ex_op and true or scl.list_format_cost_or_target_or_operation(ex_op)(e, tp, eg, ep, ev, re, r, rp, 0)
      if Scl.CheckBoolean(res, true) or type(res) == "nil" then if Scl.CheckBoolean(res, true) or type(res) == "nil" then
      if neg_typ == "NegateEffect" then if neg_typ == "NegateEffect" then
      res = Duel.NegateEffect(ev) res = Duel.NegateEffect(ev)
      ...@@ -2481,10 +2500,10 @@ function s.negate_activation_or_effect_op(neg_typ, op_str, ex_op) ...@@ -2481,10 +2500,10 @@ function s.negate_activation_or_effect_op(neg_typ, op_str, ex_op)
      res = s.operate_selected_objects(eg, op_str, REASON_EFFECT, 1, e, tp, eg, ep, ev, re, r, rp)() > 0 res = s.operate_selected_objects(eg, op_str, REASON_EFFECT, 1, e, tp, eg, ep, ev, re, r, rp)() > 0
      end end
      if res or type(res) == "nil" then if res or type(res) == "nil" then
      s.list_format_cost_or_target_or_operation(ex_op)(e, tp, eg, ep, ev, re, r, rp, 1) scl.list_format_cost_or_target_or_operation(ex_op)(e, tp, eg, ep, ev, re, r, rp, 1)
      end end
      end end
      s.list_format_cost_or_target_or_operation(ex_op)(e, tp, eg, ep, ev, re, r, rp, 2) scl.list_format_cost_or_target_or_operation(ex_op)(e, tp, eg, ep, ev, re, r, rp, 2)
      end end
      end end
      ...@@ -2553,15 +2572,16 @@ function Scl.CreateFieldTriggerContinousEffect(reg_obj, code, desc_obj, lim_obj, ...@@ -2553,15 +2572,16 @@ function Scl.CreateFieldTriggerContinousEffect(reg_obj, code, desc_obj, lim_obj,
      end end
      --Create a field destroy replace effect. --Create a field destroy replace effect.
      --repfilter default == not c:IsReason(REASON_REPLACE), the card must first meet repfilter(c, e, tp, ...) --repfilter default == not c:IsReason(REASON_REPLACE), the card must first meet repfilter(c, e, tp, ...)
      --if force(default == false) == true, it is a force-replace, won't ask you whether you want to replace or not.
      --other parama format : see Scl.CreateEffect --other parama format : see Scl.CreateEffect
      --//return effect --//return effect
      -->>eg1. Scl.CreateFieldTriggerContinousEffect_DestroyReplace(c, 1, LOCATION_MZONE, nil, s.tg, s.op) -->>eg1. Scl.CreateFieldTriggerContinousEffect_DestroyReplace(c, 1, LOCATION_MZONE, nil, s.tg, s.op)
      -->>If a card(s) meet s.tg(chk == 0) is destroyed by any ways except replace, you can do s.tg and s.op to replace the destroy. -->>If a card(s) meet s.tg(chk == 0) is destroyed by any ways except replace, you can do s.tg and s.op to replace the destroy.
      function Scl.CreateFieldTriggerContinousEffect_DestroyReplace(reg_obj, lim_obj, range, repfilter, tg, op, con, flag, rst_obj) function Scl.CreateFieldTriggerContinousEffect_DestroyReplace(reg_obj, lim_obj, range, repfilter, tg, op, con, force, flag, rst_obj)
      repfilter = repfilter or aux.TRUE repfilter = repfilter or aux.TRUE
      local e1 = Scl.CreateFieldTriggerContinousEffect(reg_obj, EFFECT_DESTROY_REPLACE, nil, lim_obj, nil, range, con, op, rst_obj) local e1 = Scl.CreateFieldTriggerContinousEffect(reg_obj, EFFECT_DESTROY_REPLACE, nil, lim_obj, nil, range, con, op, rst_obj)
      e1:SetValue(s.create_field_trigger_continous_effect_destroy_replace_value(repfilter)) e1:SetValue(s.create_field_trigger_continous_effect_destroy_replace_value(repfilter))
      e1:SetTarget(s.create_field_trigger_continous_effect_destroy_replace_tg(repfilter, tg)) e1:SetTarget(s.create_field_trigger_continous_effect_destroy_replace_tg(repfilter, tg, force))
      local g = Group.CreateGroup() local g = Group.CreateGroup()
      g:KeepAlive() g:KeepAlive()
      e1:SetLabelObject(g) e1:SetLabelObject(g)
      ...@@ -2572,14 +2592,14 @@ function s.create_field_trigger_continous_effect_destroy_replace_value(repfilter ...@@ -2572,14 +2592,14 @@ function s.create_field_trigger_continous_effect_destroy_replace_value(repfilter
      return e:GetLabelObject():IsContains(c) return e:GetLabelObject():IsContains(c)
      end end
      end end
      function s.create_field_trigger_continous_effect_destroy_replace_tg(repfilter, tg) function s.create_field_trigger_continous_effect_destroy_replace_tg(repfilter, tg, force)
      return function(e, tp, eg, ep, ev, re, r, rp, chk) return function(e, tp, eg, ep, ev, re, r, rp, chk)
      local c = e:GetHandler() local c = e:GetHandler()
      local rg = eg:Filter(s.create_single_trigger_continous_effect_destroy_replace_filter, nil, repfilter, e, tp, eg, ep, ev, re, r, rp) local rg = eg:Filter(s.create_single_trigger_continous_effect_destroy_replace_filter, nil, repfilter, e, tp, eg, ep, ev, re, r, rp)
      if chk == 0 then if chk == 0 then
      return #rg >0 and tg(e, tp, eg, ep, ev, re, r, rp, 0) return #rg >0 and tg(e, tp, eg, ep, ev, re, r, rp, 0)
      end end
      if Duel.SelectEffectYesNo(tp, c, 96) then if force or Duel.SelectEffectYesNo(tp, c, 96) then
      Scl.HintCard(c:GetOriginalCode()) Scl.HintCard(c:GetOriginalCode())
      local container=e:GetLabelObject() local container=e:GetLabelObject()
      container:Merge(rg) container:Merge(rg)
      ...@@ -2626,7 +2646,7 @@ function Scl.CreateFieldTriggerContinousEffect_PhaseOpearte(reg_obj, op_obj, tim ...@@ -2626,7 +2646,7 @@ function Scl.CreateFieldTriggerContinousEffect_PhaseOpearte(reg_obj, op_obj, tim
      tc:RegisterFlagEffect(FLAG_PHASE_OPERATE_SCL, RESETS_SCL, EFFECT_FLAG_CLIENT_HINT, 0, fid, desc) tc:RegisterFlagEffect(FLAG_PHASE_OPERATE_SCL, RESETS_SCL, EFFECT_FLAG_CLIENT_HINT, 0, fid, desc)
      end end
      sg:KeepAlive() sg:KeepAlive()
      local e1 = Scl.CreateFieldTriggerContinousEffect(reg_obj, EVENT_PHASE + phase, DESC_PHASE_OPERATION_SCL, 1, "IgnoreImmune", nil, s.phase_opearte_con(phase, atct, whos, fid, times, ex_con), s.phase_opearte_op(fun_obj, fid)) local e1 = Scl.CreateFieldTriggerContinousEffect(reg_obj, EVENT_PHASE + phase, DESC_PHASE_OPERATION_SCL, 1, "IgnoreUnaffected", nil, s.phase_opearte_con(phase, atct, whos, fid, times, ex_con), s.phase_opearte_op(fun_obj, fid))
      Scl.Operation_Info[e1] = {sg, 0, 0} Scl.Operation_Info[e1] = {sg, 0, 0}
      return e1 return e1
      end end
      ...@@ -2765,6 +2785,15 @@ end ...@@ -2765,6 +2785,15 @@ end
      --//return successfully, summon monster --//return successfully, summon monster
      function Scl.SpecialSummonStep(sum_card, sum_typ, sum_pl, zone_pl, ignore_con, ignore_revie, pos, zone) function Scl.SpecialSummonStep(sum_card, sum_typ, sum_pl, zone_pl, ignore_con, ignore_revie, pos, zone)
      local sum_res = false local sum_res = false
      sum_typ = sum_typ or 0
      if not sum_pl then
      local _, _, p = Scl.GetCurrentEffectInfo()
      sum_pl = p
      end
      zone_pl = zone_pl or sum_pl
      ignore_con = ignore_con or false
      ignore_revie = ignore_revie or false
      pos = pos or POS_FACEUP
      if zone then if zone then
      sum_res = Duel.SpecialSummonStep(sum_card, sum_typ, sum_pl, zone_pl, ignore_con, ignore_revie, pos, zone) sum_res = Duel.SpecialSummonStep(sum_card, sum_typ, sum_pl, zone_pl, ignore_con, ignore_revie, pos, zone)
      else else
      ...@@ -2821,7 +2850,7 @@ function s.negate_effect_and_special_summon(sum_obj, sum_typ, sum_pl, zone_pl, i ...@@ -2821,7 +2850,7 @@ function s.negate_effect_and_special_summon(sum_obj, sum_typ, sum_pl, zone_pl, i
      if Scl.Operate_Check == 0 then if Scl.Operate_Check == 0 then
      return Scl.SpecialSummon(sum_obj, sum_typ, sum_pl, zone_pl, ignore_con, ignore_revie, pos, zone) return Scl.SpecialSummon(sum_obj, sum_typ, sum_pl, zone_pl, ignore_con, ignore_revie, pos, zone)
      end end
      Scl.AddSingleBuff(nil, "NegateCard", 1, "NegateEffect", 1, "Reset", RESETS_WITHOUT_TO_FIELD_SCL) Scl.AddSingleBuff(nil, "NegateEffect", 1, "NegateActivatedEffect")
      Scl.SpecialSummon(sum_obj, sum_typ, sum_pl, zone_pl, ignore_con, ignore_revie, pos, zone) Scl.SpecialSummon(sum_obj, sum_typ, sum_pl, zone_pl, ignore_con, ignore_revie, pos, zone)
      end end
      --Special Summon a monster to either player's field in step, call Scl.AddSingleBuff and Scl.AddSingleBuff2Self. --Special Summon a monster to either player's field in step, call Scl.AddSingleBuff and Scl.AddSingleBuff2Self.
      ...@@ -2860,7 +2889,7 @@ function Scl.SpecialSummon2EitherFieldStep(sum_card, sum_typ, sum_pl, ignore_con ...@@ -2860,7 +2889,7 @@ function Scl.SpecialSummon2EitherFieldStep(sum_card, sum_typ, sum_pl, ignore_con
      end end
      return Scl.SpecialSummonStep(sum_card, sum_typ, sum_pl, zone_pl, ignore_con, ignore_revie, pos, sel_zone) return Scl.SpecialSummonStep(sum_card, sum_typ, sum_pl, zone_pl, ignore_con, ignore_revie, pos, sel_zone)
      end end
      --Special Summon a monster to either player's field, call Scl.AddSummonBuff and Scl.AddSummonBuff2Self. --Special Summon a monster to either player's field, call Scl.AddSingleBuff and Scl.AddSingleBuff2Self.
      --use nearly same as Duel.SpecialSummon. --use nearly same as Duel.SpecialSummon.
      --but the parama - zone_pl is useless, it is replaced by sum_eff (summon effect), to check whether the card(s) can be special summoned. --but the parama - zone_pl is useless, it is replaced by sum_eff (summon effect), to check whether the card(s) can be special summoned.
      --also the parama - sum_zone is change to array-format { [0] = number-format zone0, [1] = number-format zone1 }, means can special summon to player 0's zone0, or special summon to player1's zone1 (default == { [0] == 0x1f }, { [1] == 0x1f }). --also the parama - sum_zone is change to array-format { [0] = number-format zone0, [1] = number-format zone1 }, means can special summon to player 0's zone0, or special summon to player1's zone1 (default == { [0] == 0x1f }, { [1] == 0x1f }).
      ...@@ -3029,7 +3058,7 @@ function scl.target_special_summon_token(tk_code_or_fun, ct, sum_pos, tg_p, leav ...@@ -3029,7 +3058,7 @@ function scl.target_special_summon_token(tk_code_or_fun, ct, sum_pos, tg_p, leav
      return function(e, tp, eg, ep, ev, re, r, rp, chk, chkc) return function(e, tp, eg, ep, ev, re, r, rp, chk, chkc)
      tg_p = tg_p or 0 tg_p = tg_p or 0
      local sp = tg_p == 0 and tp or 1 - tp local sp = tg_p == 0 and tp or 1 - tp
      local res = Scl.IsTokenCanBeSpecialSummoned(e, tp, tk_code_or_fun, sum_pos, sp, nil, eg, ep, ev, re, r, rp, 0) local res = Scl.IsCanSpecialSummonToken(e, tp, tk_code_or_fun, sum_pos, sp, nil, eg, ep, ev, re, r, rp, 0)
      local ft = Duel.GetMZoneCount(sp, leave_obj, tp) local ft = Duel.GetMZoneCount(sp, leave_obj, tp)
      if Scl.IsAffectedByBlueEyesSpiritDragon(tp) and type(ct) == "number" and ct > 1 then res = false end if Scl.IsAffectedByBlueEyesSpiritDragon(tp) and type(ct) == "number" and ct > 1 then res = false end
      if type(ct) == "number" and ft < ct then res = false end if type(ct) == "number" and ft < ct then res = false end
      ...@@ -3135,8 +3164,8 @@ function Scl.SpecialSummonToken(e, tp, tk_code_or_fun, minct, maxct, sum_pos, tg ...@@ -3135,8 +3164,8 @@ function Scl.SpecialSummonToken(e, tp, tk_code_or_fun, minct, maxct, sum_pos, tg
      local og = Duel.GetOperatedGroup() local og = Duel.GetOperatedGroup()
      return res_ct, og, og:GetFirst() return res_ct, og, og:GetFirst()
      end end
      --Get effect cost/target/operation paramas form list, for quick set the effect cost/target/operation (s.list_format_cost_or_target_or_operation(list)) --Get effect cost/target/operation paramas form list, for quick set the effect cost/target/operation (scl.list_format_cost_or_target_or_operation(list))
      --"s.list_format_cost_or_target_or_operation" will first check if all lists is meet their condition, if the effect pass all lists' checks, you can activate/solve that effect, then do some different operations, depending on each list's first parama - list_typ --"scl.list_format_cost_or_target_or_operation" will first check if all lists is meet their condition, if the effect pass all lists' checks, you can activate/solve that effect, then do some different operations, depending on each list's first parama - list_typ
      --[[ --[[
      the first parama in the list always be list_typ, it means that list's kind. the first parama in the list always be list_typ, it means that list's kind.
      list_typ == "Cost", means it is a cost-list (using in Effect.SetCost), when you activate the effect, you must select a number of cards (depending the list's "minct" and "maxct" prarmas) form the card groups that meet the condition, then immediately do cost on them. If a cost indicated by one of the lists cannot be operated correctly, the remainder costs indicated by the remainder lists will be immediately termination of operation. list_typ == "Cost", means it is a cost-list (using in Effect.SetCost), when you activate the effect, you must select a number of cards (depending the list's "minct" and "maxct" prarmas) form the card groups that meet the condition, then immediately do cost on them. If a cost indicated by one of the lists cannot be operated correctly, the remainder costs indicated by the remainder lists will be immediately termination of operation.
      ...@@ -3241,14 +3270,14 @@ function s.get_cost_or_target_or_operation_paramas(arr, e, tp, eg, ep, ev, re, r ...@@ -3241,14 +3270,14 @@ function s.get_cost_or_target_or_operation_paramas(arr, e, tp, eg, ep, ev, re, r
      end end
      --Change a list-format effect cost/target/operation to function-format, using in Scl.CreatexxxEffect. --Change a list-format effect cost/target/operation to function-format, using in Scl.CreatexxxEffect.
      --list format and eg see s.get_cost_or_target_or_operation_paramas --list format and eg see s.get_cost_or_target_or_operation_paramas
      function s.list_format_cost_or_target_or_operation(obj) function scl.list_format_cost_or_target_or_operation(obj)
      if type(obj) == "function" then if type(obj) == "function" then
      return obj return obj
      else else
      return function(e, tp, eg, ep, ev, re, r, rp, chk, chkc) return function(e, tp, eg, ep, ev, re, r, rp, chk, chkc)
      Scl.Card_Target_Count_Check = 0 Scl.Card_Target_Count_Check = 0
      Scl.Player_Cost_And_Target_Value = { } Scl.Player_Cost_And_Target_Value = { }
      local arr = Scl.CloneArray(obj) local arr = obj
      arr = type(arr[1]) ~= "table" and { arr } or arr arr = type(arr[1]) ~= "table" and { arr } or arr
      local used_arr = { } local used_arr = { }
      if chkc or chk == 0 then if chkc or chk == 0 then
      ...@@ -3340,7 +3369,7 @@ function s.cost_or_target_or_operation_feasibility_check(e, tp, eg, ep, ev, re, ...@@ -3340,7 +3369,7 @@ function s.cost_or_target_or_operation_feasibility_check(e, tp, eg, ep, ev, re,
      --case3 target effect check --case3 target effect check
      elseif list_typ == "Target" or list_typ == "~Target" or list_typ == "Cost" or list_typ == "Operation" then elseif list_typ == "Target" or list_typ == "~Target" or list_typ == "Cost" or list_typ == "Operation" then
      local target_effect = list_typ == "Target" and e or nil local target_effect = list_typ == "Target" and e or nil
      local used_arr2, used_group_this_reuse_idx = s.cost_or_target_or_operation_reuse_cards_check(used_arr, reuse_idx, except_group) local used_arr2, used_group_this_reuse_idx = s.cost_or_target_or_operation_reuse_cards_check(used_arr, reuse_idx, nil, except_group)
      --case1 cost check --case1 cost check
      if (list_typ == "Cost" or list_typ == "PlayerCost") and not e:IsCostChecked() then if (list_typ == "Cost" or list_typ == "PlayerCost") and not e:IsCostChecked() then
      return s.cost_or_target_or_operation_feasibility_check(e, tp, eg, ep, ev, re, r, rp, chk, chkc, used_arr, arr2, ...) return s.cost_or_target_or_operation_feasibility_check(e, tp, eg, ep, ev, re, r, rp, chk, chkc, used_arr, arr2, ...)
      ...@@ -3378,7 +3407,7 @@ function s.cost_or_target_or_operation_feasibility_check(e, tp, eg, ep, ev, re, ...@@ -3378,7 +3407,7 @@ function s.cost_or_target_or_operation_feasibility_check(e, tp, eg, ep, ev, re,
      if Scl.CheckBoolean(minct, true) then if Scl.CheckBoolean(minct, true) then
      chk_minct, chk_maxct = #mandatory_group, #mandatory_group chk_minct, chk_maxct = #mandatory_group, #mandatory_group
      end end
      return mandatory_group:CheckSubGroup(s.cost_or_target_or_operation_group_check, chk_minct, chk_maxct, e, tp, eg, ep, ev, re, r, rp, reuse_idx, used_arr2, group_filter, arr2, ...) return mandatory_group:CheckSubGroup(s.cost_or_target_or_operation_group_check, chk_minct, chk_maxct, {e, tp, eg, ep, ev, re, r, rp, reuse_idx, used_arr2, group_filter}, arr2, ...)
      end end
      end end
      end end
      ...@@ -3444,7 +3473,7 @@ function s.do_cost_or_target_or_operation(e, tp, eg, ep, ev, re, r, rp, current_ ...@@ -3444,7 +3473,7 @@ function s.do_cost_or_target_or_operation(e, tp, eg, ep, ev, re, r, rp, current_
      local need_reg = list_typ == "Target" or list_typ == "~Target" local need_reg = list_typ == "Target" or list_typ == "~Target"
      local need_operate = list_typ == "Cost" or list_typ == "Operation" local need_operate = list_typ == "Cost" or list_typ == "Operation"
      local target_effect = list_typ == "Target" and e or nil local target_effect = list_typ == "Target" and e or nil
      local used_arr2, used_group_this_reuse_idx = s.cost_or_target_or_operation_reuse_cards_check(used_arr, reuse_idx, except_group) local used_arr2, used_group_this_reuse_idx = s.cost_or_target_or_operation_reuse_cards_check(used_arr, reuse_idx, nil, except_group)
      local current_sel_group2 = current_sel_group:Clone() local current_sel_group2 = current_sel_group:Clone()
      --case1 zone_self = nil, means do operation to the effect handler self. --case1 zone_self = nil, means do operation to the effect handler self.
      local mandatory_group = Group.CreateGroup() local mandatory_group = Group.CreateGroup()
      ...@@ -3473,7 +3502,7 @@ function s.do_cost_or_target_or_operation(e, tp, eg, ep, ev, re, r, rp, current_ ...@@ -3473,7 +3502,7 @@ function s.do_cost_or_target_or_operation(e, tp, eg, ep, ev, re, r, rp, current_
      else else
      if need_sel then if need_sel then
      Scl.SelectHint(tp, category_str) Scl.SelectHint(tp, category_str)
      mandatory_group = mandatory_group:SelectSubGroup(tp, s.cost_or_target_or_operation_group_check, false, minct, maxct, e, tp, eg, ep, ev, re, r, rp, reuse_idx, used_arr2, group_filter, arr2, ...) mandatory_group = mandatory_group:SelectSubGroup(tp, s.cost_or_target_or_operation_group_check, false, minct, maxct, {e, tp, eg, ep, ev, re, r, rp, reuse_idx, used_arr2, group_filter}, arr2, ...)
      end end
      end end
      --case6 no more cards --case6 no more cards
      ...@@ -3515,7 +3544,9 @@ function s.do_cost_or_target_or_operation(e, tp, eg, ep, ev, re, r, rp, current_ ...@@ -3515,7 +3544,9 @@ function s.do_cost_or_target_or_operation(e, tp, eg, ep, ev, re, r, rp, current_
      return s.do_cost_or_target_or_operation(e, tp, eg, ep, ev, re, r, rp, mandatory_group, total_sel_group2, used_arr2, arr2, ...) return s.do_cost_or_target_or_operation(e, tp, eg, ep, ev, re, r, rp, mandatory_group, total_sel_group2, used_arr2, arr2, ...)
      end end
      end end
      function s.cost_or_target_or_operation_group_check(g, e, tp, eg, ep, ev, re, r, rp, reuse_idx, used_arr, group_filter, arr1, ...) function s.cost_or_target_or_operation_group_check(g, parama, arr1, ...)
      --for some shenbi reasons, koshipro will lost paramas during the spell/trap card call this function, so I must use a table to protect the paramas, but original edition ygopro don't have this problem.
      local e, tp, eg, ep, ev, re, r, rp, reuse_idx, used_arr, group_filter = table.unpack(parama)
      local used_arr2, used_group_this_reuse_idx = s.cost_or_target_or_operation_reuse_cards_check(used_arr, reuse_idx, g) local used_arr2, used_group_this_reuse_idx = s.cost_or_target_or_operation_reuse_cards_check(used_arr, reuse_idx, g)
      if not s.operate_filter(group_filter)(g, e, tp, eg, ep, ev, re, r, rp) then if not s.operate_filter(group_filter)(g, e, tp, eg, ep, ev, re, r, rp) then
      return false return false
      ...@@ -3571,11 +3602,11 @@ function s.get_tribute_group_filter(c, zone_self, tp, re) ...@@ -3571,11 +3602,11 @@ function s.get_tribute_group_filter(c, zone_self, tp, re)
      end end
      return false return false
      end end
      function s.cost_or_target_or_operation_reuse_cards_check(used_arr, reuse_idx, except_group) function s.cost_or_target_or_operation_reuse_cards_check(used_arr, reuse_idx, used_group, except_group)
      local used_arr2 = Scl.CloneArray(used_arr) local used_arr2 = Scl.CloneArray(used_arr)
      used_arr2[reuse_idx] = used_arr[reuse_idx] or { } used_arr2[reuse_idx] = used_arr[reuse_idx] or { }
      used_arr2[reuse_idx] = Scl.MixArrays(Scl.CloneArray(used_arr2[reuse_idx]), Scl.Group2CardList(except_group or Group.CreateGroup())) used_arr2[reuse_idx] = Scl.MixArrays(Scl.CloneArray(used_arr2[reuse_idx]), Scl.Group2CardList(used_group or Group.CreateGroup()))
      return used_arr2, Scl.Mix2Group(used_arr2[reuse_idx]) return used_arr2, Scl.Mix2Group(used_arr2[reuse_idx]) + (except_group or Group.CreateGroup())
      end end
      function s.operate_selected_cost_or_operat_objects(current_sel_object, total_sel_group, category_str, replace_operation, reason, e, tp, eg, ep, ev, re, r, rp) function s.operate_selected_cost_or_operat_objects(current_sel_object, total_sel_group, category_str, replace_operation, reason, e, tp, eg, ep, ev, re, r, rp)
      if replace_operation then if replace_operation then
      ...@@ -3724,7 +3755,7 @@ function scl.cost_remove_counter_from_field(ct_typ, self_zone, oppo_zone, minct, ...@@ -3724,7 +3755,7 @@ function scl.cost_remove_counter_from_field(ct_typ, self_zone, oppo_zone, minct,
      return function(e, tp, eg, ep, ev, re, r, rp, chk) return function(e, tp, eg, ep, ev, re, r, rp, chk)
      local minct2= Scl.CheckBoolean(minct) and Duel.GetCounter(self_zone, oppo_zone, ct_typ) or minct local minct2= Scl.CheckBoolean(minct) and Duel.GetCounter(self_zone, oppo_zone, ct_typ) or minct
      local maxct2= Scl.CheckBoolean(maxct) and Duel.GetCounter(self_zone, oppo_zone, ct_typ) or maxct local maxct2= Scl.CheckBoolean(maxct) and Duel.GetCounter(self_zone, oppo_zone, ct_typ) or maxct
      local rmct = 0 local rmct = minct2
      if chk == 0 then if chk == 0 then
      return Duel.IsCanRemoveCounter(tp, self_zone, oppo_zone, ct_typ, minct2, REASON_COST) return Duel.IsCanRemoveCounter(tp, self_zone, oppo_zone, ct_typ, minct2, REASON_COST)
      end end
      ...@@ -3960,7 +3991,7 @@ end ...@@ -3960,7 +3991,7 @@ end
      function scl.con_is_spsummon_from(zone_obj, player) function scl.con_is_spsummon_from(zone_obj, player)
      return function(e) return function(e)
      local c = e:GetHandler() local c = e:GetHandler()
      return c:IsSummonType(SUMMON_TYPE_SPECIAL) and Scl.IsPreviousInZone(c, zone_obj) and (not player or (player == 0 and c:IsPreviousControler(tp)) or (player == 1 and c:IsPreviousControler(1 - tp))) return c:IsSummonType(SUMMON_TYPE_SPECIAL) and Scl.IsPreviouslyInZone(c, zone_obj) and (not player or (player == 0 and c:IsPreviousControler(tp)) or (player == 1 and c:IsPreviousControler(1 - tp)))
      end end
      end end
      --Nested function --Nested function
      ...@@ -3978,7 +4009,7 @@ function scl.cond_is_card_exists(card_filter, self_zone, oppo_zone, ct, except_o ...@@ -3978,7 +4009,7 @@ function scl.cond_is_card_exists(card_filter, self_zone, oppo_zone, ct, except_o
      return function(e) return function(e)
      local self_zone2 = Scl.GetNumFormatZone(self_zone or LOCATION_MZONE) local self_zone2 = Scl.GetNumFormatZone(self_zone or LOCATION_MZONE)
      local oppo_zone2 = Scl.GetNumFormatZone(oppo_zone or 0) local oppo_zone2 = Scl.GetNumFormatZone(oppo_zone or 0)
      return Duel.IsExistingMatchingCard(s.operatefilter(card_filter), e:GetHandlerPlayer(), self_zone2 , oppo_zone2, ct or 1, except_obj, table.unpack(arr)) return Duel.IsExistingMatchingCard(s.operate_filter(card_filter), e:GetHandlerPlayer(), self_zone2 , oppo_zone2, ct or 1, except_obj, table.unpack(arr))
      end end
      end end
      --Nested function --Nested function
      ...@@ -4082,6 +4113,9 @@ function Scl.SelectAndOperateCards(sel_hint, sp, filter_obj, tp, self_zone, oppo ...@@ -4082,6 +4113,9 @@ function Scl.SelectAndOperateCards(sel_hint, sp, filter_obj, tp, self_zone, oppo
      local op_arr = { ... } local op_arr = { ... }
      local sg = Scl.SelectCards(sel_hint, sp, filter_obj, tp, self_zone, oppo_zone, minct, maxct, except_obj, table.unpack(sel_list)) local sg = Scl.SelectCards(sel_hint, sp, filter_obj, tp, self_zone, oppo_zone, minct, maxct, except_obj, table.unpack(sel_list))
      if #sg == 0 then if #sg == 0 then
      --reset special summon buff
      Scl.Single_Buff_List = { }
      Scl.Single_Buff_Affect_Self_List = { }
      return 0, #sg return 0, #sg
      else else
      return s.operate_selected_objects(sg, sel_hint, REASON_EFFECT, 1)(table.unpack(op_arr)) return s.operate_selected_objects(sg, sel_hint, REASON_EFFECT, 1)(table.unpack(op_arr))
      ...@@ -4144,6 +4178,9 @@ function Scl.SelectAndOperateCardsFromGroup(sel_hint, g, sp, filter, minct, maxc ...@@ -4144,6 +4178,9 @@ function Scl.SelectAndOperateCardsFromGroup(sel_hint, g, sp, filter, minct, maxc
      local op_arr = { ... } local op_arr = { ... }
      local sg = Scl.SelectCardsFromGroup(sel_hint, g, sp, filter, minct, maxct, except_obj, table.unpack(sel_arr)) local sg = Scl.SelectCardsFromGroup(sel_hint, g, sp, filter, minct, maxct, except_obj, table.unpack(sel_arr))
      if #sg == 0 then if #sg == 0 then
      --reset special summon buff
      Scl.Single_Buff_List = { }
      Scl.Single_Buff_Affect_Self_List = { }
      return 0, #sg return 0, #sg
      else else
      return s.operate_selected_objects(sg, sel_hint, REASON_EFFECT, 1)(table.unpack(op_arr)) return s.operate_selected_objects(sg, sel_hint, REASON_EFFECT, 1)(table.unpack(op_arr))
      ...@@ -4402,7 +4439,7 @@ function Scl.Send2Grave(card_obj, reason) ...@@ -4402,7 +4439,7 @@ function Scl.Send2Grave(card_obj, reason)
      end end
      return s.more_returns_operate(Duel.SendtoGrave, sg, reason) return s.more_returns_operate(Duel.SendtoGrave, sg, reason)
      end end
      --Discard card, using in s.list_format_cost_or_target_or_operation --Discard card, using in scl.list_format_cost_or_target_or_operation
      --selected_obj : { [0] = player 0's min count, [1] = player 1's min count, [2] = player 0's max count, [3] = player 1's max count } --selected_obj : { [0] = player 0's min count, [1] = player 1's min count, [2] = player 0's max count, [3] = player 1's max count }
      --//return discarded count, discarded group, first discarded card --//return discarded count, discarded group, first discarded card
      function s.discard_hand_special(selected_obj, reason) function s.discard_hand_special(selected_obj, reason)
      ...@@ -4422,7 +4459,7 @@ function s.discard_hand_special(selected_obj, reason) ...@@ -4422,7 +4459,7 @@ function s.discard_hand_special(selected_obj, reason)
      end end
      return ct, og, og:GetFirst() return ct, og, og:GetFirst()
      end end
      --draw, using in s.list_format_cost_or_target_or_operation --draw, using in scl.list_format_cost_or_target_or_operation
      --selected_obj : { [0] = player 0's min count, [1] = player 1's min count, [2] = player 0's max count, [3] = player 1's max count } --selected_obj : { [0] = player 0's min count, [1] = player 1's min count, [2] = player 0's max count, [3] = player 1's max count }
      function s.draw_special(selected_obj, reason) function s.draw_special(selected_obj, reason)
      if Scl.Operate_Check == 0 then if Scl.Operate_Check == 0 then
      ...@@ -4457,7 +4494,7 @@ function s.draw_special(selected_obj, reason) ...@@ -4457,7 +4494,7 @@ function s.draw_special(selected_obj, reason)
      end end
      return ct, og, og:GetFirst() return ct, og, og:GetFirst()
      end end
      --send deck top to graveyard, using in s.list_format_cost_or_target_or_operation --send deck top to graveyard, using in scl.list_format_cost_or_target_or_operation
      --selected_obj : { [0] = player 0's min count, [1] = player 1's min count, [2] = player 0's max count, [3] = player 1's max count } --selected_obj : { [0] = player 0's min count, [1] = player 1's min count, [2] = player 0's max count, [3] = player 1's max count }
      function s.discard_deck_special(selected_obj, reason) function s.discard_deck_special(selected_obj, reason)
      if Scl.Operate_Check == 0 then if Scl.Operate_Check == 0 then
      ...@@ -4587,17 +4624,14 @@ end ...@@ -4587,17 +4624,14 @@ end
      --//return placed count, placed group, first placed card --//return placed count, placed group, first placed card
      function Scl.Place2Field(card_obj, movep, targetp, zone, pos, enable, lim_zone) function Scl.Place2Field(card_obj, movep, targetp, zone, pos, enable, lim_zone)
      local g = Scl.Mix2Group(card_obj) local g = Scl.Mix2Group(card_obj)
      targetp = targetp or movep
      local zone2 = Scl.GetNumFormatZone(zone) local zone2 = Scl.GetNumFormatZone(zone)
      pos= pos or POS_FACEUP
      enable = enable or true
      if Scl.Operate_Check == 0 then if Scl.Operate_Check == 0 then
      return g:FilterCount(Card.IsForbidden, nil) == 0 and Duel.GetLocationCount(targetp, loc, movep, LOCATION_REASON_TOFIELD, zone) >= #g return g:FilterCount(Card.IsForbidden, nil) == 0 and Duel.GetLocationCount(targetp, zone2, movep, LOCATION_REASON_TOFIELD, lim_zone) >= #g
      end end
      if #g <= 0 then return 0, nil end if #g <= 0 then return 0, nil end
      local correctg = Group.CreateGroup() local correctg = Group.CreateGroup()
      for tc in aux.Next(g) do for tc in aux.Next(g) do
      local fc = Duel.GetFieldCard(tp, LOCATION_FZONE, 0) local fc = Duel.GetFieldCard(targetp, LOCATION_FZONE, 0)
      if fc and zone2 == LOCATION_FZONE then if fc and zone2 == LOCATION_FZONE then
      Duel.SendtoGrave(fc, REASON_RULE) Duel.SendtoGrave(fc, REASON_RULE)
      Duel.BreakEffect() Duel.BreakEffect()
      ...@@ -4613,56 +4647,65 @@ function Scl.Place2Field(card_obj, movep, targetp, zone, pos, enable, lim_zone) ...@@ -4613,56 +4647,65 @@ function Scl.Place2Field(card_obj, movep, targetp, zone, pos, enable, lim_zone)
      end end
      end end
      local facedowng = correctg:Filter(Card.IsFacedown, nil) local facedowng = correctg:Filter(Card.IsFacedown, nil)
      if #facedowng > 0 then if #facedowng > 0 and targetp == movep then
      Duel.ConfirmCards(1 - movep, facedowng) Duel.ConfirmCards(1 - targetp, facedowng)
      end end
      return #correctg, correctg, correctg:GetFirst() return #correctg, correctg, correctg:GetFirst()
      end end
      --Operation: activate "tc" to field --Operation: activate "tc" to field.
      --use nearly same as Duel.MoveToField, but switch the sequence of the format "card_obj" and "movep"
      --if you want to activate a field spell, and there is a card currently in the field zone, this function will first send that card to GY, and will raise an event for "Ancient Pixie Dragon" after activated. --if you want to activate a field spell, and there is a card currently in the field zone, this function will first send that card to GY, and will raise an event for "Ancient Pixie Dragon" after activated.
      --it will do the cost of the activated card --it will do the cost of the activated effect
      --if apply_effect == true (default == false), it will do the target and operation of the activated effect.
      --//return activated count, activated group, first activated card --//return activated count, activated group, first activated card
      -->>eg1. Scl.Activate2Field(tc, tp, tp, LOCATION_FZONE, POS_FACEUP, true) -->>eg1. Scl.ActivateSepllOrTrap(tc, tp)
      -->>activate tc to your field zone. -->>activate tc, not apply effect.
      function Scl.Activate2Field(tc, movep, targetp, zone, pos, enable, lim_zone) -->>eg2. Scl.ActivateSepllOrTrap(tc, 1 - tp, true)
      local error_code = s.get_error_card_id() -->>your opponent activate tc and apply its effect immediately.
      targetp = targetp or movep function Scl.ActivateSepllOrTrap(tc, actp, apply_effect, lim_zone)
      local zone2 = Scl.GetNumFormatZone(zone) if aux.GetValueType(tc) == "Group" then
      pos = POS_FACEUP tc = tc:GetFirst()
      enable = enable or true end
      if zone2 == LOCATION_MZONE then local zone = LOCATION_SZONE
      Debug.Message(error_code .. "-- Scl.Operation_Activate can only activate Spell / Trap!") if tc:IsType(TYPE_FIELD) then
      return 0 zone = LOCATION_FZONE
      elseif tc:IsType(TYPE_PENDULUM) then
      zone = LOCATION_PZONE
      end end
      if Scl.Operate_Check == 0 then if Scl.Operate_Check == 0 then
      return tc and tc:GetActivateEffect() and tc:GetActivateEffect():IsActivatable(movep,true,true) return tc and tc:GetActivateEffect() and tc:GetActivateEffect():IsActivatable(actp,true,true)
      end end
      if not tc then if not tc then
      return 0 return 0
      end end
      local fc = Duel.GetFieldCard(tp, LOCATION_FZONE, 0) local fc = Duel.GetFieldCard(tp, LOCATION_FZONE, 0)
      if fc and zone2 == LOCATION_FZONE then if fc and zone == LOCATION_FZONE then
      Duel.SendtoGrave(fc, REASON_RULE) Duel.SendtoGrave(fc, REASON_RULE)
      Duel.BreakEffect() Duel.BreakEffect()
      end end
      local bool = false local bool = false
      if lim_zone then if lim_zone then
      bool = Duel.MoveToField(tc, movep, targetp, zone2, pos, enable, lim_zone) bool = Duel.MoveToField(tc, actp, actp, zone, POS_FACEUP, true, lim_zone)
      else else
      bool = Duel.MoveToField(tc, movep, targetp, zone2, pos, enable) bool = Duel.MoveToField(tc, actp, actp, zone, POS_FACEUP, true)
      end end
      if bool then if bool then
      local te = tc:GetActivateEffect() local te, ceg, cep, cev, cre, cr, crp = tc:CheckActivateEffect(false, false, true)
      if te then if te then
      te:UseCountLimit(tp, 1, true) te:UseCountLimit(tp, 1, true)
      local tep = tc:GetControler() local tep = tc:GetControler()
      local cost = te:GetCost() local cost = te:GetCost() or aux.TRUE
      if cost then cost(te, tep, eg, ep, ev, re, r, rp, 1) end cost(te, actp, ceg, cep, cev, cre, cr, crp, 1)
      end
      if apply_effect then
      local tg = te:GetTarget() or aux.TRUE
      local op = te:GetOperation() or aux.TRUE
      tg(te, actp, ceg, cep, cev, cre, cr, crp, 1)
      op(te, actp, ceg, cep, cev, cre, cr, crp)
      end end
      if ploc == LOCATION_FZONE then if zone == LOCATION_FZONE then
      Duel.RaiseEvent(tc, 4179255, te, 0, tp, tp, Duel.GetCurrentChain()) Duel.RaiseEvent(tc, 4179255, te, 0, tp, tp, Duel.GetCurrentChain())
      end end
      return 1, Group.FromCards(tc), tc return 1, Group.FromCards(tc), tc
      end end
      return 0 return 0
      ...@@ -4712,6 +4755,10 @@ function Scl.SetSpellOrTrap(card_obj, sp, tp, confirm) ...@@ -4712,6 +4755,10 @@ function Scl.SetSpellOrTrap(card_obj, sp, tp, confirm)
      return #sg > 0 and sg:FilterCount(Card.IsSSetable, nil, true) == #sg and Duel.GetSZoneCount(tp) >= #sg return #sg > 0 and sg:FilterCount(Card.IsSSetable, nil, true) == #sg and Duel.GetSZoneCount(tp) >= #sg
      end end
      end end
      if not sp then
      local _, _, p = Scl.GetCurrentEffectInfo()
      sp = p
      end
      tp = tp or sp tp = tp or sp
      return s.more_returns_operate(Duel.SSet, sp, sg, tp, confirm) return s.more_returns_operate(Duel.SSet, sp, sg, tp, confirm)
      end end
      ...@@ -4720,7 +4767,8 @@ end ...@@ -4720,7 +4767,8 @@ end
      --Bug in set extra deck monsters --Bug in set extra deck monsters
      --return set count, set group, first set card --return set count, set group, first set card
      function Scl.SetCards(card_obj, sp, tp, confirm) function Scl.SetCards(card_obj, sp, tp, confirm)
      local e = Scl.GetCurrentEffectInfo() local e, _, p = Scl.GetCurrentEffectInfo()
      sp = sp or p
      tp = tp or sp tp = tp or sp
      if type(confirm) == "nil" then if type(confirm) == "nil" then
      confirm = true confirm = true
      ...@@ -4781,7 +4829,7 @@ function Scl.NegateCardEffects(card_obj, force, reset) ...@@ -4781,7 +4829,7 @@ function Scl.NegateCardEffects(card_obj, force, reset)
      end end
      for tc in aux.Next(sg) do for tc in aux.Next(sg) do
      Duel.NegateRelatedChain(tc,RESET_TURN_SET) Duel.NegateRelatedChain(tc,RESET_TURN_SET)
      local e1,e2 = Scl.AddSingleBuff({neg_owner, tc, force}, "NegateEffect,NegateCard", 1, "Reset", reset) local e1,e2 = Scl.AddSingleBuff({neg_owner, tc, force}, "NegateEffect,NegateActivatedEffect", 1, "Reset", reset)
      if not force then if not force then
      e2:SetValue(RESET_TURN_SET) e2:SetValue(RESET_TURN_SET)
      end end
      ...@@ -4983,14 +5031,31 @@ end ...@@ -4983,14 +5031,31 @@ end
      -->>get zones that surround to card c on the field, include c's zone. -->>get zones that surround to card c on the field, include c's zone.
      -->>eg2. Scl.GetSurroundingZone(0x100, "MonsterZone", tp) -->>eg2. Scl.GetSurroundingZone(0x100, "MonsterZone", tp)
      -->>get monster zones that surround to the zone "0x100" -->>get monster zones that surround to the zone "0x100"
      function s.switch_zone_camera(base_zone, tp)
      local _, _, p = Scl.GetCurrentEffectInfo()
      if tp == p then
      return base_zone
      end
      local zone_arr = Scl.SplitNumber2PowerOf2(base_zone)
      local zone = 0
      for _, sgl_zone in pairs(zone_arr) do
      if sgl_zone >= 0x10000 then
      zone = zone | (sgl_zone / 0x10000)
      else
      zone = zone | (sgl_zone * 0x10000)
      end
      end
      return zone
      end
      function Scl.GetSurroundingZone(obj, lim_zone_obj, tp, contain_self) function Scl.GetSurroundingZone(obj, lim_zone_obj, tp, contain_self)
      local zone_arr = { }
      if aux.GetValueType(obj) == "Card" or aux.GetValueType(obj) == "Group" then if aux.GetValueType(obj) == "Card" or aux.GetValueType(obj) == "Group" then
      local g = Scl.Mix2Group(obj):Filter(Scl.IsInZone, nil, "OnField") local g = Scl.Mix2Group(obj):Filter(Scl.IsInZone, nil, "OnField")
      for tc in aux.Next(g) do for tc in aux.Next(g) do
      table.insert(zone_arr, aux.SequenceToGlobal(tp, tc:GetLocation(), tc:GetSequence())) table.insert(zone_arr, aux.SequenceToGlobal(tc:GetControler(), tc:GetLocation(), tc:GetSequence()))
      end end
      elseif type(obj) == "number" then elseif type(obj) == "number" then
      zone_arr = Scl.SplitNumber2PowerOf2(obj) zone_arr = Scl.SplitNumber2PowerOf2(obj)
      end end
      local srd_zone = 0 local srd_zone = 0
      for idx, zone in pairs(zone_arr) do for idx, zone in pairs(zone_arr) do
      ...@@ -5009,7 +5074,7 @@ function Scl.GetSurroundingZone(obj, lim_zone_obj, tp, contain_self) ...@@ -5009,7 +5074,7 @@ function Scl.GetSurroundingZone(obj, lim_zone_obj, tp, contain_self)
      srd_zone = srd_zone | zone srd_zone = srd_zone | zone
      end end
      end end
      end end
      --ex monster zone --ex monster zone
      local ex_arr = { 0x20, 0x40, 0x200000, 0x400000 } local ex_arr = { 0x20, 0x40, 0x200000, 0x400000 }
      local ex_arr2 = { 0x400000, 0x200000, 0x40, 0x20 } local ex_arr2 = { 0x400000, 0x200000, 0x40, 0x20 }
      ...@@ -5025,6 +5090,9 @@ function Scl.GetSurroundingZone(obj, lim_zone_obj, tp, contain_self) ...@@ -5025,6 +5090,9 @@ function Scl.GetSurroundingZone(obj, lim_zone_obj, tp, contain_self)
      if lim_zone == LOCATION_MZONE then if lim_zone == LOCATION_MZONE then
      srd_zone = srd_zone & (0x7f007f) srd_zone = srd_zone & (0x7f007f)
      end end
      if tp then
      srd_zone = s.switch_zone_camera(srd_zone, tp)
      end
      return srd_zone return srd_zone
      end end
      --Get pervious surrounding zone (up, down, left & right zone) --Get pervious surrounding zone (up, down, left & right zone)
      ...@@ -5034,7 +5102,7 @@ function Scl.GetPreviousSurroundingZone(obj, lim_zone_obj, tp, contain_self) ...@@ -5034,7 +5102,7 @@ function Scl.GetPreviousSurroundingZone(obj, lim_zone_obj, tp, contain_self)
      local g = Scl.Mix2Group(obj):Filter(Scl.IsPreviouslyInZone, nil, "OnField") local g = Scl.Mix2Group(obj):Filter(Scl.IsPreviouslyInZone, nil, "OnField")
      local zone = 0 local zone = 0
      for tc in aux.Next(g) do for tc in aux.Next(g) do
      zone = zone | aux.SequenceToGlobal(tp, tc:GetPreviousLocation(), tc:GetPreviousSequence()) zone = zone | aux.SequenceToGlobal(tc:GetPreviousControler(), tc:GetPreviousLocation(), tc:GetPreviousSequence())
      end end
      return Scl.GetSurroundingZone(zone, lim_zone_obj, tp, contain_self) return Scl.GetSurroundingZone(zone, lim_zone_obj, tp, contain_self)
      end end
      ...@@ -5049,10 +5117,11 @@ end ...@@ -5049,10 +5117,11 @@ end
      -->>eg2. Scl.GetAdjacentZone(0x100, "MonsterZone", tp) -->>eg2. Scl.GetAdjacentZone(0x100, "MonsterZone", tp)
      -->>get monster zones that adjacent to the zone "0x100" -->>get monster zones that adjacent to the zone "0x100"
      function Scl.GetAdjacentZone(obj, lim_zone_obj, tp, contain_self) function Scl.GetAdjacentZone(obj, lim_zone_obj, tp, contain_self)
      local zone_arr = { }
      if aux.GetValueType(obj) == "Card" or aux.GetValueType(obj) == "Group" then if aux.GetValueType(obj) == "Card" or aux.GetValueType(obj) == "Group" then
      local g = Scl.Mix2Group(obj):Filter(Scl.IsInZone, nil, "OnField") local g = Scl.Mix2Group(obj):Filter(Scl.IsInZone, nil, "OnField")
      for tc in aux.Next(g) do for tc in aux.Next(g) do
      table.insert(zone_arr, aux.SequenceToGlobal(tp, tc:GetLocation(), tc:GetSequence())) table.insert(zone_arr, aux.SequenceToGlobal(tc:GetControler(), tc:GetLocation(), tc:GetSequence()))
      end end
      elseif type(obj) == "number" then elseif type(obj) == "number" then
      zone_arr = Scl.SplitNumber2PowerOf2(obj) zone_arr = Scl.SplitNumber2PowerOf2(obj)
      ...@@ -5078,6 +5147,7 @@ function Scl.GetAdjacentZone(obj, lim_zone_obj, tp, contain_self) ...@@ -5078,6 +5147,7 @@ function Scl.GetAdjacentZone(obj, lim_zone_obj, tp, contain_self)
      if lim_zone == LOCATION_MZONE then if lim_zone == LOCATION_MZONE then
      ajt_zone = ajt_zone & (0x7f007f) ajt_zone = ajt_zone & (0x7f007f)
      end end
      ajt_zone = s.switch_zone_camera(ajt_zone, tp)
      return ajt_zone return ajt_zone
      end end
      ...@@ -5120,18 +5190,18 @@ end ...@@ -5120,18 +5190,18 @@ end
      -->>eg2. Scl.GetSurroundingGroup(0x1000) -->>eg2. Scl.GetSurroundingGroup(0x1000)
      -->>return cards surround to zone 0x1000 -->>return cards surround to zone 0x1000
      function Scl.GetSurroundingGroup(obj, contains) function Scl.GetSurroundingGroup(obj, contains)
      local srd_zone = Scl.GetSurroundingZone(obj, "OnField", 0, contains) local srd_zone = Scl.GetSurroundingZone(obj, "OnField", nil, contains)
      return Duel.GetMatchingGroup(s.get_matching_zone_group_filter, 0, LOCATION_ONFIELD, LOCATION_ONFIELD, nil, srd_zone) return Duel.GetMatchingGroup(s.get_matching_zone_group_filter, 0, LOCATION_ONFIELD, LOCATION_ONFIELD, nil, srd_zone)
      end end
      function s.get_matching_zone_group_filter(c, srd_zone) function s.get_matching_zone_group_filter(c, srd_zone)
      local zone = aux.SequenceToGlobal(0, c:IsOnField() and c:GetLocation() or c:GetPreviousLocation(), c:IsOnField() and c:GetSequence() or c:GetPreviousSequence()) local zone = aux.SequenceToGlobal(c:GetControler(), c:IsOnField() and c:GetLocation() or c:GetPreviousLocation(), c:IsOnField() and c:GetSequence() or c:GetPreviousSequence())
      return zone & srd_zone == zone return zone & srd_zone == zone
      end end
      --Get cards surround to obj while obj is leaves the field (up, down, left & right zone) --Get cards surround to obj while obj is leaves the field (up, down, left & right zone)
      --paramas see Scl.GetSurroundingGroup --paramas see Scl.GetSurroundingGroup
      --//return group --//return group
      function Scl.GetPreviousSurroundingGroup(obj, contains) function Scl.GetPreviousSurroundingGroup(obj, contains)
      local srd_zone = Scl.GetPreviousSurroundingZone(obj, "OnField", 0, contains) local srd_zone = Scl.GetPreviousSurroundingZone(obj, "OnField", nil, contains)
      return Duel.GetMatchingGroup(s.get_matching_zone_group_filter, 0, LOCATION_ONFIELD, LOCATION_ONFIELD, nil, srd_zone) return Duel.GetMatchingGroup(s.get_matching_zone_group_filter, 0, LOCATION_ONFIELD, LOCATION_ONFIELD, nil, srd_zone)
      end end
      --Get cards adjacent to obj (left & right zone) --Get cards adjacent to obj (left & right zone)
      ...@@ -5143,7 +5213,7 @@ end ...@@ -5143,7 +5213,7 @@ end
      -->>eg2. Scl.GetAdjacentGroup(0x1000) -->>eg2. Scl.GetAdjacentGroup(0x1000)
      -->>return cards adjacent to zone 0x1000 -->>return cards adjacent to zone 0x1000
      function Scl.GetAdjacentGroup(obj, contains) function Scl.GetAdjacentGroup(obj, contains)
      local ajt_zone = Scl.GetAdjacentZone(obj, "OnField", 0, contains) local ajt_zone = Scl.GetAdjacentZone(obj, "OnField", nil, contains)
      return Duel.GetMatchingGroup(s.get_matching_zone_group_filter, 0, LOCATION_ONFIELD, LOCATION_ONFIELD, nil, ajt_zone) return Duel.GetMatchingGroup(s.get_matching_zone_group_filter, 0, LOCATION_ONFIELD, LOCATION_ONFIELD, nil, ajt_zone)
      end end
      --Mix cards or groups into a new group. --Mix cards or groups into a new group.
      ...@@ -5198,14 +5268,14 @@ function Scl.SetID(code, inside_series_str) ...@@ -5198,14 +5268,14 @@ function Scl.SetID(code, inside_series_str)
      local series_arr = { } local series_arr = { }
      local arr = Scl.SplitString(inside_series_str) local arr = Scl.SplitString(inside_series_str)
      for _, str in pairs(arr) do for _, str in pairs(arr) do
      local arr2 = Scl.SplitString(str) local arr2 = Scl.SplitString(str, "_")
      for _, str2 in pairs(arr2) do for _, str2 in pairs(arr2) do
      table.insert(series_arr, str2) table.insert(series_arr, str2)
      end end
      end end
      ccodem.scl_inside_series = series_arr ccodem.scl_inside_series = series_arr
      end end
      return ccodem, ccode return ccodem, code
      end end
      --Create check inside series function series_mata.IsXSetXX --Create check inside series function series_mata.IsXSetXX
      --"series_mata": inside series matatable --"series_mata": inside series matatable
      ...@@ -5275,9 +5345,13 @@ end ...@@ -5275,9 +5345,13 @@ end
      -->>eg2. Scl.GetTargetsReleate2Chain(Card.IsFaceup) -->>eg2. Scl.GetTargetsReleate2Chain(Card.IsFaceup)
      -->>return tg with faceup cards, faceup tc or nil. -->>return tg with faceup cards, faceup tc or nil.
      function Scl.GetTargetsReleate2Chain(filter, ...) function Scl.GetTargetsReleate2Chain(filter, ...)
      filter = card_filter or aux.TRUE filter = card_filter or aux.TRUE
      local g = Duel.GetChainInfo(0, CHAININFO_TARGET_CARDS):Filter(s.get_target_releate_filter, nil, filter, ...) if not Duel.GetFirstTarget() then
      return g, g:GetFirst() return Group.CreateGroup()
      else
      local g = Duel.GetChainInfo(0, CHAININFO_TARGET_CARDS):Filter(s.get_target_releate_filter, nil, filter, ...)
      return g, g:GetFirst()
      end
      end end
      function s.get_target_releate_filter(c, filter, ...) function s.get_target_releate_filter(c, filter, ...)
      filter = filter or aux.TRUE filter = filter or aux.TRUE
      ...@@ -5399,7 +5473,7 @@ function Scl.SetSummonCondition(reg_obj, revive, spsum_lim, lim_ct_sum_typ) ...@@ -5399,7 +5473,7 @@ function Scl.SetSummonCondition(reg_obj, revive, spsum_lim, lim_ct_sum_typ)
      e1 = Scl.CreateSingleBuffCondition(reg_obj, EFFECT_SPSUMMON_CONDITION, spsum_lim) e1 = Scl.CreateSingleBuffCondition(reg_obj, EFFECT_SPSUMMON_CONDITION, spsum_lim)
      end end
      if lim_ct_sum_typ then if lim_ct_sum_typ then
      e2 = Scl.CreateSingleTriggerContinousEffect(reg_obj, EVENT_SPSUMMON_SUCCESS, nil, nil, "~NegateCard,Uncopyable", scl.cond_is_summon_type(lim_ct_sum_typ), s.summon_count_limit_op(lim_ct_sum_typ)) e2 = Scl.CreateSingleTriggerContinousEffect(reg_obj, EVENT_SPSUMMON_SUCCESS, nil, nil, "!NegateEffect,Uncopyable", scl.cond_is_summon_type(lim_ct_sum_typ), s.summon_count_limit_op(lim_ct_sum_typ))
      end end
      return e1, e2 return e1, e2
      end end
      ...@@ -5433,7 +5507,7 @@ function Scl.AddSynchroProcedure(c, f1, f2, f3, f4, minc, maxc, gc) ...@@ -5433,7 +5507,7 @@ function Scl.AddSynchroProcedure(c, f1, f2, f3, f4, minc, maxc, gc)
      return e1 return e1
      end end
      function s.GetSynMaterials(tp, syncard) function s.GetSynMaterials(tp, syncard)
      local mg1 = Scl.Group_GetSynMaterials_R(tp, syncard) local mg1 = Scl.GetSynMaterials_R(tp, syncard)
      local mg2 = Duel.GetMatchingGroup(s.SExtraFilter, tp, 0xff, 0xff, mg1, syncard, tp) local mg2 = Duel.GetMatchingGroup(s.SExtraFilter, tp, 0xff, 0xff, mg1, syncard, tp)
      return mg1 + mg2 return mg1 + mg2
      end end
      ...@@ -5500,24 +5574,24 @@ function s.SynMixCheckGoal(tp, sg, minc, ct, syncard, sg1, smat, gc, mgchk) ...@@ -5500,24 +5574,24 @@ function s.SynMixCheckGoal(tp, sg, minc, ct, syncard, sg1, smat, gc, mgchk)
      end end
      function s.SynMixCondition(f1,f2,f3,f4,minc,maxc,gc) function s.SynMixCondition(f1,f2,f3,f4,minc,maxc,gc)
      return function(e,c,smat,mg1,min,max) return function(e,c,smat,mg1,min,max)
      --Scl.Group_GetSynMaterials_R = aux.GetSynMaterials Scl.GetSynMaterials_R = aux.GetSynMaterials
      aux.GetSynMaterials = s.GetSynMaterials aux.GetSynMaterials = s.GetSynMaterials
      s.SynMixCheckGoal_R = aux.SynMixCheckGoal s.SynMixCheckGoal_R = aux.SynMixCheckGoal
      aux.SynMixCheckGoal = s.SynMixCheckGoal aux.SynMixCheckGoal = s.SynMixCheckGoal
      local res = aux.SynMixCondition(f1,f2,f3,f4,minc,maxc,gc)(e,c,smat,mg1,min,max) local res = aux.SynMixCondition(f1,f2,f3,f4,minc,maxc,gc)(e,c,smat,mg1,min,max)
      aux.GetSynMaterials = Scl.Group_GetSynMaterials_R aux.GetSynMaterials = Scl.GetSynMaterials_R
      aux.SynMixCheckGoal = s.SynMixCheckGoal_R aux.SynMixCheckGoal = s.SynMixCheckGoal_R
      return res return res
      end end
      end end
      function s.SynMixTarget(f1,f2,f3,f4,minc,maxc,gc) function s.SynMixTarget(f1,f2,f3,f4,minc,maxc,gc)
      return function(e,tp,eg,ep,ev,re,r,rp,chk,c,smat,mg1,min,max) return function(e,tp,eg,ep,ev,re,r,rp,chk,c,smat,mg1,min,max)
      Scl.Group_GetSynMaterials_R = aux.GetSynMaterials Scl.GetSynMaterials_R = aux.GetSynMaterials
      aux.GetSynMaterials = s.GetSynMaterials aux.GetSynMaterials = s.GetSynMaterials
      s.SynMixCheckGoal_R = aux.SynMixCheckGoal s.SynMixCheckGoal_R = aux.SynMixCheckGoal
      aux.SynMixCheckGoal = s.SynMixCheckGoal aux.SynMixCheckGoal = s.SynMixCheckGoal
      local res = aux.SynMixTarget(f1,f2,f3,f4,minc,maxc,gc)(e,tp,eg,ep,ev,re,r,rp,chk,c,smat,mg1,min,max) local res = aux.SynMixTarget(f1,f2,f3,f4,minc,maxc,gc)(e,tp,eg,ep,ev,re,r,rp,chk,c,smat,mg1,min,max)
      aux.GetSynMaterials = Scl.Group_GetSynMaterials_R aux.GetSynMaterials = Scl.GetSynMaterials_R
      aux.SynMixCheckGoal = s.SynMixCheckGoal_R aux.SynMixCheckGoal = s.SynMixCheckGoal_R
      return res return res
      end end
      ...@@ -5617,9 +5691,9 @@ function Scl.AddlXyzProcedure(c, f, gf, minc, maxc, alterf, desc, op) ...@@ -5617,9 +5691,9 @@ function Scl.AddlXyzProcedure(c, f, gf, minc, maxc, alterf, desc, op)
      e1:SetRange(LOCATION_EXTRA) e1:SetRange(LOCATION_EXTRA)
      --if alterf then --if alterf then
      maxc= maxc or minc maxc= maxc or minc
      e1:SetCondition(s.XyzLevelFreeCondition2(f, gf, minc, maxc, alterf, desc, op)) e1:SetCondition(s.XyzLevelFreeConditionAlter(f, gf, minc, maxc, alterf, desc, op))
      e1:SetTarget(s.XyzLevelFreeTarget2(f, gf, minc, maxc, alterf, desc, op)) e1:SetTarget(s.XyzLevelFreeTargetAlter(f, gf, minc, maxc, alterf, desc, op))
      e1:SetOperation(s.XyzLevelFreeOperation2(f, gf, minc, maxc, alterf, desc, op)) e1:SetOperation(s.XyzLevelFreeOperationAlter(f, gf, minc, maxc, alterf, desc, op))
      --[[else --[[else
      e1:SetCondition(Auxiliary.XyzLevelFreeCondition(f, gf, minc, maxc)) e1:SetCondition(Auxiliary.XyzLevelFreeCondition(f, gf, minc, maxc))
      e1:SetTarget(Auxiliary.XyzLevelFreeTarget(f, gf, minc, maxc)) e1:SetTarget(Auxiliary.XyzLevelFreeTarget(f, gf, minc, maxc))
      ...@@ -5665,7 +5739,7 @@ end ...@@ -5665,7 +5739,7 @@ end
      function s.XyzLevelFreeFilter(c, xyzc, f) function s.XyzLevelFreeFilter(c, xyzc, f)
      return (not c:IsOnField() or c:IsFaceup()) and s.IsCanBeXyzMaterial(c, xyzc) and (not f or f(c, xyzc)) return (not c:IsOnField() or c:IsFaceup()) and s.IsCanBeXyzMaterial(c, xyzc) and (not f or f(c, xyzc))
      end end
      function s.XyzLevelFreeCondition2(f, gf, minct, maxct, alterf, desc, op) function s.XyzLevelFreeConditionAlter(f, gf, minct, maxct, alterf, desc, op)
      return function(e, c, og, min, max) return function(e, c, og, min, max)
      Scl.Group_XyzLevelFreeGoal_R = aux.XyzLevelFreeGoal Scl.Group_XyzLevelFreeGoal_R = aux.XyzLevelFreeGoal
      aux.XyzLevelFreeGoal = s.XyzLevelFreeGoal(minct, maxct, og) aux.XyzLevelFreeGoal = s.XyzLevelFreeGoal(minct, maxct, og)
      ...@@ -5673,7 +5747,7 @@ function s.XyzLevelFreeCondition2(f, gf, minct, maxct, alterf, desc, op) ...@@ -5673,7 +5747,7 @@ function s.XyzLevelFreeCondition2(f, gf, minct, maxct, alterf, desc, op)
      Duel.GetFieldGroup = s.GetXyzMaterials_X(e:GetHandlerPlayer(), c) Duel.GetFieldGroup = s.GetXyzMaterials_X(e:GetHandlerPlayer(), c)
      Scl.Card_XyzLevelFreeFilter_R = aux.XyzLevelFreeFilter Scl.Card_XyzLevelFreeFilter_R = aux.XyzLevelFreeFilter
      aux.XyzLevelFreeFilter = s.XyzLevelFreeFilter aux.XyzLevelFreeFilter = s.XyzLevelFreeFilter
      local res = aux.XyzLevelFreeCondition2(f, gf, 1, maxct, alterf, desc, op)(e, c, og, min, max) local res = aux.XyzLevelFreeConditionAlter(f, gf, 1, maxct, alterf, desc, op)(e, c, og, min, max)
      aux.XyzLevelFreeGoal = Scl.Group_XyzLevelFreeGoal_R aux.XyzLevelFreeGoal = Scl.Group_XyzLevelFreeGoal_R
      Duel.GetFieldGroup = Scl.Group_GetFieldGroup_R Duel.GetFieldGroup = Scl.Group_GetFieldGroup_R
      aux.XyzLevelFreeFilter = Scl.Card_XyzLevelFreeFilter_R aux.XyzLevelFreeFilter = Scl.Card_XyzLevelFreeFilter_R
      ...@@ -5709,7 +5783,9 @@ function s.XyzLevelFreeGoal(minct, maxct, og) ...@@ -5709,7 +5783,9 @@ function s.XyzLevelFreeGoal(minct, maxct, og)
      end end
      end end
      for _, matct in pairs(sumlist) do for _, matct in pairs(sumlist) do
      if matct >= minct and matct <= maxct then return true end if matct >= minct and matct <= maxct then
      return true
      end
      end end
      return false return false
      end end
      ...@@ -5734,7 +5810,7 @@ function s.XCheckUtilityMaterial(c, mg, xyzc, tp) ...@@ -5734,7 +5810,7 @@ function s.XCheckUtilityMaterial(c, mg, xyzc, tp)
      local le = { c:IsHasEffect(EFFECT_UTILITY_XYZ_MATERIAL_SCL, tp) } local le = { c:IsHasEffect(EFFECT_UTILITY_XYZ_MATERIAL_SCL, tp) }
      if #le == 0 then return 1, { 1 } end if #le == 0 then return 1, { 1 } end
      local max_reduce = 1 local max_reduce = 1
      local reduce_arr = { 1} local reduce_arr = { 1 }
      for _, te in pairs(le) do for _, te in pairs(le) do
      local val = te:GetValue() local val = te:GetValue()
      local reduce = 1 local reduce = 1
      ...@@ -5746,7 +5822,7 @@ function s.XCheckUtilityMaterial(c, mg, xyzc, tp) ...@@ -5746,7 +5822,7 @@ function s.XCheckUtilityMaterial(c, mg, xyzc, tp)
      table.sort(reduce_arr) table.sort(reduce_arr)
      return max_reduce, reduce_arr return max_reduce, reduce_arr
      end end
      function s.XyzLevelFreeTarget2(f, gf, minct, maxct, alterf, desc, op) function s.XyzLevelFreeTargetAlter(f, gf, minct, maxct, alterf, desc, op)
      return function(e, tp, eg, ep, ev, re, r, rp, chk, c, og, min, max) return function(e, tp, eg, ep, ev, re, r, rp, chk, c, og, min, max)
      Scl.Group_XyzLevelFreeGoal_R = aux.XyzLevelFreeGoal Scl.Group_XyzLevelFreeGoal_R = aux.XyzLevelFreeGoal
      aux.XyzLevelFreeGoal = s.XyzLevelFreeGoal(minct, maxct, og) aux.XyzLevelFreeGoal = s.XyzLevelFreeGoal(minct, maxct, og)
      ...@@ -5754,20 +5830,20 @@ function s.XyzLevelFreeTarget2(f, gf, minct, maxct, alterf, desc, op) ...@@ -5754,20 +5830,20 @@ function s.XyzLevelFreeTarget2(f, gf, minct, maxct, alterf, desc, op)
      Duel.GetFieldGroup = s.GetXyzMaterials_X(tp, c) Duel.GetFieldGroup = s.GetXyzMaterials_X(tp, c)
      Scl.Card_XyzLevelFreeFilter_R = aux.XyzLevelFreeFilter Scl.Card_XyzLevelFreeFilter_R = aux.XyzLevelFreeFilter
      aux.XyzLevelFreeFilter = s.XyzLevelFreeFilter aux.XyzLevelFreeFilter = s.XyzLevelFreeFilter
      local res = aux.XyzLevelFreeTarget2(f, gf, 1, maxct, alterf, desc, op)(e, tp, eg, ep, ev, re, r, rp, chk, c, og, min, max) local res = aux.XyzLevelFreeTargetAlter(f, gf, 1, maxct, alterf, desc, op)(e, tp, eg, ep, ev, re, r, rp, chk, c, og, min, max)
      aux.XyzLevelFreeGoal = Scl.Group_XyzLevelFreeGoal_R aux.XyzLevelFreeGoal = Scl.Group_XyzLevelFreeGoal_R
      Duel.GetFieldGroup = Scl.Group_GetFieldGroup_R Duel.GetFieldGroup = Scl.Group_GetFieldGroup_R
      aux.XyzLevelFreeFilter = Scl.Card_XyzLevelFreeFilter_R aux.XyzLevelFreeFilter = Scl.Card_XyzLevelFreeFilter_R
      return res return res
      end end
      end end
      function s.XyzLevelFreeOperation2(f, gf, minct, maxct, alterf, desc, op) function s.XyzLevelFreeOperationAlter(f, gf, minct, maxct, alterf, desc, op)
      return function(e, tp, eg, ep, ev, re, r, rp, c, og, min, max) return function(e, tp, eg, ep, ev, re, r, rp, c, og, min, max)
      local res local res
      local mg = e:GetLabelObject() local mg = e:GetLabelObject()
      s.XExtraMaterialCount(mg, c, tp) s.XExtraMaterialCount(mg, c, tp)
      if not Scl.CustomXyzMaterialAction and not c.scl_custom_xyz_material_action then if not Scl.CustomXyzMaterialAction and not c.scl_custom_xyz_material_action then
      res = aux.XyzLevelFreeOperation2(f, gf, 1, maxct, alterf, desc, op)(e, tp, eg, ep, ev, re, r, rp, c, og, min, max) res = aux.XyzLevelFreeOperationAlter(f, gf, 1, maxct, alterf, desc, op)(e, tp, eg, ep, ev, re, r, rp, c, og, min, max)
      else else
      if Scl.CustomXyzMaterialAction then if Scl.CustomXyzMaterialAction then
      res = Scl.CustomXyzMaterialAction(mg, c, e, tp) res = Scl.CustomXyzMaterialAction(mg, c, e, tp)
      ...@@ -5865,9 +5941,14 @@ function Scl.IsPreviouslySurrounding(obj, tc) ...@@ -5865,9 +5941,14 @@ function Scl.IsPreviouslySurrounding(obj, tc)
      if not tc:IsOnField() then if not tc:IsOnField() then
      return false return false
      end end
      local g = Scl.Mix2Group(obj):Filter(Scl.IsPreviousInZone, nil, "OnField") local g = Scl.Mix2Group(obj):Filter(Scl.IsPreviouslyInZone, nil, "OnField")
      local sg = Scl.GetPreviousSurroundingGroup(tc, true) for tc2 in aux.Next(g) do
      return g:IsExists(aux.IsInGroup, 1, nil, sg) local sg = Scl.GetPreviousSurroundingGroup(tc2, true)
      if sg:IsContains(tc) then
      return true
      end
      end
      return false
      end end
      --Filter --Filter
      --check is player "tp" can special summon obj to his field in faceup position, won't check whether there are enough zones. --check is player "tp" can special summon obj to his field in faceup position, won't check whether there are enough zones.
      ...@@ -5913,6 +5994,7 @@ end ...@@ -5913,6 +5994,7 @@ end
      --check whether obj can replace destroy --check whether obj can replace destroy
      --//return bool --//return bool
      function Scl.IsDestructableForReplace(obj) function Scl.IsDestructableForReplace(obj)
      local e = Scl.GetCurrentEffectInfo()
      local f = function(c) local f = function(c)
      return c:IsDestructable(e) and not c:IsStatus(STATUS_DESTROY_CONFIRMED+STATUS_BATTLE_DESTROYED) return c:IsDestructable(e) and not c:IsStatus(STATUS_DESTROY_CONFIRMED+STATUS_BATTLE_DESTROYED)
      end end
      ...@@ -6016,19 +6098,19 @@ end ...@@ -6016,19 +6098,19 @@ end
      function Scl.IsReason(obj, public_reason, ...) function Scl.IsReason(obj, public_reason, ...)
      local g = Scl.Mix2Group(obj) local g = Scl.Mix2Group(obj)
      public_reason = public_reason or 0 public_reason = public_reason or 0
      local num_public_typ = Scl.GetNumFormatCardType(public_reason) local num_public_rsn = Scl.GetNumFormatCardType(public_reason)
      local res_arr = { ... } local res_arr = { ... }
      if Scl.Global_Reason then if Scl.Global_Reason then
      for _, reason in pairs(res_arr) do for _, reason in pairs(res_arr) do
      local num_reason = Scl.GetNumFormatCardType(public_typ) local num_reason = Scl.GetNumFormatCardType(reason)
      if Scl.Global_Reason & (num_reason | num_public_typ) == (num_reason | num_public_typ) then if Scl.Global_Reason & (num_reason | num_public_rsn) == (num_reason | num_public_rsn) then
      return true return true
      end end
      end end
      else else
      for _, reason in pairs(res_arr) do for _, reason in pairs(res_arr) do
      local num_reason = Scl.GetNumFormatCardType(public_typ) local num_reason = Scl.GetNumFormatCardType(reason)
      if g:IsExists(s.is_reason_check, 1, nil, num_reason, num_public_typ) then if g:IsExists(s.is_reason_check, 1, nil, num_reason, num_public_rsn) then
      return true return true
      end end
      end end
      ...@@ -6191,11 +6273,11 @@ end ...@@ -6191,11 +6273,11 @@ end
      function Scl.IsPreviouslyInZone(obj, zone_obj) function Scl.IsPreviouslyInZone(obj, zone_obj)
      for tc in aux.Next(Scl.Mix2Group(obj)) do for tc in aux.Next(Scl.Mix2Group(obj)) do
      if type(zone_obj) == "number" then if type(zone_obj) == "number" then
      return c:IsPreviousPosition(zone_obj) return c:IsPreviousLocation(zone_obj)
      end end
      local zone_arr = Scl.SplitString(zone_obj) local zone_arr = Scl.SplitString(zone_obj)
      for _, zone_str in pairs(zone_arr) do for _, zone_str in pairs(zone_arr) do
      if c:IsPreviousPosition(Scl.List(zone_str)) then if tc:IsPreviousLocation(Scl.Zone_List[zone_str]) then
      return true return true
      end end
      end end
      ......
      expansions/script/c53736006.lua
      View file @ b6f81f52
      ...@@ -63,6 +63,7 @@ function cm.target(e,tp,eg,ep,ev,re,r,rp,chk) ...@@ -63,6 +63,7 @@ function cm.target(e,tp,eg,ep,ev,re,r,rp,chk)
      end end
      end end
      function cm.desop(e,tp,eg,ep,ev,re,r,rp) function cm.desop(e,tp,eg,ep,ev,re,r,rp)
      if Duel.GetTurnPlayer()==tp then return end
      Duel.Destroy(e:GetHandler(),REASON_RULE) Duel.Destroy(e:GetHandler(),REASON_RULE)
      end end
      function cm.splimit(e,c,tp,sumtp,sumpos) function cm.splimit(e,c,tp,sumtp,sumpos)
      ......
      expansions/script/c60152902.lua
      View file @ b6f81f52
      ...@@ -9,14 +9,14 @@ function s.initial_effect(c) ...@@ -9,14 +9,14 @@ function s.initial_effect(c)
      "Damage,NegateEffect", nil, "MonsterZone", nil, nil, { "Damage,NegateEffect", nil, "MonsterZone", nil, nil, {
      { "PlayerTarget", "Damage", 1000, 1000 }, { "PlayerTarget", "Damage", 1000, 1000 },
      { "~Target", aux.NegateAnyFilter, "NegateEffect", { "~Target", aux.NegateAnyFilter, "NegateEffect",
      0, "Field", B2Sayaka.LPDifferentChk } }, s.damop) 0, "OnField", B2Sayaka.LPDifferentChk } }, s.damop)
      B2Sayaka.Effect2Condition(id, e2, EVENT_SUMMON_SUCCESS, s.regop, B2Sayaka.Effect2Condition(id, e2, EVENT_SUMMON_SUCCESS, s.regop,
      EVENT_FLIP_SUMMON_SUCCESS, EVENT_SPSUMMON_SUCCESS) EVENT_FLIP_SUMMON_SUCCESS, EVENT_SPSUMMON_SUCCESS)
      local e3 = Scl.CreateSingleTriggerOptionalEffect(c, EVENT_RELEASE, local e3 = Scl.CreateSingleTriggerOptionalEffect(c, EVENT_RELEASE,
      "ShuffleIn2Deck", {1, id + 200}, "ShuffleIn2Deck", {1, id + 200},
      "ShuffleIn2Deck", "Delay", B2Sayaka.ExtraLimit, nil, { "ShuffleIn2Deck", "Delay", B2Sayaka.ExtraLimit, nil, {
      "~Target", Card.IsAbleToDeck, "ShuffleIn2Deck", "~Target", Card.IsAbleToDeck, "ShuffleIn2Deck",
      0, "Field", B2Sayaka.LPDifferent2Chk }, s.tdop) 0, "OnField", B2Sayaka.LPDifferent2Chk }, s.tdop)
      end end
      function s.damop(e,tp) function s.damop(e,tp)
      if not B2Sayaka.Damage(tp) then return end if not B2Sayaka.Damage(tp) then return end
      ...@@ -30,5 +30,5 @@ function s.regop(e,tp,eg) ...@@ -30,5 +30,5 @@ function s.regop(e,tp,eg)
      end end
      function s.tdop(e,tp) function s.tdop(e,tp)
      local ct = B2Sayaka.LPDifferent2() local ct = B2Sayaka.LPDifferent2()
      Scl.SelectAndOperateCards("ShuffleIn2Deck", tp, Card.IsAbleToDeck, tp, 0, "Field", 1, ct, nil)() Scl.SelectAndOperateCards("ShuffleIn2Deck", tp, Card.IsAbleToDeck, tp, 0, "OnField", 1, ct, nil)()
      end end
      \ No newline at end of file
      expansions/script/c60152906.lua
      View file @ b6f81f52
      ...@@ -9,7 +9,7 @@ function s.initial_effect(c) ...@@ -9,7 +9,7 @@ function s.initial_effect(c)
      "GainLP,Send2GY", nil, "MonsterZone", nil, nil, { "GainLP,Send2GY", nil, "MonsterZone", nil, nil, {
      { "PlayerTarget", "GainLP", 1000 }, { "PlayerTarget", "GainLP", 1000 },
      { "~Target", Card.IsAbleToGrave, "Send2GY", { "~Target", Card.IsAbleToGrave, "Send2GY",
      0, "Field", B2Sayaka.LPDifferentAdd1000Chk} }, s.damop) 0, "OnField", B2Sayaka.LPDifferentAdd1000Chk} }, s.damop)
      B2Sayaka.Effect2Condition(id, e2, EVENT_DAMAGE, s.regop) B2Sayaka.Effect2Condition(id, e2, EVENT_DAMAGE, s.regop)
      local e3 = Scl.CreateSingleTriggerOptionalEffect(c, EVENT_RELEASE, local e3 = Scl.CreateSingleTriggerOptionalEffect(c, EVENT_RELEASE,
      "ShuffleIn2Deck", {1, id + 200}, "ShuffleIn2Deck", {1, id + 200},
      ...@@ -20,11 +20,11 @@ end ...@@ -20,11 +20,11 @@ end
      function s.damop(e,tp) function s.damop(e,tp)
      if Duel.Recover(tp, 1000, REASON_EFFECT) <= 0 then return end if Duel.Recover(tp, 1000, REASON_EFFECT) <= 0 then return end
      local ct = B2Sayaka.LPDifferent() local ct = B2Sayaka.LPDifferent()
      Scl.SelectAndOperateCards("Send2GY",tp,Card.IsAbleToGrave,tp,0,"Field",1,ct,nil)() Scl.SelectAndOperateCards("Send2GY",tp,Card.IsAbleToGrave,tp,0,"OnField",1,ct,nil)()
      end end
      function s.regop(e,tp,eg,ep) function s.regop(e,tp,eg,ep)
      Duel.RegisterFlagEffect(ep, id, RESET_EP_SCL, 0 , 1) Duel.RegisterFlagEffect(ep, id, RESET_EP_SCL, 0 , 1)
      end end
      function s.drop(e,tp) function s.drop(e,tp)
      Scl.SelectAndOperateCards("ShuffleIn2Deck&Draw",tp,Card.IsAbleToDeck,tp,"Banish,GY",0,1,3,nil)(nil, 2, tp, 1) Scl.SelectAndOperateCards("ShuffleIn2Deck&Draw",tp,Card.IsAbleToDeck,tp,"Banished,GY",0,1,3,nil)(nil, 2, tp, 1)
      end end
      \ No newline at end of file
      expansions/script/c60152927.lua
      View file @ b6f81f52
      ...@@ -6,7 +6,7 @@ function s.initial_effect(c) ...@@ -6,7 +6,7 @@ function s.initial_effect(c)
      e1:SetCondition(B2Sayaka.ExtraLimit) e1:SetCondition(B2Sayaka.ExtraLimit)
      local e2 = Scl.CreateFieldBuffEffect(c, "!BeEffectTarget", 1, s.tg, local e2 = Scl.CreateFieldBuffEffect(c, "!BeEffectTarget", 1, s.tg,
      {"MonsterZone", 0}, "FieldZone") {"MonsterZone", 0}, "FieldZone")
      local e3 = Scl.CreateFieldBuffEffect(c, "!BeDestroyedByEffect", 1, s.tg, local e3 = Scl.CreateFieldBuffEffect(c, "!BeDestroyedByEffects", 1, s.tg,
      {"MonsterZone", 0}, "FieldZone") {"MonsterZone", 0}, "FieldZone")
      local e4 = Scl.CreateIgnitionEffect(c, "ChangeLevel", 1, "ChangeLevel", nil, local e4 = Scl.CreateIgnitionEffect(c, "ChangeLevel", 1, "ChangeLevel", nil,
      "FieldZone", nil, nil, { "FieldZone", nil, nil, {
      ......
      Markdown is supported
      0% or
      You are about to add 0 people to the discussion. Proceed with caution.
      Finish editing this message first!
      Please register or to comment