Overview
| Comment: | 差不多了 |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA3-256: |
c4461ce23153bdbbc383df82173ece39 |
| User & Date: | 顽雨沉风 on 2024-02-05 14:53:11 |
| Other Links: | manifest | tags |
Context
|
2024-02-05
| ||
| 14:53 | 删冗 check-in: 1b8a66c38a user: 顽雨沉风 tags: trunk | |
| 14:53 | 差不多了 check-in: c4461ce231 user: 顽雨沉风 tags: trunk | |
| 11:37 | 又卡住了 check-in: 91958121fe user: 顽雨沉风 tags: trunk | |
Changes
Modified 残局文料/lua_lib/常用库.lua from [ff88c3754c] to [4e9da26420].
| ︙ | ︙ | |||
24 25 26 27 28 29 30 |
--~ 集排
k1_0 = {}
for o3_0 in o2(o1, o1_0, o2_0) do
k1_0[#k1_0 + 1] = o3_0
end
return k1_0
end
| > > > > > > > > > > > > > > > > > > > > > | | | | | 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 |
--~ 集排
k1_0 = {}
for o3_0 in o2(o1, o1_0, o2_0) do
k1_0[#k1_0 + 1] = o3_0
end
return k1_0
end
--~ 排
--~ 能
function d.历排取一(o1_0, o1)
local k1
for o2 = 1, #o1_0 do
--~ 值
k1 = o1(k1, o1_0[o2])
end
return k1
end
--~ 对
--~ 能
function d.历对取一(o1_0, o1)
local k1, k2
for o2, o2_0 in pairs(o1_0) do
--~ 键
--~ 值
k1, k2 = o1(k1, k2, o2, o2_0)
end
return k1, k2
end
function d.历对(o1_0, o1, o2)
local k1
local k1_0, k2_0
--~ 对
k1_0 = {}
for o3, o2_0 in pairs(o1_0) do
--~ 键
--~ 值
k1, k2_0 = o1(o3, o2_0, o2)
if k1 then
k1_0[k1] = k2_0
else
end
end
return k1_0
end
--~ 排中值
--~ 值类
--~ 办值的能
function d.操类(o1_0, o1, o2)
if type(o1_0) == o1 then
return o2(o1_0)
else
return o1_0
|
| ︙ | ︙ | |||
192 193 194 195 196 197 198 | return bit.band(o1, o2) end --~ 数 --~ 右移几位 function d.位右移(o1, o2) return bit.rshift(o1, o2) end | > > > | | < | | | > > | > > > > > > > > > > > | > | | > > > > | > > > > | > > > > > > > > > > | 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 246 247 248 249 250 251 252 253 254 255 256 257 258 259 260 261 262 263 264 265 266 267 268 269 270 271 |
return bit.band(o1, o2)
end
--~ 数
--~ 右移几位
function d.位右移(o1, o2)
return bit.rshift(o1, o2)
end
--~ 键
--~ 最大值
--~ 键
--~ 值
function d.筛对中最大值(o1, o2, o3, o4)
if o2 == nil then
return o3, o4
elseif o2 < o4 then
return o3, o4
else
return o1, o2
end
end
--~ 键
--~ 最短键
--~ 键
--~ 值
function d.筛对中最短键(o1, o2, o3, o4)
if o1 == nil then
return o3, o4
elseif #o1 > #o3 then
return o3, o4
else
return o1, o2
end
end
--~ 最短文
--~ 值
function d.筛排中最短文(o1, o2)
if o1 == nil then
return o2
elseif #o1 > #o2 then
return o2
else
return o1
end
end
--~ 内数
function d.to_uint64(o1)
local uint64_pointer = ffi.new("uint64_t[1]", o1)
return uint64_pointer[0]
end
--~ 键
--~ 值
--~ 要找的值
function d.全等筛对中值(o1, o2, o3)
if o2 == o3 then
return o1, o2
else
end
end
return d
|
Modified 残局文料/残局改名.lua from [f3ccfec413] to [e7854921b5].
| ︙ | ︙ | |||
37 38 39 40 41 42 43 |
else
return o1_4
end
end
end
end
--~ 各文件的卡对排
| | < < | < | 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 |
else
return o1_4
end
end
end
end
--~ 各文件的卡对排
function d.筛有效果卡_一维(o1_0)
return f.历排(o1_0, d.筛有效果卡)
end
--~ 各文件的卡编排
function d.取卡对_一维(o1_0)
return f.历排(o1_0, d.取卡对)
end
--~ 卡编
function d.取卡对(o1)
|
| ︙ | ︙ | |||
95 96 97 98 99 100 101 102 103 | 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] | > > | > > > | > > > > > > > > > > > > | > > > > > > > > > > < < < < < > | | | | | | | | > > < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < > > > > > > > > | > > > > > > > > > > > > > | > | | > > | | | | | | | | | > > | > | > > | > > > | | | 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 |
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
--~ print(o1_0[1].name)
--~ return o1_0[1]
--~ 名
k1 = d.荐字段名(o1_0)
if k1 then
else
k1 = d.荐卡名(o1_0)
end
if k1 then
return k1
else
return "请便"
end
end
function d.荐卡名(o1_0)
local k1_0
--~ 卡名排
k1_0 = d.取卡名排(o1_0)
return f.历排取一(k1_0, f.筛排中最短文)
end
--~ 卡对排
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
end
--~ 卡对排
function d.取字段对(o1_0)
local k1, k2, k3, k4
local k1_0
--~ 字段对
k1_0 = {}
for o1 = 1, #o1_0 do
--~ 字段数
k1 = f.to_uint64(o1_0[o1].setcode)
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
end
else
end
else
end
else
end
end
end
end
end
return k1_0
end
--~ 卡对排
function d.荐字段名(o1_0)
local k1, k2
local k1_0
--~ 字段对
k1_0 = d.取字段对(o1_0)
--~ f.历对(k1_0, print)
--~ 最大的字段名数量
_, k1 = f.历对取一(k1_0, f.筛对中最大值)
--~ print(_, k1)
--~ 最高频字段名对
k2_0 = f.历对(k1_0, f.全等筛对中值, 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
--~ 文件名排
k1_0 = f.历文(o1_0.文件目, 简文件库.dir)
k1_0 = f.历排(k1_0, f.全筛后缀, ".lua")
--~ 文件排
k2_0 = f.历排(k1_0, f.全筛后缀, ".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] = string.gsub(k2_0[o1], "%-%-" .. "%[(=*)%[" .. ".-" .. "%]%1%]", "")
k2_0[o1] = string.gsub(k2_0[o1], "%-%-" .. "[^\n]*", "")
end
--~ 则数排
k3_0 = f.历排(k2_0, d.局筛则数)
--~ 各文件的卡编排
k4_0 = f.历排(k2_0, d.局筛卡编)
_G.数据库 = 简数据库库.open(o1_0.数据库路)
--~ 各文件的卡对排
k5_0 = f.历排(k4_0, d.取卡对_一维)
--~ 有效果卡的卡对排
k6_0 = f.历排(k5_0, d.筛有效果卡_一维)
--~ print(k6_0[1][2].name)
--~ 有效果卡的张数排
k7_0 = f.历排(k6_0, table.maxn)
--~ 荐名排
k8_0 = f.历排(k6_0, d.荐名)
for o1 = 1, #k1_0 do
print(k1_0[o1], k3_0[o1], k7_0[o1], k8_0[o1])
--~ print(k5_0[o1], k6_0[o1])
end
--~ k1 = 1
--~ print(k2_0[k1], k5_0[k1], k6_0[k1])
--~ print(k5_0[2])
end
d.目对 = {
["文件目"] = "../single/"
, ["数据库路"] = [[D:\install\YGOPro\cards.cdb]]
}
for o1, o2 in pairs(d.目对) do
d.目对[o1] = f.操类(o2, "string", u8)
end
d.残局改名(d.目对)
|
Added 残局文料/残局荐名.lua version [1734e1f425].
> > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > | 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 |
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
local TYPE_PENDULUM = 0x1000000
local 有效果卡的类排 = {
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
--~ 各文件的卡对排
function d.筛有效果卡_一维(o1_0)
return f.历排(o1_0, d.筛有效果卡)
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
--~ 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
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)
local k1
--~ print(o1_0[1].name)
--~ return o1_0[1]
--~ 名
k1 = d.荐字段名(o1_0)
if k1 then
else
k1 = d.荐卡名(o1_0)
end
if k1 then
return k1
else
return "请便"
end
end
function d.荐卡名(o1_0)
local k1_0
--~ 卡名排
k1_0 = d.取卡名排(o1_0)
return f.历排取一(k1_0, f.筛排中最短文)
end
--~ 卡对排
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
end
--~ 卡对排
function d.取字段对(o1_0)
local k1, k2, k3, k4
local k1_0
--~ 字段对
k1_0 = {}
for o1 = 1, #o1_0 do
--~ 字段数
k1 = f.to_uint64(o1_0[o1].setcode)
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
end
else
end
else
end
else
end
end
end
end
end
return k1_0
end
--~ 卡对排
function d.荐字段名(o1_0)
local k1, k2
local k1_0
--~ 字段对
k1_0 = d.取字段对(o1_0)
--~ f.历对(k1_0, print)
--~ 最大的字段名数量
_, k1 = f.历对取一(k1_0, f.筛对中最大值)
--~ print(_, k1)
--~ 最高频字段名对
k2_0 = f.历对(k1_0, f.全等筛对中值, 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
--~ 文件名排
k1_0 = f.历文(o1_0.文件目, 简文件库.dir)
k1_0 = f.历排(k1_0, f.全筛后缀, ".lua")
--~ 文件排
k2_0 = f.历排(k1_0, f.全筛后缀, ".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] = string.gsub(k2_0[o1], "%-%-" .. "%[(=*)%[" .. ".-" .. "%]%1%]", "")
k2_0[o1] = string.gsub(k2_0[o1], "%-%-" .. "[^\n]*", "")
end
--~ 则数排
k3_0 = f.历排(k2_0, d.局筛则数)
--~ 各文件的卡编排
k4_0 = f.历排(k2_0, d.局筛卡编)
_G.数据库 = 简数据库库.open(o1_0.数据库路)
--~ 各文件的卡对排
k5_0 = f.历排(k4_0, d.取卡对_一维)
--~ 有效果卡的卡对排
k6_0 = f.历排(k5_0, d.筛有效果卡_一维)
--~ print(k6_0[1][2].name)
--~ 有效果卡的张数排
k7_0 = f.历排(k6_0, table.maxn)
--~ 荐名排
k8_0 = f.历排(k6_0, d.荐名)
for o1 = 1, #k1_0 do
print(字集码互转库.a_to_u8(k1_0[o1]), k3_0[o1], k7_0[o1], k8_0[o1])
--~ print(k5_0[o1], k6_0[o1])
end
--~ k1 = 1
--~ print(k2_0[k1], k5_0[k1], k6_0[k1])
--~ print(k5_0[2])
end
d.目对 = {
["文件目"] = "../single/"
, ["数据库路"] = [[D:\install\YGOPro\cards.cdb]]
}
for o1, o2 in pairs(d.目对) do
d.目对[o1] = f.操类(o2, "string", u8)
end
d.残局改名(d.目对)
|