1
2
3
4
5
6
7
8
9
10
11
12
|
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 简文件库 = require("lfs")
local 简数据库库 = require("lsqlite3")
local d = {}
do
local TYPE_SPELL = 0x2
local TYPE_TRAP = 0x4
local TYPE_EFFECT = 0x20
|
>
|
1
2
3
4
5
6
7
8
9
10
11
12
13
|
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 字段名对 = require(u8("字段名"))
local 简文件库 = require("lfs")
local 简数据库库 = require("lsqlite3")
local d = {}
do
local TYPE_SPELL = 0x2
local TYPE_TRAP = 0x4
local TYPE_EFFECT = 0x20
|
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
|
end
--~ 各文件的卡编排
function d.取卡对_一维(o1_0)
return f.历排(o1_0, d.取卡对)
end
--~ 卡编
function d.取卡对(o1)
for o1_4 in 数据库:nrows("select * from datas where id = " .. o1) do
return o1_4
end
end
--~ 文
function d.局筛卡编(o1)
local k1_0
--~ 卡编排
k1_0 = f.历文(o1, string.gmatch, "[^\n]+")
k1_0 = f.历排(k1_0, f.全筛前缀, "Debug.AddCard")
return f.历排(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 = string.match(k1_0[1], "[0-9]")
return k1 or 3
end
--~ 目对
function d.残局改名(o1_0)
local k1_0, k2_0, k3_0, k4_0, k5_0, k6_0
--~ 文件排
k1_0 = f.历文(o1_0.文件目, 简文件库.dir)
k1_0 = f.历排(k1_0, f.全筛后缀, ".lua")
|
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
|
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
|
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
|
end
--~ 各文件的卡编排
function d.取卡对_一维(o1_0)
return f.历排(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)
end
--~ 卡编
function d.取卡文(o1)
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
return o1_4
end
end
--~ 文
function d.局筛卡编(o1)
local k1_0
--~ 卡编排
k1_0 = f.历文(o1, string.gmatch, "[^\n]+")
k1_0 = f.历排(k1_0, string.match, "Debug%.AddCard.+")
return f.历排(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 = string.match(k1_0[1], "[0-9]")
return k1 or 3
end
--~ 卡对排
function d.荐名(o1_0)
--~ print(o1_0[1].name)
--~ return o1_0[1]
d.荐字段名(o1_0)
end
--~ 卡对排
function d.荐字段名(o1_0)
local k1, k2
local k1_0
--~ 字段对
k1_0 = {}
for o1 = 1, #o1_0 do
--~ 大字段号
k1 = bit.band(o1_0[o1].setcode, 0xffff)
print(o1_0[o1].setcode)
if k1 > 0xfff then
--~ 字段名
k2 = 字段名对[k1]
print(k1, k2)
if k1_0[k2] then
k1_0[k2] = k1_0[k2] + 1
else
k1_0[k2] = 1
end
end
--~ 小字段号
k1 = bit.band(o1_0[o1].setcode, 0xfff)
--~ 字段名
k2 = 字段名对[k1]
if k1_0[k2] then
k1_0[k2] = k1_0[k2] + 1
elseif k2 == nil then
else
k1_0[k2] = 1
end
end
end
--~ 目对
function d.残局改名(o1_0)
local k1_0, k2_0, k3_0, k4_0, k5_0, k6_0
--~ 文件排
k1_0 = f.历文(o1_0.文件目, 简文件库.dir)
k1_0 = f.历排(k1_0, f.全筛后缀, ".lua")
|
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
|
--~ 各文件的卡编排
k3_0 = f.历排(k1_0, d.局筛卡编)
_G.数据库 = 简数据库库.open(o1_0.数据库路)
--~ 各文件的卡对排
k4_0 = f.历排(k3_0, d.取卡对_一维)
--~ 有效果卡的张数排
k5_0 = f.历排(k4_0, d.筛有效果卡的张数)
--~ 卡文排
--~ k6_0 = f.历排(k3_0, d.取卡文)
--~ print(k5_0[2])
end
d.目对 = {
["文件目"] = "../single/"
, ["数据库路"] = [[D:\install\YGOPro\cards.cdb]]
}
for o1_0, o2_0 in pairs(d.目对) do
d.目对[o1_0] = f.操类(o2_0, "string", u8)
end
d.残局改名(d.目对)
|
|
|
>
|
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
|
--~ 各文件的卡编排
k3_0 = f.历排(k1_0, d.局筛卡编)
_G.数据库 = 简数据库库.open(o1_0.数据库路)
--~ 各文件的卡对排
k4_0 = f.历排(k3_0, d.取卡对_一维)
--~ 有效果卡的张数排
k5_0 = f.历排(k4_0, d.筛有效果卡的张数)
--~ 荐名排
k6_0 = f.历排(k4_0, d.荐名)
--~ print(k6_0[0])
--~ print(k5_0[2])
end
d.目对 = {
["文件目"] = "../single/"
, ["数据库路"] = [[D:\install\YGOPro\cards.cdb]]
}
for o1_0, o2_0 in pairs(d.目对) do
d.目对[o1_0] = f.操类(o2_0, "string", u8)
end
d.残局改名(d.目对)
|