游戏王残局简化版

Check-in [93f2f6943b]
Login

Check-in [93f2f6943b]

Overview
Comment:慢慢来
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA3-256: 93f2f6943bbf7fac1e63355dd4dac55ad71ce888d6eedfe43ad164f5ee3bee1c
User & Date: 顽雨沉风 on 2024-02-09 05:12:02
Other Links: manifest | tags
Context
2024-02-09
05:22
慢慢来 check-in: 960596b888 user: 顽雨沉风 tags: trunk
05:12
慢慢来 check-in: 93f2f6943b user: 顽雨沉风 tags: trunk
2024-02-08
12:35
慢慢来 check-in: 77f6e5c564 user: 顽雨沉风 tags: trunk
Changes
Hide Diffs Side-by-Side Diffs Ignore Whitespace Patch

Deleted 残局文料/lua_lib/算机_基统_Windows_件系_小件_读.lua version [a7ffc6f8bf].

Added 残局文料/lua_lib/算机_基统_窗群_件系_小件_读 (2).lua version [a7ffc6f8bf].

Added 残局文料/lua_lib/算机_基统_窗群_文件系_小文件_读.lua version [7b1ebd730f]. 

















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

+
+
+
+
+
+
+
+
+
+
+
+
+
+
+

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








Added 残局文料/lua_lib/算机_理器_通用_字节.lua version [d3597d5255].












1
2
3
4
5
6
7
8

+
+
+
+
+
+
+
+

local ffi = require("ffi")
local d = {}
--~ 内数
function d.to_uint64(o1)
  local uint64_pointer = ffi.new("uint64_t[1]", o1)
  return uint64_pointer[0]
  end
return d








Deleted 残局文料/lua_lib/算机_程语_月_基类_数_基.lua version [e6783b3394].



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


























-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-

local d = {}
-- 加减
--~ 左加数
--~ 右加数
function d.加法(o1, o2)
  return o1 + o2
  end
--~ 左减数
--~ 右减数
function d.减法(o1, o2)
  return o1 - o2
  end
-- 乘除
--~ 左乘数
--~ 右乘数
function d.乘法(o1, o2)
  return o1 * o2
  end
--~ 左除数
--~ 右除数
function d.除法(o1, o2)
  return o1 / o2
  end
return d








Deleted 残局文料/lua_lib/算机_程语_月_基类_能_传能_历_历排.lua version [a7ffc6f8bf].








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




︙


15
16
17
18
19
20
21
22









23

15
16
17
18
19
20
21

22
23
24
25
26
27
28
29
30
31








-
+
+
+
+
+
+
+
+
+


    if k1 then
      k1_0[k1] = k2
    else
      end
    end
  return k1_0
  end

--~ 键
--~ 值
--~ 要找的值
function d.全等筛值(o1, o2, o3)
  if o2 == o3 then
    return o1, o2
  else
    end
  end
return d








Deleted 残局文料/lua_lib/算机_程语_月_基类_能_传能_历_基类_表_排.lua version [052d31a120].



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



















-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-

local d = {}
-- 遍历取全和遍历取一
--~ 排
--~ 办排中值的能
--~ 入参2
--~ 入参3
--~ 入参4
function d.历排(o1_0, o1, o2, o3, o4)
  local k1_0
  --~ 集排
  k1_0 = {}
  for o5 = 1, #o1_0 do
    k1_0[#k1_0 + 1] = o1(o1_0[o5], o2, o3, o4)
    end
  return k1_0
  end
return d








Deleted 残局文料/lua_lib/算机_程语_月_基类_能_返还.lua version [00cc8949d0].



1
2
3
4
5
6
7
8










-
-
-
-
-
-
-
-

local d = {}
-- 数量
--~ 入参1
--~ 入参2
function d.二参(o1, o2)
  return o1, o2
  end
return d








Modified 残局文料/残局荐名.lua
from [febb832e31]
to [f0f7a230b1].



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

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








-
-
+
+










-
+

+
+
+
+

+



















-
+





-
+








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 文件系库 = 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("游戏王_YGOPro_残局_卡_全筛_有效果卡"))
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
local d = {}
local 卡档
--~ 各文件的卡对排
function d.筛有效果卡_一维(o1_0)
  return 历排库.历排(o1_0, 筛卡库.筛有效果卡)
  end
--~ 各文件的卡编排
function d.取卡对_一维(o1_0)
  return 历排库.历排(o1_0, d.取卡对)
  end
--~ 卡编
function d.取卡对(o1)
  local k1_0, k2_0
  --~ 卡文对
  k1_0 = d.取卡文(o1)
  --~ 卡数据对
  k2_0 = d.取卡数据(o1)
  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
    return o1_4
    end
  end
--~ 文
function d.局筛卡编(o1)
  local k1_0
  --~ 卡编排




︙


98
99
100
101
102
103
104
105

106
107
108
109
110
111
112

103
104
105
106
107
108
109

110
111
112
113
114
115
116
117








-
+








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)
    k1 = 字节库.to_uint64(o1_0[o1].setcode)
    if k1 < 1 then
    else
      if k1 > 0xffffFFFFffff then
        k1 = k1 - 1
      else
        for o2 = 1, 11112222 do
          if k1 < 1 then




︙


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

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








-
+




-
+

-
+





-
+







-
-








+

+
+
+
+
-
+




-
+




+


  local k1
  local k1_0
  --~ 字段对
  k1_0 = d.取字段对(o1_0)
  --~ 最大的字段名数量
  _, k1 = 历对取一库.筛最大值(k1_0)
  --~ 最高频字段名对
  k2_0 = 历对库.历对(k1_0, f.全等筛对中值, k1)
  k2_0 = 历对库.历对(k1_0, 历对库.全等筛值, k1)
  return 历对取一库.筛最短键(k2_0)
  end
--~ 目对
function d.残局荐名(o1_0)
  local k1_0, k2_0, k3_0, k4_0, k5_0, k6_0, k7_0, k8_0
  local k1_0, k2_0, k3_0, k4_0, k5_0, k6_0, k7_0, k8_0, k9_0
  --~ 文件名排
  k1_0 = 历文库.历文(o1_0.文件目, 简文件库.dir)
  k1_0 = 历文库.历文(o1_0.文件目, 文件系库.dir)
  k1_0 = 历排库.历排(k1_0, 后缀库.全筛后缀, ".lua")
  --~ 文件排
  k2_0 = 历排库.历排(k1_0, 后缀库.全筛后缀, ".lua")
  for o1 = 1, #k2_0 do
    k2_0[o1] = 前缀库.加前缀(k2_0[o1], o1_0.文件目)
    k2_0[o1] = f.读文件(k2_0[o1])
    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 = 历排库.历排(k2_0, d.局筛则数)
  --~ 各文件的卡编排
  k4_0 = 历排库.历排(k2_0, d.局筛卡编)
  --~ 卡片库
  _G.数据库 = 简数据库库.open(o1_0.数据库路)
  --~ 各文件的卡对排
  k5_0 = 历排库.历排(k4_0, d.取卡对_一维)
  --~ 有效果卡的卡对排
  k6_0 = 历排库.历排(k5_0, d.筛有效果卡_一维)
  --~ 有效果卡的张数排
  k7_0 = 历排库.历排(k6_0, table.maxn)
  --~ 荐名排
  k8_0 = 历排库.历排(k6_0, d.荐名)
  k9_0 = 历排库.历排(k1_0, string.gsub, "　" .. ".+", "")
  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]
    print(k9_0[o1])
    print(字集库.a_to_u8(k1_0[o1]), k3_0[o1], k7_0[o1], k8_0[o1])
    --~ print(字集库.a_to_u8(k1_0[o1]), k3_0[o1], k7_0[o1], k8_0[o1])
    end
  end
d.目对 = {
  ["文件目"] = "../single/"
  , ["数据库路"] = [[D:\install\YGOPro\cards.cdb]]
  , ["卡档路"] = [[D:\install\YGOPro\cards.cdb]]
  }
for o1, o2 in pairs(d.目对) do
  d.目对[o1] = 基类库.操类(o2, "string", 字集库.u8_to_a)
  end
卡档 = 档库.open(d.目对.卡档路)
d.残局荐名(d.目对)








Deleted 残局文料/游戏王_YGOPro_残局_卡_全筛_有效果卡.lua version [1cfb7fbe91].



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





































-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-

local 字集库 = require("u8_to_a")
local 位算库 = require(字集库.u8_to_a("算机_程语_月_基类_数_位算"))
local d = {}
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 位算库.位和(有效果卡的类排[o1], o1_4.type) == 0 then
    else
      return o1_4
      end
    end
  if 位算库.位和(TYPE_PENDULUM, o1_4.type) == 0 then
  else
    if 无效果灵摆怪兽排[o1_4.id] then
    else
      return o1_4
      end
    end
  end
return d








Added 残局文料/游戏王_则拟器_原版_残局_卡_全筛_有效果卡.lua version [1cfb7fbe91].







































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

+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+

local 字集库 = require("u8_to_a")
local 位算库 = require(字集库.u8_to_a("算机_程语_月_基类_数_位算"))
local d = {}
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 位算库.位和(有效果卡的类排[o1], o1_4.type) == 0 then
    else
      return o1_4
      end
    end
  if 位算库.位和(TYPE_PENDULUM, o1_4.type) == 0 then
  else
    if 无效果灵摆怪兽排[o1_4.id] then
    else
      return o1_4
      end
    end
  end
return d