游戏王残局简化版

Check-in [89f423ff38]
Login

Check-in [89f423ff38]

Overview
Comment:好
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA3-256: 89f423ff38ac8e199fb6bd292be3f8b4a09ed4c17f97598fc4607941c07fda18
User & Date: 顽雨沉风 on 2024-02-13 07:31:23
Other Links: manifest | tags
Context
2024-02-13
07:43
好 check-in: c38c99102f user: 顽雨沉风 tags: trunk
07:31
好 check-in: 89f423ff38 user: 顽雨沉风 tags: trunk
07:29
好 check-in: f1bea6a75e user: 顽雨沉风 tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Modified 残局文料/lua_lib/ipml_mj_ysaf.lua from [724434df44] to [2536b4bb7c].

︙︙
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81

--~ require(字集码互转库.u8_to_a("程语_月_基类_字串_内置库_加多"))
--~ 程语_月_标准库_仿照_加多_多编码_大字集_通用
function d_5.导入库_通用大字集态_八位态(modname)
  return require(字集码互转库.u8_to_a(modname))
  end
--~ local 
do
  local k1 = 0
  function _G.递增示()
    k1 = k1 + 1
    print(k1)
    end
  end
--~ do
--~ local k1 = os.execute
--~ function _G.os.execute(command)
--~ return k1(字集码互转库.u2a(command))
--~ end
--~ end
function d_5.读件(u1, u2)
  local k1
  local k1_3
  k1_3 = io.open(u1, u2 or "r")
  k1 = k1_3:read("a")
  k1_3:flush()
  k1_3:close()
  return k1
  end
function d_5.读件排(o1_9, u1)
  local k1_9
  k1_9 = {}
  for u2 = 1, #o1_9 do
    k1_9[#k1_9 + 1] = d_5.读件(o1_9[u2], u1)
    end
  return k1_9
  end
function d_5.写件(u1, u2, u3)
  local k1_3
  k1_3 = io.open(u1, u3 or "w")
  k1_3:write(u2)
  k1_3:flush()
  k1_3:close()
  end
function d_5.写件_一维(u1, o1_9, u2, u3)
  local k1 = table.concat(o1_9, "\n")
  if u3 then
    k1 = u3(k1)
    end
  d_5.写件(u1, k1, u2)
  end
function d_5.删制表符(u1)
  return u1:gsub("\t", "")
  end
--~ function d_5.删空白字(u1)
--~ return u1:gsub("%s", "")
--~ end








|

|
|



|

|



|


|


|

















|

|

|








26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81

--~ require(字集码互转库.u8_to_a("程语_月_基类_字串_内置库_加多"))
--~ 程语_月_标准库_仿照_加多_多编码_大字集_通用
function d_5.导入库_通用大字集态_八位态(modname)
  return require(字集码互转库.u8_to_a(modname))
  end
--~ local 
do
  local h1 = 0
  function _G.递增示()
    h1 = h1 + 1
    print(h1)
    end
  end
--~ do
--~ local h1 = os.execute
--~ function _G.os.execute(command)
--~ return h1(字集码互转库.u2a(command))
--~ end
--~ end
function d_5.读件(u1, u2)
  local h1
  local k1_3
  k1_3 = io.open(u1, u2 or "r")
  h1 = k1_3:read("a")
  k1_3:flush()
  k1_3:close()
  return h1
  end
function d_5.读件排(o1_9, u1)
  local k1_9
  k1_9 = {}
  for u2 = 1, #o1_9 do
    k1_9[#k1_9 + 1] = d_5.读件(o1_9[u2], u1)
    end
  return k1_9
  end
function d_5.写件(u1, u2, u3)
  local k1_3
  k1_3 = io.open(u1, u3 or "w")
  k1_3:write(u2)
  k1_3:flush()
  k1_3:close()
  end
function d_5.写件_一维(u1, o1_9, u2, u3)
  local h1 = table.concat(o1_9, "\n")
  if u3 then
    h1 = u3(h1)
    end
  d_5.写件(u1, h1, u2)
  end
function d_5.删制表符(u1)
  return u1:gsub("\t", "")
  end
--~ function d_5.删空白字(u1)
--~ return u1:gsub("%s", "")
--~ end
︙︙

Modified 残局文料/lua_lib/常用库.lua from [6938a4459e] to [b4873cd7e9].

︙︙
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89

    h1_0[#h1_0 + 1] = u5
    end
  return h1_0
  end
--~ 排
--~ 能
function s.历排取一(u1_0, u1)
  local k1
  for u2 = 1, #u1_0 do
    --~ 值
    k1 = s.历排取一的模(k1, u1_0[u2], u1)
    end
  return k1
  end
--~ 值
--~ 排中值
function s.历排取一的模(u1, u2, u3)
  if u1 == nil then
    return u2
  elseif u3(u1, u2) then
    return u2
  else
    return u1
    end
  end
--~ 对
--~ 能
function s.历对取一(u1_0, u1)
  local k1, k2
  for u2, u2_0 in pairs(u1_0) do
    --~ 键
    --~ 值
    k1, k2 = s.历对取一的模(k1, k2, u2, u2_0, u1)
    end
  return k1, k2
  end
function s.历对取一的模(u1, u2, u3, u4, u5)
  if u1 == nil then
    return u3, u4
  elseif u5(u1, u2, u3, u4) then
    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
--~ 排中值
--~ 值类








|


|

|















|



|

|











|






|
|
|








27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89

    h1_0[#h1_0 + 1] = u5
    end
  return h1_0
  end
--~ 排
--~ 能
function s.历排取一(u1_0, u1)
  local h1
  for u2 = 1, #u1_0 do
    --~ 值
    h1 = s.历排取一的模(h1, u1_0[u2], u1)
    end
  return h1
  end
--~ 值
--~ 排中值
function s.历排取一的模(u1, u2, u3)
  if u1 == nil then
    return u2
  elseif u3(u1, u2) then
    return u2
  else
    return u1
    end
  end
--~ 对
--~ 能
function s.历对取一(u1_0, u1)
  local h1, h2
  for u2, u2_0 in pairs(u1_0) do
    --~ 键
    --~ 值
    h1, h2 = s.历对取一的模(h1, h2, u2, u2_0, u1)
    end
  return h1, h2
  end
function s.历对取一的模(u1, u2, u3, u4, u5)
  if u1 == nil then
    return u3, u4
  elseif u5(u1, u2, u3, u4) then
    return u3, u4
  else
    return u1, u2
    end
  end
function s.历对(u1_0, u1, u2)
  local h1
  local h1_0, h2_0
  --~ 对
  h1_0 = {}
  for u3, u2_0 in pairs(u1_0) do
    --~ 键
    --~ 值
    h1, h2_0 = u1(u3, u2_0, u2)
    if h1 then
      h1_0[h1] = h2_0
    else
      end
    end
  return h1_0
  end
--~ 排中值
--~ 值类
︙︙
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169

    k1_9[u1] = s.加前缀(k1_9[u1], u1_0.令行前缀)
    s.办令(k1_9[u1])
    end
  end
--~ 文件路
--~ 式
function s.读文件(u1, u2)
  local k1
  local k1_3
  --~ 文件
  k1_3 = io.open(u1, u2 or "r")
  --~ 文
  k1 = k1_3:read("a")
  k1_3:flush()
  k1_3:close()
  return k1
  end
--~ 常量排
function s.加对限(u1_0)
  table.insert(u1_0, 1, "local h1_0 = {}")
  table.insert(u1_0, "return h1_0")
  return table.concat(u1_0, "\n")
  end








|




|


|








147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169

    k1_9[u1] = s.加前缀(k1_9[u1], u1_0.令行前缀)
    s.办令(k1_9[u1])
    end
  end
--~ 文件路
--~ 式
function s.读文件(u1, u2)
  local h1
  local k1_3
  --~ 文件
  k1_3 = io.open(u1, u2 or "r")
  --~ 文
  h1 = k1_3:read("a")
  k1_3:flush()
  k1_3:close()
  return h1
  end
--~ 常量排
function s.加对限(u1_0)
  table.insert(u1_0, 1, "local h1_0 = {}")
  table.insert(u1_0, "return h1_0")
  return table.concat(u1_0, "\n")
  end
︙︙
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215

    return tonumber(u1_0), u2_0
  else
    return u1_0, u2_0
    end
  end
do
  --~ 加数
  local k1 = 0
  function s.递增()
    k1 = k1 + 1
    return k1
    end
  end
--~ 左加数
--~ 右加数
function s.加法(u1, u2)
  return u1 + u2
  end








|

|
|








198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215

    return tonumber(u1_0), u2_0
  else
    return u1_0, u2_0
    end
  end
do
  --~ 加数
  local h1 = 0
  function s.递增()
    h1 = h1 + 1
    return h1
    end
  end
--~ 左加数
--~ 右加数
function s.加法(u1, u2)
  return u1 + u2
  end
︙︙

Modified 残局文料/lua_lib/游戏王_则拟器_原版_卡档.lua from [94cadb3b54] to [1f1a535fe5].

︙︙
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44

--~ 卡编
function s._取卡对(u1, u2)
  for o1_4 in 卡档:nrows(文库.连(u2, u1)) do
    return o1_4
    end
  end
do
  local k1
  --~ 模
  k1 = "select * from texts where id = "
  --~ 卡编
  function s.取卡文(u1)
    return s._取卡对(u1, k1)
    end
  end
do
  local k1
  --~ 模
  k1 = "select * from datas where id = "
  --~ 卡编
  function s.取卡数据(u1)
    return s._取卡对(u1, k1)
    end
  end
--~ 卡档路
function s.启卡档(u1)
  卡档 = 档库.open(u1)
  end
return s








|

|


|



|

|


|








16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44

--~ 卡编
function s._取卡对(u1, u2)
  for o1_4 in 卡档:nrows(文库.连(u2, u1)) do
    return o1_4
    end
  end
do
  local h1
  --~ 模
  h1 = "select * from texts where id = "
  --~ 卡编
  function s.取卡文(u1)
    return s._取卡对(u1, h1)
    end
  end
do
  local h1
  --~ 模
  h1 = "select * from datas where id = "
  --~ 卡编
  function s.取卡数据(u1)
    return s._取卡对(u1, h1)
    end
  end
--~ 卡档路
function s.启卡档(u1)
  卡档 = 档库.open(u1)
  end
return s

Modified 残局文料/lua_lib/程序语言_月_基础类型_字串_前缀与后缀.lua from [d556c849ae] to [79ee155bbd]. 

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

--~ local 历排库 = 常用库.导入库_通用大字集态_八位态("程序语言_月_基础类型_序排_逐一")
local d_4 = {}
--~ 加
function d_4.加前缀(u1, u2)
  return (u2 or "") .. u1
  end
function d_4.加后缀(u1, u2)
  return u1 .. (u2 or "")
  end
--~ 加_分_确保
--~ function d_4.加前缀_确保态(u1, u2, u3)
--~ 筛文库.返全文(u1, )
--~ local k1
--~ k1 = d_4.删前缀(u1, u2, u3)
--~ return u2 .. u1
--~ end
--~ function d_4.加前缀与后缀(u1, u2, u3)
  --~ u1 = d_4.加后缀(u1, u3)
  --~ return d_4.加前缀(u1, u2)
  --~ end
--~ function d_4.逐一加前缀(u1, u2)













|
|








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

--~ local 历排库 = 常用库.导入库_通用大字集态_八位态("程序语言_月_基础类型_序排_逐一")
local d_4 = {}
--~ 加
function d_4.加前缀(u1, u2)
  return (u2 or "") .. u1
  end
function d_4.加后缀(u1, u2)
  return u1 .. (u2 or "")
  end
--~ 加_分_确保
--~ function d_4.加前缀_确保态(u1, u2, u3)
--~ 筛文库.返全文(u1, )
--~ local h1
--~ h1 = d_4.删前缀(u1, u2, u3)
--~ return u2 .. u1
--~ end
--~ function d_4.加前缀与后缀(u1, u2, u3)
  --~ u1 = d_4.加后缀(u1, u3)
  --~ return d_4.加前缀(u1, u2)
  --~ end
--~ function d_4.逐一加前缀(u1, u2)
︙︙

Modified 残局文料/lua_lib/程语_月_基类_字串_内置库_加多.lua from [a728f1d5af] to [ce9c5bb88f]. 

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

function string:lstrip()
  return self:gsub("^%s+", "")
  end
function string:rstrip()
  return self:gsub("%s+$", "")
  end
function string:strip()
  local k1
  k1 = self:lstrip()
  return k1:rstrip()
  end
function string:startswith(text)
  if self:sub(1, #text) == text then
    return self
    end
  end
function string:endswith(text)








|
|
|








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

function string:lstrip()
  return self:gsub("^%s+", "")
  end
function string:rstrip()
  return self:gsub("%s+$", "")
  end
function string:strip()
  local h1
  h1 = self:lstrip()
  return h1:rstrip()
  end
function string:startswith(text)
  if self:sub(1, #text) == text then
    return self
    end
  end
function string:endswith(text)
︙︙

Modified 残局文料/lua_lib/程语_月_基类_字串_始缀与终缀.lua from [24d514f667] to [2318f1c0d7]. 

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

local d_3 = {}
--~ 加
function d_3.加始缀_基态(u1, u2)
  return u2 .. u1
  end
function d_3.加终缀_基态(u1, u2)
  return u1 .. u2
  end
--~ 加_分_确保
--~ function d_3.加前缀_确保态(u1, u2, u3)
--~ 筛文库.返全文(u1, )
--~ local k1
--~ k1 = d_3.删前缀(u1, u2, u3)
--~ return u2 .. u1
--~ end
--~ 减
function d_3.减始缀_基态(u1, u2)
  if u1:startswith(u2) then
    return u1:sub(#u2 + 1)
    end












|
|








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

local d_3 = {}
--~ 加
function d_3.加始缀_基态(u1, u2)
  return u2 .. u1
  end
function d_3.加终缀_基态(u1, u2)
  return u1 .. u2
  end
--~ 加_分_确保
--~ function d_3.加前缀_确保态(u1, u2, u3)
--~ 筛文库.返全文(u1, )
--~ local h1
--~ h1 = d_3.删前缀(u1, u2, u3)
--~ return u2 .. u1
--~ end
--~ 减
function d_3.减始缀_基态(u1, u2)
  if u1:startswith(u2) then
    return u1:sub(#u2 + 1)
    end
︙︙

Modified 残局文料/lua_lib/程语_月_基类_文_内置库_加多.lua from [2e0c2f1d7c] to [92e6d199fd]. 

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

function string:lstrip()
  return self:gsub("^%s+", "")
  end
function string:rstrip()
  return self:gsub("%s+$", "")
  end
function string:strip()
  local k1
  k1 = self:lstrip()
  return k1:rstrip()
  end
function string:startswith(text)
  local size = text:len()
  if self:sub(1, size) == text then
    return self
    end
  end








|
|
|








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

function string:lstrip()
  return self:gsub("^%s+", "")
  end
function string:rstrip()
  return self:gsub("%s+$", "")
  end
function string:strip()
  local h1
  h1 = self:lstrip()
  return h1:rstrip()
  end
function string:startswith(text)
  local size = text:len()
  if self:sub(1, size) == text then
    return self
    end
  end
︙︙

Modified 残局文料/lua_lib/程语_月_基类_文_始缀与终缀.lua from [7b01b4f700] to [aaae2c4499].

︙︙
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26

  end
function d_3.加终缀_基态(u1, u2)
  return u1 .. u2
  end
--~ 加_分_确保
--~ function d_3.加前缀_确保态(u1, u2, u3)
--~ 筛文库.返全文(u1, )
--~ local k1
--~ k1 = d_3.删前缀(u1, u2, u3)
--~ return u2 .. u1
--~ end
function d_3.加前缀与后缀_基态(u1, u2, u3)
  return u2 .. u1 .. (u3 or "")
  end
function d_3.加始缀与终缀_基态(u1, u2, u3)
  return u2 .. u1 .. (u3 or "")








|
|








11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26

  end
function d_3.加终缀_基态(u1, u2)
  return u1 .. u2
  end
--~ 加_分_确保
--~ function d_3.加前缀_确保态(u1, u2, u3)
--~ 筛文库.返全文(u1, )
--~ local h1
--~ h1 = d_3.删前缀(u1, u2, u3)
--~ return u2 .. u1
--~ end
function d_3.加前缀与后缀_基态(u1, u2, u3)
  return u2 .. u1 .. (u3 or "")
  end
function d_3.加始缀与终缀_基态(u1, u2, u3)
  return u2 .. u1 .. (u3 or "")
︙︙

Modified 残局文料/lua_lib/算机_基统_窗群_件系_小件_读.lua from [c7960c83aa] to [207aa5ccc8]. 

1
2
3
4
5
6
7
8
9
10
11

local d_2 = {}
function d_2.读件(u1, u2)
  local k1
  local k1_3
  k1_3 = io.open(u1, u2 or "r")
  k1 = k1_3:read("a")
  k1_3:flush()
  k1_3:close()
  return k1
  end
return d_2



|


|


|



1
2
3
4
5
6
7
8
9
10
11

local d_2 = {}
function d_2.读件(u1, u2)
  local h1
  local k1_3
  k1_3 = io.open(u1, u2 or "r")
  h1 = k1_3:read("a")
  k1_3:flush()
  k1_3:close()
  return h1
  end
return d_2

Modified 残局文料/lua_lib/算机_基统_窗群_文件系_小文件_读.lua from [b5f76297a1] to [fb077e5cf2]. 

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

local s = {}
--~ 文件路
--~ 式
function s.读文件(u1, u2)
  local k1
  local k1_3
  --~ 文件
  k1_3 = io.open(u1, u2 or "r")
  --~ 文
  k1 = k1_3:read("a")
  k1_3:flush()
  k1_3:close()
  return k1
  end
return s





|




|


|



1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

local s = {}
--~ 文件路
--~ 式
function s.读文件(u1, u2)
  local h1
  local k1_3
  --~ 文件
  k1_3 = io.open(u1, u2 or "r")
  --~ 文
  h1 = k1_3:read("a")
  k1_3:flush()
  k1_3:close()
  return h1
  end
return s

Modified 残局文料/lua_lib/算机_程语_月_基类_数.lua from [285a4fcd5d] to [e8a621d4cd]. 

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40

local 字集库 = require("u8_to_a")
local 基算库 = require(字集库.u8_to_a("算机_程语_月_基类_数_基算"))
local math = math
local string = string
local s = {}
-- 指数
--~ 左加数
--~ 右加数
function s.指数(u1, u2, u3)
  local k1
  if u3 then
    --~ 指数次
    k1 = 基算库.除法(u2, u3)
    return u1 ^ k1
  else
    return u1 ^ u2
    end
  end
-- 指数次
--~ 数
--~ 指数底
function s.指数次(u1, u2)
  local k1
  --~ 指数次
  k1 = math.log(u1) / math.log(u2)
  return k1
  end
--~ 数
function s.二底指数次(u1)
  local k1
  --~ 指数次
  _, k1 = math.frexp(u1)
  return k1
  end
-- 向大取整和向小取整
--~ 数
function s.向小取整(u1)
  return math.floor(u1)
  end
-- 几位整数和几位小数










|


|
|








|

|
|



|

|
|








1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40

local 字集库 = require("u8_to_a")
local 基算库 = require(字集库.u8_to_a("算机_程语_月_基类_数_基算"))
local math = math
local string = string
local s = {}
-- 指数
--~ 左加数
--~ 右加数
function s.指数(u1, u2, u3)
  local h1
  if u3 then
    --~ 指数次
    h1 = 基算库.除法(u2, u3)
    return u1 ^ h1
  else
    return u1 ^ u2
    end
  end
-- 指数次
--~ 数
--~ 指数底
function s.指数次(u1, u2)
  local h1
  --~ 指数次
  h1 = math.log(u1) / math.log(u2)
  return h1
  end
--~ 数
function s.二底指数次(u1)
  local h1
  --~ 指数次
  _, h1 = math.frexp(u1)
  return h1
  end
-- 向大取整和向小取整
--~ 数
function s.向小取整(u1)
  return math.floor(u1)
  end
-- 几位整数和几位小数
︙︙
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116

    end
  end
-- 最值
function s.最大值()
  return math.huge
  end
function s.最小值()
  local k1
  --~ 最大值
  k1 = s.最大值()
  return s.负数(k1)
  end
--~ 数
function s.是否最值(u1)
  if u1 == s.最大值()
  or u1 == s.最小值() then
    return true
  else
    end
  end
--~ 数
function s.是否无效值(u1)
  if u1 == u1 then
  else
    return true
    end
  end
--~ 数
function s.是否错值(u1)
  local k1, k2
  --~ 是否最值
  k1 = s.是否最值(u1)
  --~ 是否无效值
  k2 = s.是否无效值(u1)
  return k1 or k2
  end
return s








|

|
|


















|

|

|
|



80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116

    end
  end
-- 最值
function s.最大值()
  return math.huge
  end
function s.最小值()
  local h1
  --~ 最大值
  h1 = s.最大值()
  return s.负数(h1)
  end
--~ 数
function s.是否最值(u1)
  if u1 == s.最大值()
  or u1 == s.最小值() then
    return true
  else
    end
  end
--~ 数
function s.是否无效值(u1)
  if u1 == u1 then
  else
    return true
    end
  end
--~ 数
function s.是否错值(u1)
  local h1, h2
  --~ 是否最值
  h1 = s.是否最值(u1)
  --~ 是否无效值
  h2 = s.是否无效值(u1)
  return h1 or h2
  end
return s

Modified 残局文料/lua_lib/算机_程语_月_基类_能_传能_历_基类_表_对_取一.lua from [d2f5cf4fea] to [9c29348261]. 

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

local s = {}
-- 启
--~ 对
--~ 能
function s.历对(u1_0, u1)
  local k1, k2
  for u2, u3 in pairs(u1_0) do
    --~ 键
    --~ 值
    k1, k2 = s.模(k1, k2, u2, u3, u1)
    end
  return k1, k2
  end
-- 模
--~ 键
--~ 值
--~ 对中键
--~ 对中值
--~ 能






|



|

|








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

local s = {}
-- 启
--~ 对
--~ 能
function s.历对(u1_0, u1)
  local h1, h2
  for u2, u3 in pairs(u1_0) do
    --~ 键
    --~ 值
    h1, h2 = s.模(h1, h2, u2, u3, u1)
    end
  return h1, h2
  end
-- 模
--~ 键
--~ 值
--~ 对中键
--~ 对中值
--~ 能
︙︙

Modified 残局文料/lua_lib/算机_程语_月_基类_能_传能_历_基类_表_对_取全.lua from [2bf6597241] to [b87ad1d4f0]. 

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

local s = {}
-- 全与局
--~ 对
--~ 能
--~ 入参3
function s.历对(u1_0, u1, u2)
  local k1, k2
  local h1_0
  --~ 对
  h1_0 = {}
  for u3, u4 in pairs(u1_0) do
    --~ 键
    --~ 值
    k1, k2 = u1(u3, u4, u2)
    if k1 then
      h1_0[k1] = k2
    else
      end
    end
  return h1_0
  end
--~ 对
--~ 能







|






|
|
|








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

local s = {}
-- 全与局
--~ 对
--~ 能
--~ 入参3
function s.历对(u1_0, u1, u2)
  local h1, h2
  local h1_0
  --~ 对
  h1_0 = {}
  for u3, u4 in pairs(u1_0) do
    --~ 键
    --~ 值
    h1, h2 = u1(u3, u4, u2)
    if h1 then
      h1_0[h1] = h2
    else
      end
    end
  return h1_0
  end
--~ 对
--~ 能
︙︙

Modified 残局文料/lua_lib/算机_程语_月_基类_能_传能_历_基类_表_排_取一.lua from [e537e25680] to [4a0437f74d]. 

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

local s = {}
-- 启
--~ 排
--~ 能
function s.历排(u1_0, u1)
  local k1
  for u2 = 1, #u1_0 do
    --~ 值
    k1 = s.模(k1, u1_0[u2], u1)
    end
  return k1
  end
-- 模
--~ 值
--~ 排中值
function s.模(u1, u2, u3)
  if u1 == nil then
    return u2






|


|

|








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

local s = {}
-- 启
--~ 排
--~ 能
function s.历排(u1_0, u1)
  local h1
  for u2 = 1, #u1_0 do
    --~ 值
    h1 = s.模(h1, u1_0[u2], u1)
    end
  return h1
  end
-- 模
--~ 值
--~ 排中值
function s.模(u1, u2, u3)
  if u1 == nil then
    return u2
︙︙

Modified 残局文料/lua_lib/算机_程语_月_基类_能_传能_历_基类_表_排_取联.lua from [bf84a6cc83] to [727b5b6b2a]. 

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

local s = {}
-- 启
--~ 排
--~ 办排中值的能
--~ 入参2
--~ 入参3
function s.历排(u1_0, u1, u2, u3, u4)
  local k1
  --~ 和
  k1 = u1_0[1] or 0
  for u5 = 2, #u1_0 do
    k1 = u1(k1, u2(u1_0[u5], u3, u4))
    end
  return k1
  end
return s








|

|

|

|



1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

local s = {}
-- 启
--~ 排
--~ 办排中值的能
--~ 入参2
--~ 入参3
function s.历排(u1_0, u1, u2, u3, u4)
  local h1
  --~ 和
  h1 = u1_0[1] or 0
  for u5 = 2, #u1_0 do
    h1 = u1(h1, u2(u1_0[u5], u3, u4))
    end
  return h1
  end
return s

Modified 残局文料/lua_lib/算机_程语_月_基类_能_传能_历_基类_表_排_相加.lua from [ea2b92dd15] to [6867c2fd27]. 

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

local s = {}
-- 启
-- 启
--~ 排
--~ 办排中值的能
--~ 入参2
--~ 入参3
--~ 入参4
function s.历排(u1_0, u1, u2, u3, u4)
  local k1
  --~ 和
  k1 = 0
  for u5 = 1, #u1_0 do
    k1 = k1 + u1(u1_0[u5], u2, u3, u4)
    end
  return k1
  end
return s










|

|

|

|



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

local s = {}
-- 启
-- 启
--~ 排
--~ 办排中值的能
--~ 入参2
--~ 入参3
--~ 入参4
function s.历排(u1_0, u1, u2, u3, u4)
  local h1
  --~ 和
  h1 = 0
  for u5 = 1, #u1_0 do
    h1 = h1 + u1(u1_0[u5], u2, u3, u4)
    end
  return h1
  end
return s

Modified 残局文料/lua_lib/算机_程语_月_基类_表_对.lua from [a22520ace8] to [321839d017].

︙︙
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28

    h1_0[u1] = u2
    end
  return h1_0
  end
-- 对长
--~ 对
function s.对长(u1_0)
  local k1
  --~ 对长
  k1 = 0
  for _ in pairs(u1_0) do
    k1 = k1 + 1
    end
  return k1
  end
return s








|

|

|

|



13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28

    h1_0[u1] = u2
    end
  return h1_0
  end
-- 对长
--~ 对
function s.对长(u1_0)
  local h1
  --~ 对长
  h1 = 0
  for _ in pairs(u1_0) do
    h1 = h1 + 1
    end
  return h1
  end
return s

Modified 残局文料/lua_lib/算机_程语_月_基类_表_排_基类_数.lua from [6341b3938a] to [bad3bd57fa]. 

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55

local 字集库 = require("u8_to_a")
local 历排取联库 = require(字集库.u8_to_a("算机_程语_月_基类_能_传能_历_基类_表_排_取联"))
local 返参库 = require(字集库.u8_to_a("算机_程语_月_基类_能_返参"))
local 基算库 = require(字集库.u8_to_a("算机_程语_月_基类_数_基算"))
local 历排库 = require(字集库.u8_to_a("算机_程语_月_基类_能_传能_历_基类_表_排_取全"))
local 数库 = require(字集库.u8_to_a("算机_程语_月_基类_数"))
local s = {}
--~ 排
function s.总和(u1_0)
  return 历排取联库.历排(u1_0, 基算库.加法, 返参库.一参)
  end
--~ 排
function s.均值(u1_0)
  local k1
  --~ 总和
  k1 = s.总和(u1_0)
  return 基算库.除法(k1, #u1_0)
  end
--~ 排
--~ 标准值
function s.方差(u1_0, u1)
  local k1, k2
  local h1_0
  --~ 标准值
  k1 = u1 or s.均值(u1_0)
  --~ 排，用于算方差
  h1_0 = 历排库.历排(u1_0, 基算库.减法, k1)
  h1_0 = 历排库.历排(h1_0, 数库.指数, 2)
  --~ 方差
  k2 = 基算库.除法(s.总和(h1_0), #h1_0)
  return k2
  end
--~ 排
--~ 标准值
function s.标准差(u1_0, u1)
  local k1
  --~ 方差
  k1 = s.方差(u1_0, u1)
  return 数库.指数(k1, 1, 2)
  end
--~ 排
--~ 标准值
function s.均差(u1_0, u1)
  local k1, k2
  local h1_0
  --~ 标准值
  k1 = u1 or s.均值(u1_0)
  --~ 排，用于算均差
  h1_0 = 历排库.历排(u1_0, 基算库.减法, k1)
  h1_0 = 历排库.历排(h1_0, 数库.正数)
  --~ 均差
  k2 = 基算库.除法(s.总和(h1_0), #h1_0)
  return k2
  end
return s














|

|
|




|


|

|


|
|




|

|
|




|


|

|


|
|



1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55

local 字集库 = require("u8_to_a")
local 历排取联库 = require(字集库.u8_to_a("算机_程语_月_基类_能_传能_历_基类_表_排_取联"))
local 返参库 = require(字集库.u8_to_a("算机_程语_月_基类_能_返参"))
local 基算库 = require(字集库.u8_to_a("算机_程语_月_基类_数_基算"))
local 历排库 = require(字集库.u8_to_a("算机_程语_月_基类_能_传能_历_基类_表_排_取全"))
local 数库 = require(字集库.u8_to_a("算机_程语_月_基类_数"))
local s = {}
--~ 排
function s.总和(u1_0)
  return 历排取联库.历排(u1_0, 基算库.加法, 返参库.一参)
  end
--~ 排
function s.均值(u1_0)
  local h1
  --~ 总和
  h1 = s.总和(u1_0)
  return 基算库.除法(h1, #u1_0)
  end
--~ 排
--~ 标准值
function s.方差(u1_0, u1)
  local h1, h2
  local h1_0
  --~ 标准值
  h1 = u1 or s.均值(u1_0)
  --~ 排，用于算方差
  h1_0 = 历排库.历排(u1_0, 基算库.减法, h1)
  h1_0 = 历排库.历排(h1_0, 数库.指数, 2)
  --~ 方差
  h2 = 基算库.除法(s.总和(h1_0), #h1_0)
  return h2
  end
--~ 排
--~ 标准值
function s.标准差(u1_0, u1)
  local h1
  --~ 方差
  h1 = s.方差(u1_0, u1)
  return 数库.指数(h1, 1, 2)
  end
--~ 排
--~ 标准值
function s.均差(u1_0, u1)
  local h1, h2
  local h1_0
  --~ 标准值
  h1 = u1 or s.均值(u1_0)
  --~ 排，用于算均差
  h1_0 = 历排库.历排(u1_0, 基算库.减法, h1)
  h1_0 = 历排库.历排(h1_0, 数库.正数)
  --~ 均差
  h2 = 基算库.除法(s.总和(h1_0), #h1_0)
  return h2
  end
return s

Modified 残局文料/lua_lib/算机_程语_月_注_删_不虑字串.lua from [cd6e2aeb73] to [259b017646]. 

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29

local 字集库 = require("u8_to_a")
local 文库 = require(字集库.u8_to_a("算机_程语_月_基类_文"))
local string = string
local s = {}
-- 单行注与多行注
--~ 文
function s.删注(u1)
  u1 = s.删多行注(u1)
  return s.删单行注(u1)
  end
do
  local k1
  --~ 模
  k1 = 文库.连("%-%-", "%[", "(=*)", "%[", ".-", "%]", "%1", "%]")
  --~ 文
  function s.删多行注(u1)
    return string.gsub(u1, k1, "")
    end
  end
do
  local k1
  --~ 模
  k1 = 文库.连("%-%-", "[^\n]*")
  --~ 文
  function s.删单行注(u1)
    return string.gsub(u1, k1, "")
    end
  end
return s












|

|


|



|

|


|




1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29

local 字集库 = require("u8_to_a")
local 文库 = require(字集库.u8_to_a("算机_程语_月_基类_文"))
local string = string
local s = {}
-- 单行注与多行注
--~ 文
function s.删注(u1)
  u1 = s.删多行注(u1)
  return s.删单行注(u1)
  end
do
  local h1
  --~ 模
  h1 = 文库.连("%-%-", "%[", "(=*)", "%[", ".-", "%]", "%1", "%]")
  --~ 文
  function s.删多行注(u1)
    return string.gsub(u1, h1, "")
    end
  end
do
  local h1
  --~ 模
  h1 = 文库.连("%-%-", "[^\n]*")
  --~ 文
  function s.删单行注(u1)
    return string.gsub(u1, h1, "")
    end
  end
return s

Modified 残局文料/副_容冗/游戏王_则拟器_原版_残局_局名_字段.lua from [68283b6180] to [69bf46dcf7].

︙︙
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129

  end
--~ 卡对
function d.卡对消重(u1, u1_0)
  return u1_0.name, true
  end
--~ 卡对排
function d.荐名(u1_0)
  local k1, k2
  local h1_0
  --~ 攻击力排
  h1_0 = 历排库.历排(u1_0, 筛卡库.筛怪兽卡)
  h1_0 = 历排库.历排(h1_0, 筛卡库.筛攻击力)
  if h1_0[1] then
    --~ 攻击力均差阶
    k1 = 排算库.均差(h1_0)
    if k1 > 0 then
      --~ 补值
      k2 = 数库.指数(100, 基算库.除法(k1, 300))
      k1 = 基算库.除法(基算库.加法(k1, k2), 100)
      if k1 > 1 then
        k1 = 数库.指数次(k1, 2)
        return 数库.向下取整(k1)
      else
        return 0
        end
    else
      return 0
      end
  else
    return 0
    end
  end
--~ 卡对排
function d.荐名(u1_0)
  local k1
  --~ 名
  k1 = d.荐字段名(u1_0)
  if k1 then
  else
    k1 = d.荐卡名(u1_0)
    end
  if k1 then
    return k1
  else
    return "请便"
    end
  end
--~ 卡对排
function d.荐卡名(u1_0)
  local h1_0
  --~ 卡名排
  h1_0 = 历排库.历排(u1_0, d.取卡名)
  return 历排取一库.筛最短文(h1_0)
  end
--~ 卡对
function d.取卡名(u1_0)
  return u1_0.name
  end
--~ 卡对排
function d.取字段对(u1_0)
  local k1, k2, k3, k4
  local h1_0
  --~ 字段对
  h1_0 = {}
  for u1 = 1, #u1_0 do
    --~ 字段数
    k1 = 字节库.to_uint64(u1_0[u1].setcode)
    if k1 < 1 then
    else
      if k1 > 0xffffFFFFffff then
        k1 = k1 - 1
      else
        for u2 = 1, 11112222 do
          if k1 < 1 then
            break
          else
            --~ 大字段号
            k2 = 位算库.位和(k1, 0xffff)
            k1 = 位算库.位右移(k1, 基算库.乘法(4, 4))
            --~ 字段名
            k3 = 字段名对[tonumber(k2)]
            if k3 then
              if h1_0[k3] then
                h1_0[k3] = 基算库.加法(h1_0[k3], 1)
              else
                h1_0[k3] = 1
                end
              if k2 > 0xfff then
                --~ 小字段号
                k4 = 位算库.位和(k2, 0xfff)
                k3 = 字段名对[tonumber(k4)]
                if k3 then
                  if h1_0[k3] then
                    h1_0[k3] = 基算库.加法(h1_0[k3], 1)
                  else
                    h1_0[k3] = 1
                    end
                else
                  end
              else
                end
            else
              end
            end
          end
        end
      end
    end
  return h1_0
  end
--~ 卡对排
function d.荐字段名(u1_0)
  local k1
  local h1_0
  --~ 字段对
  h1_0 = d.取字段对(u1_0)
  --~ 最大的字段名数量
  _, k1 = 历对取一库.筛最大值(h1_0)
  --~ 最高频字段名对
  h2_0 = 历对库.历对(h1_0, 历对库.全等筛值, k1)
  return 历对取一库.筛最短键(h2_0)
  end








|






|
|

|
|
|
|
|












|

|
|

|

|
|

















|





|
|

|
|


|



|
|

|
|
|
|

|

|

|
|
|
|
|

|
















|




|

|



8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129

  end
--~ 卡对
function d.卡对消重(u1, u1_0)
  return u1_0.name, true
  end
--~ 卡对排
function d.荐名(u1_0)
  local h1, h2
  local h1_0
  --~ 攻击力排
  h1_0 = 历排库.历排(u1_0, 筛卡库.筛怪兽卡)
  h1_0 = 历排库.历排(h1_0, 筛卡库.筛攻击力)
  if h1_0[1] then
    --~ 攻击力均差阶
    h1 = 排算库.均差(h1_0)
    if h1 > 0 then
      --~ 补值
      h2 = 数库.指数(100, 基算库.除法(h1, 300))
      h1 = 基算库.除法(基算库.加法(h1, h2), 100)
      if h1 > 1 then
        h1 = 数库.指数次(h1, 2)
        return 数库.向下取整(h1)
      else
        return 0
        end
    else
      return 0
      end
  else
    return 0
    end
  end
--~ 卡对排
function d.荐名(u1_0)
  local h1
  --~ 名
  h1 = d.荐字段名(u1_0)
  if h1 then
  else
    h1 = d.荐卡名(u1_0)
    end
  if h1 then
    return h1
  else
    return "请便"
    end
  end
--~ 卡对排
function d.荐卡名(u1_0)
  local h1_0
  --~ 卡名排
  h1_0 = 历排库.历排(u1_0, d.取卡名)
  return 历排取一库.筛最短文(h1_0)
  end
--~ 卡对
function d.取卡名(u1_0)
  return u1_0.name
  end
--~ 卡对排
function d.取字段对(u1_0)
  local h1, h2, h3, h4
  local h1_0
  --~ 字段对
  h1_0 = {}
  for u1 = 1, #u1_0 do
    --~ 字段数
    h1 = 字节库.to_uint64(u1_0[u1].setcode)
    if h1 < 1 then
    else
      if h1 > 0xffffFFFFffff then
        h1 = h1 - 1
      else
        for u2 = 1, 11112222 do
          if h1 < 1 then
            break
          else
            --~ 大字段号
            h2 = 位算库.位和(h1, 0xffff)
            h1 = 位算库.位右移(h1, 基算库.乘法(4, 4))
            --~ 字段名
            h3 = 字段名对[tonumber(h2)]
            if h3 then
              if h1_0[h3] then
                h1_0[h3] = 基算库.加法(h1_0[h3], 1)
              else
                h1_0[h3] = 1
                end
              if h2 > 0xfff then
                --~ 小字段号
                h4 = 位算库.位和(h2, 0xfff)
                h3 = 字段名对[tonumber(h4)]
                if h3 then
                  if h1_0[h3] then
                    h1_0[h3] = 基算库.加法(h1_0[h3], 1)
                  else
                    h1_0[h3] = 1
                    end
                else
                  end
              else
                end
            else
              end
            end
          end
        end
      end
    end
  return h1_0
  end
--~ 卡对排
function d.荐字段名(u1_0)
  local h1
  local h1_0
  --~ 字段对
  h1_0 = d.取字段对(u1_0)
  --~ 最大的字段名数量
  _, h1 = 历对取一库.筛最大值(h1_0)
  --~ 最高频字段名对
  h2_0 = 历对库.历对(h1_0, 历对库.全等筛值, h1)
  return 历对取一库.筛最短键(h2_0)
  end

Modified 残局文料/副_容冗/集YGOPro常量并据此产lua文件.lua from [8d93103f41] to [b20a227789]. 

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48

package.path = [[.\lua_lib\?.lua;]] .. package.path
package.cpath = [[.\lua_lib\?.dll;]] .. package.cpath
local 字集码互转库 = require("u8_to_a")
local u8 = 字集码互转库.u8_to_a
local f = require(u8("常用库"))
local d_3 = {}
--~ 文件路
--~ 普常量文件名
function d_3.产普常量文件(u1, u2)
  local k1, k2
  local h1_0
  --~ 文
  k1 = f.读文件(u1)
  k1 = string.gsub(k1, "%-%-" .. "[^\n]*", "")
  k1 = string.gsub(k1, "[ \t]", "")
  --~ 常量排
  h1_0 = f.历文(k1, string.gmatch, "[^\n]+")
  for u1 = 1, #h1_0 do
    h1_0[u1] = f.加前缀(h1_0[u1], [[h1_0.]])
    end
  --~ 文
  k2 = f.加对限(h1_0)
  f.写文件(k2, u2)
  end
--~ 文件路
--~ 字段名文件名
function d_3.产字段名文件(u1, u2)
  local k1, k2
  local h1_0
  --~ 文
  k1 = f.读文件(u1)
  --~ 常量排
  h1_0 = f.历文(k1, string.gmatch, "[^\n]+")
  h1_0 = f.历排(h1_0, f.全筛文, "^!setname")
  for u3 = 1, #h1_0 do
    h1_0[u3] = f.删左右空白(h1_0[u3])
    h1_0[u3] = string.gsub(h1_0[u3], "^!setname ", "")
    h1_0[u3] = string.gsub(h1_0[u3], "[|\t].+", "")
    h1_0[u3] = string.gsub(h1_0[u3], " ", "=", 1)
    h1_0[u3] = string.gsub(h1_0[u3], "[0-9a-z]+", "h1_0[%1]", 1)
    h1_0[u3] = string.gsub(h1_0[u3], "=([^\n]+)", [[="%1"]], 1)
    end
  --~ 文
  k2 = f.加对限(h1_0)
  f.写文件(k2, u2)
  end
d_3.产普常量文件([[D:\install\YGOPro/script/constant.lua]], u8("普常量.lua"))
d_3.产字段名文件([[D:\install\YGOPro/strings.conf]], u8("字段名.lua"))










|


|
|
|

|




|
|




|


|

|










|
|




1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48

package.path = [[.\lua_lib\?.lua;]] .. package.path
package.cpath = [[.\lua_lib\?.dll;]] .. package.cpath
local 字集码互转库 = require("u8_to_a")
local u8 = 字集码互转库.u8_to_a
local f = require(u8("常用库"))
local d_3 = {}
--~ 文件路
--~ 普常量文件名
function d_3.产普常量文件(u1, u2)
  local h1, h2
  local h1_0
  --~ 文
  h1 = f.读文件(u1)
  h1 = string.gsub(h1, "%-%-" .. "[^\n]*", "")
  h1 = string.gsub(h1, "[ \t]", "")
  --~ 常量排
  h1_0 = f.历文(h1, string.gmatch, "[^\n]+")
  for u1 = 1, #h1_0 do
    h1_0[u1] = f.加前缀(h1_0[u1], [[h1_0.]])
    end
  --~ 文
  h2 = f.加对限(h1_0)
  f.写文件(h2, u2)
  end
--~ 文件路
--~ 字段名文件名
function d_3.产字段名文件(u1, u2)
  local h1, h2
  local h1_0
  --~ 文
  h1 = f.读文件(u1)
  --~ 常量排
  h1_0 = f.历文(h1, string.gmatch, "[^\n]+")
  h1_0 = f.历排(h1_0, f.全筛文, "^!setname")
  for u3 = 1, #h1_0 do
    h1_0[u3] = f.删左右空白(h1_0[u3])
    h1_0[u3] = string.gsub(h1_0[u3], "^!setname ", "")
    h1_0[u3] = string.gsub(h1_0[u3], "[|\t].+", "")
    h1_0[u3] = string.gsub(h1_0[u3], " ", "=", 1)
    h1_0[u3] = string.gsub(h1_0[u3], "[0-9a-z]+", "h1_0[%1]", 1)
    h1_0[u3] = string.gsub(h1_0[u3], "=([^\n]+)", [[="%1"]], 1)
    end
  --~ 文
  h2 = f.加对限(h1_0)
  f.写文件(h2, u2)
  end
d_3.产普常量文件([[D:\install\YGOPro/script/constant.lua]], u8("普常量.lua"))
d_3.产字段名文件([[D:\install\YGOPro/strings.conf]], u8("字段名.lua"))

Modified 残局文料/游戏王_则拟器_原版_残局_局名_改名.lua from [3335e26b02] to [9a450863b3].

︙︙
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127

  return 历排库.历排(u1_0, 筛卡库.筛有效果卡)
  end
--~ 卡编排
function s.取卡对_一维(u1_0)
  return 历排库.历排(u1_0, 卡档库.取卡对)
  end
do
  local k1, k2, k3
  --~ 非空单行，且无换行符
  k1 = "[^\n]+"
  --~ 卡编所在函式
  k2 = "Debug%.AddCard.+"
  --~ 卡编
  k3 = "[0-9]+"
  --~ 文
  function s.局筛卡编(u1)
    local h1_0
    --~ 卡编排
    h1_0 = 历文库.历文(u1, string.gmatch, k1)
    h1_0 = 历排库.历排(h1_0, string.match, k2)
    return 历排库.历排(h1_0, string.match, k3)
    end
  end
do
  local k1, k2, k3, k4
  --~ 非空单行，且无换行符
  k1 = "[^\n]+"
  --~ 玩家讯所在函式
  k2 = "Debug%.SetPlayerInfo.+"
  --~ 玩家编号
  k3 = "[0-9]+"
  --~ 玩家血量
  k4 = "[0-9]+"
  --~ 文
  function s.局筛血(u1)
    local h1_0
    --~ 血排
    h1_0 = 历文库.历文(u1, string.gmatch, k1)
    h1_0 = 历排库.历排(h1_0, string.match, k2)
    h1_0 = 历排库.历排(h1_0, string.gsub, k3, "", 1)
    return 历排库.历排(h1_0, string.match, k4)
    end
  end
do
  local k1, k2, k3
  --~ 非空单行，且无换行符
  k1 = "[^\n]+"
  --~ 残局讯所在函式
  k2 = 文库.连("Debug", "%.", "ReloadFieldBegin", ".+")
  --~ 则数
  k3 = "[0-9]"
  --~ 文
  function s.局筛则数(u1)
    local k4
    local h1_0
    --~ 则数排
    h1_0 = 历文库.历文(u1, string.gmatch, k1)
    h1_0 = 历排库.历排(h1_0, string.match, k2)
    --~ 则数
    k4 = string.match(h1_0[1], k3)
    assert(k4, u1)
    return k4 or 5
    end
  end
--~ 卡对排
--~ 血排
function s.荐名(u1_0, u2_0)
  local k1, k2, k3
  local h1_0
  --~ 攻击力排
  h1_0 = 历排库.历排(u1_0, 筛卡库.筛怪兽卡)
  h1_0 = 历排库.历排(h1_0, 筛卡库.筛攻击力)
  --~ 总攻
  k1 = 排算库.总和(h1_0)
  --~ 总血
  k2 = 排算库.总和(u2_0)
  --~ 荐名
  k3 = 基算库.除法(k1, k2)
  k3 = 数库.指数次(k3, 2)
  if 数库.是否错值(k3) then
    return 0
  else
    k3 = 数库.几位小数(k3, 1)
    return tostring(基算库.乘法(k3, 1000))
    end
  end
--~ 文件
--~ 编号
--~ 文件路
function s.察编号(u1, u2, u3)
  local k1
  k1 = string.gsub(u1, 文库.连("Debug", "%.", "SetAIName", "[^\n]+"), 文库.连([[Debug.SetAIName("]], u2, [[")]]))
  if k1 == u1 then
  else
    写文件库.写文件(u3, k1)
    end
  end
--~ 目对
function s.残局改名(u1_0)
  local h1_0, h2_0, h3_0, h4_0, h5_0, h6_0, h7_0, h8_0, h9_0
  local h10_0, h11_0, h12_0
  --~ 文件名排








|

|

|

|




|
|
|



|

|

|

|

|




|
|
|
|



|

|

|

|


|


|
|

|
|
|





|





|

|

|
|
|


|
|






|
|
|

|








26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127

  return 历排库.历排(u1_0, 筛卡库.筛有效果卡)
  end
--~ 卡编排
function s.取卡对_一维(u1_0)
  return 历排库.历排(u1_0, 卡档库.取卡对)
  end
do
  local h1, h2, h3
  --~ 非空单行，且无换行符
  h1 = "[^\n]+"
  --~ 卡编所在函式
  h2 = "Debug%.AddCard.+"
  --~ 卡编
  h3 = "[0-9]+"
  --~ 文
  function s.局筛卡编(u1)
    local h1_0
    --~ 卡编排
    h1_0 = 历文库.历文(u1, string.gmatch, h1)
    h1_0 = 历排库.历排(h1_0, string.match, h2)
    return 历排库.历排(h1_0, string.match, h3)
    end
  end
do
  local h1, h2, h3, h4
  --~ 非空单行，且无换行符
  h1 = "[^\n]+"
  --~ 玩家讯所在函式
  h2 = "Debug%.SetPlayerInfo.+"
  --~ 玩家编号
  h3 = "[0-9]+"
  --~ 玩家血量
  h4 = "[0-9]+"
  --~ 文
  function s.局筛血(u1)
    local h1_0
    --~ 血排
    h1_0 = 历文库.历文(u1, string.gmatch, h1)
    h1_0 = 历排库.历排(h1_0, string.match, h2)
    h1_0 = 历排库.历排(h1_0, string.gsub, h3, "", 1)
    return 历排库.历排(h1_0, string.match, h4)
    end
  end
do
  local h1, h2, h3
  --~ 非空单行，且无换行符
  h1 = "[^\n]+"
  --~ 残局讯所在函式
  h2 = 文库.连("Debug", "%.", "ReloadFieldBegin", ".+")
  --~ 则数
  h3 = "[0-9]"
  --~ 文
  function s.局筛则数(u1)
    local h4
    local h1_0
    --~ 则数排
    h1_0 = 历文库.历文(u1, string.gmatch, h1)
    h1_0 = 历排库.历排(h1_0, string.match, h2)
    --~ 则数
    h4 = string.match(h1_0[1], h3)
    assert(h4, u1)
    return h4 or 5
    end
  end
--~ 卡对排
--~ 血排
function s.荐名(u1_0, u2_0)
  local h1, h2, h3
  local h1_0
  --~ 攻击力排
  h1_0 = 历排库.历排(u1_0, 筛卡库.筛怪兽卡)
  h1_0 = 历排库.历排(h1_0, 筛卡库.筛攻击力)
  --~ 总攻
  h1 = 排算库.总和(h1_0)
  --~ 总血
  h2 = 排算库.总和(u2_0)
  --~ 荐名
  h3 = 基算库.除法(h1, h2)
  h3 = 数库.指数次(h3, 2)
  if 数库.是否错值(h3) then
    return 0
  else
    h3 = 数库.几位小数(h3, 1)
    return tostring(基算库.乘法(h3, 1000))
    end
  end
--~ 文件
--~ 编号
--~ 文件路
function s.察编号(u1, u2, u3)
  local h1
  h1 = string.gsub(u1, 文库.连("Debug", "%.", "SetAIName", "[^\n]+"), 文库.连([[Debug.SetAIName("]], u2, [[")]]))
  if h1 == u1 then
  else
    写文件库.写文件(u3, h1)
    end
  end
--~ 目对
function s.残局改名(u1_0)
  local h1_0, h2_0, h3_0, h4_0, h5_0, h6_0, h7_0, h8_0, h9_0
  local h10_0, h11_0, h12_0
  --~ 文件名排
︙︙