You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
47 lines
1.1 KiB
47 lines
1.1 KiB
3 years ago
|
local lpeg = require 'lpeg'
|
||
|
|
local w2l
|
||
|
|
local wts
|
||
|
|
|
||
|
|
local function fwts(str)
|
||
|
|
return w2l:load_wts(wts, str, 1023, '脚本里的文本长度超过1023字符', function(str)
|
||
|
|
return str:gsub('\\', '\\\\'):gsub('"', '\\"')
|
||
|
|
end)
|
||
|
|
end
|
||
|
|
|
||
|
|
lpeg.locale(lpeg)
|
||
|
|
local S = lpeg.S
|
||
|
|
local P = lpeg.P
|
||
|
|
local R = lpeg.R
|
||
|
|
local C = lpeg.C
|
||
|
|
local Cs = lpeg.Cs
|
||
|
|
|
||
|
|
local nl1 = P'\r\n' + S'\r\n'
|
||
|
|
local com = P'//' * (1-nl1)^0
|
||
|
|
local nl = com^0 * nl1
|
||
|
|
local quo = P'"'
|
||
|
|
local esc = P'\\'
|
||
|
|
local num = R'09'
|
||
|
|
local str1 = esc * P(1) + (1-quo)
|
||
|
|
local str = quo * (nl1 + str1)^0 * quo
|
||
|
|
local wst = quo * ('TRIGSTR_' * num^3 / fwts) * quo
|
||
|
|
local mtch = C(nl) + Cs(wst) + C(str)
|
||
|
|
local any = C((1 - mtch)^1)
|
||
|
|
|
||
|
|
local pjass = (mtch + any)^0 / function(...)
|
||
|
|
return table.concat {...}
|
||
|
|
end
|
||
|
|
return function (w2l_, archive, wts_)
|
||
|
|
local name = 'war3map.j'
|
||
|
|
local buf = archive:get(name)
|
||
|
|
if not buf then
|
||
|
|
name = 'scripts\\war3map.j'
|
||
|
|
buf = archive:get(name)
|
||
|
|
if not buf then
|
||
|
|
return
|
||
|
|
end
|
||
|
|
end
|
||
|
|
w2l = w2l_
|
||
|
|
wts = wts_
|
||
|
|
archive:set(name, pjass:match(buf))
|
||
|
|
end
|