Index: 残局文料/lua_lib/算机_程语_月_基类_能_传能_历_基类_表_对_取全.lua ================================================================== --- 残局文料/lua_lib/算机_程语_月_基类_能_传能_历_基类_表_对_取全.lua +++ 残局文料/lua_lib/算机_程语_月_基类_能_传能_历_基类_表_对_取全.lua @@ -1,7 +1,7 @@ local d = {} --- 启 +-- 全与局 --~ 对 --~ 能 --~ 入参3 function d.历对(o1_0, o1, o2) local k1, k2 @@ -17,10 +17,23 @@ 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 Index: 残局文料/游戏王_则拟器_原版_残局_局名_改名.lua ================================================================== --- 残局文料/游戏王_则拟器_原版_残局_局名_改名.lua +++ 残局文料/游戏王_则拟器_原版_残局_局名_改名.lua @@ -1,12 +1,8 @@ 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("算机_程语_月_基类_文_前缀")) @@ -15,26 +11,25 @@ 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) @@ -69,15 +64,12 @@ 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[o2] = string.match(k1_0[o2], "[0-9]+") - end - return k1_0 + k1_0 = 历排库.历排(k1_0, string.gsub, "[0-9]+", "", 1) + return 历排库.历排(k1_0, string.match, "[0-9]+") end --~ 文 function d.局筛则数(o1) local k1 local k1_0 @@ -138,21 +130,17 @@ --~ 各文件的卡编排 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 = {} - for o1 = 1, #k2_0 do - k8_0[o1] = d.荐名(k6_0[o1], k11_0[o1]) - end + k8_0 = 历排库.历二排(k6_0, k11_0, d.荐名) --~ 新名排 k9_0 = 历排库.历排(k1_0, string.gsub, 字集库.u8_to_a(" " .. ".+"), "") --~ 编号排 k10_0 = 历排库.历排(k1_0, string.gsub, 字集库.u8_to_a(" " .. ".+"), "") for o1 = 1, #k1_0 do @@ -180,10 +168,8 @@ end d.目对 = { ["文件目"] = "../single/" , ["卡档路"] = [[D:\install\YGOPro\cards.cdb]] } -for o1, o2 in pairs(d.目对) do - d.目对[o1] = 基类库.操类(o2, "string", 字集库.u8_to_a) - end +d.目对 = 历对库.历值(d.目对, 基类库.操类, "string", 字集库.u8_to_a) 卡档 = 档库.open(d.目对.卡档路) d.残局改名(d.目对)