游戏王残局简化版

Check-in [14ff7a9f5f]
Login

Check-in [14ff7a9f5f]

Overview
Comment:(/ω＼)
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA3-256: 14ff7a9f5f689489b2796b2b8bfaf5323e19aba8c87a95deb0e9c186dc5b10ec
User & Date: 顽雨沉风 on 2024-01-24 03:37:39
Other Links: manifest | tags
Context
2024-01-24
14:11
(/ω＼) check-in: 07246ed20a user: 顽雨沉风 tags: trunk
03:37
(/ω＼) check-in: 14ff7a9f5f user: 顽雨沉风 tags: trunk
2024-01-23
16:04
(/ω＼) check-in: 0243e12f54 user: 顽雨沉风 tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Modified 残局文料/lib_lua/ipml_mj_ysaf.lua from [eac916ff8c] to [7dd0a5fc8a]. 



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



local 字集码互转库 = require("u8_to_a")
local d_5 = {}
local 简件系库 = require("lfs")
function _G.require_u8(modname)
  return require(字集码互转库.u8_to_a(modname))
  end
do
local k1 = 0
function _G.递增示()
  k1 = k1 + 1
  print(k1)
  end
  end

>
>



|
|
|








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

package.path = [[.\lib_lua\?.lua;]] .. package.path
package.cpath = [[.\lib_dll\?.dll;]] .. package.cpath
local 字集码互转库 = require("u8_to_a")
local d_5 = {}
local 简件系库 = require("lfs")
--~ function _G.require_u8(modname)
  --~ return require(字集码互转库.u8_to_a(modname))
  --~ end
do
local k1 = 0
function _G.递增示()
  k1 = k1 + 1
  print(k1)
  end
  end
︙︙
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60

function d_5.写件_一维(o1, o1_9, o2, o3)
  local k1 = table.concat(o1_9, "\n")
  if o3 then
    k1 = o3(k1)
    end
  d_5.写件(o1, k1, o2)
  end
function d_5.删制表符(o1)
  return o1:gsub("\t", "")
  end
function d_5.删空格与制表符(o1)
  o1 = d_5.删空格(o1)
  return d_5.删制表符(o1)
  end
function d_5.文转排(text)
  local lines = {}
  for line in text:gmatch("[^\n]+") do








|
|
|








46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62

function d_5.写件_一维(o1, o1_9, o2, o3)
  local k1 = table.concat(o1_9, "\n")
  if o3 then
    k1 = o3(k1)
    end
  d_5.写件(o1, k1, o2)
  end
--~ function d_5.删制表符(o1)
  --~ return o1:gsub("\t", "")
  --~ end
function d_5.删空格与制表符(o1)
  o1 = d_5.删空格(o1)
  return d_5.删制表符(o1)
  end
function d_5.文转排(text)
  local lines = {}
  for line in text:gmatch("[^\n]+") do
︙︙
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

    end
  end
function d_5.删后缀(o1, o2)
  if o1:find(o2, -1, true) then
    return o1:sub(1, #o1 - #o2)
    end
  end
function d_5.删空行_不虑首末态(o1)
  return o1:gsub("\n+", "\n")
  end
function d_5.删空行(o1)
  o1 = d_5.删空行_不虑首末态(o1)
  o1 = d_5.删前缀(o1, "\n")
  return d_5.删后缀(o1, "\n")
  end
function d_5.删空格(o1)
  return o1:gsub(" ", "")
  end
function d_5.筛排(o1_9, o1, o2, o3)
  local k1_8
  local k1_9
  k1_9 = {}
  for o4 = 1, #o1_9 do
    k1_8 = o1(o1_9[o4], o2, o3)
    if k1_8 then
      k1_9[#k1_9 + 1] = k1_8
      end
    end
  return k1_9
  end













function d_5.筛件径(o1, o2)
  local k1






  local k1_9
  k1_9 = {}
  for o3 in 简件系库.dir(o1) do
    if o3:match(o2 or ".") then
      k1_9[#k1_9 + 1] = o1 .. "/" .. o3
      end
    end
  return k1_9
  end
function d_5.加前缀(o1, o2)
  return o2 .. o1
  end
function d_5.加前缀与后缀(o1, o2, o3)
  return o2 .. o1 .. o3
  end
function d_5.加后缀(o1, o2)
  return o1 .. o2
  end
function d_5.filterLinesWithCharacter(text, character)
  local result = {}
  local lines = d_5.文转排(text)
  -- 遍历每一行，检查是否包含目标字符
  for i, line in ipairs(lines) do
    if line:find(character, 1, true) then
      table.insert(result, line)
      end
    end
  return result
  end
function d_5.办并说(o1)
  print(o1)
  os.execute(o1)
  end
function d_5.筛单行等式_左右值态(o1)
  local k1_11
  k1_11 = {}
  for o2 in 11:gmatch("[^\n= \t]+") do
    table.insert(k1_11, o2)
    end
  return o2
  end
return d_5








|
|
|
|
|
|
|
|
|
|
|












>
>
>
>
>
>
>
>
>
>
>
>
>

|
>
>
>
>
>
>
|
|
|
|
|
|
|
|
|



|
|
|


















|
|
|
|
|
|
|
|


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

    end
  end
function d_5.删后缀(o1, o2)
  if o1:find(o2, -1, true) then
    return o1:sub(1, #o1 - #o2)
    end
  end
--~ function d_5.删空行_不虑首末态(o1)
  --~ return o1:gsub("\n+", "\n")
  --~ end
--~ function d_5.删空行(o1)
  --~ o1 = d_5.删空行_不虑首末态(o1)
  --~ o1 = d_5.删前缀(o1, "\n")
  --~ return d_5.删后缀(o1, "\n")
  --~ end
--~ function d_5.删空格(o1)
  --~ return o1:gsub(" ", "")
  --~ end
function d_5.筛排(o1_9, o1, o2, o3)
  local k1_8
  local k1_9
  k1_9 = {}
  for o4 = 1, #o1_9 do
    k1_8 = o1(o1_9[o4], o2, o3)
    if k1_8 then
      k1_9[#k1_9 + 1] = k1_8
      end
    end
  return k1_9
  end
function d_5.捕排(o1, o2, o3)
  local k1_9
  k1_9 = {}
  for o4 in o1(o2, o3) do
    k1_9[#k1_9 + 1] = o4
    end
  return k1_9
  end
function d_5.留文(o1, o2)
  if o1:match(o2 or ".") then
    return o1
    end
  end
function d_5.筛件径(o1, o2)
  local k1_9
  k1_9 = d_5.捕排(简件系库.dir, o1)
  k1_9 = d_5.筛排(k1_9, d_5.加前缀, o1 .. "/")
  return d_5.筛排(k1_9, d_5.留文, o2)
  end
--~ function d_5.筛件径(o1, o2)
  --~ local k1
  --~ local k1_9
  --~ k1_9 = {}
  --~ for o3 in 简件系库.dir(o1) do
    --~ if o3:match(o2 or ".") then
      --~ k1_9[#k1_9 + 1] = o1 .. "/" .. o3
      --~ end
    --~ end
  --~ return k1_9
  --~ end
function d_5.加前缀(o1, o2)
  return o2 .. o1
  end
--~ function d_5.加前缀与后缀(o1, o2, o3)
  --~ return o2 .. o1 .. o3
  --~ end
function d_5.加后缀(o1, o2)
  return o1 .. o2
  end
function d_5.filterLinesWithCharacter(text, character)
  local result = {}
  local lines = d_5.文转排(text)
  -- 遍历每一行，检查是否包含目标字符
  for i, line in ipairs(lines) do
    if line:find(character, 1, true) then
      table.insert(result, line)
      end
    end
  return result
  end
function d_5.办并说(o1)
  print(o1)
  os.execute(o1)
  end
--~ function d_5.筛单行等式_左右值态(o1)
  --~ local k1_11
  --~ k1_11 = {}
  --~ for o2 in k1_11:gmatch("[^\n= \t]+") do
    --~ table.insert(k1_11, o2)
    --~ end
  --~ return o2
  --~ end
return d_5

Modified 残局文料/lib_lua/删注/月程语_不虑字串.lua from [26efad08a9] to [ffab7f2243]. 

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

local d_3 = {}
function d_3.多行注_套娃态(o1)
  return o1:gsub("%-%-%[(=*)%[.-%]%1%]", "")
  end
function d_3.多行注_凡态(o1)
  return o1:gsub("%-%-%[%[.-%]%]", "")
  end
function d_3.单行注(o1)
  return o1:gsub("%-%-[^\n]*", "")
  end
function d_3.事启(o1)
  o1 = d_3.多行注_套娃态(o1)
  return d_3.单行注(o1)
  end
return d_3


|
|
|
|
|
|



|
|
|
|


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

local d_3 = {}
--~ function d_3.多行注_套娃态(o1)
  --~ return o1:gsub("%-%-%[(=*)%[.-%]%1%]", "")
  --~ end
--~ function d_3.多行注_凡态(o1)
  --~ return o1:gsub("%-%-%[%[.-%]%]", "")
  --~ end
function d_3.单行注(o1)
  return o1:gsub("%-%-[^\n]*", "")
  end
--~ function d_3.事启(o1)
  --~ o1 = d_3.多行注_套娃态(o1)
  --~ return d_3.单行注(o1)
  --~ end
return d_3

Modified 残局文料/产常量件.lua from [f01d8f854e] to [5a909705d8]. 

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

package.path = [[.\lib_lua\?.lua;]] .. package.path
package.cpath = [[.\lib_dll\?.dll;]] .. package.cpath
_G.常用库 = require("ipml_mj_ysaf")
local 字集码互转库 = require("u8_to_a")
local 删注库_月程语态_不虑字串态 = require_u8("删注/月程语_不虑字串")
local d_2 = {}
function d_2.产常量件(o1)
  local k1
  k1 = 常用库.读件(o1 .. "/script/constant.lua", "rb")
  k1 = 删注库_月程语态_不虑字串态.事启(k1)
  --~ k1 = 常用库.删空格与制表符(k1)
  for o1 in k1:gmatch("[^\n= \t]+") do
    print(o1)
    end
  --~ k1 = 常用库.删空行(k1)
  --~ k1 = "local k1_11 = {}\n" .. k1 .. ""
  --~ k1 = 常用库.筛排(k1, print)
  --~ print(k1)
  --~ print(k1:gsub("\n", "猪"))
  end
function d_2.筛凡常量()





|




|
|
|
|
|








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

package.path = [[.\lib_lua\?.lua;]] .. package.path
package.cpath = [[.\lib_dll\?.dll;]] .. package.cpath
_G.常用库 = require("ipml_mj_ysaf")
local 字集码互转库 = require("u8_to_a")
local 删注库_月程语版_不虑字串版 = require(字集码互转库.u8_to_a("删注/月程语_不虑字串"))
local d_2 = {}
function d_2.产常量件(o1)
  local k1
  k1 = 常用库.读件(o1 .. "/script/constant.lua", "rb")
  k1 = 删注库_月程语版_不虑字串版.单行注(k1)
  k1 = 常用库.捕排(string.gmatch, k1, "[^\n= \t]+")
  --~ for o1 in k1:gmatch("[^\n= \t]+") do
    --~ print(o1)
    --~ end
  --~ k1 = 常用库.删空行(k1)
  --~ k1 = "local k1_11 = {}\n" .. k1 .. ""
  --~ k1 = 常用库.筛排(k1, print)
  --~ print(k1)
  --~ print(k1:gsub("\n", "猪"))
  end
function d_2.筛凡常量()
︙︙

Modified 残局文料/齐月程语件.lua from [1fe5b29b29] to [95e56cd4b5]. 

1
2
3
4
5
6
7
8
9

10
11
12

package.path = [[.\lib_lua\?.lua;]] .. package.path
package.cpath = [[.\lib_dll\?.dll;]] .. package.cpath
_G.常用库 = require("ipml_mj_ysaf")
local 字集码互转库 = require("u8_to_a")
local d_2 = {}
function d_2.齐月程语件(o1)
  local k1_9
  k1_9 = 常用库.筛件径(o1, "%.lua$")
  k1_9 = 常用库.筛排(k1_9, 常用库.加前缀与后缀, [[stylua "]], [["]])

  常用库.筛排(k1_9, 常用库.办并说)
  end
d_2.齐月程语件(字集码互转库.u8_to_a([[../single]]))

<
<
|





|
>






1
2
3
4
5
6
7
8
9
10
11



_G.常用库 = require("lib_lua/ipml_mj_ysaf")
local 字集码互转库 = require("u8_to_a")
local d_2 = {}
function d_2.齐月程语件(o1)
  local k1_9
  k1_9 = 常用库.筛件径(o1, "%.lua$")
  k1_9 = 常用库.筛排(k1_9, 常用库.加前缀, [[stylua "]])
  k1_9 = 常用库.筛排(k1_9, 常用库.加后缀, [["]])
  常用库.筛排(k1_9, 常用库.办并说)
  end
d_2.齐月程语件(字集码互转库.u8_to_a([[../single]]))