Skip to content

Y
ygopro-222DIY-cards
You need to sign in or sign up before continuing.
Commit 2c2cbb79 authored by Tachibana's avatar Tachibana
Browse files
Options

E

parent b47595b0
Pipeline #15459 passed with stages
      in 28 minutes and 51 seconds
      Hide whitespace changes
      Inline Side-by-side
      Showing with 390 additions and 772 deletions
      expansions/script/c10171001.lua
      View file @ 2c2cbb79
      ......@@ -134,7 +134,7 @@ function cm.initial_effect(c)
      --local e1=rsef.QO(c,nil,{m,1},nil,"rec","ptg",LOCATION_HAND+LOCATION_MZONE,nil,rsds.cost1,rsop.target(800,"rec"),cm.recop)
      local e2=rsef.QO(c,nil,{m,2},nil,"sp",nil,LOCATION_HAND+LOCATION_MZONE,nil,rsds.cost1,rsop.target2(cm.resetfun,cm.spfilter,"sp",LOCATION_HAND),cm.spop)
      --local e3=rsef.QO(c,nil,{m,3},nil,"rm",nil,LOCATION_HAND+LOCATION_MZONE,nil,rsds.cost1,rsop.target2(cm.resetfun,cm.rmfilter,"rm",LOCATION_MZONE,LOCATION_MZONE),cm.rmop)
      local e3=rsef.QO(c,nil,{m,4},nil,"atl,def",nil,LOCATION_HAND+LOCATION_MZONE,nil,rsds.cost1,rsop.target2(cm.resetfun,cm.atkfilter,nil,LOCATION_MZONE,LOCATION_MZONE),cm.atkop)
      local e3=rsef.QO(c,nil,{m,4},nil,"atk,def",nil,LOCATION_HAND+LOCATION_MZONE,nil,rsds.cost1,rsop.target2(cm.resetfun,cm.atkfilter,nil,LOCATION_MZONE,LOCATION_MZONE),cm.atkop)
      --local e4=rsef.FTF(c,EVENT_LEAVE_FIELD,{m,0},{2,m},"th",nil,LOCATION_REMOVED,cm.embthcon,rscost.regflag2(),rsop.target(Card.IsAbleToHand,"th"),cm.embthop)
      local e4=rsef.FTF(c,EVENT_LEAVE_FIELD,{m,0},nil,"th",nil,LOCATION_REMOVED,cm.embthcon,cm.embthcost,rsop.target(Card.IsAbleToHand,"th"),cm.embthop)
      end
      ......
      expansions/script/c10199990.lua
      View file @ 2c2cbb79
      ......@@ -2,7 +2,7 @@
      if not pcall(function() require("expansions/script/c10199991") end) then require("script/c10199991") end
      local m = 10199990
      local vm = 10199991
      local Version_Number = 20210618
      local Version_Number = 20220810
      if rsv.Library_Switch then return end
      rsv.Library_Switch = true
      -----------------------"Part_Effect_Base"-----------------------
      ......@@ -493,7 +493,6 @@ function rsef.Register(reg_list, eff_type, eff_code, desc_list, lim_list, cate,
      end
      -------------------"Part_Effect_SingleValue"-------------------
      --Single Val Effect: Base set
      function rsef.SV(reg_list, code, val, range, con, reset_list, flag, desc_list, lim_list)
      local reg_owner, reg_handler = rsef.GetRegisterCard(reg_list)
      ......@@ -586,7 +585,6 @@ function rsef.SV_CannotDisable_NoEffect(reg_list, con, reset_list, flag, desc_li
      end
      --Single Val Effect: Utility Procedure Materials
      function rsef.SV_UtilityXyzMaterial(reg_list, val, con, reset_list, flag, desc_list, lim_list, range)
      rssf.EnableSpecialXyzProcedure()
      val = val or 2
      range = range or LOCATION_HAND + LOCATION_ONFIELD + LOCATION_EXTRA + LOCATION_DECK + LOCATION_GRAVE
      local e1 = rsef.SV(reg_list, rscode.Utility_Xyz_Material, val, range, con, reset_list, flag, desc_list, lim_list)
      ......@@ -729,13 +727,13 @@ end
      function rsef.FV_ExtraMaterial_Self(reg_list, mat_list, val_list, tg, tg_range_list, con, reset_list, flag, desc_list, lim_list)
      local code_list_1 = { "syn", "xyz", "link" }
      local code_list_2 = { rscode.Extra_Synchro_Material, rscode.Extra_Xyz_Material, EFFECT_EXTRA_LINK_MATERIAL }
      val_list = val_list or { function(e, c, mg) return c == e:GetHandler() end }
      val_list = val_list or { function(e, c, mg) return c == e:GetHandler(), true end }
      tg_range_list = tg_range_list or { LOCATION_HAND, 0 }
      local flag2 = rsef.GetRegisterProperty(reg_list, flag) | EFFECT_FLAG_IGNORE_IMMUNE + EFFECT_FLAG_SET_AVAILABLE + EFFECT_FLAG_UNCOPYABLE
      local code_list, val_list2 = rsof.Table_Suit(mat_list, code_list_1, code_list_2, val_list)
      local eff_list = { }
      for idx, eff_code in ipairs(code_list) do
      local e1 = rsef.FV(reg_list, eff_code, val_list2[idx], tg, tg_range_list, LOCATION_EXTRA, con, reset_list, flag2, desc_list, lim_list)
      local e1 = rsef.FV(reg_list, eff_code, val_list2[idx], nil, tg_range_list, LOCATION_EXTRA, con, reset_list, flag2, desc_list, lim_list)
      table.insert(eff_list, e1)
      end
      return table.unpack(eff_list)
      ......@@ -910,195 +908,113 @@ function rstg.FC_DestroyReplace(repfilter, tg)
      return false
      end
      end
      --Field Continues: Attach an extra effect when base effect is activating
      function rsef.FC_AttachEffect_Activate(reg_list, desc_list, lim_list, flag, range, attach_con, attach_op, reset_list, force)
      return rsef.FC_AttachEffect(reg_list, force, 0x1, desc_list, lim_list, flag, range, attach_con, attach_op, reset_list)
      end
      --Field Continues: Attach an extra effect before the base effect solving
      function rsef.FC_AttachEffect_BeforeResolve(reg_list, desc_list, lim_list, flag, range, attach_con, attach_op, reset_list, force)
      return rsef.FC_AttachEffect(reg_list, force, 0x2, desc_list, lim_list, flag, range, attach_con, attach_op, reset_list)
      --Field Continues: Attach an extra effect
      function rsef.Enable_Attach_Effect()
      if rsef.SV_AttachEffect_Switch then return end
      rsef.SV_AttachEffect_Switch = true
      local e2 = rsef.FC_Global(0,EVENT_CHAIN_SOLVING, rscode.Attach_Effect, nil, rsef.SV_AttachEffect_OP)
      end
      --Field Continues: Attach an extra effect after the base effect solving
      function rsef.FC_AttachEffect_Resolve(reg_list, desc_list, lim_list, flag, range, attach_con, attach_op, reset_list, force)
      return rsef.FC_AttachEffect(reg_list, force, 0x4, desc_list, lim_list, flag, range, attach_con, attach_op, reset_list)
      function rsef.AttachEffect_Hint(ae, tp)
      rsef.AttachEffect_Hint2(ae:GetHandler())
      Duel.Hint(HINT_OPSELECTED, 1 - tp, ae:GetDescription())
      end
      function rsef.FC_AttachEffect(reg_list, force, attach_time, desc_list, lim_list, flag, range, attach_con, attach_op, reset_list)
      local reg_owner, reg_handler = rsef.GetRegisterCard(reg_list)
      range = range or rsef.GetRegisterRange(reg_list)
      local attach_code = rscode.Extra_Effect_Activate
      if attach_time == 0x2 then attach_code = rscode.Extra_Effect_BSolve end
      if attach_time == 0x4 then attach_code = rscode.Extra_Effect_ASolve end
      local e0 = rsef.I(reg_list, nil, lim_list, nil, flag, range, aux.FALSE, nil, nil, nil, reset_list)
      local e1 = rsef.FC(reg_list, attach_code, desc_list, nil, flag, range, rsef.FC_AttachEffect_Con(e0, attach_con), rsef.FC_AttachEffect_Op(e0, force), reset_list)
      e1:SetValue(attach_op)
      e1:SetLabelObject(e0)
      local desc = not desc_list and 0 or rsef.RegisterDescription(nil, desc_list, nil, true)
      if aux.GetValueType(reg_handler) == "Card" then
      reg_handler:RegisterFlagEffect(attach_code, reset, EFFECT_FLAG_CLIENT_HINT, reset_tct, e1:GetFieldID(), desc)
      function rsef.AttachEffect_Hint2(c)
      if c:IsLocation(LOCATION_ONFIELD + LOCATION_GRAVE + LOCATION_REMOVED) and c:IsFaceup() then
      Duel.HintSelection(Group.FromCards(c))
      else
      local e1 = Effect.CreateEffect(reg_owner)
      e1:SetType(EFFECT_TYPE_FIELD)
      e1:SetCode(0x10000000 + attach_code)
      e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET + EFFECT_FLAG_CLIENT_HINT)
      e1:SetDescription(desc)
      e1:SetTargetRange(1, 0)
      e1:SetReset(reset, reset_tct)
      Duel.RegisterEffect(e1, reg_handler)
      end
      if rsef.FC_AttachEffect_Switch then return e1 end
      rsef.FC_AttachEffect_Switch = true
      for p = 0, 1 do
      local e2 = Effect.GlobalEffect()
      e2:SetType(EFFECT_TYPE_FIELD + EFFECT_TYPE_CONTINUOUS)
      e2:SetCode(EVENT_CHAIN_SOLVING)
      e2:SetOperation(rsef.FC_AttachEffect_ChangeOp)
      e2:SetOwnerPlayer(p)
      Duel.RegisterEffect(e2, p)
      end
      rsef.ChangeChainOperation = Duel.ChangeChainOperation
      Duel.ChangeChainOperation = rsef.ChangeChainOperation2
      return e1
      end
      function rsef.FC_AttachEffect_Con(e0, attach_con)
      return function(e, tp, eg, ep, ev, re, r, rp)
      if not e0:CheckCountLimit(tp) then return false end
      return not attach_con or attach_con(e, tp, eg, ep, ev, re, r, rp)
      Duel.Hint(HINT_CARD, 0, c:GetOriginalCode())
      end
      end
      function rsef.FC_AttachEffect_Op(e0, force)
      return function(e, tp, eg, ep, ev, re, r, rp)
      rsef.attacheffect[ev] = rsef.attacheffect[ev] or { }
      rsef.attacheffectf[ev] = rsef.attacheffectf[ev] or { }
      if force then table.insert(rsef.attacheffectf[ev], e)
      else
      table.insert(rsef.attacheffect[ev], e)
      function rsef.SV_AttachEffect_OP(e, p, eg, ep, ev, re, r, rp)
      rsef.attach_before_arr[ev] = { }
      rsef.attach_after_arr[ev] = { }
      rsef.attach_base_arr[ev] = { }
      local parr = { [0] = Duel.GetTurnPlayer(), [1] = 1 - Duel.GetTurnPlayer() }
      local attach_desc = { [0] = { }, [1] = { } }
      local attach_op = { [0] = { }, [1] = { } }
      local attach_e = { }
      local attach_op_final = { }
      local attach_op_force_final = { }
      local sel_group = { [0] = Group.CreateGroup(), [1] = Group.CreateGroup() }
      local ap, arr, ac
      for p = 0, 1 do
      ap = parr[p]
      arr = { Duel.IsPlayerAffectedByEffect(ap, rscode.Attach_Effect) }
      for _, ae in pairs(arr) do
      ac = ae:GetHandler()
      local av = ae:GetValue()
      local con, op, force= av(ae, ap, re, rp)
      if con then
      if force then
      rsef.AttachEffect_Hint(ae, ap)
      ae:UseCountLimit(ap)
      table.insert(attach_op_force_final, op)
      else
      attach_desc[ac] = attach_desc[ac] or { }
      attach_op[ac] = attach_op[ac] or { }
      attach_e[ac] = attach_e[ac] or { }
      table.insert(attach_desc[ac], ae:GetDescription())
      table.insert(attach_op[ac], op)
      table.insert(attach_e[ac], ae)
      sel_group[ap]:AddCard(ac)
      end
      end
      end
      end
      end
      function rsef.FC_AttachEffect_GetGroup(sel_list)
      local attach_group = Group.CreateGroup()
      local attach_eff_list = { }
      for _, ae in pairs(sel_list) do
      local tc = ae:GetOwner()
      attach_group:AddCard(tc)
      attach_eff_list[tc] = attach_eff_list[tc] or { }
      table.insert(attach_eff_list[tc], ae)
      local sel_group_x = Group.CreateGroup()
      local ac, opt
      for p = 0, 1 do
      ap = parr[p]
      if #(sel_group[ap]) > 0 then
      Duel.ConfirmCards(ap, sel_group[ap])
      repeat
      Duel.Hint(HINT_SELECTMSG, ap, rshint.attach_card)
      ac = sel_group[ap]:SelectUnselect(sel_group_x, tp, true, true, 1, 1)
      if ac then
      rsef.AttachEffect_Hint2(ac)
      Duel.Hint(HINT_SELECTMSG, ap, rshint.attach_effect)
      opt = Duel.SelectOption(ap, table.unpack(attach_desc[ac])) + 1
      table.insert(attach_op_final, attach_op[ac][opt])
      Duel.Hint(HINT_OPSELECTED, 1 - ap, attach_desc[ac][opt])
      attach_e[ac][opt]:UseCountLimit(ap)
      table.remove(attach_op[ac],opt)
      table.remove(attach_desc[ac],opt)
      if #attach_op[ac] == 0 then
      sel_group[ap]:RemoveCard(ac)
      end
      end
      until #sel_group[ap] == 0 or not ac
      end
      end
      if #attach_op_force_final > 0 or #attach_op_final > 0 then
      Duel.ChangeChainOperation(ev, rsef.SV_AttachEffect_Change_OP(re:GetOperation() or aux.TRUE, attach_op_force_final, attach_op_final))
      end
      return attach_group, attach_eff_list
      end
      function rsef.ChangeChainOperation2(ev, changeop, ischange)
      rsef.ChangeChainOperation(ev, changeop)
      if ischange then return end
      rsop.baseop[ev] = changeop
      end
      function rsef.FC_AttachEffect_ChangeOp(e, tp, eg, ep, ev, re, r, rp)
      local baseop = re:GetOperation() or aux.TRUE
      baseop = rsop.baseop[ev] or baseop
      local e1 = rsef.FC({ true, 0 }, EVENT_CHAIN_SOLVED, nil, nil, nil, nil, nil, rsef.FC_AttachEffect_Reset(re, baseop), RESET_CHAIN)
      rsef.ChangeChainOperation2(ev, rsef.FC_AttachEffect_ChangeOp2(baseop), true)
      end
      function rsef.FC_AttachEffect_Reset(re1, baseop)
      return function(e, tp, eg, ep, ev, re, r, rp)
      if re1 ~= re then return end
      rsef.attacheffect[ev] = nil
      rsef.attacheffectf[ev] = nil
      rsef.solveeffect[ev] = nil
      rsop.baseop[ev] = nil
      local rc = re:GetHandler()
      local res1 = re:IsHasType(EFFECT_TYPE_ACTIVATE) and rc:IsType(TYPE_PENDULUM + TYPE_FIELD + TYPE_CONTINUOUS + TYPE_EQUIP)
      local res2 = #({ rc:IsHasEffect(EFFECT_REMAIN_FIELD) }) > 0
      --what is ev2 ??
      if (res1 or res2) then--and not rsop.baseop[ev2] then
      re:SetOperation(baseop)
      rc:CancelToGrave(true)
      end
      end
      end
      function rsef.FC_AttachEffect_Solve(solve_eff_list, attach_time, e, tp, eg, ep, ev, re, r, rp)
      local act_use_list = { }
      local ev2 = Duel.GetCurrentChain()
      local attach_code = rscode.Extra_Effect_Activate
      if attach_time == 0x2 then attach_code = rscode.Extra_Effect_BSolve end
      if attach_time == 0x4 then attach_code = rscode.Extra_Effect_ASolve end
      Duel.RaiseEvent(e:GetHandler(), attach_code, e, 0, tp, tp, ev2)
      local force_list = rsef.attacheffectf[ev2] or { }
      local sel_tab_list = rsef.attacheffect[ev2] or { }
      for _, ae in pairs(force_list) do
      local tc = ae:GetOwner()
      if tc:IsOnField() then
      Duel.HintSelection(rsgf.Mix2(tc))
      else
      Duel.Hint(HINT_CARD, 0, tc:GetOriginalCodeRule())
      end
      Duel.Hint(HINT_OPSELECTED, 1 - tp, ae:GetDescription())
      table.insert(act_use_list, ae)
      ae:GetLabelObject():UseCountLimit(tp, 1)
      if attach_time ~= 0x1 then
      table.insert(solve_eff_list, ae)
      ae:GetValue()(e, tp, eg, ep, ev, re, r, rp)
      end
      end
      local attach_group, attach_eff_list = rsef.FC_AttachEffect_GetGroup(sel_tab_list)
      local sel_hint = 8
      if attach_time == 0x2 then sel_hint = 9 end
      if attach_time == 0x4 then sel_hint = 10 end
      if #attach_group > 0 and Duel.SelectYesNo(tp, aux.Stringid(m, sel_hint)) then
      ::Select::
      rshint.Select(tp, HINTMSG_TARGET)
      local tc = attach_group:Select(tp, 1, 1, nil):GetFirst()
      if tc:IsOnField() then
      Duel.HintSelection(rsgf.Mix2(tc))
      else
      Duel.Hint(HINT_CARD, 0, tc:GetOriginalCodeRule())
      end
      local hint_list = { }
      for _, ae in pairs(attach_eff_list[tc]) do
      local hint = ae:GetDescription()
      table.insert(hint_list, hint)
      end
      local opt = Duel.SelectOption(tp, table.unpack(hint_list)) + 1
      local ae = attach_eff_list[tc][opt]
      Duel.Hint(HINT_OPSELECTED, 1 - tp, ae:GetDescription())
      table.insert(act_use_list, ae)
      ae:GetLabelObject():UseCountLimit(tp, 1)
      if attach_time ~= 0x1 then
      table.insert(solve_eff_list, ae)
      ae:GetValue()(e, tp, eg, ep, ev, re, r, rp)
      end
      local _, idx = rsof.Table_List(sel_tab_list, ae)
      table.remove(sel_tab_list, idx)
      attach_group, attach_eff_list = rsef.FC_AttachEffect_GetGroup(sel_tab_list)
      if #attach_group > 0 and Duel.SelectYesNo(tp, aux.Stringid(m, 11)) then goto Select end
      end
      rsef.attacheffect[ev2] = nil
      rsef.attacheffectf[ev2] = nil
      return act_use_list
      end
      function rsef.FC_AttachEffect_ChangeOp2(baseop)
      return function(e, tp, eg, ep, ev, re, r, rp)
      local ev2 = Duel.GetCurrentChain()
      function rsef.SV_AttachEffect_Change_OP(op, a_f_op, a_op)
      return function(e, tp, eg, ep, ev0, re, r, rp)
      local c = e:GetHandler()
      if (c:IsType(TYPE_FIELD) or c:IsType(TYPE_CONTINUOUS) or c:IsLocation(LOCATION_PZONE)) and not c:IsRelateToEffect(e) then
      return
      end
      rsef.solveeffect[ev2] = { }
      --baseop record
      table.insert(rsef.solveeffect[ev2], baseop)
      --activate select
      local act_use_list = rsef.FC_AttachEffect_Solve(rsef.solveeffect[ev2], 0x1, e, tp, eg, ep, ev, re, r, rp)
      --before solve
      rsef.FC_AttachEffect_Solve(rsef.solveeffect[ev2], 0x2, e, tp, eg, ep, ev, re, r, rp)
      --baseop solve
      baseop(e, tp, eg, ep, ev, re, r, rp)
      --activate solve
      for _, ae in pairs(act_use_list) do
      table.insert(rsef.solveeffect[ev2], ae)
      ae:GetValue()(e, tp, eg, ep, ev, re, r, rp)
      ae:GetLabelObject():UseCountLimit(tp, 1)
      end
      --after solve
      rsef.FC_AttachEffect_Solve(rsef.solveeffect[ev2], 0x4, e, tp, eg, ep, ev, re, r, rp)
      if e:IsHasType(EFFECT_TYPE_ACTIVATE) and c:IsType(TYPE_CONTINUOUS + TYPE_EQUIP + TYPE_PENDULUM) then
      c:CancelToGrave(true)
      end
      local ev = Duel.GetCurrentChain()
      for _, aop in pairs(a_f_op) do
      aop(e, tp, eg, ep, ev, re, r, rp, 0)
      table.insert(rsef.attach_before_arr[ev], aop)
      end
      for _, aop in pairs(a_op) do
      aop(e, tp, eg, ep, ev, re, r, rp, 0)
      table.insert(rsef.attach_before_arr[ev], aop)
      end
      op(e, tp, eg, ep, ev, re, r, rp)
      table.insert(rsef.attach_base_arr[ev], op)
      for _, aop in pairs(a_f_op) do
      aop(e, tp, eg, ep, ev, re, r, rp, 1)
      table.insert(rsef.attach_after_arr[ev], aop)
      end
      for _, aop in pairs(a_op) do
      aop(e, tp, eg, ep, ev, re, r, rp, 1)
      table.insert(rsef.attach_after_arr[ev], aop)
      end
      end
      end
      ......@@ -1530,14 +1446,24 @@ function rssf.SpecialSummonToken(e, tp, tk_code_or_fun, minct, maxct, sum_pos, t
      local res_ct = 0
      local res = rssf.CheckTokenSummonable(e, tp, tk_code_or_fun, sum_pos, tg_p, sum_zone, ...)
      if not res then return res_ct end
      local tk_code, tk_set, tk_type, tk_atk, tk_def, tk_lv, tk_race, tk_att, sum_pos2, sp, sum_type
      if type(tk_code_or_fun) == "number" then
      tk_code = tk_code_or_fun
      elseif type(tk_code_or_fun) == "function" then
      tk_code, tk_set, tk_type, tk_atk, tk_def, tk_lv, tk_race, tk_att, sum_pos2, sp, sum_type = tk_code_or_fun(e, tp, ...)
      else
      tk_code, tk_set, tk_type, tk_atk, tk_def, tk_lv, tk_race, tk_att, sum_pos2, sp, sum_type = table.unpack(tk_code_or_fun)
      end
      sp = sp or tg_p or tp
      sum_pos = sum_pos2 or sum_pos or POS_FACEUP
      sum_type = sum_type or 0
      local ft = Duel.GetLocationCount(sp, LOCATION_MZONE, tp)
      if ft <= 0 then return false end
      local sum_min, sum_max = minct, math.min(maxct, ft)
      if ft <= 0 then return res_ct end
      if rssf.CheckBlueEyesSpiritDragon(tp) and type(minct) == "number" and minct > 1 then return res_ct end
      if type(minct) == "number" and ft < minct then return res_ct end
      if rsof.Check_Boolean(minct) then
      sum_min= ft
      end
      local sum_min, sum_max
      sum_min = rsof.Check_Boolean(minct) and ft or (minct or 1)
      sum_max = math.min(maxct or sum_min, ft)
      if rssf.CheckBlueEyesSpiritDragon(tp) then
      sum_min, sum_max = 1, 1
      end
      ......@@ -1550,17 +1476,6 @@ function rssf.SpecialSummonToken(e, tp, tk_code_or_fun, minct, maxct, sum_pos, t
      end
      sp_ct = Duel.AnnounceNumber(tp, table.unpack(list))
      end
      local tk_code, tk_set, tk_type, tk_atk, tk_def, tk_lv, tk_race, tk_att, sum_pos2, sp, sum_type
      if type(tk_code_or_fun) == "number" then
      tk_code = tk_code_or_fun
      elseif type(tk_code_or_fun) == "function" then
      tk_code, tk_set, tk_type, tk_atk, tk_def, tk_lv, tk_race, tk_att, sum_pos2, sp, sum_type = tk_code_or_fun(e, tp, ...)
      else
      tk_code, tk_set, tk_type, tk_atk, tk_def, tk_lv, tk_race, tk_att, sum_pos2, sp, sum_type = table.unpack(tk_code_or_fun)
      end
      sp = sp or tg_p or tp
      sum_pos = sum_pos2 or sum_pos or POS_FACEUP
      sum_type = sum_type or 0
      for idx = 1, sp_ct do
      tk = Duel.CreateToken(tp, tk_code)
      if type(tk_code_or_fun) ~= "number" then
      ......@@ -2645,7 +2560,7 @@ function rsop.disneg(dn_type, dn_str, ex_op)
      local c = e:GetHandler()
      local rc = re:GetHandler()
      local res = not ex_op and true or ex_op(e, tp, eg, ep, ev, re, r, rp, 0)
      if rsof.Check_Boolean(res,true) or type(res) == "nil" then
      if rsof.Check_Boolean(res,true) then
      if dn_type == "dis" then
      res = Duel.NegateEffect(ev)
      else
      ......@@ -3166,6 +3081,31 @@ function rsop.SSet(corg, sp, tp, confirm)
      tp = tp or sp
      return rsop.Operation(Duel.SSet, sp, sg, tp, confirm)
      end
      --Operation: Disable cards
      function rsop.DisableCards(corg, dise, force, reset)
      reset = reset or rsrst.std
      force = force or false
      local disc = dise:GetHandler()
      local sg = rsgf.Mix2(corg)
      local dg = Group.CreateGroup()
      if rsop.chk == 0 then
      return #sg > 0 and sg:FilterCount(aux.NegateAnyFilter, nil) == #sg
      end
      for tc in aux.Next(sg) do
      Duel.NegateRelatedChain(tc,RESET_TURN_SET)
      local e1,e2 = rscf.QuickBuff_ND({disc,tc,force}, "dis,dise",1,"rst", reset)
      if not force then
      e2:SetValue(RESET_TURN_SET)
      end
      if tc:IsType(TYPE_TRAPMONSTER) then
      local e3 = rscf.QuickBuff_ND({disc,tc,force}, "distm",1, "rst", reset)
      end
      if force or not tc:IsImmuneToEffect(dise) then
      dg:AddCard(tc)
      end
      end
      return #dg, dg, dg:GetFirst(), e1, e2, e3
      end
      --Operation: Dummy
      function rsop.DummyOperate(corg)
      local sg = rsgf.Mix2(corg)
      ......@@ -3661,203 +3601,36 @@ Card.CheckOriginalSetCard = rscf.CheckOriginalSetCard
      function rscf.CheckPreviousSetCard(c, series1, ...)
      return rscf.CheckSetCardMainSet(c, "pre", series1, ...)
      end
      Card.CheckPreviousSetCard = rscf.CheckPreviousSetCard
      --Card / Summon effect:Record Summon Procedure
      function rssf.EnableSpecialProcedure()
      if rssf.EnableSpecialProcedure_Switch then return end
      local e1 = rsef.FC({ true, 0 }, EVENT_ADJUST)
      e1:SetOperation(rssf.EnableSpecialProcedure_Op)
      rssf.EnableSpecialProcedure_Switch = e1
      end
      function rssf.EnableSpecialProcedure_Op(e, tp)
      local g = Duel.GetMatchingGroup(Card.IsType, 0, 0xff, 0xff, nil, TYPE_SYNCHRO + TYPE_XYZ + TYPE_LINK)
      local f6 = aux.AddSynchroProcedure
      local f7 = aux.AddSynchroMixProcedure
      local f8 = aux.AddXyzProcedure
      local f9 = aux.AddXyzProcedureLevelFree
      local f10 = aux.AddLinkProcedure
      aux.AddSynchroProcedure = rscf.GetBaseSynchroProduce1
      aux.AddSynchroMixProcedure = rscf.GetBaseSynchroProduce2
      aux.AddXyzProcedure = rscf.GetBaseXyzProduce1
      aux.AddXyzProcedureLevelFree = rscf.GetBaseXyzProduce2
      aux.AddLinkProcedure = rscf.GetBaseLinkProduce1
      Card.RegisterEffect = rscf.RegisterEffect2
      local e1 = Effect.GlobalEffect()
      e1:SetType(EFFECT_TYPE_FIELD)
      e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
      e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
      e1:SetTarget(rssf.EnableSpecialProcedure_Op_regop)
      e1:SetTargetRange(1, 1)
      Duel.RegisterEffect(e1, 0)
      for tc in aux.Next(g) do
      tc:IsSpecialSummonable()
      local cid = tc:CopyEffect(tc:GetOriginalCode(), 0, 1)
      end
      aux.AddSynchroProcedure = f6
      aux.AddSynchroMixProcedure = f7
      aux.AddXyzProcedure = f8
      aux.AddXyzProcedureLevelFree = f9
      aux.AddLinkProcedure = f10
      Card.RegisterEffect = rscf.RegisterEffect
      e:Reset()
      end
      function rssf.EnableSpecialProcedure_Op_regop(e, c, tp, st, sp, stp, se)
      if not c:IsType(rscf.extype) or c:IsType(TYPE_FUSION) then return false end
      rscf.ssproce[c] = rscf.ssproce[c] or { [1] = { }, [2] = { } }
      if se and se:GetCode() == EFFECT_SPSUMMON_PROC and not rsof.Table_List(rscf.ssproce[c][1], se) then
      c:RegisterFlagEffect(rscode.Special_Procedure, 0, 0, 1)
      table.insert(rscf.ssproce[c][1], se)
      table.insert(rscf.ssproce[c][1], se:GetCondition() or aux.TRUE)
      end
      if se and rscf.ssproce[se] then return false end
      return se and se:GetCode() == EFFECT_SPSUMMON_PROC
      end
      rscf.RegisterEffect = Card.RegisterEffect
      function rscf.RegisterEffect2(c, e, ignore)
      rscf.ssproce[c] = rscf.ssproce[c] or { [1] = { }, [2] = { } }
      if e:GetCode() == EFFECT_SPSUMMON_PROC then
      local flag1, flag2 = e:GetProperty()
      local flag1_uc = flag1
      if flag1 & EFFECT_FLAG_UNCOPYABLE ~=0 then
      flag1_uc = flag1 - EFFECT_FLAG_UNCOPYABLE
      end
      e:SetProperty(flag1_uc, flag2)
      rscf.RegisterEffect(c, e, ignore)
      e:SetProperty(flag1, flag2)
      rscf.ssproce[e] = true
      table.insert(rscf.ssproce[c][2], e)
      table.insert(rscf.ssproce[c][2], e:GetCondition() or aux.TRUE)
      end
      return
      end
      function rscf.SwitchSpecialProcedure_filter(c)
      return c:GetFlagEffect(rscode.Special_Procedure) > 0
      end
      function rssf.SwitchSpecialProcedure(dis_idx, enb_idx)
      Card.CheckPreviousSetCard = rscf.CheckPreviousSetCard
      end
      function rscf.GetBaseSynchroProduce1(c, f1, f2, minc, maxc)
      if c.dark_synchro == true then
      rscf.AddSynchroProcedureSpecial(c, aux.NonTuner(f1), nil, nil, rscf.DarkTuner(f2), minc, maxc or 99)
      else
      rscf.AddSynchroProcedureSpecial(c, aux.Tuner(f1), nil, nil, f2, minc, maxc or 99)
      end
      end
      function rscf.GetBaseSynchroProduce2(c, f1, f2, f3, f4, minc, maxc, gc)
      rscf.AddSynchroProcedureSpecial(c, f1, f2, f3, f4, minc, maxc or 99, gc)
      end
      function rscf.XyzProcedure_TransformLv(xyzc, lv)
      return function(g)
      return g:FilterCount(Card.IsXyzLevel, nil, xyzc, lv) == #g
      end
      end
      function rscf.GetBaseXyzProduce1(c, f, lv, ct, alterf, desc, maxct, op)
      rscf.AddXyzProcedureSpecial(c, f, rscf.XyzProcedure_TransformLv(c, lv), ct, maxct or ct, alterf, desc, op)
      end
      function rscf.GetBaseXyzProduce2(c, f, gf, minc, maxc, alterf, desc, op)
      rscf.AddXyzProcedureSpecial(c, f, gf, minc, maxc or minc, alterf, desc, op)
      end
      function rscf.GetBaseLinkProduce1(c, f, min, max, gf)
      rscf.AddLinkProcedureSpecial(c, f, min, max, gf)
      end
      --Check is matg exist syncard's right materials
      function rscf.GetLocationCountFromEx(...)
      return 1
      end
      function rscf.CheckSynchroMaterial(sync, tp, smat, matg, min, max, checkft, checkmust, checkpend)
      max = max or 99
      local proce = sync.rs_synchro_parammeter[1]
      if not proce then return false end
      local con = proce:GetCondition()
      local f = Duel.GetLocationCountFromEx
      Duel.GetLocationCountFromEx = checkft and Duel.GetLocationCountFromEx or rscf.GetLocationCountFromEx
      local f2 = aux.MustMaterialCheck
      aux.MustMaterialCheck = checkmust and aux.MustMaterialCheck or aux.TRUE
      local ctype = TYPE_PENDULUM
      TYPE_PENDULUM = checkpend and TYPE_PENDULUM or TYPE_SPELL
      local res= not con or con(nil, sync, smat, matg, min, max)
      Duel.GetLocationCountFromEx = f
      aux.MustMaterialCheck = f2
      TYPE_PENDULUM = ctype
      return res
      end
      --Select syncard's right materials
      function rsgf.SelectSynchroMaterial(sync, tp, smat, matg, min, max, checkft, checkmust, checkpend)
      max = max or 99
      local proce = sync.rs_synchro_parammeter[1]
      if not proce then return false end
      local tg = proce:GetTarget()
      local f = Duel.GetLocationCountFromEx
      Duel.GetLocationCountFromEx = checkft and Duel.GetLocationCountFromEx or rscf.GetLocationCountFromEx
      local f2 = aux.MustMaterialCheck
      local ctype = TYPE_PENDULUM
      TYPE_PENDULUM = checkpend and TYPE_PENDULUM or TYPE_SPELL
      aux.MustMaterialCheck = checkmust and aux.MustMaterialCheck or aux.TRUE
      local e1 = rsef.SV({ sync, nil, true }, rscode.Synchro_Material, nil, 0xff)
      tg(e1, tp, nil, nil, nil, nil, nil, nil, 1, sync, smat, matg, min, max)
      local g = e1:GetLabelObject()
      Duel.GetLocationCountFromEx = f
      aux.MustMaterialCheck = f2
      TYPE_PENDULUM = ctype
      if not g then e1:Reset() return false end
      local og = g:Clone()
      og:KeepAlive()
      e1:Reset()
      return og
      end
      --Card / Summon function: Custom Synchro Procedure
      rscf.AddSynchroProcedure = aux.AddSynchroProcedure
      function rscf.AddSynchroProcedureSpecial(c, f1, f2, f3, f4, minc, maxc, gc)
      local mt = getmetatable(c)
      if not rscf.AddSynchroProcedureSpecial_Switch then
      rscf.AddSynchroProcedureSpecial_Switch = true
      rscf.GetSynMaterials = aux.GetSynMaterials
      aux.GetSynMaterials = rscf.GetSynMaterials2
      rscf.SynMixCheckGoal = aux.SynMixCheckGoal
      aux.SynMixCheckGoal = rscf.SynMixCheckGoal2
      rscf.SynMixCondition = aux.SynMixCondition
      aux.SynMixCondition = rscf.SynMixCondition2
      rscf.SynMixTarget = aux.SynMixTarget
      aux.SynMixTarget = rscf.SynMixTarget2
      rscf.SynMixOperation = aux.SynMixOperation
      aux.SynMixOperation = rscf.SynMixOperation2
      end
      local e1 = Effect.CreateEffect(c)
      function rssf.AddSynchroProcedureSpecial(c,f1,f2,f3,f4,minc,maxc,gc)
      local e1=Effect.CreateEffect(c)
      e1:SetDescription(1164)
      e1:SetType(EFFECT_TYPE_FIELD)
      e1:SetCode(EFFECT_SPSUMMON_PROC)
      e1:SetProperty(EFFECT_FLAG_UNCOPYABLE + EFFECT_FLAG_IGNORE_IMMUNE)
      e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
      e1:SetRange(LOCATION_EXTRA)
      e1:SetCondition(rscf.SynMixCondition2(f1, f2, f3, f4, minc, maxc, gc))
      e1:SetTarget(Auxiliary.SynMixTarget(f1, f2, f3, f4, minc, maxc, gc))
      e1:SetOperation(Auxiliary.SynMixOperation(f1, f2, f3, f4, minc, maxc, gc))
      e1:SetCondition(rssf.SynMixCondition(f1,f2,f3,f4,minc,maxc,gc))
      e1:SetTarget(rssf.SynMixTarget(f1,f2,f3,f4,minc,maxc,gc))
      e1:SetOperation(rssf.SynMixOperation(f1,f2,f3,f4,minc,maxc,gc))
      e1:SetValue(SUMMON_TYPE_SYNCHRO)
      c:RegisterEffect(e1)
      if not c:IsStatus(STATUS_COPYING_EFFECT) and not c.rs_synchro_parammeter then
      mt.rs_synchro_parammeter = { e1, f1, f2, f3, f4, minc, maxc or minc, gc }
      end
      return e1
      end
      --Get synchro materials, fix for special material
      function rscf.GetSynMaterials2(tp, syncard)
      local mg1 = rscf.GetSynMaterials(tp, syncard)
      local mg2 = Duel.GetMatchingGroup(rscf.ExtraSynMaterialsFilter, tp, 0xff, 0xff, mg1, syncard, tp)
      if #mg2 > 0 then mg1:Merge(mg2) end
      return mg1
      end
      function rscf.ExtraSynMaterialsFilter(c, sc, tp)
      if c:IsOnField() and not c:IsFaceup() then return false end
      return c:IsHasEffect(rscode.Extra_Synchro_Material, tp) and c:IsCanBeSynchroMaterial(sc)
      function rsgf.GetSynMaterials(tp, syncard)
      local mg1 = rsgf.GetSynMaterials_R(tp, syncard)
      local mg2 = Duel.GetMatchingGroup(rscf.SExtraFilter, tp, 0xff, 0xff, mg1, syncard, tp)
      return mg1 + mg2
      end
      function rscf.SCheckOtherMaterial(c, mg, sc, tp)
      local le = { c:IsHasEffect(rscode.Extra_Synchro_Material, tp) }
      if #le == 0 then return true end
      for _, te in pairs(le) do
      local f = te:GetValue()
      if not f or f(te, sc, mg) then return true end
      function rscf.SExtraFilter(c, sc, tp)
      if c:IsOnField() and c:IsFacedown() then return false end
      if not c:IsCanBeSynchroMaterial(sc) then return false end
      local le={c:IsHasEffect(rscode.Extra_Synchro_Material,tp)}
      for _,te in pairs(le) do
      local tf = te:GetValue()
      local related, valid=tf(te, sc, nil, c, tp)
      if related then return true end
      end
      return false
      end
      ......@@ -3865,15 +3638,23 @@ function rscf.SUncompatibilityFilter(c, sg, sc, tp)
      local mg = sg:Filter(aux.TRUE, c)
      return not rscf.SCheckOtherMaterial(c, mg, sc, tp)
      end
      function rscf.SynMixCheckGoal2(tp, sg, minc, ct, syncard, sg1, smat, gc, mgchk)
      mgchk= mgchk or rssf.synchro_material_group_check
      function rscf.SCheckOtherMaterial(c, mg, sc, tp)
      local le={c:IsHasEffect(rscode.Extra_Synchro_Material,tp)}
      local res1=false
      local res2=true
      for _, te in pairs(le) do
      local f = te:GetValue()
      local related, valid = f(te,sc,mg,c,tp)
      if related then res2 = false end
      if related and valid then res1 = true end
      end
      return res1 or res2
      end
      function rssf.SynMixCheckGoal(tp, sg, minc, ct, syncard, sg1, smat, gc, mgchk)
      local mg = rsgf.Mix2(sg, sg1)
      --step 1, check extra material
      if mg:IsExists(rscf.SUncompatibilityFilter, 1, nil, mg, syncard, tp) then return false end
      --step 2, check material group filter function
      --useless
      --if syncard.rs_synchro_material_check and not syncard.rs_synchro_material_check(mg, syncard, tp) then return false end
      --step 3, check level fo dark_synchro and non - level_synchro
      --step 2, check level fo dark_synchro and non - level_synchro
      local f = Card.GetLevel
      local darktunerg = mg:Filter(Card.IsType, nil, TYPE_TUNER)
      local darktunerlv = darktunerg:GetSum(Card.GetSynchroLevel, syncard)
      ......@@ -3885,132 +3666,86 @@ function rscf.SynMixCheckGoal2(tp, sg, minc, ct, syncard, sg1, smat, gc, mgchk)
      else return f(sc)
      end
      end
      --step 4, check Ladian 1, use material's custom lv (if any)
      --step 3, check Ladian 1, use material's custom lv (if any)
      local f2 = Card.GetSynchroLevel
      Card.GetSynchroLevel = function(sc, sc2)
      Card.GetSynchroLevel = function(c, sc2)
      local lvcheck = syncard.rs_synchro_ladian
      if type(lvcheck) == "number" then return lvcheck
      elseif type(lvcheck) == "function" then
      local lv = lvcheck(sc, mg, sc2, tp)
      if type(lv) == "number" then return lv
      else return f2(sc, sc2)
      end
      if lvcheck then
      local lvable, lv = syncard.rs_synchro_ladian(c, sc2, tp)
      return lvable and lv or f2(c, sc2)
      else
      return f2(c, sc2)
      end
      end
      local bool1 = rscf.SynMixCheckGoal(tp, sg, minc, ct, syncard, sg1, smat, gc, mgchk)
      local bool1 = rssf.SynMixCheckGoal_R(tp, sg, minc, ct, syncard, sg1, smat, gc, mgchk)
      Card.GetSynchroLevel = f2
      --step 5, check Ladian 2, use material's base lv
      local bool2 = rscf.SynMixCheckGoal(tp, sg, minc, ct, syncard, sg1, smat, gc, mgchk)
      --step 4, check Ladian 2, use material's base lv
      local bool2 = rssf.SynMixCheckGoal_R(tp, sg, minc, ct, syncard, sg1, smat, gc, mgchk)
      Card.GetLevel = f
      return bool1 or bool2
      end
      function rscf.SynMixCondition2(f1, f2, f3, f4, minc, maxc, gc)
      return function(e, c, smat, mg1, min, max)
      if mg1 and aux.GetValueType(mg1) ~= "Group" then return false end
      return rscf.SynMixCondition(f1, f2, f3, f4, minc, maxc, gc)(e, c, smat, mg1, min, max)
      end
      rsgf.GetSynMaterials_R = aux.GetSynMaterials
      function rssf.SynMixCondition(f1,f2,f3,f4,minc,maxc,gc)
      return function(e,c,smat,mg1,min,max)
      --rsgf.GetSynMaterials_R = aux.GetSynMaterials
      aux.GetSynMaterials = rsgf.GetSynMaterials
      rssf.SynMixCheckGoal_R = aux.SynMixCheckGoal
      aux.SynMixCheckGoal = rssf.SynMixCheckGoal
      local res = aux.SynMixCondition(f1,f2,f3,f4,minc,maxc,gc)(e,c,smat,mg1,min,max)
      aux.GetSynMaterials = rsgf.GetSynMaterials_R
      aux.SynMixCheckGoal = rssf.SynMixCheckGoal_R
      return res
      end
      end
      function rscf.SynMixTarget2(f1, f2, f3, f4, minc, maxc, gc)
      return function(e, tp, eg, ep, ev, re, r, rp, chk, c, smat, mg1, min, max)
      rssf.synchro_material_group_check = nil
      if mg1 then
      rssf.synchro_material_group_check = true
      end
      return rscf.SynMixTarget(f1, f2, f3, f4, minc, maxc, gc)(e, tp, eg, ep, ev, re, r, rp, chk, c, smat, mg1, min, max)
      end
      function rssf.SynMixTarget(f1,f2,f3,f4,minc,maxc,gc)
      return function(e,tp,eg,ep,ev,re,r,rp,chk,c,smat,mg1,min,max)
      rsgf.GetSynMaterials_R = aux.GetSynMaterials
      aux.GetSynMaterials = rsgf.GetSynMaterials
      rssf.SynMixCheckGoal_R = aux.SynMixCheckGoal
      aux.SynMixCheckGoal = rssf.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)
      aux.GetSynMaterials = rsgf.GetSynMaterials_R
      aux.SynMixCheckGoal = rssf.SynMixCheckGoal_R
      return res
      end
      end
      function rscf.SynMixOperation2(f1, f2, f3, f4, minct, maxc, gc)
      function rssf.SynMixOperation(f1, f2, f3, f4, minct, maxc, gc)
      return function(e, tp, eg, ep, ev, re, r, rp, c, smat, mg, min, max)
      local g = e:GetLabelObject()
      rscf.SynchroCustomOperation(g, c, e, tp)
      g:DeleteGroup()
      local mg = e:GetLabelObject()
      rssf.SExtraMaterialCount(mg, c, tp)
      local res
      --case 1, Summon Effect Custom
      if rssf.SynchroMaterialAction then
      res = rssf.SynchroMaterialAction(mg, c, e, tp)
      rssf.SynchroMaterialAction = nil
      --case 2, Summon Procedure Custom
      elseif c.rs_synchro_material_action then
      res = c.rs_synchro_material_action(mg, c, e, tp)
      --case 3, Base Summon Procedure
      else
      c:SetMaterial(mg)
      res = Duel.SendtoGrave(mg, REASON_SYNCHRO + REASON_MATERIAL)
      end
      mg:DeleteGroup()
      return res
      end
      end
      function rscf.SynchroCustomOperation(mg, c, e, tp)
      c:SetMaterial(mg)
      rscf.SExtraMaterialCount(mg, sync, tp)
      --case 1, Summon Effect Custom
      if rssf.SynchroMaterialAction then
      rssf.SynchroMaterialAction(mg, c, e, tp)
      rssf.SynchroMaterialAction = nil
      --case 2, Summon Procedure Custom
      elseif c.rs_synchro_material_action then
      c.rs_synchro_material_action(mg, c, e, tp)
      --case 3, Base Summon Procedure
      else
      Duel.SendtoGrave(mg, REASON_SYNCHRO + REASON_MATERIAL)
      end
      end
      function rscf.SExtraMaterialCount(mg, sync, tp)
      function rssf.SExtraMaterialCount(mg, sc, tp)
      for tc in aux.Next(mg) do
      local le = { tc:IsHasEffect(rscode.Extra_Synchro_Material, tp) }
      for _, te in pairs(le) do
      local sg = mg:Filter(aux.TRUE, tc)
      local sg=mg:Filter(aux.TRUE, tc)
      local f = te:GetValue()
      if not f or f(te, sync, sg) then
      local related,valid=f(te, sc, sg, tc, tp)
      if related and valid then
      te:UseCountLimit(tp)
      end
      end
      end
      end
      --Card / Summon function: Special Synchro Summon Procedure
      --Force a synchro level for a synchro monster's synchro procedure
      function rscf.AddSynchroProcedureSpecial_SynchroLevel(c, lv, ...)
      if c:IsStatus(STATUS_COPYING_EFFECT) then return end
      if not c.rs_synchro_level then
      local mt = getmetatable(c)
      mt.rs_synchro_level = lv
      end
      local e1 = rscf.AddSynchroProcedureSpecial(c, ...)
      return e1
      end
      --Dark Synchro Procedure
      function rscf.AddSynchroProcedureSpecial_DarkSynchro(c, ...)
      if c:IsStatus(STATUS_COPYING_EFFECT) then return end
      if not c.dark_synchro then
      local mt = getmetatable(c)
      mt.dark_synchro = true
      end
      local e1 = rscf.AddSynchroProcedureSpecial(c, ...)
      return e1
      end
      --Ladian's Synchro Procedure (treat tuner as another lv)
      function rscf.AddSynchroProcedureSpecial_Ladian(c, f1, lv, f2, f3, f4, minc, maxc, extrafilter)
      if c:IsStatus(STATUS_COPYING_EFFECT) then return end
      if not c.rs_synchro_ladian then
      local mt = getmetatable(c)
      mt.rs_synchro_ladian = { lv, extrafilter }
      end
      local e1 = rscf.AddSynchroProcedureSpecial(c, f1, f2, f3, f4, minc, maxc)
      return e1
      end
      --Custom Synchro Materials' Action
      function rscf.AddSynchroProcedureSpecial_CustomAction(c, actionfun, ...)
      if c:IsStatus(STATUS_COPYING_EFFECT) then return end
      if not c.rs_synchro_material_action then
      local mt = getmetatable(c)
      mt.rs_synchro_material_action = actionfun
      end
      local e1 = rscf.AddSynchroProcedureSpecial(c, ...)
      return e1
      end
      --Card / Summon function: Custom Xyz Procedure
      function rscf.AddXyzProcedureSpecial(c, f, gf, minc, maxc, alterf, desc, op)
      local mt = getmetatable(c)
      if not rscf.AddXyzProcedureSpecial_Switch then
      rscf.AddXyzProcedureSpecial_Switch = true
      rscf.XyzLevelFreeCondition2 = aux.XyzLevelFreeCondition2
      aux.XyzLevelFreeCondition2 = rscf.XyzLevelFreeCondition22
      rscf.XyzLevelFreeTarget2 = aux.XyzLevelFreeCondition2
      aux.XyzLevelFreeTarget2 = rscf.XyzLevelFreeTarget22
      rscf.XyzLevelFreeOperation2 = aux.XyzLevelFreeOperation2
      aux.XyzLevelFreeOperation2 = rscf.XyzLevelFreeOperation22
      rscf.XyzLevelFreeGoal = aux.XyzLevelFreeGoal
      rscf.XyzLevelFreeFilter = aux.XyzLevelFreeFilter
      aux.XyzLevelFreeFilter = rscf.XyzLevelFreeFilter2
      end
      --aux.XyzLevelFreeGoal = rscf.XyzLevelFreeGoal2(minc, maxc or minc)
      alterf = alterf or aux.FALSE
      local e1 = Effect.CreateEffect(c)
      e1:SetDescription(1165)
      ......@@ -4020,9 +3755,9 @@ function rscf.AddXyzProcedureSpecial(c, f, gf, minc, maxc, alterf, desc, op)
      e1:SetRange(LOCATION_EXTRA)
      --if alterf then
      maxc= maxc or minc
      e1:SetCondition(rscf.XyzLevelFreeCondition22(f, gf, minc, maxc, alterf, desc, op))
      e1:SetTarget(rscf.XyzLevelFreeTarget22(f, gf, minc, maxc, alterf, desc, op))
      e1:SetOperation(rscf.XyzLevelFreeOperation22(f, gf, minc, maxc, alterf, desc, op))
      e1:SetCondition(rssf.XyzLevelFreeCondition2(f, gf, minc, maxc, alterf, desc, op))
      e1:SetTarget(rssf.XyzLevelFreeTarget2(f, gf, minc, maxc, alterf, desc, op))
      e1:SetOperation(rssf.XyzLevelFreeOperation2(f, gf, minc, maxc, alterf, desc, op))
      --[[else
      e1:SetCondition(Auxiliary.XyzLevelFreeCondition(f, gf, minc, maxc))
      e1:SetTarget(Auxiliary.XyzLevelFreeTarget(f, gf, minc, maxc))
      ......@@ -4030,36 +3765,26 @@ function rscf.AddXyzProcedureSpecial(c, f, gf, minc, maxc, alterf, desc, op)
      --end
      e1:SetValue(SUMMON_TYPE_XYZ)
      c:RegisterEffect(e1)
      if not c:IsStatus(STATUS_COPYING_EFFECT) and not c.rs_xyz_parammeter then
      mt.rs_xyz_parammeter = { e1, f1, f2, f3, f4, maxc, gc }
      end
      return e1
      end
      function rscf.XCheckUtilityMaterial(c, mg, xyzc, tp)
      local le = { c:IsHasEffect(rscode.Utility_Xyz_Material, tp) }
      if #le == 0 then return 1, { 1} end
      local maxreduce = 1
      local reducelist = { 1}
      for _, te in pairs(le) do
      local val = te:GetValue()
      local reduce = 1
      if type(val) == "number" then reduce = val end
      if type(val) == "function" then reduce = val(te, xyzc, mg, tp) end
      maxreduce = math.max(maxreduce, reduce or 2)
      table.insert(reducelist, reduce or 2)
      function rsgf.GetXyzMaterials_X(tp, xyzc)
      return function(...)
      return rsgf.GetXyzMaterials(tp, xyzc)
      end
      return maxreduce, reducelist
      end
      function rscf.XUncompatibilityFilter(c, sg, xyzc, tp)
      local mg = sg:Filter(aux.TRUE, c)
      return not rscf.XCheckOtherMaterial(c, mg, xyzc, tp, sg)
      function rsgf.GetXyzMaterials(tp, xyzc)
      local mg1 = Duel.GetMatchingGroup(aux.TRUE, tp, LOCATION_MZONE, 0, nil)
      local mg2 = Duel.GetMatchingGroup(rscf.XExtraFilter, tp, 0xff, 0xff, mg1, xyzc, tp)
      return (mg1 + mg2):Filter(rscf.IsCanBeXyzMaterial,nil,xyzc)
      end
      function rscf.XCheckOtherMaterial(c, mg, xyzc, tp, sg)
      local le = { c:IsHasEffect(rscode.Extra_Xyz_Material, tp) }
      if #le == 0 then return true end
      for _, te in pairs(le) do
      local f = te:GetValue()
      if not f or f(te, xyzc, mg, sg) then return true end
      function rscf.XExtraFilter(c, xc, tp)
      if c:IsOnField() and c:IsFacedown() then return false end
      if not rscf.IsCanBeXyzMaterial(c, xc) then return false end
      local le={c:IsHasEffect(rscode.Extra_Xyz_Material,tp)}
      for _,te in pairs(le) do
      local tf = te:GetValue()
      local related, valid = tf(te, xc, nil, c, tp)
      if related then return true end
      end
      return false
      end
      ......@@ -4075,23 +3800,33 @@ function rscf.IsCanBeXyzMaterial(c, xyzc)
      end
      return true
      end
      function rscf.XyzLevelFreeFilter2(c, xyzc, f)
      return (not c:IsOnField() or c:IsFaceup()) and rscf.IsCanBeXyzMaterial(c, xyzc) and (not f or f(c, xyzc))
      function rscf.XyzLevelFreeFilter(c, xyzc, f)
      return (not c:IsOnField() or c:IsFaceup()) and rscf.IsCanBeXyzMaterial(c, xyzc) and (not f or f(c, xyzc))
      end
      function rscf.ExtraXyzMaterialsFilter(c, xyzc, tp, f)
      if c:IsType(TYPE_TOKEN) then return false end
      if c:IsOnField() and not c:IsFaceup() then return false end
      return c:IsHasEffect(rscode.Extra_Xyz_Material, tp) and rscf.IsCanBeXyzMaterial(c, xyzc) and (not f or f(c))
      function rssf.XyzLevelFreeCondition2(f, gf, minct, maxct, alterf, desc, op)
      return function(e, c, og, min, max)
      rsgf.XyzLevelFreeGoal_R = aux.XyzLevelFreeGoal
      aux.XyzLevelFreeGoal = rsgf.XyzLevelFreeGoal(minct, maxct, og)
      rsgf.GetFieldGroup_R = Duel.GetFieldGroup
      Duel.GetFieldGroup = rsgf.GetXyzMaterials_X(e:GetHandlerPlayer(), c)
      rscf.XyzLevelFreeFilter_R = aux.XyzLevelFreeFilter
      aux.XyzLevelFreeFilter = rscf.XyzLevelFreeFilter
      local res = aux.XyzLevelFreeCondition2(f, gf, 1, maxct, alterf, desc, op)(e, c, og, min, max)
      aux.XyzLevelFreeGoal = rsgf.XyzLevelFreeGoal_R
      Duel.GetFieldGroup = rsgf.GetFieldGroup_R
      aux.XyzLevelFreeFilter = rscf.XyzLevelFreeFilter_R
      return res
      end
      end
      function rscf.XyzLevelFreeGoal2(minct, maxct, og)
      function rsgf.XyzLevelFreeGoal(minct, maxct, og)
      return function(g, tp, xyzc, gf)
      --case 1, extra material check
      if not og and g:IsExists(rscf.XUncompatibilityFilter, 1, nil, g, xyzc, tp) then return false end
      --case 1, extra material check
      if g:IsExists(rscf.XUncompatibilityFilter, 1, nil, g, xyzc, tp) then return false end
      --case 2, normal check
      if (gf and not gf(g, og, tp, xyzc)) or Duel.GetLocationCountFromEx(tp, tp, g, xyzc) <= 0 then return false end
      --if #g < minct then return false end
      if not ((not gf or gf(g, og, tp, xyzc)) and Duel.GetLocationCountFromEx(tp, tp, g, xyzc)>0) then return false end
      --case 3
      if #g > maxct then return false end
      --case 3, utility check, separate mg and ug for easy calculate
      --case 4, utility check
      local ug = g:Filter(Card.IsHasEffect, nil, rscode.Utility_Xyz_Material, tp)
      local mg = g:Clone()
      mg:Sub(ug)
      ......@@ -4117,258 +3852,130 @@ function rscf.XyzLevelFreeGoal2(minct, maxct, og)
      return false
      end
      end
      function rscf.XyzLevelFreeCondition22(f, gf, minct, maxct, alterf, desc, op)
      return function(e, c, og, min, max)
      if c == nil then return true end
      if c:IsType(TYPE_PENDULUM) and c:IsFaceup() then return false end
      local tp = c:GetControler()
      local mg = nil
      --other material
      local mgextra = nil
      if og then
      mg = og
      else
      mg = Duel.GetFieldGroup(tp, LOCATION_MZONE, 0)
      mgextra = Duel.GetMatchingGroup(rscf.ExtraXyzMaterialsFilter, tp, 0xff, 0xff, mg, c, tp, f)
      end
      local altg = mg:Filter(Auxiliary.XyzAlterFilter, nil, alterf, c, e, tp, op):Filter(Auxiliary.MustMaterialCheck, nil, tp, EFFECT_MUST_BE_XMATERIAL)
      if (not min or min <= 1) and altg:GetCount() > 0 then
      return true
      end
      local minc = minct
      local maxc = maxct
      if min then
      if min > minc then minc = min end
      if max < maxc then maxc = max end
      --if minc > maxc then return false end
      end
      mg = mg:Filter(rscf.XyzLevelFreeFilter2, nil, c, f)
      if mgextra and #mgextra > 0 then mg:Merge(mgextra) end
      local sg = Auxiliary.GetMustMaterialGroup(tp, EFFECT_MUST_BE_XMATERIAL)
      if sg:IsExists(Auxiliary.MustMaterialCounterFilter, 1, nil, mg) then return false end
      Duel.SetSelectedCard(sg)
      Auxiliary.GCheckAdditional = Auxiliary.TuneMagicianCheckAdditionalX(EFFECT_TUNE_MAGICIAN_X)
      --minc to 1 for utility xyz material
      local res = mg:CheckSubGroup(rscf.XyzLevelFreeGoal2(minc, maxc, og), 1, maxc, tp, c, gf)
      Auxiliary.GCheckAdditional = nil
      return res
      end
      function rscf.XUncompatibilityFilter(c, sg, xc, tp)
      local mg = sg:Filter(aux.TRUE, c)
      return not rscf.XCheckOtherMaterial(c, mg, xc, tp)
      end
      function rscf.XyzLevelFreeTarget22(f, gf, minct, maxct, alterf, desc, op)
      function rscf.XCheckOtherMaterial(c, mg, xc, tp)
      local le={ c:IsHasEffect(rscode.Extra_Xyz_Material, tp) }
      local res1=false
      local res2=true
      for _, te in pairs(le) do
      local f = te:GetValue()
      local related, valid = f(te, xc, mg, c, tp)
      if related then res2 = false end
      if related and valid then res1 = true end
      end
      return res1 or res2
      end
      function rscf.XCheckUtilityMaterial(c, mg, xyzc, tp)
      local le = { c:IsHasEffect(rscode.Utility_Xyz_Material, tp) }
      if #le == 0 then return 1, { 1 } end
      local max_reduce = 1
      local reduce_arr = { 1}
      for _, te in pairs(le) do
      local val = te:GetValue()
      local reduce = 1
      if type(val) == "number" then reduce = val end
      if type(val) == "function" then reduce = val(te, xyzc, mg, tp) end
      max_reduce = math.max(max_reduce, reduce or 2)
      table.insert(reduce_arr, reduce or 2)
      end
      table.sort(reduce_arr)
      return max_reduce, reduce_arr
      end
      function rssf.XyzLevelFreeTarget2(f, gf, minct, maxct, alterf, desc, op)
      return function(e, tp, eg, ep, ev, re, r, rp, chk, c, og, min, max)
      if og and not min then
      return true
      end
      local minc = minct
      local maxc = maxct
      if min then
      if min > minc then minc = min end
      if max < maxc then maxc = max end
      end
      local mg = nil
      --other material
      local mg3 = nil
      if og then
      mg = og
      mg3 = og
      else
      mg = Duel.GetFieldGroup(tp, LOCATION_MZONE, 0)
      mg3 = Duel.GetMatchingGroup(rscf.ExtraXyzMaterialsFilter, tp, 0xff, 0xff, mg, c, tp, f)
      end
      local sg = Auxiliary.GetMustMaterialGroup(tp, EFFECT_MUST_BE_XMATERIAL)
      local mg2 = mg:Filter(rscf.XyzLevelFreeFilter2, nil, c, f)
      mg3:Merge(mg2)
      --other material
      Duel.SetSelectedCard(sg)
      local b1 = mg3:CheckSubGroup(rscf.XyzLevelFreeGoal2(minc, maxc, og), 1, maxc, tp, c, gf)
      local b2 = (not min or min <= 1) and mg:IsExists(Auxiliary.XyzAlterFilter, 1, nil, alterf, c, e, tp, op)
      local g = nil
      if b2 and (not b1 or Duel.SelectYesNo(tp, desc)) then
      e:SetLabel(1)
      Duel.Hint(HINT_SELECTMSG, tp, HINTMSG_XMATERIAL)
      g = mg:FilterSelect(tp, Auxiliary.XyzAlterFilter, 1, 1, nil, alterf, c, e, tp, op)
      if op then op(e, tp, 1, g:GetFirst()) end
      else
      e:SetLabel(0)
      Duel.SetSelectedCard(sg)
      Duel.Hint(HINT_SELECTMSG, tp, HINTMSG_XMATERIAL)
      local cancel = Duel.IsSummonCancelable()
      Auxiliary.GCheckAdditional = Auxiliary.TuneMagicianCheckAdditionalX(EFFECT_TUNE_MAGICIAN_X)
      g = mg3:SelectSubGroup(tp, rscf.XyzLevelFreeGoal2(minc, maxc, og), cancel, 1, maxc, tp, c, gf)
      Auxiliary.GCheckAdditional = nil
      end
      if g and g:GetCount() > 0 then
      g:KeepAlive()
      e:SetLabelObject(g)
      return true
      else return false end
      rsgf.XyzLevelFreeGoal_R = aux.XyzLevelFreeGoal
      aux.XyzLevelFreeGoal = rsgf.XyzLevelFreeGoal(minct, maxct, og)
      rsgf.GetFieldGroup_R = Duel.GetFieldGroup
      Duel.GetFieldGroup = rsgf.GetXyzMaterials_X(tp, c)
      rscf.XyzLevelFreeFilter_R = aux.XyzLevelFreeFilter
      aux.XyzLevelFreeFilter = rscf.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)
      aux.XyzLevelFreeGoal = rsgf.XyzLevelFreeGoal_R
      Duel.GetFieldGroup = rsgf.GetFieldGroup_R
      aux.XyzLevelFreeFilter = rscf.XyzLevelFreeFilter_R
      return res
      end
      end
      function rscf.XyzLevelFreeOperation22(f, gf, minct, maxct, alterf, desc, op)
      function rssf.XyzLevelFreeOperation2(f, gf, minct, maxct, alterf, desc, op)
      return function(e, tp, eg, ep, ev, re, r, rp, c, og, min, max)
      if og and not min then
      rscf.XyzCustomOperation(og, c, e, tp, false)
      else
      local mg = e:GetLabelObject()
      rscf.XyzCustomOperation(mg, c, e, tp, true)
      local res
      local mg = e:GetLabelObject()
      rssf.XExtraMaterialCount(mg, c, tp)
      if not rssf.XyzMaterialAction and not c.rs_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)
      else
      if rssf.XyzMaterialAction then
      res = rssf.XyzMaterialAction(mg, c, e, tp)
      rssf.XyzMaterialAction = nil
      elseif c.rs_xyz_material_action then
      res = xc.rs_xyz_material_action(mg, c, e, tp)
      end
      end
      end
      function rscf.XyzCustomOperation(mg, c, e, tp, checkog)
      c:SetMaterial(mg)
      if checkog then
      rscf.XExtraMaterialCount(mg, c, tp)
      end
      local sg = Group.CreateGroup()
      local tc = mg:GetFirst()
      while tc do
      local sg1 = tc:GetOverlayGroup()
      sg:Merge(sg1)
      tc = mg:GetNext()
      end
      --case 1, Summon Effect Custom (Book of Cain)
      if rssf.XyzMaterialAction then
      rssf.XyzMaterialAction(mg, sg, c, e, tp)
      rssf.XyzMaterialAction = nil
      --case 2, Summon Procedure Custom
      elseif c.rs_xyz_material_action then
      c.rs_xyz_material_action(mg, sg, c, e, tp)
      --case 3, Base Alterf Xyz Procedure
      elseif e:GetLabel() == 1 then
      if #sg > 0 then
      Duel.Overlay(c, sg)
      end
      Duel.Overlay(c, mg)
      --case 4, Base Normal Xyz Procedure
      else
      Duel.SendtoGrave(sg, REASON_RULE)
      Duel.Overlay(c, mg)
      end
      --if used hand material, shuffle hand
      if mg:IsExists(Card.IsPreviousLocation, 1, nil, LOCATION_HAND) then
      Duel.ShuffleHand(tp)
      local sf = function(hc, hp)
      return hc:IsPreviousLocation(LOCATION_HAND) and hc:IsPreviousControler(hp)
      end
      for hp = 0, 1 do
      if mg:IsExists(sf, 1, nil, hp) then
      Duel.ShuffleHand(hp)
      end
      end
      mg:DeleteGroup()
      return res
      end
      mg:DeleteGroup()
      end
      function rscf.XExtraMaterialCount(mg, xyzc, tp)
      function rssf.XExtraMaterialCount(mg, xc, tp)
      for tc in aux.Next(mg) do
      local le = { tc:IsHasEffect(rscode.Extra_Xyz_Material, tp) }
      for _, te in pairs(le) do
      local sg = mg:Filter(aux.TRUE, tc)
      local sg=mg:Filter(aux.TRUE, tc)
      local f = te:GetValue()
      if not f or f(te, xyzc, sg, mg) then
      local related,valid=f(te, xc, sg, tc, tp)
      if related and valid then
      te:UseCountLimit(tp)
      end
      end
      end
      end
      --Card / Summon function: Special Xyz Summon Procedure
      --Custom Xyz Materials' Action
      function rscf.AddXyzProcedureSpecial_CustomAction(c, actionfun, ...)
      if c:IsStatus(STATUS_COPYING_EFFECT) then return end
      if not c.rs_xyz_material_action then
      local mt = getmetatable(c)
      mt.rs_xyz_material_action = actionfun
      end
      local e1 = rscf.AddXyzProcedureSpecial(c, ...)
      return e1
      end
      function rscf.XyzMaterialAction(c, actionfun)
      if c:IsStatus(STATUS_COPYING_EFFECT) then return end
      if not c.rs_xyz_material_action then
      local mt = getmetatable(c)
      mt.rs_xyz_material_action = actionfun
      end
      end
      --Card / Summon function: Custom Link Procedure
      function rscf.AddLinkProcedureSpecial(c, f, min, max, gf)
      if not rscf.AddLinkProcedureSpecial_Switch then
      rscf.AddLinkProcedureSpecial_Switch = true
      rscf.LCheckOtherMaterial = aux.LCheckOtherMaterial
      aux.LCheckOtherMaterial = rscf.LCheckOtherMaterial2
      rscf.GetLinkMaterials = aux.GetLinkMaterials
      aux.GetLinkMaterials = rscf.GetLinkMaterials2
      rscf.LinkOperation = aux.LinkOperation
      aux.LinkOperation = rscf.LinkOperation2
      end
      local e1 = Effect.CreateEffect(c)
      local e1=Effect.CreateEffect(c)
      e1:SetDescription(1166)
      e1:SetType(EFFECT_TYPE_FIELD)
      e1:SetCode(EFFECT_SPSUMMON_PROC)
      e1:SetProperty(EFFECT_FLAG_UNCOPYABLE + EFFECT_FLAG_IGNORE_IMMUNE)
      e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
      e1:SetRange(LOCATION_EXTRA)
      if max == nil then max = c:GetLink() end
      e1:SetCondition(Auxiliary.LinkCondition(f, min, max, gf))
      e1:SetTarget(Auxiliary.LinkTarget(f, min, max, gf))
      e1:SetOperation(rscf.LinkOperation2(f, min, max, gf))
      e1:SetOperation(rssf.LinkOperation(f, min, max, gf))
      e1:SetValue(SUMMON_TYPE_LINK)
      c:RegisterEffect(e1)
      if not c:IsStatus(STATUS_COPYING_EFFECT) and not c.rs_link_parammeter then
      local mt = getmetatable(c)
      mt.rs_link_parammeter = { e1, f, min, max, gf }
      end
      return e1
      end
      function rscf.GetLinkMaterials2(tp, f, lc)
      local mg = Duel.GetMatchingGroup(Auxiliary.LConditionFilter, tp, LOCATION_MZONE, 0, nil, f, lc)
      local mg2 = Duel.GetMatchingGroup(Auxiliary.LExtraFilter, tp, 0xff, 0xff, nil, f, lc, tp)
      if mg2:GetCount() > 0 then mg:Merge(mg2) end
      return mg
      end
      function rscf.LinkOperation2(f, minc, maxc, gf)
      function rssf.LinkOperation(f, minc, maxc, gf)
      return function(e, tp, eg, ep, ev, re, r, rp, c, og, lmat, min, max)
      local g = e:GetLabelObject()
      rscf.LinkCustomOperation(g, c, e, tp, og)
      local g=e:GetLabelObject()
      Auxiliary.LExtraMaterialCount(g,c,tp)
      local res
      --case 1, Summon Effect Custom
      if rssf.LinkMaterialAction then
      res = rssf.LinkMaterialAction(g, c, e, tp)
      rssf.LinkMaterialAction = nil
      --case 2, Summon Procedure Custom
      elseif c.rs_link_material_action then
      res = c.rs_link_material_action(g, c, e, tp)
      --case 3, Base Summon Procedure
      else
      c:SetMaterial(g)
      res = Duel.SendtoGrave(g, REASON_LINK + REASON_MATERIAL)
      end
      g:DeleteGroup()
      end
      end
      function rscf.LinkCustomOperation(mg, c, e, tp, checkog)
      c:SetMaterial(mg)
      if checkog then
      Auxiliary.LExtraMaterialCount(mg, c, tp)
      end
      --case 1, Summon Effect Custom
      if rssf.LinkMaterialAction then
      rssf.LinkMaterialAction(mg, c, e, tp, checkog)
      rssf.LinkMaterialAction = nil
      --case 2, Summon Procedure Custom
      elseif c.rs_link_material_action then
      c.rs_link_material_action(mg, c, e, tp, checkog)
      --case 3, Base Summon Procedure
      else
      Duel.SendtoGrave(mg, REASON_LINK + REASON_MATERIAL)
      end
      end
      --Change aux function to repair bug in multiple other material link
      function rscf.LCheckOtherMaterial2(c, mg, lc, tp)
      local le = { c:IsHasEffect(EFFECT_EXTRA_LINK_MATERIAL, tp) }
      if #le == 0 then return true end
      for _, te in pairs(le) do
      local f = te:GetValue()
      if not f or f(te, lc, mg) then return true end
      end
      return false
      end
      --Card / Summon function: Special Link Summon Procedure
      --Custom Link Materials' Action
      function rscf.AddLinkProcedureSpecial_CustomAction(c, actionfun, ...)
      if c:IsStatus(STATUS_COPYING_EFFECT) then return end
      if not c.rs_link_material_action then
      local mt = getmetatable(c)
      mt.rs_link_material_action = actionfun
      end
      local e1 = rscf.AddLinkProcedureSpecial(c, ...)
      return e1
      end
      function rscf.LinkMaterialAction(c, actionfun)
      if c:IsStatus(STATUS_COPYING_EFFECT) then return end
      if not c.rs_link_material_action then
      local mt = getmetatable(c)
      mt.rs_link_material_action = actionfun
      end
      end
      --Card effect: Set field info
      function rscf.SetFieldInfo(c)
      ......@@ -4498,13 +4105,13 @@ end
      function rscf.spfilter(f, ...)
      local ext_paramms = { ... }
      return function(c, e, tp)
      return c:IsCanBeSpecialSummoned(e, 0, tp, false, false) and (not f or f(c, table.unpack(rsof.Table_Mix(ext_paramms, { e, tp })))) and c:IsType(TYPE_MONSTER)
      return c:IsCanBeSpecialSummoned(e, 0, tp, false, false) and (not f or f(c, table.unpack(rsof.Table_Mix(ext_paramms, { e, tp })))) and c:GetOriginalType() & TYPE_MONSTER > 0
      end
      end
      function rscf.spfilter2(f, ...)
      local ext_paramms = { ... }
      return function(c, e, tp)
      return c:IsCanBeSpecialSummoned(e, 0, tp, false, false) and (not f or f(c, table.unpack(rsof.Table_Mix(ext_paramms, { e, tp })))) and rszsf.GetUseAbleMZoneCount(c, tp) > 0 and c:IsType(TYPE_MONSTER)
      return c:IsCanBeSpecialSummoned(e, 0, tp, false, false) and (not f or f(c, table.unpack(rsof.Table_Mix(ext_paramms, { e, tp })))) and rszsf.GetUseAbleMZoneCount(c, tp) > 0 and c:GetOriginalType() & TYPE_MONSTER > 0
      end
      end
      --Card filter function : Face - up from Remove
      ......@@ -4832,14 +4439,24 @@ function rsof.Table_List_Base(check_type, base_tab, check_val1, ...)
      local exist_res, exist_idx = rsof.Table_List_Single(base_tab, check_val)
      if check_type == "normal" then
      table.insert(res_list, exist_res)
      table.insert(res_list, exist_idx)
      elseif check_type == "or" then
      res_list[1] = res_list[1] or exist_res
      if exist_res then
      return true
      end
      elseif check_type == "and" then
      res_list[1] = res_list[1] and exist_res
      if not exist_res then
      return false
      end
      end
      table.insert(res_list, exist_idx)
      end
      return table.unpack(res_list)
      if check_type == "normal" then
      return table.unpack(res_list)
      elseif check_type == "or" then
      return false
      elseif check_type == "and" then
      return true
      end
      end
      --other function: Find correct element in table
      function rsof.Table_List(base_tab, check_val1, ...)
      ......@@ -4903,9 +4520,5 @@ function rsof.Check_Boolean(check_val, bool_val)
      end
      -------------------"Hape"---------------------
      rsof.Escape_Old_Functions()
      --directly enable will cause bugs, but i am lazy to find what cards i have used this function
      --rssf.EnableSpecialProcedure()
      rsof.Get_Cate_Hint_Op_List()
      if not rsof.SelectHint then
      rsof.SelectHint=rshint.Select
      end
      \ No newline at end of file
      rsef.Enable_Attach_Effect()
      \ No newline at end of file
      expansions/script/c10199991.lua
      View file @ 2c2cbb79
      ......@@ -31,12 +31,12 @@ rscost.costinfo = { } --"Cost information, for record cost value"
      rsop.opinfo = { } --"Operation information, for record something"
      rsef.relationinfo = { } --"Field,Pendulum,Continous leave field"
      rstg.targetlist = { } --"Target group list, for rstg.GetTargetAttribute"
      rsef.attacheffect = { } --"Effect information for attach effects"
      rsef.attacheffectf = { }
      rsef.solveeffect ={ }
      rsop.baseop = { }
      rscf.ssproce = { }
      rscf.proc_record = { }
      rstg.tk_list = { }
      rscf.fieldinfo = { }
      rsef.attach_before_arr = { } --"record attach effects, for 10170008 to repeat"
      rsef.attach_after_arr = { }
      rsef.attach_base_arr = { }
      rsef.effet_no_register = false
      ......@@ -73,9 +73,7 @@ rsrst.std_ep = rsrst.std + rsrst.ep
      rsrst.ret = RESET_EVENT + RESETS_REDIRECT
      --Code Variable
      rscode.Extra_Effect_Activate = m + 100 --"Attach Effect"
      rscode.Extra_Effect_BSolve = m + 101
      rscode.Extra_Effect_ASolve = m + 102
      rscode.Attach_Effect = m + 100 --"Attach Effect"
      rscode.Phase_Leave_Flag = m + 200 --"Summon Flag for SummonBuff"
      rscode.Extra_Synchro_Material = m + 300 --"Extra Synchro Material"
      ......@@ -106,6 +104,10 @@ rshint.sdrct = aux.Stringid(m,5) --"select draw number"
      rshint.darktuner = aux.Stringid(m,14) --"treat as dark tuner"
      rshint.darksynchro = aux.Stringid(m,15) --"treat as dark synchro"
      rshint.scl_exproc = aux.Stringid(m,12) -- "special extra monster spsummon proc"
      rshint.attach_card = aux.Stringid(m, 8)
      rshint.attach_effect = aux.Stringid(m, 9)
      --Effect type Variable
      rsef.type_list = {
      ......@@ -126,7 +128,7 @@ rsflag.list = {
      , ["sp"] = EFFECT_FLAG_SPSUM_PARAM, ["ep"] = EFFECT_FLAG_EVENT_PLAYER, ["oa"] = EFFECT_FLAG_OATH , ["ntr"] = EFFECT_FLAG_NO_TURN_RESET
      , ["neg~"] = EFFECT_FLAG_CANNOT_INACTIVATE
      , ["cn"] = EFFECT_FLAG_CANNOT_NEGATE, ["dise~"] = EFFECT_FLAG_CANNOT_NEGATE
      , ["cd"] = EFFECT_FLAG_CANNOT_DISABLE , ["dis~"] = EFFECT_FLAG_CANNOT_DISABLE,
      , ["cd"] = EFFECT_FLAG_CANNOT_DISABLE , ["dis~"] = EFFECT_FLAG_CANNOT_DISABLE
      }
      ......@@ -202,7 +204,7 @@ function rsof.Get_Cate_Hint_Op_List()
      , ["ctrl"] = { "Get Control", CATEGORY_CONTROL, HINTMSG_CONTROL, { 4941482,0 }, nil, { rsop.GetControl, 5, sg, tp, 0, 0, 0xff } }
      , ["sctrl"] = { "Switch Control", CATEGORY_CONTROL, HINTMSG_CONTROL, { 36331074,0 } }
      , ["dis"] = { "Disable Effect", CATEGORY_DISABLE, HINTMSG_DISABLE, { 39185163,1 }, { 25166510,2 } }
      , ["dis"] = { "Disable Effect", CATEGORY_DISABLE, HINTMSG_DISABLE, { 39185163,1 }, { 25166510,2 }, { rsop.DisableCards, 4, sg, e, false, rsrst.std } }
      , ["diss"] = { "Disable Summon", CATEGORY_DISABLE_SUMMON, 0, { m,1 } }
      , ["neg"] = { "Negate Activation", CATEGORY_NEGATE, 0, { 19502505,1 } }
      ......@@ -293,6 +295,7 @@ rscf.sum_list = {
      --Location Variable
      rsloc.hd = LOCATION_HAND+LOCATION_DECK
      rsloc.hm = LOCATION_HAND+LOCATION_MZONE
      rsloc.ho = LOCATION_HAND+LOCATION_ONFIELD
      rsloc.hg = LOCATION_HAND+LOCATION_GRAVE
      rsloc.dg = LOCATION_DECK+LOCATION_GRAVE
      ......
      expansions/script/c1102081.lua
      View file @ 2c2cbb79
      ......@@ -3,6 +3,7 @@ local m=1102081
      local cm=_G["c"..m]
      Duel.LoadScript("c81000000.lua")
      function cm.initial_effect(c)
      aux.AddCodeList(c,1102000)
      --Negate
      local e1=Effect.CreateEffect(c)
      e1:SetCategory(CATEGORY_DISABLE+CATEGORY_DESTROY)
      ......
      expansions/script/c44000032.lua
      View file @ 2c2cbb79
      --骰娘炼成·补完式
      if not pcall(function() require("expansions/script/c44000001") end) then require("script/c44000001") end
      local id,s = rscf.DefineCard(44000032,"MrsDice_Taught")
      function s.initial_effect(c)
      --Activate
      ......
      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