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
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
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
|
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
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
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
|
+
-
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
-
-
-
-
-
+
-
-
-
-
-
-
+
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
+
-
+
-
+
-
+
-
+
-
-
-
-
-
-
-
-
-
+
+
+
-
-
+
+
-
-
+
-
-
+
+
-
-
+
+
-
-
-
-
-
-
-
+
-
-
-
+
+
+
+
+
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
-
-
+
-
-
+
-
-
+
-
-
-
-
-
-
+
-
-
-
+
-
-
-
+
+
+
+
-
-
+
+
-
+
-
-
+
+
-
+
-
+
-
-
+
-
+
-
-
+
-
+
+
+
+
+
+
+
+
+
+
-
-
+
+
+
+
+
+
-
-
-
-
+
-
+
+
-
+
|
package.path = [[.\lua_lib\?.lua;]] .. package.path
package.cpath = [[.\lua_lib\?.dll;]] .. package.cpath
local 字集码互转库 = require("u8_to_a")
local 字集库 = require("u8_to_a")
local u8 = 字集码互转库.u8_to_a
local f = require(u8("常用库"))
local 字段名对 = require(u8("字段名"))
local 简文件库 = require("lfs")
local 简数据库库 = require("lsqlite3")
local d = {}
do
local TYPE_SPELL = 0x2
local TYPE_TRAP = 0x4
local TYPE_EFFECT = 0x20
local TYPE_PENDULUM = 0x1000000
local 有效果卡的类排 = {
local 文件系库 = require("lfs")
local 档库 = require("lsqlite3")
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 历文库 = 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 字节库 = require(字集库.u8_to_a("算机_理器_通用_字节"))
local 读文件库 = require(字集库.u8_to_a("算机_基统_窗群_文件系_小文件_读"))
local 写文件库 = require(字集库.u8_to_a("算机_基统_窗群_文件系_小文件_写"))
local string = string
local os = os
TYPE_SPELL
, TYPE_TRAP
, TYPE_EFFECT
}
local 无效果灵摆怪兽排 = {
28363749 --火蛋白石头龙头领
, 19474136 --曼陀林草龙
, 17390179 --闪光之骑士
, 83980492 --铜锣龙
}
--~ 卡对
function d.筛有效果卡(o1_4)
for o1 = 1, #有效果卡的类排 do
if bit.band(有效果卡的类排[o1], o1_4.type) == 0 then
else
return o1_4
end
end
if bit.band(TYPE_PENDULUM, o1_4.type) == 0 then
else
if 无效果灵摆怪兽排[o1_4.id] then
else
return o1_4
end
end
end
end
return f.历排(o1_0, d.筛有效果卡)
return 历排库.历排(o1_0, 筛卡库.筛有效果卡)
end
--~ 各文件的卡编排
function d.取卡对_一维(o1_0)
return f.历排(o1_0, d.取卡对)
return 历排库.历排(o1_0, d.取卡对)
end
--~ 卡编
function d.取卡对(o1)
local k1_0, k2_0
--~ 卡文对
k1_0 = d.取卡文(o1)
--~ 卡数据对
k2_0 = d.取卡数据(o1)
return f.连两对(k1_0, k2_0)
return 对库.连两对(k1_0, k2_0)
end
--~ 卡编
function d.取卡文(o1)
for o1_4 in 数据库:nrows("select * from texts where id = " .. o1) do
for o1_4 in 卡档:nrows("select * from texts where id = " .. o1) do
return o1_4
end
end
--~ 卡编
function d.取卡数据(o1)
for o1_4 in 数据库:nrows("select * from datas where id = " .. o1) do
for o1_4 in 卡档:nrows("select * from datas where id = " .. o1) do
--~ if o1_4.setcode > 0xffffffff then
--~ ffi = require("ffi")
--~ print(bit.tohex(o1_4.setcode, 16), o1_4.setcode, o1_4.setcode == 36592129229979791, bit.tohex(bit.rshift(o1_4.setcode, 31)), bit.tohex(bit.band(o1_4.setcode, 0xf)), string.format("%x", 36592129229979791 - 36592129229979791), bit.tohex(math.fmod(36592129229979791, 0xffff + 1)), math.fmod(36592129229979791, 0xffff + 1), ffi.new("uint64_t[1]", 36592129229979791)[0], tostring(36592129229979791) == tostring(o1_4.setcode), tonumber(tostring(o1_4.setcode)) == 36592129229979791, math.modf(36592129229979791 / (0xffff + 1)), bit.tohex(bit.band(o1_4.setcode - 4, ffi.new("uint64_t[1]", 0xffff)[0])))
--~ print(string.format("%x", 36592129229979791 - 5))
--~ else
--~ end
k1_0 = f.历文(o1, string.gmatch, "[^\n]+")
k1_0 = f.历排(k1_0, string.match, "Debug%.AddCard.+")
return f.历排(k1_0, string.match, "[0-9]+")
k1_0 = 历文库.历文(o1, string.gmatch, "[^\n]+")
k1_0 = 历排库.历排(k1_0, string.match, "Debug%.AddCard.+")
return 历排库.历排(k1_0, string.match, "[0-9]+")
end
--~ 文
function d.局筛则数(o1)
local k1
local k1_0
--~ 则数排
k1_0 = f.历文(o1, string.gmatch, "[^\n]+")
k1_0 = f.历排(k1_0, f.全筛前缀, "Debug.ReloadFieldBegin")
k1_0 = 历文库.历文(o1, string.gmatch, "[^\n]+")
k1_0 = 历排库.历排(k1_0, 前缀库.全筛前缀, "Debug.ReloadFieldBegin")
--~ 则数
k1 = string.match(k1_0[1], "[0-9]")
return k1 or 3
end
--~ 卡对排
function d.荐名(o1_0)
local k1
--~ print(o1_0[1].name)
--~ return o1_0[1]
k1_0 = d.取卡名排(o1_0)
return f.历排取一(k1_0, f.筛排中最短文)
k1_0 = 历排库.历排(o1_0, d.取卡名)
return 历排取一库.筛最短文(k1_0)
end
--~ 卡对排
function d.取卡名排(o1_0)
--~ 卡对
function d.取卡名(o1_0)
local k1_0
--~ 卡名排
k1_0 = {}
for o1 = 1, #o1_0 do
k1_0[o1] = o1_0[o1].name
end
return k1_0
k1 = f.to_uint64(o1_0[o1].setcode)
if k1 > 0xffffFFFFffff then
k1 = k1 - 1
k1 = 字节库.to_uint64(o1_0[o1].setcode)
if k1 < 1 then
else
if k1 > 0xffffFFFFffff then
k1 = k1 - 1
elseif k1 < 1 then
else
for o2 = 1, 11112222 do
if k1 < 1 then
break
else
--~ 大字段号
k2 = f.位和(k1, 0xffff)
k1 = f.位右移(k1, f.乘法(4, 4))
--~ 字段名
k3 = 字段名对[tonumber(k2)]
if k3 then
if k1_0[k3] then
k1_0[k3] = f.加法(k1_0[k3], 1)
else
k1_0[k3] = 1
end
if k2 > 0xfff then
--~ 小字段号
k4 = f.位和(k2, 0xfff)
k3 = 字段名对[tonumber(k4)]
if k3 then
if k1_0[k3] then
k1_0[k3] = f.加法(k1_0[k3], 1)
else
k1_0[k3] = 1
else
local k1, k2
local k1
local k1_0
--~ 字段对
k1_0 = d.取字段对(o1_0)
--~ f.历对(k1_0, print)
_, k1 = f.历对取一(k1_0, f.筛对中最大值)
_, k1 = 历对取一库.筛最大值(k1_0)
--~ print(_, k1)
k2_0 = f.历对(k1_0, f.全等筛对中值, k1)
k2_0 = 历对库.历对(k1_0, 历对库.全等筛值, k1)
--~ f.历对(k2_0, print)
--~ 最短的最高频字段
k2 = f.历对取一(k2_0, f.筛对中最短键)
--~ print(k2)
if k2 then
return k2
else
return false
end
end
function d.残局改名(o1_0)
local k1_0, k2_0, k3_0, k4_0, k5_0, k6_0, k7_0, k8_0
function d.残局荐名(o1_0)
local k1, k2
local k1_0, k2_0, k3_0, k4_0, k5_0, k6_0, k7_0, k8_0, k9_0
local k10_0
--~ 文件名排
k1_0 = f.历文(o1_0.文件目, 简文件库.dir)
k1_0 = f.历排(k1_0, f.全筛后缀, ".lua")
k1_0 = 历文库.历文(o1_0.文件目, 文件系库.dir)
k1_0 = 历排库.历排(k1_0, 后缀库.全筛后缀, ".lua")
--~ 文件排
k2_0 = f.历排(k1_0, f.全筛后缀, ".lua")
k2_0 = 历排库.历排(k1_0, 后缀库.全筛后缀, ".lua")
for o1 = 1, #k2_0 do
k2_0[o1] = f.加前缀(k2_0[o1], o1_0.文件目)
k2_0[o1] = f.读文件(k2_0[o1])
k2_0[o1] = 前缀库.加前缀(k2_0[o1], o1_0.文件目)
k2_0[o1] = 读文件库.读文件(k2_0[o1])
k2_0[o1] = string.gsub(k2_0[o1], "%-%-" .. "%[(=*)%[" .. ".-" .. "%]%1%]", "")
k2_0[o1] = string.gsub(k2_0[o1], "%-%-" .. "[^\n]*", "")
end
--~ 则数排
k3_0 = f.历排(k2_0, d.局筛则数)
k3_0 = 历排库.历排(k2_0, d.局筛则数)
--~ 各文件的卡编排
k4_0 = f.历排(k2_0, d.局筛卡编)
k4_0 = 历排库.历排(k2_0, d.局筛卡编)
_G.数据库 = 简数据库库.open(o1_0.数据库路)
k5_0 = f.历排(k4_0, d.取卡对_一维)
k5_0 = 历排库.历排(k4_0, d.取卡对_一维)
--~ 有效果卡的卡对排
k6_0 = f.历排(k5_0, d.筛有效果卡_一维)
k6_0 = 历排库.历排(k5_0, d.筛有效果卡_一维)
--~ print(k6_0[1][2].name)
k7_0 = f.历排(k6_0, table.maxn)
k7_0 = 历排库.历排(k6_0, table.maxn)
--~ 荐名排
k8_0 = f.历排(k6_0, d.荐名)
k8_0 = 历排库.历排(k6_0, d.荐名)
--~ 新名排
k9_0 = 历排库.历排(k1_0, string.gsub, 字集库.u8_to_a(" " .. ".+"), "")
--~ 编号排
k10_0 = 历排库.历排(k1_0, string.gsub, 字集库.u8_to_a(" " .. ".+"), "")
for o1 = 1, #k1_0 do
k9_0[o1] = string.gsub(k9_0[o1], "%." .. "lua".. "$", "")
k9_0[o1] = 字集库.a_to_u8(o1_0.文件目) .. 字集库.a_to_u8(k9_0[o1]) .. " " .. k3_0[o1] .. "_" .. k7_0[o1] .. "_" .. k8_0[o1] .. "." .. "lua"
k1_0[o1] = o1_0.文件目 .. k1_0[o1]
--~ 新名
k1 = 字集库.u8_to_a(k9_0[o1])
print(k1_0[o1], k3_0[o1], k7_0[o1], k8_0[o1])
--~ print(k5_0[o1], k6_0[o1])
os.rename(k1_0[o1], k1)
--~ 文件
k2 = 读文件库.读文件(k1)
k10_0[o1] = 字集库.a_to_u8(k10_0[o1])
k2 = string.gsub(k2, "Debug" .. "%." .. "SetAIName" .. "[^\n]+", [[Debug.SetAIName("]] .. k10_0[o1] .. [[")]], 1)
写文件库(k2, k1)
end
--~ k1 = 1
--~ print(k2_0[k1], k5_0[k1], k6_0[k1])
--~ print(k5_0[2])
, ["数据库路"] = [[D:\install\YGOPro\cards.cdb]]
, ["卡档路"] = [[D:\install\YGOPro\cards.cdb]]
}
for o1, o2 in pairs(d.目对) do
d.目对[o1] = f.操类(o2, "string", u8)
d.目对[o1] = 基类库.操类(o2, "string", 字集库.u8_to_a)
end
卡档 = 档库.open(d.目对.卡档路)
d.残局改名(d.目对)
d.残局荐名(d.目对)
|