local str = {}

local math = math
local string = string
local table = table

_G.fun = {}

---------------------------------

local cache_1
local cache_2
local cache_3
local cache_4
local cache_5
local cache_6
local cache_7
local cache_8
local cache_9

local _

str["效果卡的种类表"] = {
  
  TYPE_SPELL
  , TYPE_TRAP
  , TYPE_EFFECT
  }
  
str["无效果灵摆怪兽表"] = {
  
  28363749
  , 19474136
  , 17390179
  , 83980492
  }
  
cache_1 = 0

cache_1 = cache_1 + LOCATION_HAND
+ LOCATION_MZONE
+ LOCATION_SZONE
+ LOCATION_GRAVE
+ LOCATION_REMOVED

str["除卡组与额外卡组以外的区域"] = cache_1

cache_1 = cache_1 + LOCATION_DECK
+ LOCATION_EXTRA

str["所有区域"] = cache_1

--第一层-------------------------------

local cache_1
local cache_2
local cache_3
local cache_4
local cache_5
local cache_6
local cache_7
local cache_8
local cache_9

local _

fun["Debug.ReloadFieldBegin"] = Debug.ReloadFieldBegin

Debug.ReloadFieldBegin = function(str_1, str_2) --{
  
  str["不洗牌"] = str_1 & DUEL_PSEUDO_SHUFFLE
  
  str["无BP"] = str_1 & DUEL_ATTACK_FIRST_TURN
  
  str["无AI"] = str_1 & DUEL_SIMPLE_AI
  
  str["规则表"] = {
    
    [3] = "大师3 "
    , [4] = "新大师 "
    , [5] = "大师2020 "
    }
    
  if str_2 then --{
    
    str["规则"] = str["规则表"][str_2]
    
    --}
    
  else --{
    
    str["规则"] = str["规则表"][5]
    
    end --}
    
  fun["Debug.ReloadFieldBegin"](str_1, str_2)
  
  end --}

fun["一_随机抽卡"] = function(str_1) --{
  
  str["随机抽卡的数量"] = str_1
  
  str["效果"] = Effect.GlobalEffect()
  
  str["效果"]:SetType(EFFECT_TYPE_FIELD
  + EFFECT_TYPE_CONTINUOUS)
  
  str["效果"]:SetCode(EVENT_ADJUST)
  
  str["效果"]:SetCondition(aux.TRUE)
  
  function cache_1(effect_event
  , player_who_activate_the_effect) --{
    
    Duel.ShuffleDeck(0)
    
    Duel.Draw(0,str_1,REASON_RULE)
    
    effect_event:Reset()
    
    end --}
    
  str["效果"]:SetOperation(cache_1)
  
  Duel.RegisterEffect(str["效果"]
  , 0)
  
  end --}

fun["一_失败得分"] = function() --{
  
  str["失败得分表"] = {
    
    [0] = "神龙之圣刻印"
    , [100] = "调和支援士"
    , [200] = "深渊的暗杀者"
    , [300] = "救援猫"
    , [400] = "注射天使 莉莉"
    , [500] = "不知火的隐者"
    , [600] = "影依猎鹰"

    , [2500] = "黑魔术师"
    , [2600] = "雅典娜"
    , [2700] = "暗黑界的龙神 格拉法"
    , [2800] = "魔导兽 刻耳柏洛斯尊主"
    , [2900] = "元素英雄 永生侠"
    , [3000] = "青眼白龙"
    }
    
  str["对方玩家的初始生命值"] = Duel.GetLP(1)
  
  str["效果"] = Effect.GlobalEffect()
  
  str["效果"]:SetType(EFFECT_TYPE_FIELD
  + EFFECT_TYPE_CONTINUOUS)
  
  str["效果"]:SetCode(EVENT_PHASE_START+PHASE_END)
  
  function cache_1(effect_event
  , player_who_activate_the_effect) --{
    
    cache_1 = Duel.GetLP(1) - str["对方玩家的初始生命值"]
    
    if cache_1 > 0 then --{
      
      return
      
      --}
      
    else --{
      
      cache_1 = math.abs(cache_1) / (str["对方玩家的初始生命值"] - 100)
      
      cache_1 = math.tointeger(cache_1 * 3000 // 100 * 100)
      
      end --}
      
    if cache_1 > 3000 then --{
      
      --}
      
    else --{
      
      Debug.ShowHint("这局，您的得分是　"
      .. cache_1
      .. "　分！\n处于「"
      .. str["失败得分表"][cache_1]
      .. "」级别！")
      
      end --}
      
    effect_event:Reset()
    
    end --}
    
  str["效果"]:SetOperation(cache_1)
  
  Duel.RegisterEffect(str["效果"]
  , 0)
  
  end --}

fun["一_该效果不能被连锁"] = function() --{
  
  Duel.SetChainLimit(aux.FALSE)
  
  return true
  end --}

fun["一_通关邀请"] = function() --{
  --备用：圣魔术师
  str["原解邀请"] = "残局群181175613"
  str["二解邀请"] = "爆貘团：「你居然二解了，请加群告诉我怎么二解。」"
  
  str["效果"] = Effect.GlobalEffect()
  
  str["效果"]:SetType(EFFECT_TYPE_FIELD
  + EFFECT_TYPE_CONTINUOUS)
  
  str["效果"]:SetCode(EVENT_DAMAGE)
  
  function cache_1() --{
    
    cache_1 = Duel.GetLP(1)
    
    if cache_1 <= 0 then --{
      
      if cache_1 == 0 then --{
        
        --}
        
      else  --{
        
        Debug.ShowHint(str["二解邀请"])
        
        end --}
        
      Debug.ShowHint(str["原解邀请"])
      
      --}
      
    else --{
      
      return false
      
      end --}
      
    end --}
    
  str["效果"]:SetCondition(cache_1)
  
  str["效果"]:SetOperation(aux.NULL)
  
  Duel.RegisterEffect(str["效果"]
  , 0)
  
  end --}
  
fun["一_是否效果卡"] = function(card) --{
  
  for i = 1, #str["效果卡的种类表"] do --{
    
    if Card.IsType(card, str["效果卡的种类表"][i]) then --{
      
      return true
      end --}
      
    end --}
    
  if Card.IsType(card, TYPE_PENDULUM) then --{
    
    for i = 1, #str["无效果灵摆怪兽表"] do --{
      
      if Card.IsCode(card, str["无效果灵摆怪兽表"][i]) then --{
        
        --}
        
      else  --{
        
        return true
        
        end --}
        
      end --}
      
    end --}
    
  return false
  
  end --}
  
fun["一_开局添加手卡"] = function(str_1) --{

  str["开局添加手卡"] = true
  
  str["开局添加手卡的数量"] = str_1
  
  str["效果"] = Effect.GlobalEffect()
  
  str["效果"]:SetType(EFFECT_TYPE_FIELD
  + EFFECT_TYPE_CONTINUOUS)
  
  str["效果"]:SetCode(EVENT_ADJUST)
  
  str["效果"]:SetCondition(aux.TRUE)
  
  function cache_1(effect_event
  , player_who_activate_the_effect) --{
    
    str["玩家选定的卡"] = Duel.SelectMatchingCard(player_who_activate_the_effect
    , Card.IsAbleToHand
    , player_who_activate_the_effect
    , LOCATION_DECK
    , 0
    , str_1
    , str_1
    , nil)
    
    Duel.SendtoHand(str["玩家选定的卡"]
    , nil
    , REASON_RULE)
    
    effect_event:Reset()
    
    end --}
    
  str["效果"]:SetOperation(cache_1)
  
  Duel.RegisterEffect(str["效果"]
  , 0)
  
  end --}
  
fun["一_禁格"] = function(str_1) --{

  str["禁格"] = true
  
  str["禁格的数量"] = str_1
  
  str["效果"] = Effect.GlobalEffect()
  
  str["效果"]:SetCode(EFFECT_USE_EXTRA_MZONE)
  
  str["效果"]:SetValue(str_1)
  
  Duel.RegisterEffect(str["效果"],0)
  
  end --}

--第二层-------------------------------

local cache_1
local cache_2
local cache_3
local cache_4
local cache_5
local cache_6
local cache_7
local cache_8
local cache_9
local _
fun["Debug.ReloadFieldEnd"] = Debug.ReloadFieldEnd
Debug.ReloadFieldEnd = function(str_1) --{
  fun["Debug.ReloadFieldEnd"]()
  if str_1 then --{
    fun["一_随机抽卡"](str_1)
    end --}
  end --}
fun["二_印卡"] = function(str_1, str_2, str_3) --{
  if str_3 then --{
    --}
  else --{
    str_3 = str_2
    end --}
  Debug.ShowHint("点击对方额外卡组可以进行印卡。\n手卡只能印 "
  .. str_2
  .. " 张。\n最多可以印 "
  .. str_3
  .. " 张")
  str["效果"] = Effect.CreateEffect(str_1)
  str["当前印卡数"] = 1
  str["效果"]:SetType(EFFECT_TYPE_IGNITION)
  str["效果"]:SetProperty(EFFECT_FLAG_BOTH_SIDE
  + EFFECT_FLAG_UNCOPYABLE
  + EFFECT_FLAG_CANNOT_NEGATE
  + EFFECT_FLAG_CANNOT_DISABLE)
  str["效果"]:SetTarget(fun["一_该效果不能被连锁"])
  str["效果"]:SetRange(LOCATION_EXTRA)
  function print_hand(effect_event
  , player_who_activate_the_effect) --{
    announce_card = Duel.AnnounceCard(player_who_activate_the_effect)
    card = Duel.CreateToken(player_who_activate_the_effect
    , announce_card)
    if str["当前印卡数"] <= str_2 then --{
      str["当前印卡数"] = str["当前印卡数"] + 1
      Duel.SendtoHand(card,nil,REASON_RULE)
      --}
    else --{
      if str["当前印卡数"] <= str_3 then --{
        str["当前印卡数"] = str["当前印卡数"] + 1
        Duel.Remove(card,POS_FACEUP,REASON_RULE)
        Duel.SendtoDeck(card,player_who_activate_the_effect,0,REASON_RULE)
        --}
      else --{
        Debug.ShowHint("印卡过多！")
        effect_event:Reset()
        end --}
      end --}
    end --}
  str["效果"]:SetOperation(print_hand)
  str_1:RegisterEffect(str["效果"])
  end --}
fun["二_开局说明"] = function() --{
  str["这个残局的效果卡数量"] = Duel.GetMatchingGroupCount(fun["是否效果卡"]
  , 0
  , str["所有区域"]
  , str["所有区域"]
  , nil)
  str["超量素材组"] = Duel.GetOverlayGroup(0
  , LOCATION_MZONE
  , LOCATION_MZONE)
  for k in aux.Next(str["超量素材组"]) do --{
    if fun["一_是否效果卡"](k) then --{
      str["这个残局的效果卡数量"] = str["这个残局的效果卡数量"] + 1
      end --}
    end --}
  str["开局说明"] = str["这个残局的效果卡数量"]
  .. "卡 "
  .. str["规则"]
  if str["不洗牌"] == 0 then --{
    --}
  else --{
    str["开局说明"] = str["开局说明"] .. "伪洗牌 "
    end --}
  if str["无BP"] == 0 then --{
    str["开局说明"] = str["开局说明"] .. "无BP "
    end --}
  if str["无AI"] == 0 then --{
    str["开局说明"] = str["开局说明"] .. "无AI "
    end --}
  if str["开局添加手卡"] then --{
    str["开局说明"] = str["开局说明"]
    .. "选"
    .. str["开局添加手卡的数量"]
    .. "卡 "
    end --}
  if str["禁格"] then --{
    str["开局说明"] = str["开局说明"]
    .. "禁"
    .. str["禁格的数量"]
    .. "格 "
    end --}
  if str["随机抽卡的数量"] then --{
    str["开局说明"] = str["开局说明"]
    .. "抽"
    .. str["随机抽卡的数量"]
    .. "卡 "
    end --}
  Debug.ShowHint(str["开局说明"])
  end --}
--第三层-------------------------------
local cache_1
local cache_2
local cache_3
local cache_4
local cache_5
local cache_6
local cache_7
local cache_8
local cache_9

local _

fun["aux.BeginPuzzle"] = aux.BeginPuzzle
fun["Debug.ReloadFieldEnd"] = Debug.ReloadFieldEnd

Debug.ReloadFieldEnd = function(str_1) --{
  
aux.BeginPuzzle = function(str_1, str_2) --{
  fun["aux.BeginPuzzle"]()
  fun["Debug.ReloadFieldEnd"]()
  
  if str_1 then --{
    
    fun["一_开局添加手卡"](str_1)
    fun["一_随机抽卡"](str_1)
    
    end --}
    
  end --}

fun["二_印卡"] = function(str_1, str_2, str_3) --{
  
  if str_3 then --{
    
    --}
    
  else --{
    
    str_3 = str_2
    
    end --}
    
  Debug.ShowHint("点击对方额外卡组可以进行印卡。\n手卡只能印 "
  .. str_2
  .. " 张。\n最多可以印 "
  .. str_3
  .. " 张")
  
  str["效果"] = Effect.CreateEffect(str_1)
  
  str["当前印卡数"] = 1
  
  str["效果"]:SetType(EFFECT_TYPE_IGNITION)
  
  str["效果"]:SetProperty(EFFECT_FLAG_BOTH_SIDE
  + EFFECT_FLAG_UNCOPYABLE
  + EFFECT_FLAG_CANNOT_NEGATE
  + EFFECT_FLAG_CANNOT_DISABLE)
  
  str["效果"]:SetTarget(fun["一_该效果不能被连锁"])
  
  str["效果"]:SetRange(LOCATION_EXTRA)
  
  function print_hand(effect_event
  , player_who_activate_the_effect) --{
    
    announce_card = Duel.AnnounceCard(player_who_activate_the_effect)
    
    card = Duel.CreateToken(player_who_activate_the_effect
    , announce_card)
    
    if str["当前印卡数"] <= str_2 then --{
      
      str["当前印卡数"] = str["当前印卡数"] + 1
      
      Duel.SendtoHand(card,nil,REASON_RULE)
      
      --}
      
    else --{
      
      if str["当前印卡数"] <= str_3 then --{
        
        str["当前印卡数"] = str["当前印卡数"] + 1
        
        Duel.Remove(card,POS_FACEUP,REASON_RULE)
        
        Duel.SendtoDeck(card,player_who_activate_the_effect,0,REASON_RULE)
        
        --}
        
      else --{
        
        Debug.ShowHint("印卡过多！")
        
        effect_event:Reset()
        
        end --}
        
      end --}
      
    end --}
    
  str["效果"]:SetOperation(print_hand)
  
  str_1:RegisterEffect(str["效果"])
  
  end --}

fun["二_开局说明"] = function() --{
  
  str["这个残局的效果卡数量"] = Duel.GetMatchingGroupCount(fun["是否效果卡"]
  , 0
  , str["所有区域"]
  , str["所有区域"]
  , nil)
  
  str["超量素材组"] = Duel.GetOverlayGroup(0
  , LOCATION_MZONE
  , LOCATION_MZONE)
  
  for k in aux.Next(str["超量素材组"]) do --{
    
    if fun["一_是否效果卡"](k) then --{
      
      str["这个残局的效果卡数量"] = str["这个残局的效果卡数量"] + 1
      
      end --}
    end --}
      
    end --}
    
  str["开局说明"] = str["这个残局的效果卡数量"]
  .. "卡 "
  .. str["规则"]
  
  if str["不洗牌"] == 0 then --{
    
    --}
    
  else --{
    
    str["开局说明"] = str["开局说明"] .. "伪洗牌 "
    
    end --}
    
  if str["无BP"] == 0 then --{
    
    str["开局说明"] = str["开局说明"] .. "无BP "
    
    end --}
    
  if str["无AI"] == 0 then --{
    
    str["开局说明"] = str["开局说明"] .. "无AI "
    
    end --}
    
  if str["开局添加手卡"] then --{
    
    str["开局说明"] = str["开局说明"]
    .. "选"
    .. str["开局添加手卡的数量"]
    .. "卡 "
    
    end --}
    
  if str["禁格"] then --{
    
    str["开局说明"] = str["开局说明"]
    .. "禁"
    .. str["禁格的数量"]
    .. "格 "
    
    end --}
    
  if str["随机抽卡的数量"] then --{
    
    str["开局说明"] = str["开局说明"]
    .. "抽"
    .. str["随机抽卡的数量"]
    .. "卡 "
    end --}
    
  Debug.ShowHint(str["开局说明"])
  
  end --}
  
--第三层-------------------------------

local cache_1
local cache_2
local cache_3
local cache_4
local cache_5
local cache_6
local cache_7
local cache_8
local cache_9

local _

fun["aux.BeginPuzzle"] = aux.BeginPuzzle

aux.BeginPuzzle = function(str_1, str_2) --{
  
  fun["aux.BeginPuzzle"]()
  
  if str_1 then --{
    
    fun["一_开局添加手卡"](str_1)
    
    end --}
    
  if str_2 then --{
    
    fun["一_禁格"](str_2)
    
    end --}
    
  fun["二_开局说明"]()
  
  fun["一_通关邀请"]()
  
  fun["一_失败得分"]()
  
  end --}

--兼容层-------------------------------


fun["印卡"] = fun["二_印卡"]
fun["开局添加手卡"] = fun["一_开局添加手卡"]
fun["是否效果卡"] = fun["一_是否效果卡"]
fun["禁格"] = fun["一_禁格"]
fun["随机抽卡"] = fun["一_随机抽卡"]

package.path = [[.\lib_lua\?.lua;]] .. package.path
package.cpath = [[.\lib_dll\?.dll;]] .. package.cpath
_G.常用库 = require("puco")
local 八位通用大字集码转本机码库 = require("u8_to_a")
local d_1 = {}
function d_1.齐月程语件(o1)
  local k1_8
  k1_8 = 常用库.筛件径(o1, "%.lua$")
  k1_8 = 常用库.筛排(k1_8, 常用库.加前缀, [[stylua "]])
  k1_8 = 常用库.筛排(k1_8, 常用库.加后缀, [["]])
  常用库.筛排(k1_8, 常用库.办并说)
  end
d_1.齐月程语件(八位通用大字集码转本机码库.u8_to_a([[D:\001_user\主题\游戏王\模拟器一代\游戏王残局简化版\single]]))