游戏王残局简化版

Check-in [0bb276043b]
Login

Check-in [0bb276043b]

Overview
Comment:慢慢来
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA3-256: 0bb276043b12a3a5222423bb5213b8ef54908c09151af6e894f1cdffd34f438e
User & Date: 顽雨沉风 on 2024-02-11 04:28:36
Other Links: manifest | tags
Context
2024-02-11
08:42
慢慢来 check-in: c3197c9f7f user: 顽雨沉风 tags: trunk
04:28
慢慢来 check-in: 0bb276043b user: 顽雨沉风 tags: trunk
03:55
慢慢来 check-in: 51229eec48 user: 顽雨沉风 tags: trunk
Changes
Hide Diffs Side-by-Side Diffs Ignore Whitespace Patch

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

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

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


-
+



















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











local d = {}
-- 启
-- 全与局
--~ 对
--~ 能
--~ 入参3
function d.历对(o1_0, o1, o2)
  local k1, k2
  local k1_0
  --~ 对
  k1_0 = {}
  for o3, o4 in pairs(o1_0) do
    --~ 键
    --~ 值
    k1, k2 = o1(o3, o4, o2)
    if k1 then
      k1_0[k1] = k2
    else
      end
    end
  return k1_0
  end
--~ 对
--~ 能
--~ 入参2
--~ 入参3
function d.历值(o1_0, o1, o2, o3)
  local k1_0
  --~ 对
  k1_0 = {}
  for o4, o5 in pairs(o1_0) do
    k1_0[o4] = o1(o5, o2, o3)
    end
  return k1_0
  end
--~ 键
--~ 值
--~ 要找的值
function d.全等筛值(o1, o2, o3)
  if o2 == o3 then
    return o1, o2
  else
    end
  end
return d

Modified 残局文料/游戏王_则拟器_原版_残局_局名_改名.lua from [521c4b9261] to [b5239c0282]. 

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

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



-

-
-
-












-



-




+


-
-
+
+


-
+








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(字集库.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 读文件库 = require(字集库.u8_to_a("算机_基统_窗群_文件系_小文件_读"))
local 写文件库 = require(字集库.u8_to_a("算机_基统_窗群_文件系_小文件_写"))
local string = string
local os = os
local table = table
local d = {}
local 卡档
--~ 各文件的卡对排
function d.筛有效果卡_一维(o1_0)
--~ 卡对排
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
  --~ 卡文对
︙
67
68
69
70
71
72
73
74
75

76
77
78

79
80
81
82
83
84
85

62
63
64
65
66
67
68


69



70
71
72
73
74
75
76
77








-
-
+
-
-
-
+








  end
--~ 文
function d.局筛血(o1)
  local k1_0
  --~ 血排
  k1_0 = 历文库.历文(o1, string.gmatch, "[^\n]+")
  k1_0 = 历排库.历排(k1_0, string.match, "Debug%.SetPlayerInfo.+")
  for o2 = 1, #k1_0 do
    k1_0[o2] = string.gsub(k1_0[o2], "[0-9]+", "", 1)
  k1_0 = 历排库.历排(k1_0, string.gsub, "[0-9]+", "", 1)
    k1_0[o2] = string.match(k1_0[o2], "[0-9]+")
    end
  return k1_0
  return 历排库.历排(k1_0, string.match, "[0-9]+")
  end
--~ 文
function d.局筛则数(o1)
  local k1
  local k1_0
  --~ 则数排
  k1_0 = 历文库.历文(o1, string.gmatch, "[^\n]+")
︙
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

128
129
130
131
132
133
134

135
136
137
138
139
140

141




142
143
144
145
146
147
148








-
+





-
+
-
-
-
-








  --~ 则数排
  k3_0 = 历排库.历排(k2_0, d.局筛则数)
  --~ 各文件的卡编排
  k4_0 = 历排库.历排(k2_0, d.局筛卡编)
  --~ 各文件的卡对排
  k5_0 = 历排库.历排(k4_0, d.取卡对_一维)
  --~ 有效果卡的卡对排
  k6_0 = 历排库.历排(k5_0, d.筛有效果卡_一维)
  k6_0 = 历排库.历排(k5_0, d.筛有效果卡)
  --~ 有效果卡的张数排
  k7_0 = 历排库.历排(k6_0, table.maxn)
  --~ 血排
  k11_0 = 历排库.历排(k2_0, d.局筛血)
  --~ 荐名排
  --~ k8_0 = 历排库.历排(k6_0, d.荐名)
  k8_0 = 历排库.历二排(k6_0, k11_0, d.荐名)
  k8_0 = {}
  for o1 = 1, #k2_0 do
    k8_0[o1] = d.荐名(k6_0[o1], k11_0[o1])
    end
  --~ 新名排
  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], 2)
︙
178
179
180
181
182
183
184
185
186

187
188
189

166
167
168
169
170
171
172


173

174
175








-
-
+
-



      end
    end
  end
d.目对 = {
  ["文件目"] = "../single/"
  , ["卡档路"] = [[D:\install\YGOPro\cards.cdb]]
  }
for o1, o2 in pairs(d.目对) do
  d.目对[o1] = 基类库.操类(o2, "string", 字集库.u8_to_a)
d.目对 = 历对库.历值(d.目对, 基类库.操类, "string", 字集库.u8_to_a)
  end
卡档 = 档库.open(d.目对.卡档路)
d.残局改名(d.目对)