游戏王残局简化版

Check-in [caceb3cbb9]
Login

Check-in [caceb3cbb9]

Overview
Comment:好
Downloads: Tarball | ZIP archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA3-256: caceb3cbb997e83a64e1fc4531e30353afca50a3408100104fe311ae33eebb6c
User & Date: 顽雨沉风 on 2024-02-13 05:13:09.574
Other Links: manifest | tags
Context
2024-02-13
05:13
好 check-in: f716a05270 user: 顽雨沉风 tags: trunk
05:13
好 check-in: caceb3cbb9 user: 顽雨沉风 tags: trunk
05:12
好 check-in: 0a84ce44ba user: 顽雨沉风 tags: trunk
Changes
Unified Diff Ignore Whitespace Patch
Modified 残局文料/lua_lib/常用库.lua from [b5f4d2d1ef] to [e42fc8e1eb].
︙︙
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89

    return u3, u4
  else
    return u1, u2
    end
  end
function s.历对(u1_0, u1, u2)
  local k1
  local h1_0, k2_0
  --~ 对
  h1_0 = {}
  for u3, u2_0 in pairs(u1_0) do
    --~ 键
    --~ 值
    k1, k2_0 = u1(u3, u2_0, u2)
    if k1 then
      h1_0[k1] = k2_0
    else
      end
    end
  return h1_0
  end
--~ 排中值
--~ 值类








|





|

|








67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89

    return u3, u4
  else
    return u1, u2
    end
  end
function s.历对(u1_0, u1, u2)
  local k1
  local h1_0, h2_0
  --~ 对
  h1_0 = {}
  for u3, u2_0 in pairs(u1_0) do
    --~ 键
    --~ 值
    k1, h2_0 = u1(u3, u2_0, u2)
    if k1 then
      h1_0[k1] = h2_0
    else
      end
    end
  return h1_0
  end
--~ 排中值
--~ 值类
︙︙
Modified 残局文料/lua_lib/游戏王_则拟器_原版_卡档.lua from [4d23b32b60] to [94cadb3b54]. 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21

local 字集库 = require("u8_to_a")
local 档库 = require("lsqlite3")
local 文库 = require(字集库.u8_to_a("算机_程语_月_基类_文"))
local 对库 = require(字集库.u8_to_a("算机_程语_月_基类_表_对"))
local s = {}
local 卡档
--~ 卡编
function s.取卡对(u1)
  local h1_0, k2_0
  --~ 卡文对
  h1_0 = s.取卡文(u1)
  --~ 卡数据对
  k2_0 = s.取卡数据(u1)
  return 对库.连两对(h1_0, k2_0)
  end
--~ 卡编
function s._取卡对(u1, u2)
  for o1_4 in 卡档:nrows(文库.连(u2, u1)) do
    return o1_4
    end
  end









|



|
|








1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21

local 字集库 = require("u8_to_a")
local 档库 = require("lsqlite3")
local 文库 = require(字集库.u8_to_a("算机_程语_月_基类_文"))
local 对库 = require(字集库.u8_to_a("算机_程语_月_基类_表_对"))
local s = {}
local 卡档
--~ 卡编
function s.取卡对(u1)
  local h1_0, h2_0
  --~ 卡文对
  h1_0 = s.取卡文(u1)
  --~ 卡数据对
  h2_0 = s.取卡数据(u1)
  return 对库.连两对(h1_0, h2_0)
  end
--~ 卡编
function s._取卡对(u1, u2)
  for o1_4 in 卡档:nrows(文库.连(u2, u1)) do
    return o1_4
    end
  end
︙︙
Modified 残局文料/副_容冗/游戏王_则拟器_原版_残局_局名_字段.lua from [75af1cbaa0] to [70de9b64f1].
︙︙
120
121
122
123
124
125
126
127
128
129

  local k1
  local h1_0
  --~ 字段对
  h1_0 = d.取字段对(o1_0)
  --~ 最大的字段名数量
  _, k1 = 历对取一库.筛最大值(h1_0)
  --~ 最高频字段名对
  k2_0 = 历对库.历对(h1_0, 历对库.全等筛值, k1)
  return 历对取一库.筛最短键(k2_0)
  end








|
|


120
121
122
123
124
125
126
127
128
129

  local k1
  local h1_0
  --~ 字段对
  h1_0 = d.取字段对(o1_0)
  --~ 最大的字段名数量
  _, k1 = 历对取一库.筛最大值(h1_0)
  --~ 最高频字段名对
  h2_0 = 历对库.历对(h1_0, 历对库.全等筛值, k1)
  return 历对取一库.筛最短键(h2_0)
  end
Modified 残局文料/游戏王_则拟器_原版_残局_局名_改名.lua from [6e42b050e5] to [58c0e60ac5].
︙︙
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153

  if k1 == o1 then
  else
    写文件库.写文件(o3, k1)
    end
  end
--~ 目对
function d.残局改名(o1_0)
  local h1_0, k2_0, k3_0, k4_0, k5_0, k6_0, k7_0, k8_0, k9_0
  local k10_0, k11_0, k12_0
  --~ 文件名排
  h1_0 = 历文库.历文(o1_0.文件目, 文件系库.dir)
  h1_0 = 历排库.历排(h1_0, 后缀库.全筛后缀, ".lua")
  --~ 文件排
  k2_0 = 历排库.历排(h1_0, 后缀库.全筛后缀, ".lua")
  k2_0 = 历排库.历排(k2_0, 前缀库.加前缀, o1_0.文件目)
  k2_0 = 历排库.历排(k2_0, 读文件库.读文件)
  k2_0 = 历排库.历排(k2_0, 删注库.删注)
  --~ 则数排
  k3_0 = 历排库.历排(k2_0, d.局筛则数)
  --~ 各文件的卡编排
  k4_0 = 历排库.历排(k2_0, d.局筛卡编)
  --~ 各文件的卡对排
  k5_0 = 历排库.历排(k4_0, d.取卡对_一维)
  --~ 有效果卡的卡对排
  k6_0 = 历排库.历排(k5_0, d.筛有效果卡)
  --~ 有效果卡的张数排
  k7_0 = 历排库.历排(k6_0, table.maxn)
  --~ 血排
  k11_0 = 历排库.历排(k2_0, d.局筛血)
  --~ 荐名排
  k8_0 = 历排库.历二排(k6_0, k11_0, d.荐名)
  --~ 新名排
  k9_0 = 历排库.历排(h1_0, string.gsub, 字集库.u8_to_a(文库.连("　", ".+")), "")
  --~ 编号排
  k10_0 = 历排库.历排(h1_0, string.gsub, 字集库.u8_to_a(文库.连("　", ".+")), "")
  k9_0 = 历排库.历排(k9_0, string.gsub, 文库.连("%.", "lua", "$"), "")








|





|
|
|
|

|

|







|








118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153

  if k1 == o1 then
  else
    写文件库.写文件(o3, k1)
    end
  end
--~ 目对
function d.残局改名(o1_0)
  local h1_0, h2_0, k3_0, k4_0, k5_0, k6_0, k7_0, k8_0, k9_0
  local k10_0, k11_0, k12_0
  --~ 文件名排
  h1_0 = 历文库.历文(o1_0.文件目, 文件系库.dir)
  h1_0 = 历排库.历排(h1_0, 后缀库.全筛后缀, ".lua")
  --~ 文件排
  h2_0 = 历排库.历排(h1_0, 后缀库.全筛后缀, ".lua")
  h2_0 = 历排库.历排(h2_0, 前缀库.加前缀, o1_0.文件目)
  h2_0 = 历排库.历排(h2_0, 读文件库.读文件)
  h2_0 = 历排库.历排(h2_0, 删注库.删注)
  --~ 则数排
  k3_0 = 历排库.历排(h2_0, d.局筛则数)
  --~ 各文件的卡编排
  k4_0 = 历排库.历排(h2_0, d.局筛卡编)
  --~ 各文件的卡对排
  k5_0 = 历排库.历排(k4_0, d.取卡对_一维)
  --~ 有效果卡的卡对排
  k6_0 = 历排库.历排(k5_0, d.筛有效果卡)
  --~ 有效果卡的张数排
  k7_0 = 历排库.历排(k6_0, table.maxn)
  --~ 血排
  k11_0 = 历排库.历排(h2_0, d.局筛血)
  --~ 荐名排
  k8_0 = 历排库.历二排(k6_0, k11_0, d.荐名)
  --~ 新名排
  k9_0 = 历排库.历排(h1_0, string.gsub, 字集库.u8_to_a(文库.连("　", ".+")), "")
  --~ 编号排
  k10_0 = 历排库.历排(h1_0, string.gsub, 字集库.u8_to_a(文库.连("　", ".+")), "")
  k9_0 = 历排库.历排(k9_0, string.gsub, 文库.连("%.", "lua", "$"), "")
︙︙