Index: script/c0.lua ================================================================== --- script/c0.lua +++ script/c0.lua @@ -1,371 +1,339 @@ - -local str = {} -local math = math -local string = string -local table = table -_G.fun = {} ---------------------------------- -local cache_1 -local cache_2 -local cache_3 -local cache_4 -local cache_5 -local cache_6 -local cache_7 -local cache_8 -local cache_9 -local _ -str["效果卡的种类表"] = { - TYPE_SPELL - , TYPE_TRAP - , TYPE_EFFECT - } -str["无效果灵摆怪兽表"] = { - 28363749 - , 19474136 - , 17390179 - , 83980492 - } -cache_1 = 0 -cache_1 = cache_1 + LOCATION_HAND -+ LOCATION_MZONE -+ LOCATION_SZONE -+ LOCATION_GRAVE -+ LOCATION_REMOVED -str["除卡组与额外卡组以外的区域"] = cache_1 -cache_1 = cache_1 + LOCATION_DECK -+ LOCATION_EXTRA -str["所有区域"] = cache_1 ---第一层------------------------------- -local cache_1 -local cache_2 -local cache_3 -local cache_4 -local cache_5 -local cache_6 -local cache_7 -local cache_8 -local cache_9 -local _ -fun["Debug.ReloadFieldBegin"] = Debug.ReloadFieldBegin -Debug.ReloadFieldBegin = function(str_1, str_2) --{ - str["不洗牌"] = str_1 & DUEL_PSEUDO_SHUFFLE - str["无BP"] = str_1 & DUEL_ATTACK_FIRST_TURN - str["无AI"] = str_1 & DUEL_SIMPLE_AI - str["规则表"] = { - [3] = "大师3 " - , [4] = "新大师 " - , [5] = "大师2020 " - } - if str_2 then --{ - str["规则"] = str["规则表"][str_2] - --} - else --{ - str["规则"] = str["规则表"][5] - end --} - fun["Debug.ReloadFieldBegin"](str_1, str_2) - end --} -fun["一_随机抽卡"] = function(str_1) --{ - str["随机抽卡的数量"] = str_1 - str["效果"] = Effect.GlobalEffect() - str["效果"]:SetType(EFFECT_TYPE_FIELD - + EFFECT_TYPE_CONTINUOUS) - str["效果"]:SetCode(EVENT_ADJUST) - str["效果"]:SetCondition(aux.TRUE) - function cache_1(effect_event - , player_who_activate_the_effect) --{ - Duel.ShuffleDeck(0) - Duel.Draw(0,str_1,REASON_RULE) - effect_event:Reset() - end --} - str["效果"]:SetOperation(cache_1) - Duel.RegisterEffect(str["效果"] - , 0) - end --} -fun["一_失败得分"] = function() --{ - str["失败得分表"] = { - [0] = "神龙之圣刻印" - , [100] = "调和支援士" - , [200] = "深渊的暗杀者" - , [300] = "救援猫" - , [400] = "注射天使 莉莉" - , [500] = "不知火的隐者" - , [600] = "影依猎鹰" - , [700] = "铁兽战线 姬特" - , [800] = "召唤僧" - , [900] = "恩底弥翁的仆从" - , [1000] = "机壳工具 丑恶" - , [1100] = "欧尼斯特" - , [1200] = "次元吸引者" - , [1300] = "黑羽-疾风之盖尔" - , [1400] = "加农炮兵" - , [1500] = "教导的大神祗官" - , [1600] = "地中族导师" - , [1700] = "相剑师-莫邪" - , [1800] = "宝玉兽-青玉飞马" - , [1900] = "命运英雄 血魔-D" - , [2000] = "流离的狮鹫骑手" - , [2100] = "电子龙" - , [2200] = "古遗物-死镰" - , [2300] = "能朋克 调狐" - , [2400] = "俱舍怒威族·芬里尔狼" - , [2500] = "黑魔术师" - , [2600] = "雅典娜" - , [2700] = "暗黑界的龙神 格拉法" - , [2800] = "魔导兽 刻耳柏洛斯尊主" - , [2900] = "元素英雄 永生侠" - , [3000] = "青眼白龙" - } - str["对方玩家的初始生命值"] = Duel.GetLP(1) - str["效果"] = Effect.GlobalEffect() - str["效果"]:SetType(EFFECT_TYPE_FIELD - + EFFECT_TYPE_CONTINUOUS) - str["效果"]:SetCode(EVENT_PHASE_START+PHASE_END) - function cache_1(effect_event - , player_who_activate_the_effect) --{ - cache_1 = Duel.GetLP(1) - str["对方玩家的初始生命值"] - if cache_1 > 0 then --{ - return - --} - else --{ - cache_1 = math.abs(cache_1) / (str["对方玩家的初始生命值"] - 100) - cache_1 = math.tointeger(cache_1 * 3000 // 100 * 100) - end --} - if cache_1 > 3000 then --{ - --} - else --{ - Debug.ShowHint("这局，您的得分是　" - .. cache_1 - .. "　分！\n处于「" - .. str["失败得分表"][cache_1] - .. "」级别！") - end --} - effect_event:Reset() - end --} - str["效果"]:SetOperation(cache_1) - Duel.RegisterEffect(str["效果"] - , 0) - end --} -fun["一_该效果不能被连锁"] = function() --{ - Duel.SetChainLimit(aux.FALSE) - return true - end --} -fun["一_通关邀请"] = function() --{ - --备用：圣魔术师 - str["原解邀请"] = "残局群181175613" - str["二解邀请"] = "爆貘团：「你居然二解了，请加群告诉我怎么二解。」" - str["效果"] = Effect.GlobalEffect() - str["效果"]:SetType(EFFECT_TYPE_FIELD - + EFFECT_TYPE_CONTINUOUS) - str["效果"]:SetCode(EVENT_DAMAGE) - function cache_1() --{ - cache_1 = Duel.GetLP(1) - if cache_1 <= 0 then --{ - if cache_1 == 0 then --{ - --} - else --{ - Debug.ShowHint(str["二解邀请"]) - end --} - Debug.ShowHint(str["原解邀请"]) - --} - else --{ - return false - end --} - end --} - str["效果"]:SetCondition(cache_1) - str["效果"]:SetOperation(aux.NULL) - Duel.RegisterEffect(str["效果"] - , 0) - end --} -fun["一_是否效果卡"] = function(card) --{ - for i = 1, #str["效果卡的种类表"] do --{ - if Card.IsType(card, str["效果卡的种类表"][i]) then --{ - return true - end --} - end --} - if Card.IsType(card, TYPE_PENDULUM) then --{ - for i = 1, #str["无效果灵摆怪兽表"] do --{ - if Card.IsCode(card, str["无效果灵摆怪兽表"][i]) then --{ - --} - else --{ - return true - end --} - end --} - end --} - return false - end --} -fun["一_开局添加手卡"] = function(str_1) --{ - str["开局添加手卡"] = true - str["开局添加手卡的数量"] = str_1 - str["效果"] = Effect.GlobalEffect() - str["效果"]:SetType(EFFECT_TYPE_FIELD - + EFFECT_TYPE_CONTINUOUS) - str["效果"]:SetCode(EVENT_ADJUST) - str["效果"]:SetCondition(aux.TRUE) - function cache_1(effect_event - , player_who_activate_the_effect) --{ - str["玩家选定的卡"] = Duel.SelectMatchingCard(player_who_activate_the_effect - , Card.IsAbleToHand - , player_who_activate_the_effect - , LOCATION_DECK - , 0 - , str_1 - , str_1 - , nil) - Duel.SendtoHand(str["玩家选定的卡"] - , nil - , REASON_RULE) - effect_event:Reset() - end --} - str["效果"]:SetOperation(cache_1) - Duel.RegisterEffect(str["效果"] - , 0) - end --} -fun["一_禁格"] = function(str_1) --{ - str["禁格"] = true - str["禁格的数量"] = str_1 - str["效果"] = Effect.GlobalEffect() - str["效果"]:SetCode(EFFECT_USE_EXTRA_MZONE) - str["效果"]:SetValue(str_1) - Duel.RegisterEffect(str["效果"],0) - end --} ---第二层------------------------------- -local cache_1 -local cache_2 -local cache_3 -local cache_4 -local cache_5 -local cache_6 -local cache_7 -local cache_8 -local cache_9 -local _ -fun["Debug.ReloadFieldEnd"] = Debug.ReloadFieldEnd -Debug.ReloadFieldEnd = function(str_1) --{ - fun["Debug.ReloadFieldEnd"]() - if str_1 then --{ - fun["一_随机抽卡"](str_1) - end --} - end --} -fun["二_印卡"] = function(str_1, str_2, str_3) --{ - if str_3 then --{ - --} - else --{ - str_3 = str_2 - end --} - Debug.ShowHint("点击对方额外卡组可以进行印卡。\n手卡只能印 " - .. str_2 - .. " 张。\n最多可以印 " - .. str_3 - .. " 张") - str["效果"] = Effect.CreateEffect(str_1) - str["当前印卡数"] = 1 - str["效果"]:SetType(EFFECT_TYPE_IGNITION) - str["效果"]:SetProperty(EFFECT_FLAG_BOTH_SIDE - + EFFECT_FLAG_UNCOPYABLE - + EFFECT_FLAG_CANNOT_NEGATE - + EFFECT_FLAG_CANNOT_DISABLE) - str["效果"]:SetTarget(fun["一_该效果不能被连锁"]) - str["效果"]:SetRange(LOCATION_EXTRA) - function print_hand(effect_event - , player_who_activate_the_effect) --{ - announce_card = Duel.AnnounceCard(player_who_activate_the_effect) - card = Duel.CreateToken(player_who_activate_the_effect - , announce_card) - if str["当前印卡数"] <= str_2 then --{ - str["当前印卡数"] = str["当前印卡数"] + 1 - Duel.SendtoHand(card,nil,REASON_RULE) - --} - else --{ - if str["当前印卡数"] <= str_3 then --{ - str["当前印卡数"] = str["当前印卡数"] + 1 - Duel.Remove(card,POS_FACEUP,REASON_RULE) - Duel.SendtoDeck(card,player_who_activate_the_effect,0,REASON_RULE) - --} - else --{ - Debug.ShowHint("印卡过多！") - effect_event:Reset() - end --} - end --} - end --} - str["效果"]:SetOperation(print_hand) - str_1:RegisterEffect(str["效果"]) - end --} -fun["二_开局说明"] = function() --{ - str["这个残局的效果卡数量"] = Duel.GetMatchingGroupCount(fun["是否效果卡"] - , 0 - , str["所有区域"] - , str["所有区域"] - , nil) - str["超量素材组"] = Duel.GetOverlayGroup(0 - , LOCATION_MZONE - , LOCATION_MZONE) - for k in aux.Next(str["超量素材组"]) do --{ - if fun["一_是否效果卡"](k) then --{ - str["这个残局的效果卡数量"] = str["这个残局的效果卡数量"] + 1 - end --} - end --} - str["开局说明"] = str["这个残局的效果卡数量"] - .. "卡 " - .. str["规则"] - if str["不洗牌"] == 0 then --{ - --} - else --{ - str["开局说明"] = str["开局说明"] .. "伪洗牌 " - end --} - if str["无BP"] == 0 then --{ - str["开局说明"] = str["开局说明"] .. "无BP " - end --} - if str["无AI"] == 0 then --{ - str["开局说明"] = str["开局说明"] .. "无AI " - end --} - if str["开局添加手卡"] then --{ - str["开局说明"] = str["开局说明"] - .. "选" - .. str["开局添加手卡的数量"] - .. "卡 " - end --} - if str["禁格"] then --{ - str["开局说明"] = str["开局说明"] - .. "禁" - .. str["禁格的数量"] - .. "格 " - end --} - if str["随机抽卡的数量"] then --{ - str["开局说明"] = str["开局说明"] - .. "抽" - .. str["随机抽卡的数量"] - .. "卡 " - end --} - Debug.ShowHint(str["开局说明"]) - end --} ---第三层------------------------------- -local cache_1 -local cache_2 -local cache_3 -local cache_4 -local cache_5 -local cache_6 -local cache_7 -local cache_8 -local cache_9 -local _ -fun["aux.BeginPuzzle"] = aux.BeginPuzzle -aux.BeginPuzzle = function(str_1, str_2) --{ - fun["aux.BeginPuzzle"]() - if str_1 then --{ - fun["一_开局添加手卡"](str_1) - end --} - if str_2 then --{ - fun["一_禁格"](str_2) - end --} - fun["二_开局说明"]() - fun["一_通关邀请"]() - fun["一_失败得分"]() - end --} ---兼容层------------------------------- -fun["印卡"] = fun["二_印卡"] -fun["开局添加手卡"] = fun["一_开局添加手卡"] -fun["是否效果卡"] = fun["一_是否效果卡"] -fun["禁格"] = fun["一_禁格"] -fun["随机抽卡"] = fun["一_随机抽卡"] +local str = {} +local math = math +local string = string +local table = table +_G.fun = {} +--------------------------------- +local cache_1 +local cache_2 +local cache_3 +local cache_4 +local cache_5 +local cache_6 +local cache_7 +local cache_8 +local cache_9 +local _ +str["效果卡的种类表"] = { + TYPE_SPELL, + TYPE_TRAP, + TYPE_EFFECT, +} +str["无效果灵摆怪兽表"] = { + 28363749, + 19474136, + 17390179, + 83980492, +} +cache_1 = 0 +cache_1 = cache_1 + LOCATION_HAND + LOCATION_MZONE + LOCATION_SZONE + LOCATION_GRAVE + LOCATION_REMOVED +str["除卡组与额外卡组以外的区域"] = cache_1 +cache_1 = cache_1 + LOCATION_DECK + LOCATION_EXTRA +str["所有区域"] = cache_1 +--第一层------------------------------- +local cache_1 +local cache_2 +local cache_3 +local cache_4 +local cache_5 +local cache_6 +local cache_7 +local cache_8 +local cache_9 +local _ +fun["Debug.ReloadFieldBegin"] = Debug.ReloadFieldBegin +Debug.ReloadFieldBegin = function(str_1, str_2) --{ + str["不洗牌"] = str_1 & DUEL_PSEUDO_SHUFFLE + str["无BP"] = str_1 & DUEL_ATTACK_FIRST_TURN + str["无AI"] = str_1 & DUEL_SIMPLE_AI + str["规则表"] = { + [3] = "大师3 ", + [4] = "新大师 ", + [5] = "大师2020 ", + } + if str_2 then --{ + str["规则"] = str["规则表"][str_2] + --} + else --{ + str["规则"] = str["规则表"][5] + end --} + fun["Debug.ReloadFieldBegin"](str_1, str_2) +end --} +fun["一_随机抽卡"] = function(str_1) --{ + str["随机抽卡的数量"] = str_1 + str["效果"] = Effect.GlobalEffect() + str["效果"]:SetType(EFFECT_TYPE_FIELD + EFFECT_TYPE_CONTINUOUS) + str["效果"]:SetCode(EVENT_ADJUST) + str["效果"]:SetCondition(aux.TRUE) + function cache_1(effect_event, player_who_activate_the_effect) --{ + Duel.ShuffleDeck(0) + Duel.Draw(0, str_1, REASON_RULE) + effect_event:Reset() + end --} + str["效果"]:SetOperation(cache_1) + Duel.RegisterEffect(str["效果"], 0) +end --} +fun["一_失败得分"] = function() --{ + str["失败得分表"] = { + [0] = "神龙之圣刻印", + [100] = "调和支援士", + [200] = "深渊的暗杀者", + [300] = "救援猫", + [400] = "注射天使 莉莉", + [500] = "不知火的隐者", + [600] = "影依猎鹰", + [700] = "铁兽战线 姬特", + [800] = "召唤僧", + [900] = "恩底弥翁的仆从", + [1000] = "机壳工具 丑恶", + [1100] = "欧尼斯特", + [1200] = "次元吸引者", + [1300] = "黑羽-疾风之盖尔", + [1400] = "加农炮兵", + [1500] = "教导的大神祗官", + [1600] = "地中族导师", + [1700] = "相剑师-莫邪", + [1800] = "宝玉兽-青玉飞马", + [1900] = "命运英雄 血魔-D", + [2000] = "流离的狮鹫骑手", + [2100] = "电子龙", + [2200] = "古遗物-死镰", + [2300] = "能朋克 调狐", + [2400] = "俱舍怒威族·芬里尔狼", + [2500] = "黑魔术师", + [2600] = "雅典娜", + [2700] = "暗黑界的龙神 格拉法", + [2800] = "魔导兽 刻耳柏洛斯尊主", + [2900] = "元素英雄 永生侠", + [3000] = "青眼白龙", + } + str["对方玩家的初始生命值"] = Duel.GetLP(1) + str["效果"] = Effect.GlobalEffect() + str["效果"]:SetType(EFFECT_TYPE_FIELD + EFFECT_TYPE_CONTINUOUS) + str["效果"]:SetCode(EVENT_PHASE_START + PHASE_END) + function cache_1(effect_event, player_who_activate_the_effect) --{ + cache_1 = Duel.GetLP(1) - str["对方玩家的初始生命值"] + if cache_1 > 0 then --{ + return + --} + else --{ + cache_1 = math.abs(cache_1) / (str["对方玩家的初始生命值"] - 100) + cache_1 = math.tointeger(cache_1 * 3000 // 100 * 100) + end --} + if cache_1 > 3000 then --{ + --} + else --{ + Debug.ShowHint( + "这局，您的得分是　" + .. cache_1 + .. "　分！\n处于「" + .. str["失败得分表"][cache_1] + .. "」级别！" + ) + end --} + effect_event:Reset() + end --} + str["效果"]:SetOperation(cache_1) + Duel.RegisterEffect(str["效果"], 0) +end --} +fun["一_该效果不能被连锁"] = function() --{ + Duel.SetChainLimit(aux.FALSE) + return true +end --} +fun["一_通关邀请"] = function() --{ + --备用：圣魔术师 + str["原解邀请"] = "残局群181175613" + str["二解邀请"] = "爆貘团：「你居然二解了，请加群告诉我怎么二解。」" + str["效果"] = Effect.GlobalEffect() + str["效果"]:SetType(EFFECT_TYPE_FIELD + EFFECT_TYPE_CONTINUOUS) + str["效果"]:SetCode(EVENT_DAMAGE) + function cache_1() --{ + cache_1 = Duel.GetLP(1) + if cache_1 <= 0 then --{ + if cache_1 == 0 then --{ + --} + else --{ + Debug.ShowHint(str["二解邀请"]) + end --} + Debug.ShowHint(str["原解邀请"]) + --} + else --{ + return false + end --} + end --} + str["效果"]:SetCondition(cache_1) + str["效果"]:SetOperation(aux.NULL) + Duel.RegisterEffect(str["效果"], 0) +end --} +fun["一_是否效果卡"] = function(card) --{ + for i = 1, #str["效果卡的种类表"] do --{ + if Card.IsType(card, str["效果卡的种类表"][i]) then --{ + return true + end --} + end --} + if Card.IsType(card, TYPE_PENDULUM) then --{ + for i = 1, #str["无效果灵摆怪兽表"] do --{ + if Card.IsCode(card, str["无效果灵摆怪兽表"][i]) then --{ + --} + else --{ + return true + end --} + end --} + end --} + return false +end --} +fun["一_开局添加手卡"] = function(str_1) --{ + str["开局添加手卡"] = true + str["开局添加手卡的数量"] = str_1 + str["效果"] = Effect.GlobalEffect() + str["效果"]:SetType(EFFECT_TYPE_FIELD + EFFECT_TYPE_CONTINUOUS) + str["效果"]:SetCode(EVENT_ADJUST) + str["效果"]:SetCondition(aux.TRUE) + function cache_1(effect_event, player_who_activate_the_effect) --{ + str["玩家选定的卡"] = Duel.SelectMatchingCard( + player_who_activate_the_effect, + Card.IsAbleToHand, + player_who_activate_the_effect, + LOCATION_DECK, + 0, + str_1, + str_1, + nil + ) + Duel.SendtoHand(str["玩家选定的卡"], nil, REASON_RULE) + effect_event:Reset() + end --} + str["效果"]:SetOperation(cache_1) + Duel.RegisterEffect(str["效果"], 0) +end --} +fun["一_禁格"] = function(str_1) --{ + str["禁格"] = true + str["禁格的数量"] = str_1 + str["效果"] = Effect.GlobalEffect() + str["效果"]:SetCode(EFFECT_USE_EXTRA_MZONE) + str["效果"]:SetValue(str_1) + Duel.RegisterEffect(str["效果"], 0) +end --} +--第二层------------------------------- +local cache_1 +local cache_2 +local cache_3 +local cache_4 +local cache_5 +local cache_6 +local cache_7 +local cache_8 +local cache_9 +local _ +fun["Debug.ReloadFieldEnd"] = Debug.ReloadFieldEnd +Debug.ReloadFieldEnd = function(str_1) --{ + fun["Debug.ReloadFieldEnd"]() + if str_1 then --{ + fun["一_随机抽卡"](str_1) + end --} +end --} +fun["二_印卡"] = function(str_1, str_2, str_3) --{ + if str_3 then --{ + --} + else --{ + str_3 = str_2 + end --} + Debug.ShowHint( + "点击对方额外卡组可以进行印卡。\n手卡只能印 " + .. str_2 + .. " 张。\n最多可以印 " + .. str_3 + .. " 张" + ) + str["效果"] = Effect.CreateEffect(str_1) + str["当前印卡数"] = 1 + str["效果"]:SetType(EFFECT_TYPE_IGNITION) + str["效果"]:SetProperty( + EFFECT_FLAG_BOTH_SIDE + EFFECT_FLAG_UNCOPYABLE + EFFECT_FLAG_CANNOT_NEGATE + EFFECT_FLAG_CANNOT_DISABLE + ) + str["效果"]:SetTarget(fun["一_该效果不能被连锁"]) + str["效果"]:SetRange(LOCATION_EXTRA) + function print_hand(effect_event, player_who_activate_the_effect) --{ + announce_card = Duel.AnnounceCard(player_who_activate_the_effect) + card = Duel.CreateToken(player_who_activate_the_effect, announce_card) + if str["当前印卡数"] <= str_2 then --{ + str["当前印卡数"] = str["当前印卡数"] + 1 + Duel.SendtoHand(card, nil, REASON_RULE) + --} + else --{ + if str["当前印卡数"] <= str_3 then --{ + str["当前印卡数"] = str["当前印卡数"] + 1 + Duel.Remove(card, POS_FACEUP, REASON_RULE) + Duel.SendtoDeck(card, player_who_activate_the_effect, 0, REASON_RULE) + --} + else --{ + Debug.ShowHint("印卡过多！") + effect_event:Reset() + end --} + end --} + end --} + str["效果"]:SetOperation(print_hand) + str_1:RegisterEffect(str["效果"]) +end --} +fun["二_开局说明"] = function() --{ + str["这个残局的效果卡数量"] = + Duel.GetMatchingGroupCount(fun["是否效果卡"], 0, str["所有区域"], str["所有区域"], nil) + str["超量素材组"] = Duel.GetOverlayGroup(0, LOCATION_MZONE, LOCATION_MZONE) + for k in aux.Next(str["超量素材组"]) do --{ + if fun["一_是否效果卡"](k) then --{ + str["这个残局的效果卡数量"] = str["这个残局的效果卡数量"] + 1 + end --} + end --} + str["开局说明"] = str["这个残局的效果卡数量"] .. "卡 " .. str["规则"] + if str["不洗牌"] == 0 then --{ + --} + else --{ + str["开局说明"] = str["开局说明"] .. "伪洗牌 " + end --} + if str["无BP"] == 0 then --{ + str["开局说明"] = str["开局说明"] .. "无BP " + end --} + if str["无AI"] == 0 then --{ + str["开局说明"] = str["开局说明"] .. "无AI " + end --} + if str["开局添加手卡"] then --{ + str["开局说明"] = str["开局说明"] .. "选" .. str["开局添加手卡的数量"] .. "卡 " + end --} + if str["禁格"] then --{ + str["开局说明"] = str["开局说明"] .. "禁" .. str["禁格的数量"] .. "格 " + end --} + if str["随机抽卡的数量"] then --{ + str["开局说明"] = str["开局说明"] .. "抽" .. str["随机抽卡的数量"] .. "卡 " + end --} + Debug.ShowHint(str["开局说明"]) +end --} +--第三层------------------------------- +local cache_1 +local cache_2 +local cache_3 +local cache_4 +local cache_5 +local cache_6 +local cache_7 +local cache_8 +local cache_9 +local _ +fun["aux.BeginPuzzle"] = aux.BeginPuzzle +aux.BeginPuzzle = function(str_1, str_2) --{ + fun["aux.BeginPuzzle"]() + if str_1 then --{ + fun["一_开局添加手卡"](str_1) + end --} + if str_2 then --{ + fun["一_禁格"](str_2) + end --} + fun["二_开局说明"]() + fun["一_通关邀请"]() + fun["一_失败得分"]() +end --} +--兼容层------------------------------- +fun["印卡"] = fun["二_印卡"] +fun["开局添加手卡"] = fun["一_开局添加手卡"] +fun["是否效果卡"] = fun["一_是否效果卡"] +fun["禁格"] = fun["一_禁格"] +fun["随机抽卡"] = fun["一_随机抽卡"] Index: single/X-LV-05.lua ================================================================== --- single/X-LV-05.lua +++ single/X-LV-05.lua @@ -13,7 +13,7 @@ Debug.AddCard(27288416, 1, 1, LOCATION_MZONE, 3, POS_FACEUP_ATTACK) Debug.ReloadFieldEnd() aux.BeginPuzzle() Debug.ShowHint( - "尝试一下四星以下不需要祭品。\n五·六星怪兽需要一只祭品。\n七星以上两只祭品。" + "尝试一下四星以下不需要祭品。\n五·六星怪兽需要一只祭品。\n七星以上两只祭品。" ) Index: single/X-LV-43.lua ================================================================== --- single/X-LV-43.lua +++ single/X-LV-43.lua @@ -9,17 +9,17 @@ local e0 = Effect.GlobalEffect() e0:SetType(EFFECT_TYPE_FIELD + EFFECT_TYPE_CONTINUOUS) e0:SetCode(EVENT_ADJUST) e0:SetCountLimit(1) e0:SetCondition(function(e, tp, eg, ep, ev, re, r, rp) - return Duel.GetLP(0) > 0 + return Duel.GetLP(0) > 0 end) e0:SetOperation(function(e, tp, eg, ep, ev, re, r, rp) - local g = Duel.SelectMatchingCard(tp, Card.IsAbleToHand, tp, LOCATION_DECK, 0, 5, 5, nil) - if g:GetCount() > 0 then - Duel.SendtoHand(g, nil, REASON_RULE) - end + local g = Duel.SelectMatchingCard(tp, Card.IsAbleToHand, tp, LOCATION_DECK, 0, 5, 5, nil) + if g:GetCount() > 0 then + Duel.SendtoHand(g, nil, REASON_RULE) + end end) Duel.RegisterEffect(e0, 0) --自己的怪兽区 --对方的怪兽区 ADDED 残局文料/lib/ipml_mj_ysaf.lua Index: 残局文料/lib/ipml_mj_ysaf.lua ================================================================== --- /dev/null +++ 残局文料/lib/ipml_mj_ysaf.lua @@ -0,0 +1,178 @@ +package.path = [[.\lib\?.lua;]] .. package.path +package.cpath = [[.\lib\?.dll;]] .. package.cpath +local 字集码互转库 = require("u8_to_a") +local d_5 = {} +local 简件系库 = require("lfs") +--~ 程语_月_标准库_仿照_加多_多编码_大字集_通用 +function d_5.require_通用大字集态_八位态(modname) + return require(字集码互转库.u8_to_a(modname)) +end +do + local k1 = 0 + function _G.递增示() + k1 = k1 + 1 + print(k1) + end +end +--~ do +--~ local k1 = os.execute +--~ function _G.os.execute(command) +--~ return k1(字集码互转库.u2a(command)) +--~ end +--~ end +function d_5.读件(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 +function d_5.读件排(o1_9, o1) + local k1_9 + k1_9 = {} + for o2 = 1, #o1_9 do + k1_9[#k1_9 + 1] = d_5.读件(o1_9[o2], o1) + end + return k1_9 +end +function d_5.写件(o1, o2, o3) + local k1_3 + k1_3 = io.open(o1, o3 or "w") + k1_3:write(o2) + k1_3:flush() + k1_3:close() +end +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) +--~ return o1:gsub("%s", "") +--~ 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 + table.insert(lines, line) + end + return lines +end +--~ function d_5.删前缀(o1, o2) +--~ if o1:find(o2, 1, true) then +--~ return o1:sub(#o2 + 1) +--~ 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 o2(o1, o3) do +--~ k1_9[#k1_9 + 1] = o4 +--~ end +--~ return k1_9 +--~ end +--~ function d_5.判文(o1, o2, o3, o4) +--~ if o1:find(o2 or ".", o3, o4) then +--~ return o1 +--~ end +--~ end +function d_5.筛件径(o1, o2) + local k1_9 + k1_9 = d_5.筛文(o1, 简件系库.dir) + k1_9 = d_5.筛排(k1_9, d_5.加前缀, o1 .. "/") + k1_9 = d_5.筛排(k1_9, d_5.判文, o2) + return d_5.筛排(k1_9, d_5.在前后加英文双引号) +end +--~ function d_5.筛单行等式(o1) +--~ return 常用库.捕排(string.gmatch, o1, "[^\n= \t]+") +--~ end +--~ function d_5.捕非空单行(o1) +--~ return 常用库.捕排(string.gmatch, o1, "[^\n]+[\n]?") +--~ end +--~ function d_5.捕非空单行(o1) +--~ return 常用库.捕排(string.gmatch, o1, "[^\n]+[\n]?") +--~ end +function d_5.排转对(o1_12, o1) + local k1_5 + local k1_11 + k1_11 = {} + for o2 = 1, #o1_12, o1 + 1 do + k1_5 = {} + for o3 = 1, o1 do + k1_5[o3] = o1_12[o2 + o3] + end + k1_11[o1_12[o2]] = k1_5 + end + return k1_11 +end +--~ function d_5.加前缀(o1, o2) +--~ return o2 .. o1 +--~ 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) +--~ return [["]] .. 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 ADDED 残局文料/lib/u8_to_a.lua Index: 残局文料/lib/u8_to_a.lua ================================================================== --- /dev/null +++ 残局文料/lib/u8_to_a.lua @@ -0,0 +1,40 @@ +local ffi = require("ffi") +local d_4 = {} +ffi.cdef([[ +typedef unsigned int UINT; +typedef unsigned long DWORD; +typedef wchar_t WCHAR; +typedef WCHAR* LPWSTR; +typedef wchar_t* LPCWCH; +typedef char CHAR; +typedef CHAR* LPSTR; +typedef const char* LPCCH; +typedef int BOOL; +typedef BOOL* LPBOOL; +int MultiByteToWideChar(UINT CodePage, DWORD dwFlags, LPCCH lpMultiByteStr, int cbMultiByte, LPWSTR lpWideCharStr, int cchWideChar); +int WideCharToMultiByte(UINT CodePage, DWORD dwFlags, LPCWCH lpWideCharStr, int cchWideChar, LPSTR lpMultiByteStr, int cchMultiByte, LPCCH lpDefaultChar, LPBOOL pfUsedDefaultChar); +]]) +d_4.CP_ACP = 0 +d_4.CP_UTF8 = 65001 +--~ 算机_基统_窗群 +function d_4.m2w(input, o1) + local wlen = ffi.C.MultiByteToWideChar(o1 or d_4.CP_ACP, 0, input, #input, nil, 0) + local wstr = ffi.new("wchar_t[?]", wlen + 1) + ffi.C.MultiByteToWideChar(o1 or d_4.CP_ACP, 0, input, #input, wstr, wlen) + return wstr, wlen +end +function d_4.w2m(wstr, wlen, o1) + local len = ffi.C.WideCharToMultiByte(o1 or d_4.CP_ACP, 0, wstr, wlen or -1, nil, 0, nil, nil) + local str = ffi.new("char[?]", len) + ffi.C.WideCharToMultiByte(o1 or d_4.CP_ACP, 0, wstr, wlen or -1, str, len, nil, nil) + return ffi.string(str, len) +end +--~ 通用大字集_八位 +function d_4.u8_to_a(input) + return d_4.w2m(d_4.m2w(input, d_4.CP_UTF8)) +end +function d_4.a_to_u8(input) + local k1, k2 = d_4.m2w(input) + return d_4.w2m(k1, k2, d_4.CP_UTF8) +end +return d_4 ADDED 残局文料/lib/删注/月程语.lua Index: 残局文料/lib/删注/月程语.lua ================================================================== --- /dev/null +++ 残局文料/lib/删注/月程语.lua @@ -0,0 +1,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 ADDED 残局文料/lib/程语_月_基类_排_遍历.lua Index: 残局文料/lib/程语_月_基类_排_遍历.lua ================================================================== --- /dev/null +++ 残局文料/lib/程语_月_基类_排_遍历.lua @@ -0,0 +1,19 @@ +local d_2 = {} +function d_2.遍历_返排态(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_2.遍历_基态(o1_9, o1, o2, o3) + for o4 = 1, #o1_9 do + o1(o1_9[o4], o2, o3) + end +end +return d_2 ADDED 残局文料/lib/程语_月_基类_文_前后缀.lua Index: 残局文料/lib/程语_月_基类_文_前后缀.lua ================================================================== --- /dev/null +++ 残局文料/lib/程语_月_基类_文_前后缀.lua @@ -0,0 +1,41 @@ +local d_3 = {} +local require = 常用库.require_通用大字集态_八位态 +local 筛文库 = require("程语_月_基类_文_筛文") +--~ 加 +--~ 加_分_基 +function d_3.加前缀_基态(o1, o2) + return o2 .. o1 + end +function d_3.加后缀_基态(o1, o2) + return o1 .. o2 + end +--~ 加_分_确保 +--~ function d_3.加前缀_确保态(o1, o2, o3) +--~ 筛文库.返全文(o1, ) +--~ local k1 +--~ k1 = d_3.删前缀(o1, o2, o3) +--~ return o2 .. o1 +--~ end +--~ 加_合 +function d_3.加前缀与后缀_基态(o1, o2, o3) + return o2 .. o1 .. (o3 or "") + end +--~ 删 +--~ 删_分 +function d_3.删前缀(o1, o2, o3) + if o1:find(o2, 1, o3 or true) then + return o1:sub(#o2 + 1) + end + end +function d_3.删后缀(o1, o2, o3) + if o1:find(o2, -1, o3 or true) then + return o1:sub(1, #o1 - #o2) + end + end +--~ 删 +--~ 场景_令行窗_件径 +function d_3.在前后加英文双引号_基态(o1) + return [["]] .. o1 .. [["]] + end +return d_3 + ADDED 残局文料/lib/程语_月_基类_文_筛文.lua Index: 残局文料/lib/程语_月_基类_文_筛文.lua ================================================================== --- /dev/null +++ 残局文料/lib/程语_月_基类_文_筛文.lua @@ -0,0 +1,7 @@ +local d_2 = {} +function d_2.返全文(o1, o2, o3, o4) + if o1:find(o2, o3, o4) then + return o1 + end +end +return d_2 ADDED 残局文料/lib/程语_月_基类_文_遍历.lua Index: 残局文料/lib/程语_月_基类_文_遍历.lua ================================================================== --- /dev/null +++ 残局文料/lib/程语_月_基类_文_遍历.lua @@ -0,0 +1,10 @@ +local d_2 = {} +function d_2.遍历(o1, o2, o3) + local k1_9 + k1_9 = {} + for o4 in o2(o1, o3) do + k1_9[#k1_9 + 1] = o4 + end + return k1_9 +end +return d_2 ADDED 残局文料/lib/程语_月_基类_能_传参_字集码_大字集_通用.lua Index: 残局文料/lib/程语_月_基类_能_传参_字集码_大字集_通用.lua ================================================================== --- /dev/null +++ 残局文料/lib/程语_月_基类_能_传参_字集码_大字集_通用.lua @@ -0,0 +1,3 @@ +local d_2 = {} +--~ 八位 +return d_2 ADDED 残局文料/lib/程语_月_基类_能_传参_转化.lua Index: 残局文料/lib/程语_月_基类_能_传参_转化.lua ================================================================== --- /dev/null +++ 残局文料/lib/程语_月_基类_能_传参_转化.lua @@ -0,0 +1,12 @@ +local d_2 = {} +--~ 传参_参数数量 +function d_2.二参(o1, o2, o3, o4) + return o1(o2(o3), o2(o4)) + end +function d_2.三参(o1, o2, o3, o4, o5) + return o1(o2(o3), o2(o4), o2(o5)) + end +function d_2.四参(o1, o2, o3, o4, o5, o6) + return o1(o2(o3), o2(o4), o2(o5), o2(o6)) + end +return d_2 ADDED 残局文料/lib/算机_基统_窗群_令行窗_无窗.lua Index: 残局文料/lib/算机_基统_窗群_令行窗_无窗.lua ================================================================== --- /dev/null +++ 残局文料/lib/算机_基统_窗群_令行窗_无窗.lua @@ -0,0 +1,19 @@ +local d_2 = {} +local require = 常用库.require_通用大字集态_八位态 +local 字集码互转库 = require("u8_to_a") +local 件径库 = require("算机_基统_窗群_件系_件径") +local 遍历排库 = require("程语_月_基类_排_遍历") +local 前后缀库 = require("程语_月_基类_文_前后缀") +function d_2.办令_基态(o1) + print(o1) + os.execute(o1) + end +--~ 件夹 +function d_2.入件夹而用件径_基态(o1, o2, o3, o4) + local k1_9 + k1_9 = 件径库.入件夹而返件径排_筛态(o1, o2) + k1_9 = 遍历排库.遍历_返排态(k1_9, 前后缀库.在前后加英文双引号_基态) + k1_9 = 遍历排库.遍历_返排态(k1_9, 前后缀库.加前缀与后缀_基态, o3, o4) + 遍历排库.遍历_基态(k1_9, d_2.办令_基态) + end +return d_2 ADDED 残局文料/lib/算机_基统_窗群_件系_件径.lua Index: 残局文料/lib/算机_基统_窗群_件系_件径.lua ================================================================== --- /dev/null +++ 残局文料/lib/算机_基统_窗群_件系_件径.lua @@ -0,0 +1,18 @@ +local d_2 = {} +local require = 常用库.require_通用大字集态_八位态 +local 遍历文库 = require("程语_月_基类_文_遍历") +local 遍历排库 = require("程语_月_基类_排_遍历") +local 前后缀库 = require("程语_月_基类_文_前后缀") +local 筛文库 = require("程语_月_基类_文_筛文") +local 简件系库 = require("lfs") +function d_2.入件夹而返件径排_筛态(o1, o2, o3, o4) + local k1_9 + k1_9 = d_2.入件夹而返件径排_基态(o1) + return 遍历排库.遍历_返排态(k1_9, 筛文库.返全文, o2, o3, o4) + end +function d_2.入件夹而返件径排_基态(o1) + local k1_9 + k1_9 = 遍历文库.遍历(o1, 简件系库.dir) + return 遍历排库.遍历_返排态(k1_9, 前后缀库.加前缀_基态, o1 .. "/") + end +return d_2 DELETED 残局文料/lib_lua/ipml_mj_ysaf.lua Index: 残局文料/lib_lua/ipml_mj_ysaf.lua ================================================================== --- 残局文料/lib_lua/ipml_mj_ysaf.lua +++ /dev/null @@ -1,177 +0,0 @@ -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 ---~ do ---~ local k1 = os.execute ---~ function _G.os.execute(command) ---~ return k1(字集码互转库.u2a(command)) ---~ end ---~ end -function d_5.读件(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 -function d_5.读件排(o1_9, o1) - local k1_9 - k1_9 = {} - for o2 = 1, #o1_9 do - k1_9[#k1_9 + 1] = d_5.读件(o1_9[o2], o1) - end - return k1_9 - end -function d_5.写件(o1, o2, o3) - local k1_3 - k1_3 = io.open(o1, o3 or "w") - k1_3:write(o2) - k1_3:flush() - k1_3:close() - end -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) - --~ return o1:gsub("%s", "") - --~ 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 - table.insert(lines, line) - end - return lines - end -function d_5.删前缀(o1, o2) - if o1:find(o2, 1, true) then - return o1:sub(#o2 + 1) - 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 o2(o1, o3) do - k1_9[#k1_9 + 1] = o4 - end - return k1_9 - end -function d_5.判文(o1, o2, o3, o4) - if o1:find(o2 or ".", o3, o4) then - return o1 - end - end -function d_5.筛件径(o1, o2) - local k1_9 - k1_9 = d_5.筛文(o1, 简件系库.dir) - k1_9 = d_5.筛排(k1_9, d_5.加前缀, o1 .. "/") - k1_9 = d_5.筛排(k1_9, d_5.判文, o2) - return d_5.筛排(k1_9, d_5.在前后加英文双引号) - end ---~ function d_5.筛单行等式(o1) - --~ return 常用库.捕排(string.gmatch, o1, "[^\n= \t]+") - --~ end ---~ function d_5.捕非空单行(o1) - --~ return 常用库.捕排(string.gmatch, o1, "[^\n]+[\n]?") - --~ end ---~ function d_5.捕非空单行(o1) - --~ return 常用库.捕排(string.gmatch, o1, "[^\n]+[\n]?") - --~ end -function d_5.排转对(o1_12, o1) - local k1_5 - local k1_11 - k1_11 = {} - for o2 = 1, #o1_12, o1 + 1 do - k1_5 = {} - for o3 = 1, o1 do - k1_5[o3] = o1_12[o2 + o3] - end - k1_11[ o1_12[o2] ] = k1_5 - end - return k1_11 - end -function d_5.加前缀(o1, o2) - return o2 .. o1 - 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) - return [["]] .. 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 DELETED 残局文料/lib_lua/u8_to_a.lua Index: 残局文料/lib_lua/u8_to_a.lua ================================================================== --- 残局文料/lib_lua/u8_to_a.lua +++ /dev/null @@ -1,38 +0,0 @@ -local ffi = require("ffi") -local d_4 = {} -ffi.cdef([[ -typedef unsigned int UINT; -typedef unsigned long DWORD; -typedef wchar_t WCHAR; -typedef WCHAR* LPWSTR; -typedef wchar_t* LPCWCH; -typedef char CHAR; -typedef CHAR* LPSTR; -typedef const char* LPCCH; -typedef int BOOL; -typedef BOOL* LPBOOL; -int MultiByteToWideChar(UINT CodePage, DWORD dwFlags, LPCCH lpMultiByteStr, int cbMultiByte, LPWSTR lpWideCharStr, int cchWideChar); -int WideCharToMultiByte(UINT CodePage, DWORD dwFlags, LPCWCH lpWideCharStr, int cchWideChar, LPSTR lpMultiByteStr, int cchMultiByte, LPCCH lpDefaultChar, LPBOOL pfUsedDefaultChar); -]]) -d_4.CP_ACP = 0 -d_4.CP_UTF8 = 65001 -function d_4.m2w(input, o1) - local wlen = ffi.C.MultiByteToWideChar(o1 or d_4.CP_ACP, 0, input, #input, nil, 0) - local wstr = ffi.new("wchar_t[?]", wlen + 1) - ffi.C.MultiByteToWideChar(o1 or d_4.CP_ACP, 0, input, #input, wstr, wlen) - return wstr, wlen - end -function d_4.w2m(wstr, wlen, o1) - local len = ffi.C.WideCharToMultiByte(o1 or d_4.CP_ACP, 0, wstr, wlen or -1, nil, 0, nil, nil) - local str = ffi.new("char[?]", len) - ffi.C.WideCharToMultiByte(o1 or d_4.CP_ACP, 0, wstr, wlen or -1, str, len, nil, nil) - return ffi.string(str, len) - end -function d_4.u8_to_a(input) - return d_4.w2m(d_4.m2w(input, d_4.CP_UTF8)) - end -function d_4.a_to_u8(input) - local k1, k2 = d_4.m2w(input) - return d_4.w2m(k1, k2, d_4.CP_UTF8) - end -return d_4 DELETED 残局文料/lib_lua/删注/月程语.lua Index: 残局文料/lib_lua/删注/月程语.lua ================================================================== --- 残局文料/lib_lua/删注/月程语.lua +++ /dev/null @@ -1,15 +0,0 @@ -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 Index: 残局文料/产常量件.lua ================================================================== --- 残局文料/产常量件.lua +++ 残局文料/产常量件.lua @@ -1,33 +1,32 @@ -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 profile = require("jit.profile") ---~ profile.start("f", cb) -local 删注库_月程语版_不虑字串版 = require(字集码互转库.u8_to_a("删注/月程语_不虑字串")) -local d_2 = {} -function d_2.产常量件(o1, o2) - local k1 - k1 = 常用库.读件(o1 .. o2) - k1 = 删注库_月程语版.单行注_不虑字串态(k1) - --~ k1 = 常用库.删空格(k1) - --~ k1 = 常用库.删制表符(k1) - --~ k1 = 常用库.捕非空单行(k1) - --~ k1 = 常用库.捕非空单行(k1) - --~ k1 = 常用库.筛单行等式(k1) - --~ k1 = 常用库.排转对(k1, 1) - --~ k1 = 常用库.删空行(k1) - --~ k1 = "local k1_11 = {}\n" .. k1 .. "" - --~ k1 = 常用库.筛排(k1, print) - --~ print(k1.DOUBLE_DAMAGE[1]) - --~ print(k1) - --~ print(k1[1]) - --~ print(k1:gsub("\n", "猪")) - end -function d_2.筛凡常量() - - end -function d_2.筛字段量() - - end -d_2.产常量件(字集码互转库.u8_to_a([[D:\install\YGOPro]]), 字集码互转库.u8_to_a([[/script/constant.lua]])) +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 profile = require("jit.profile") +--~ profile.start("f", cb) +local 删注库_月程语版_不虑字串版 = require(字集码互转库.u8_to_a("删注/月程语_不虑字串")) +local d_2 = {} +function d_2.产常量件(o1, o2) + local k1 + k1 = 常用库.读件(o1 .. o2) + k1 = 删注库_月程语版.单行注_不虑字串态(k1) + --~ k1 = 常用库.删空格(k1) + --~ k1 = 常用库.删制表符(k1) + --~ k1 = 常用库.捕非空单行(k1) + --~ k1 = 常用库.捕非空单行(k1) + --~ k1 = 常用库.筛单行等式(k1) + --~ k1 = 常用库.排转对(k1, 1) + --~ k1 = 常用库.删空行(k1) + --~ k1 = "local k1_11 = {}\n" .. k1 .. "" + --~ k1 = 常用库.筛排(k1, print) + --~ print(k1.DOUBLE_DAMAGE[1]) + --~ print(k1) + --~ print(k1[1]) + --~ print(k1:gsub("\n", "猪")) +end +function d_2.筛凡常量() end +function d_2.筛字段量() end +d_2.产常量件( + 字集码互转库.u8_to_a([[D:\install\YGOPro]]), + 字集码互转库.u8_to_a([[/script/constant.lua]]) +) Index: 残局文料/齐月程语件.lua ================================================================== --- 残局文料/齐月程语件.lua +++ 残局文料/齐月程语件.lua @@ -1,11 +1,10 @@ -_G.常用库 = require("lib_lua/ipml_mj_ysaf") +_G.常用库 = require("lib/ipml_mj_ysaf") local 字集码互转库 = require("u8_to_a") +local require = 常用库.require_通用大字集态_八位态 +local 令行库 = require("算机_基统_窗群_令行窗_无窗") +local 转参库 = require("程语_月_基类_能_传参_转化") local d_2 = {} -function d_2.齐月程语件(o1, o2) - local k1_9 - k1_9 = 常用库.筛件径(o1, "%.lua$") - assert(k1_9[1]:match([["[^"]+"]]) == k1_9[1]) - k1_9 = 常用库.筛排(k1_9, 常用库.加前缀, o2) - 常用库.筛排(k1_9, 常用库.办令) +function d_2.齐月程语件_基态_通用大字集态_八位态(o1, o2) + 转参库.三参(令行库.入件夹而用件径_基态, 字集码互转库.u8_to_a, o1, [[%.lua$]], o2) end -d_2.齐月程语件(字集码互转库.u8_to_a([[../single]]), 字集码互转库.u8_to_a([[stylua ]])) +d_2.齐月程语件_基态_通用大字集态_八位态([[../single]], [[stylua --indent-type Spaces --sort-requires --indent-width 2 --collapse-simple-statement Never ]])