游戏王残局简化版

c0.lua at [a0d0abc5dd]
Login

c0.lua at [a0d0abc5dd]

File script/c0.lua artifact 222a247752 part of check-in a0d0abc5dd


local string = string
local table = table
local Debug = Debug
local Effect = Effect
local Duel = Duel
local Card = Card
local d = {}
local f = {}
d["排_效果卡的类型"] = {
  TYPE_SPELL,
  TYPE_TRAP,
  TYPE_EFFECT,
  }
d["排_非效果灵摆怪兽的卡编"] = {
  28363749,
  19474136,
  17390179,
  83980492,
  }
d["数_所有区域"] = LOCATION_HAND + LOCATION_MZONE + LOCATION_SZONE + LOCATION_GRAVE + LOCATION_REMOVED + LOCATION_DECK + LOCATION_EXTRA
do
  local k1
  --~ 这一局所适用规则的对
  k1 = {
    [3] = "大师规则三(2014) ",
    [4] = "新大师规则(2017) ",
    [5] = "大师规则(2020) ",
    }
  f["Debug.ReloadFieldBegin"] = _G.Debug.ReloadFieldBegin
  --~ 这一局的模式
  --~ 规则参数
  function _G.Debug.ReloadFieldBegin(o1, o2)
    d["数_假洗卡"] = o1 & DUEL_PSEUDO_SHUFFLE
    d["数_战斗阶段"] = o1 & DUEL_ATTACK_FIRST_TURN
    d["数_人工智能"] = o1 & DUEL_SIMPLE_AI
    if o2 then
      d["字_这一局的规则"] = k1[o2]
    else
      d["字_这一局的规则"] = k1[5]
      end
    f["Debug.ReloadFieldBegin"](o1, o2)
    end
  end
f["不被连锁"] = function()
  Duel.SetChainLimit(aux.FALSE)
  return true
  end
f["是否有效果卡"] = function(card)
  for i = 1, #d["排_效果卡的类型"] do
    if Card.IsType(card, d["排_效果卡的类型"][i]) then
      return true
      end
    end
  if Card.IsType(card, TYPE_PENDULUM) then
    for i = 1, #d["排_非效果灵摆怪兽的卡编"] do
      if Card.IsCode(card, d["排_非效果灵摆怪兽的卡编"][i]) then
        return false
      else
        end
      end
    return true
    end
  end
do
  local k1
  --~ 所调用这个效果的效果
  --~ 所调用这个效果的玩家
  f["_开局选卡入手"] = function(o1, o2)
    local k2
    --~ 玩家选定的卡
    k2 = Duel.SelectMatchingCard(o2, Card.IsAbleToHand, o2, LOCATION_DECK, 0, k1, k1, nil)
    Duel.SendtoHand(k2, nil, REASON_RULE)
    o1:Reset()
    end
  f["开局选卡入手"] = function(o1)
    local k2
    d["数_选卡"] = o1
    --~ 开局选卡入手的数量
    k1 = o1
    --~ 效果
    k2 = Effect.GlobalEffect()
    k2:SetType(EFFECT_TYPE_FIELD + EFFECT_TYPE_CONTINUOUS)
    k2:SetCode(EVENT_ADJUST)
    k2:SetCondition(aux.TRUE)
    k2:SetOperation(f["_开局选卡入手"])
    Duel.RegisterEffect(k2, 0)
    end
  end
--~ 禁几个怪兽格
f["禁格"] = function(o1)
  local k1
  d["数_禁格"] = o1
  --~ 效果
  k1 = Effect.GlobalEffect()
  k1:SetCode(EFFECT_USE_EXTRA_MZONE)
  k1:SetValue(o1)
  Duel.RegisterEffect(k1, 0)
  end
do
  local k1, k2, k3, k4
  --~ 印卡过多时的提示
  k1 = "印卡过多"
  --~ 现在的印卡数量
  k2 = 1
  --~ 手卡印卡数量的上限
  k3 = 0
  --~ 印卡总数量的上限
  k4 = 0
  --~ 所调用这个效果的效果
  --~ 所调用这个效果的玩家
  f["_印卡"] = function(o1, o2)
    local k5, k6
    --~ 要印之卡的卡编
    k5 = Duel.AnnounceCard(o2)
    --~ 卡
    k6 = Duel.CreateToken(o2, k5)
    if k2 <= k3 then
      k2 = k2 + 1
      Duel.SendtoHand(k6, nil, REASON_RULE)
    else
      if k2 <= k4 then
        k2 = k2 + 1
        Duel.SendtoDeck(k6, o2, 0, REASON_RULE)
      else
        Debug.ShowHint(k1)
        o1:Reset()
        end
      end
    end
  --~ 印卡的启动源
  --~ 手卡印卡数量的上限
  --~ 印卡总数量的上限
  f["印卡"] = function(o1, o2, o3)
    local k5
    k3 = o2
    k4 = o3 or o2
    Debug.ShowHint("点对方额外卡组,可印卡\n只能印手卡" .. k3 .. "张\n最多可印" .. k4 .. "张")
    k5 = Effect.CreateEffect(o1)
    k5:SetType(EFFECT_TYPE_IGNITION)
    k5:SetProperty(EFFECT_FLAG_BOTH_SIDE + EFFECT_FLAG_UNCOPYABLE + EFFECT_FLAG_CANNOT_NEGATE + EFFECT_FLAG_CANNOT_DISABLE)
    k5:SetTarget(f["不被连锁"])
    k5:SetRange(LOCATION_EXTRA)
    k5:SetOperation(f["_印卡"])
    o1:RegisterEffect(k5)
    end
  end
f["开局提示"] = function()
  local k1, k2, k3
  --~ 这一局的效果卡数量
  k2 = Duel.GetMatchingGroupCount(f["是否有效果卡"], 0, d["数_所有区域"], d["数_所有区域"], nil)
  --~ 超量素材的组
  k3 = Duel.GetOverlayGroup(0, LOCATION_MZONE, LOCATION_MZONE)
  for o1 in aux.Next(k3) do
    if f["是否有效果卡"](o1) then
      k2 = k2 + 1
      end
    end
  --~ 开局说明
  k1 = "" .. k2 .. "卡 " .. d["字_这一局的规则"]
  if d["数_假洗卡"] == 0 then
  else
    k1 = k1 .. "假洗卡 "
    end
  if d["数_战斗阶段"] == 0 then
    k1 = k1 .. "无战斗阶段 "
    end
  if d["数_人工智能"] == 0 then
    k1 = k1 .. "无人工智能 "
    end
  if d["数_选卡"] then
    k1 = k1 .. "选" .. d["数_选卡"] .. "卡 "
    end
  if d["数_禁格"] then
    k1 = k1 .. "禁" .. d["数_禁格"] .. "怪格 "
    end
  Debug.ShowHint(k1)
  end
do
  f["aux.BeginPuzzle"] = _G.aux.BeginPuzzle
  --~ 开局选卡入手的数量
  --~ 禁几个我方主要怪兽格
  --~ 传入对方额外卡组最上面的表侧卡,并将其作为印卡源
  --~ 能印几张手卡
  --~ 最多能印几张卡
  function _G.aux.BeginPuzzle(o1, o2, o3, o4, o5)
    f["aux.BeginPuzzle"]()
    if o1 then
      f["开局选卡入手"](o1)
    else
      end
    if o2 then
      f["禁格"](o2)
      --~ Debug.ShowHint("2")
    else
      end
    if o3 then
      f["印卡"](o3, o4, o5)
    else
      end
    f["开局提示"]()
    end
  end