游戏王残局简化版

Check-in [f1bea6a75e]
Login

Check-in [f1bea6a75e]

Overview
Comment:好
Downloads: Tarball | ZIP archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA3-256: f1bea6a75e494e391e792dd876401822386b98ff627c7f4b49d5ffb515875aea
User & Date: 顽雨沉风 on 2024-02-13 07:29:39.126
Other Links: manifest | tags
Context
2024-02-13
07:31
好 check-in: 89f423ff38 user: 顽雨沉风 tags: trunk
07:29
好 check-in: f1bea6a75e user: 顽雨沉风 tags: trunk
07:21
好 check-in: 671d8a7ff9 user: 顽雨沉风 tags: trunk
Changes
Side-by-Side Diff Ignore Whitespace Patch
Modified 残局文料/lua_lib/ipml_mj_ysaf.lua from [215e96f933] to [724434df44]. 
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

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









-
-
+
+









-
-
+
+








--~ package.path = [[.\dfns_jvwg_ysaf\?.lua;]] .. package.path
--~ package.cpath = [[.\dfns_jvwg_ysaf\?.dll;]] .. package.cpath
local 字集码互转库 = require("u8_to_a")
local d_5 = {}
--~ function _G.历排(o1_11, u1, u2, u3, u4)
  --~ local k1_8
  --~ local k1_11
  --~ k1_11 = {}
  --~ for o5 = 1, #o1_11 do
    --~ k1_8 = u1(o1_11[o5], u2, u3, u4)
  --~ for u5 = 1, #o1_11 do
    --~ k1_8 = u1(o1_11[u5], u2, u3, u4)
    --~ if k1_8 then
      --~ k1_11[#k1_11 + 1] = k1_8
      --~ end
    --~ end
  --~ return k1_11
  --~ end
--~ function _G.历文(u1, u2, u3, u4)
  --~ local k1_9
  --~ k1_9 = {}
  --~ for o5 in u2(u1, u3, u4) do
    --~ k1_9[#k1_9 + 1] = o5
  --~ for u5 in u2(u1, u3, u4) do
    --~ k1_9[#k1_9 + 1] = u5
    --~ end
  --~ return k1_9
  --~ end
--~ local 简件系库 = require("lfs")
--~ require(字集码互转库.u8_to_a("程语_月_基类_字串_内置库_加多"))
--~ 程语_月_标准库_仿照_加多_多编码_大字集_通用
function d_5.导入库_通用大字集态_八位态(modname)
︙
Modified 残局文料/lua_lib/常用库.lua from [e42fc8e1eb] to [6938a4459e]. 
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

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













-
-
+
+











-
-
+
+








local s = {}
local 简文件库 = require("lfs")
local ffi = require("ffi")
--~ 排
--~ 办排中值的能
--~ 入参2
--~ 入参3
--~ 入参4
function s.历排(u1_0, u1, u2, u3, u4)
  local h1_0
  --~ 集排
  h1_0 = {}
  for o5 = 1, #u1_0 do
    h1_0[#h1_0 + 1] = u1(u1_0[o5], u2, u3, u4)
  for u5 = 1, #u1_0 do
    h1_0[#h1_0 + 1] = u1(u1_0[u5], u2, u3, u4)
    end
  return h1_0
  end
--~ 文
--~ 历文的能
--~ 入参2
--~ 入参3
function s.历文(u1, u2, u3, u4)
  local h1_0
  --~ 集排
  h1_0 = {}
  for o5 in u2(u1, u3, u4) do
    h1_0[#h1_0 + 1] = o5
  for u5 in u2(u1, u3, u4) do
    h1_0[#h1_0 + 1] = u5
    end
  return h1_0
  end
--~ 排
--~ 能
function s.历排取一(u1_0, u1)
  local k1
︙
56
57
58
59
60
61
62
63

64
65
66

67
68
69
70
71
72
73

56
57
58
59
60
61
62

63
64
65

66
67
68
69
70
71
72
73








-
+


-
+








  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, o5)
function s.历对取一的模(u1, u2, u3, u4, u5)
  if u1 == nil then
    return u3, u4
  elseif o5(u1, u2, u3, u4) then
  elseif u5(u1, u2, u3, u4) then
    return u3, u4
  else
    return u1, u2
    end
  end
function s.历对(u1_0, u1, u2)
  local k1
︙
Modified 残局文料/lua_lib/程序语言_月_基础类型_功能_传入参数_转化.lua from [bfa46fcbfd] to [8ba402780b]. 
1
2
3
4
5
6
7


8
9
10


11
12

1
2
3
4
5


6
7
8


9
10
11
12






-
-
+
+

-
-
+
+



local d_2 = {}
--~ 传参_参数数量
function d_2.二个参数(u1, u2, u3, u4)
  return u1(u2(u3), u2(u4))
  end
function d_2.三个参数(u1, u2, u3, u4, o5)
  return u1(u2(u3), u2(u4), u2(o5))
function d_2.三个参数(u1, u2, u3, u4, u5)
  return u1(u2(u3), u2(u4), u2(u5))
  end
function d_2.四个参数(u1, u2, u3, u4, o5, o6)
  return u1(u2(u3), u2(u4), u2(o5), u2(o6))
function d_2.四个参数(u1, u2, u3, u4, u5, u6)
  return u1(u2(u3), u2(u4), u2(u5), u2(u6))
  end
return d_2
Modified 残局文料/lua_lib/程序语言_月_基础类型_字串_逐一.lua from [0966247b71] to [794646ede7]. 
1
2
3
4
5
6


7
8
9
10
11

1
2
3
4


5
6
7
8
9
10
11





-
-
+
+






local d_2 = {}
function d_2.处理后返回新排(u1, u2, u3, u4)
  local k1_9
  k1_9 = {}
  for o5 in u2(u1, u3, u4) do
    k1_9[#k1_9 + 1] = o5
  for u5 in u2(u1, u3, u4) do
    k1_9[#k1_9 + 1] = u5
    end
  return k1_9
  end
return d_2
Modified 残局文料/lua_lib/程序语言_月_基础类型_序排_逐一.lua from [6811fd6086] to [b9e97f888d]. 
1
2
3
4
5
6
7


8
9
10
11
12
13
14

1
2
3
4
5


6
7
8
9
10
11
12
13
14






-
-
+
+








local d_2 = {}
function d_2.处理后返回新排(o1_11, u1, u2, u3, u4)
  local k1_8
  local k1_11
  k1_11 = {}
  for o5 = 1, #o1_11 do
    k1_8 = u1(o1_11[o5], u2, u3, u4)
  for u5 = 1, #o1_11 do
    k1_8 = u1(o1_11[u5], u2, u3, u4)
    if k1_8 then
      k1_11[#k1_11 + 1] = k1_8
      end
    end
  return k1_11
  end
--~ function d_2.处理(o1_11, u1, u2, u3)
︙
Modified 残局文料/lua_lib/算机_程语_月_基类_文.lua from [ffc2cb32ce] to [270047d292]. 
1
2
3
4


5
6
7
8
9
10
11

1
2


3
4
5
6
7
8
9
10
11



-
-
+
+








local string = string
local s = {}
function s.连(u1, u2, u3, u4, o5, o6, o7, o8, o9)
  return u1 .. (u2 or "") .. (u3 or "") .. (u4 or "") .. (o5 or "") .. (o6 or "") .. (o7 or "") .. (o8 or "") .. (o9 or "")
function s.连(u1, u2, u3, u4, u5, u6, u7, u8, u9)
  return u1 .. (u2 or "") .. (u3 or "") .. (u4 or "") .. (u5 or "") .. (u6 or "") .. (u7 or "") .. (u8 or "") .. (u9 or "")
  end
--~ 排中文
--~ 入参2
--~ 入参3
--~ 入参4
function s.全筛文(u1, u2, u3, u4)
  --~ print(4)
︙
Modified 残局文料/lua_lib/算机_程语_月_基类_能_传能_历_基类_文_取全.lua from [115ea36bac] to [906fe85b57]. 
1
2
3
4
5
6
7
8
9
10
11
12


13
14
15
16

1
2
3
4
5
6
7
8
9
10


11
12
13
14
15
16











-
-
+
+





local s = {}
-- 启
--~ 文
--~ 历文的能
--~ 入参2
--~ 入参3
function s.历文(u1, u2, u3, u4)
  local h1_0
  --~ 集排
  h1_0 = {}
  for o5 in u2(u1, u3, u4) do
    h1_0[#h1_0 + 1] = o5
  for u5 in u2(u1, u3, u4) do
    h1_0[#h1_0 + 1] = u5
    end
  return h1_0
  end
return s
Modified 残局文料/lua_lib/算机_程语_月_基类_能_传能_历_基类_表_对_取一.lua from [17381efe7c] to [d2f5cf4fea].
︙
13
14
15
16
17
18
19
20

21
22
23

24
25
26
27
28
29
30

13
14
15
16
17
18
19

20
21
22

23
24
25
26
27
28
29
30








-
+


-
+








  end
-- 模
--~ 键
--~ 值
--~ 对中键
--~ 对中值
--~ 能
function s.模(u1, u2, u3, u4, o5)
function s.模(u1, u2, u3, u4, u5)
  if u1 == nil then
    return u3, u4
  elseif o5(u1, u2, u3, u4) then
  elseif u5(u1, u2, u3, u4) then
    return u3, u4
  else
    return u1, u2
    end
  end
-- 最短
--~ 最短键
︙
Modified 残局文料/lua_lib/算机_程语_月_基类_能_传能_历_基类_表_对_取全.lua from [c258b0306c] to [2bf6597241].
︙
23
24
25
26
27
28
29
30
31


32
33
34
35
36
37
38

23
24
25
26
27
28
29


30
31
32
33
34
35
36
37
38








-
-
+
+








--~ 能
--~ 入参2
--~ 入参3
function s.历值(u1_0, u1, u2, u3)
  local h1_0
  --~ 对
  h1_0 = {}
  for u4, o5 in pairs(u1_0) do
    h1_0[u4] = u1(o5, u2, u3)
  for u4, u5 in pairs(u1_0) do
    h1_0[u4] = u1(u5, u2, u3)
    end
  return h1_0
  end
--~ 键
--~ 值
--~ 要找的值
function s.全等筛值(u1, u2, u3)
︙
Modified 残局文料/lua_lib/算机_程语_月_基类_能_传能_历_基类_表_排_取全.lua from [9a63b3fa45] to [a9b1a4828a]. 
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

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













-
-
+
+













-
-
+
+














-
-
+
+





local s = {}
-- 返旧与返新与不返
-- 排数
--~ 排
--~ 办排中值的能
--~ 入参2
--~ 入参3
--~ 入参4
function s.历排(u1_0, u1, u2, u3, u4)
  local h1_0
  --~ 集排
  h1_0 = {}
  for o5 = 1, #u1_0 do
    h1_0[#h1_0 + 1] = u1(u1_0[o5], u2, u3, u4)
  for u5 = 1, #u1_0 do
    h1_0[#h1_0 + 1] = u1(u1_0[u5], u2, u3, u4)
    end
  return h1_0
  end
--~ 排
--~ 排
--~ 办排中值的能
--~ 入参3
--~ 入参4
--~ 入参5
function s.历二排(u1_0, u2_0, u1, u2, u3, u4)
  local h1_0
  --~ 集排
  h1_0 = {}
  for o5 = 1, #u1_0 do
    h1_0[#h1_0 + 1] = u1(u1_0[o5], u2_0[o5], u2, u3, u4)
  for u5 = 1, #u1_0 do
    h1_0[#h1_0 + 1] = u1(u1_0[u5], u2_0[u5], u2, u3, u4)
    end
  return h1_0
  end
--~ 排
--~ 排
--~ 排
--~ 办排中值的能
--~ 入参4
--~ 入参5
--~ 入参6
function s.历三排(u1_0, u2_0, u3_0, u1, u2, u3, u4)
  local h1_0
  --~ 集排
  h1_0 = {}
  for o5 = 1, #u1_0 do
    h1_0[#h1_0 + 1] = u1(u1_0[o5], u2_0[o5], u3_0[o5], u2, u3, u4)
  for u5 = 1, #u1_0 do
    h1_0[#h1_0 + 1] = u1(u1_0[u5], u2_0[u5], u3_0[u5], u2, u3, u4)
    end
  return h1_0
  end
return s
Modified 残局文料/lua_lib/算机_程语_月_基类_能_传能_历_基类_表_排_取联.lua from [af06bee05c] to [bf84a6cc83]. 
1
2
3
4
5
6
7
8
9
10
11
12


13
14
15
16

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 o5 = 2, #u1_0 do
    k1 = u1(k1, u2(u1_0[o5], u3, u4))
  for u5 = 2, #u1_0 do
    k1 = u1(k1, u2(u1_0[u5], u3, u4))
    end
  return k1
  end
return s
Modified 残局文料/lua_lib/算机_程语_月_基类_能_传能_历_基类_表_排_相加.lua from [01ab4d0675] to [ea2b92dd15]. 
1
2
3
4
5
6
7
8
9
10
11
12
13
14


15
16
17
18

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 o5 = 1, #u1_0 do
    k1 = k1 + u1(u1_0[o5], u2, u3, u4)
  for u5 = 1, #u1_0 do
    k1 = k1 + u1(u1_0[u5], u2, u3, u4)
    end
  return k1
  end
return s
Modified 残局文料/lua_lib/计算机_系统_窗口群_命令行_无窗口.lua from [ba0d0e5411] to [ab44738b70]. 
1
2
3
4
5
6
7
8
9
10
11
12
13

14
15
16
17

18
19
20
21
22
23

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

13
14
15
16

17
18
19
20
21
22
23













-
+



-
+







local d_2 = {}
--~ local 件径库 = 常用库.导入库_通用大字集态_八位态("计算机_系统_窗口群_文件系统_路径")
--~ local 历排库 = 常用库.导入库_通用大字集态_八位态("程序语言_月_基础类型_序排_逐一")
--~ local 前后缀库 = 常用库.导入库_通用大字集态_八位态("程序语言_月_基础类型_字串_前缀与后缀")
function d_2.执行命令(u1)
  print(u1)
  os.execute(u1)
  end
--~ function d_2.逐一执行命令(u1)
  --~ 历排库.处理(u1, d_2.执行命令)
  --~ end
--~ 件夹
--~ function d_2.入文件夹路径而用文件路径执行命令_全筛态_加前缀与后缀态_不虑子文件夹内态(u1, u2, u3, u4, o5, o6)
--~ function d_2.入文件夹路径而用文件路径执行命令_全筛态_加前缀与后缀态_不虑子文件夹内态(u1, u2, u3, u4, u5, u6)
  --~ local k1_9
  --~ k1_9 = 件径库.入文件夹路径而返文件路径排_全筛态(u1, u2, u3, u4)
  --~ k1_9 = 前后缀库.逐一在前后加上英文双引号(k1_9)
  --~ k1_9 = 前后缀库.逐一加前缀与后缀(k1_9, o5, o6)
  --~ k1_9 = 前后缀库.逐一加前缀与后缀(k1_9, u5, u6)
  --~ d_2.逐一执行命令(k1_9)
  --~ end
--~ function d_2.入文件夹路径而用文件路径执行命令_全筛后缀态_加前缀态_不虑子文件夹内态(u1, u2, u3)
  --~ return d_2.入文件夹路径而用文件路径执行命令_全筛态_加前缀与后缀态_不虑子文件夹内态(u1, u2, -#u2, true, u3)
  --~ end
return d_2
Modified 残局文料/副_容冗/游戏王_则拟器_原版_残局_局名_字段.lua from [70de9b64f1] to [68283b6180]. 
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

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



-
+


-
+



-
-
+
+


-
+



-
+








-- 不用这套方案了
--~ 卡对排
function d.荐名(o1_0)
function d.荐名(u1_0)
  local h1_0
  --~ 卡名对
  h1_0 = 历对库.历对(o1_0, d.卡对消重)
  h1_0 = 历对库.历对(u1_0, d.卡对消重)
  return 对库.对长(h1_0)
  end
--~ 卡对
function d.卡对消重(o1, o1_0)
  return o1_0.name, true
function d.卡对消重(u1, u1_0)
  return u1_0.name, true
  end
--~ 卡对排
function d.荐名(o1_0)
function d.荐名(u1_0)
  local k1, k2
  local h1_0
  --~ 攻击力排
  h1_0 = 历排库.历排(o1_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))
︙
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

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








-
+


-
+


-
+








-
+


-
+



-
-
+
+


-
+




-
+

-
+





-
+








      return 0
      end
  else
    return 0
    end
  end
--~ 卡对排
function d.荐名(o1_0)
function d.荐名(u1_0)
  local k1
  --~ 名
  k1 = d.荐字段名(o1_0)
  k1 = d.荐字段名(u1_0)
  if k1 then
  else
    k1 = d.荐卡名(o1_0)
    k1 = d.荐卡名(u1_0)
    end
  if k1 then
    return k1
  else
    return "请便"
    end
  end
--~ 卡对排
function d.荐卡名(o1_0)
function d.荐卡名(u1_0)
  local h1_0
  --~ 卡名排
  h1_0 = 历排库.历排(o1_0, d.取卡名)
  h1_0 = 历排库.历排(u1_0, d.取卡名)
  return 历排取一库.筛最短文(h1_0)
  end
--~ 卡对
function d.取卡名(o1_0)
  return o1_0.name
function d.取卡名(u1_0)
  return u1_0.name
  end
--~ 卡对排
function d.取字段对(o1_0)
function d.取字段对(u1_0)
  local k1, k2, k3, k4
  local h1_0
  --~ 字段对
  h1_0 = {}
  for o1 = 1, #o1_0 do
  for u1 = 1, #u1_0 do
    --~ 字段数
    k1 = 字节库.to_uint64(o1_0[o1].setcode)
    k1 = 字节库.to_uint64(u1_0[u1].setcode)
    if k1 < 1 then
    else
      if k1 > 0xffffFFFFffff then
        k1 = k1 - 1
      else
        for o2 = 1, 11112222 do
        for u2 = 1, 11112222 do
          if k1 < 1 then
            break
          else
            --~ 大字段号
            k2 = 位算库.位和(k1, 0xffff)
            k1 = 位算库.位右移(k1, 基算库.乘法(4, 4))
            --~ 字段名
︙
112
113
114
115
116
117
118
119

120
121
122
123

124
125
126
127
128
129

112
113
114
115
116
117
118

119
120
121
122

123
124
125
126
127
128
129








-
+



-
+







          end
        end
      end
    end
  return h1_0
  end
--~ 卡对排
function d.荐字段名(o1_0)
function d.荐字段名(u1_0)
  local k1
  local h1_0
  --~ 字段对
  h1_0 = d.取字段对(o1_0)
  h1_0 = d.取字段对(u1_0)
  --~ 最大的字段名数量
  _, k1 = 历对取一库.筛最大值(h1_0)
  --~ 最高频字段名对
  h2_0 = 历对库.历对(h1_0, 历对库.全等筛值, k1)
  return 历对取一库.筛最短键(h2_0)
  end
Modified 残局文料/副_容冗/集YGOPro常量并据此产lua文件.lua from [b7c3b4fbca] to [8d93103f41]. 
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

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.产普常量文件(o1, o2)
function d_3.产普常量文件(u1, u2)
  local k1, k2
  local h1_0
  --~ 文
  k1 = f.读文件(o1)
  k1 = f.读文件(u1)
  k1 = string.gsub(k1, "%-%-" .. "[^\n]*", "")
  k1 = string.gsub(k1, "[ \t]", "")
  --~ 常量排
  h1_0 = f.历文(k1, string.gmatch, "[^\n]+")
  for o1 = 1, #h1_0 do
    h1_0[o1] = f.加前缀(h1_0[o1], [[h1_0.]])
  for u1 = 1, #h1_0 do
    h1_0[u1] = f.加前缀(h1_0[u1], [[h1_0.]])
    end
  --~ 文
  k2 = f.加对限(h1_0)
  f.写文件(k2, o2)
  f.写文件(k2, u2)
  end
--~ 文件路
--~ 字段名文件名
function d_3.产字段名文件(o1, o2)
function d_3.产字段名文件(u1, u2)
  local k1, k2
  local h1_0
  --~ 文
  k1 = f.读文件(o1)
  k1 = f.读文件(u1)
  --~ 常量排
  h1_0 = f.历文(k1, string.gmatch, "[^\n]+")
  h1_0 = f.历排(h1_0, f.全筛文, "^!setname")
  for o3 = 1, #h1_0 do
    h1_0[o3] = f.删左右空白(h1_0[o3])
    h1_0[o3] = string.gsub(h1_0[o3], "^!setname ", "")
    h1_0[o3] = string.gsub(h1_0[o3], "[|\t].+", "")
    h1_0[o3] = string.gsub(h1_0[o3], " ", "=", 1)
    h1_0[o3] = string.gsub(h1_0[o3], "[0-9a-z]+", "h1_0[%1]", 1)
    h1_0[o3] = string.gsub(h1_0[o3], "=([^\n]+)", [[="%1"]], 1)
  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, o2)
  f.写文件(k2, u2)
  end
d_3.产普常量文件([[D:\install\YGOPro/script/constant.lua]], u8("普常量.lua"))
d_3.产字段名文件([[D:\install\YGOPro/strings.conf]], u8("字段名.lua"))
Modified 残局文料/游戏王_则拟器_原版_残局_局名_改名.lua from [e7830006fb] to [3335e26b02].
︙
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
130
131
132

133
134
135
136
137
138
139

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
130
131

132
133
134
135
136
137
138
139








-
-
+
+


-
-
+
+










-
+


-
+















-
+


-
+














-
+



-
+



-
+





-
+



-
+




-
+













-
+

-
-
+
+

-
+



-
+



-
+



-
+








local 读文件库 = require(字集库.u8_to_a("算机_基统_窗群_文件系_小文件_读"))
local 写文件库 = require(字集库.u8_to_a("算机_基统_窗群_文件系_小文件_写"))
local string = string
local os = os
local table = table
local s = {}
--~ 卡对排
function s.筛有效果卡(o1_0)
  return 历排库.历排(o1_0, 筛卡库.筛有效果卡)
function s.筛有效果卡(u1_0)
  return 历排库.历排(u1_0, 筛卡库.筛有效果卡)
  end
--~ 卡编排
function s.取卡对_一维(o1_0)
  return 历排库.历排(o1_0, 卡档库.取卡对)
function s.取卡对_一维(u1_0)
  return 历排库.历排(u1_0, 卡档库.取卡对)
  end
do
  local k1, k2, k3
  --~ 非空单行，且无换行符
  k1 = "[^\n]+"
  --~ 卡编所在函式
  k2 = "Debug%.AddCard.+"
  --~ 卡编
  k3 = "[0-9]+"
  --~ 文
  function s.局筛卡编(o1)
  function s.局筛卡编(u1)
    local h1_0
    --~ 卡编排
    h1_0 = 历文库.历文(o1, string.gmatch, k1)
    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.局筛血(o1)
  function s.局筛血(u1)
    local h1_0
    --~ 血排
    h1_0 = 历文库.历文(o1, string.gmatch, k1)
    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.局筛则数(o1)
  function s.局筛则数(u1)
    local k4
    local h1_0
    --~ 则数排
    h1_0 = 历文库.历文(o1, string.gmatch, k1)
    h1_0 = 历文库.历文(u1, string.gmatch, k1)
    h1_0 = 历排库.历排(h1_0, string.match, k2)
    --~ 则数
    k4 = string.match(h1_0[1], k3)
    assert(k4, o1)
    assert(k4, u1)
    return k4 or 5
    end
  end
--~ 卡对排
--~ 血排
function s.荐名(o1_0, o2_0)
function s.荐名(u1_0, u2_0)
  local k1, k2, k3
  local h1_0
  --~ 攻击力排
  h1_0 = 历排库.历排(o1_0, 筛卡库.筛怪兽卡)
  h1_0 = 历排库.历排(u1_0, 筛卡库.筛怪兽卡)
  h1_0 = 历排库.历排(h1_0, 筛卡库.筛攻击力)
  --~ 总攻
  k1 = 排算库.总和(h1_0)
  --~ 总血
  k2 = 排算库.总和(o2_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.察编号(o1, o2, o3)
function s.察编号(u1, u2, u3)
  local k1
  k1 = string.gsub(o1, 文库.连("Debug", "%.", "SetAIName", "[^\n]+"), 文库.连([[Debug.SetAIName("]], o2, [[")]]))
  if k1 == o1 then
  k1 = string.gsub(u1, 文库.连("Debug", "%.", "SetAIName", "[^\n]+"), 文库.连([[Debug.SetAIName("]], u2, [[")]]))
  if k1 == u1 then
  else
    写文件库.写文件(o3, k1)
    写文件库.写文件(u3, k1)
    end
  end
--~ 目对
function s.残局改名(o1_0)
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
  --~ 文件名排
  h1_0 = 历文库.历文(o1_0.文件目, 文件系库.dir)
  h1_0 = 历文库.历文(u1_0.文件目, 文件系库.dir)
  h1_0 = 历排库.历排(h1_0, 后缀库.全筛后缀, ".lua")
  --~ 文件排
  h2_0 = 历排库.历排(h1_0, 后缀库.全筛后缀, ".lua")
  h2_0 = 历排库.历排(h2_0, 前缀库.加前缀, o1_0.文件目)
  h2_0 = 历排库.历排(h2_0, 前缀库.加前缀, u1_0.文件目)
  h2_0 = 历排库.历排(h2_0, 读文件库.读文件)
  h2_0 = 历排库.历排(h2_0, 删注库.删注)
  --~ 则数排
  h3_0 = 历排库.历排(h2_0, s.局筛则数)
  --~ 各文件的卡编排
  h4_0 = 历排库.历排(h2_0, s.局筛卡编)
  --~ 各文件的卡对排
︙
147
148
149
150
151
152
153
154
155
156
157




158
159

160
161
162

163
164
165
166
167
168
169

147
148
149
150
151
152
153




154
155
156
157
158

159
160
161

162
163
164
165
166
167
168
169








-
-
-
-
+
+
+
+

-
+


-
+








  --~ 荐名排
  h8_0 = 历排库.历二排(h6_0, h11_0, s.荐名)
  --~ 新名排
  h9_0 = 历排库.历排(h1_0, string.gsub, 字集库.u8_to_a(文库.连("　", ".+")), "")
  --~ 编号排
  h10_0 = 历排库.历排(h1_0, string.gsub, 字集库.u8_to_a(文库.连("　", ".+")), "")
  h9_0 = 历排库.历排(h9_0, string.gsub, 文库.连("%.", "lua", "$"), "")
  for o1 = 1, #h1_0 do
    h9_0[o1] = 文库.连(字集库.a_to_u8(o1_0.文件目), 字集库.a_to_u8(h9_0[o1]), "　", h3_0[o1], "_", 数库.几位整数(h7_0[o1], 2))
    if h8_0[o1] == 0 then
      h9_0[o1] = 文库.连(h9_0[o1], ".", "lua")
  for u1 = 1, #h1_0 do
    h9_0[u1] = 文库.连(字集库.a_to_u8(u1_0.文件目), 字集库.a_to_u8(h9_0[u1]), "　", h3_0[u1], "_", 数库.几位整数(h7_0[u1], 2))
    if h8_0[u1] == 0 then
      h9_0[u1] = 文库.连(h9_0[u1], ".", "lua")
    else
      h9_0[o1] = 文库.连(h9_0[o1], "_", h8_0[o1], ".", "lua")
      h9_0[u1] = 文库.连(h9_0[u1], "_", h8_0[u1], ".", "lua")
      end
    end
  h1_0 = 历排库.历排(h1_0, 前缀库.加前缀, o1_0.文件目)
  h1_0 = 历排库.历排(h1_0, 前缀库.加前缀, u1_0.文件目)
  h9_0 = 历排库.历排(h9_0, 字集库.u8_to_a)
  历排库.历二排(h1_0, h9_0, os.rename)
  h10_0 = 历排库.历排(h10_0, 字集库.a_to_u8)
  --~ 文排
  h12_0 = 历排库.历排(h9_0, 读文件库.读文件)
  历排库.历三排(h12_0, h10_0, h9_0, s.察编号)
  end
︙
Modified 残局文料/用令行工具排版lua文件.lua from [2335e642dc] to [3efccc45dd]. 
1
2
3
4
5
6
7
8
9
10
11
12
13


14
15

1
2
3
4
5
6
7
8
9
10
11


12
13
14
15












-
-
+
+



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_2 = {}
d_2.目对 = {
  ["文件目"] = [[../single/]]
  , ["文件类"] = ".lua"
  , ["令行前缀"] = [[stylua --indent-type Spaces  --indent-width 2 --collapse-simple-statement Never ]]
  }
for o1, o2 in pairs(d_2.目对) do
  d_2.目对[o1] = f.操类(o2, "string", u8)
for u1, u2 in pairs(d_2.目对) do
  d_2.目对[u1] = f.操类(u2, "string", u8)
  end
f.用令行工具操文件(d_2.目对)