Ковыряем движок и всё такое | страница 12 (Elite Games)

Код:

local function ruprint(...)
local result = {}
for _, text in ipairs({...}) do
   local tbl = {text:byte(1, #text)}
   for i = #tbl - 1, 1, -1 do
      if tbl[i] == 208 and tbl[i + 1] > 143 and tbl[i + 1] < 192 then
         tbl[i + 1] = tbl[i + 1] - 16
         table.remove(tbl, i)
      elseif tbl[i] == 208 and tbl[i + 1] == 129 then
         tbl[i + 1] = 240
         table.remove(tbl, i)
      elseif tbl[i] == 209 and (tbl[i + 1] > 127 and tbl[i + 1] < 144 or tbl[i + 1] == 145) then
         tbl[i + 1] = tbl[i + 1] + 96
         table.remove(tbl, i)
      end
   end
   table.insert(result, string.char(table.unpack(tbl)))
end
print(table.unpack(result))
end

local function Make_Table(in_data)
local out_data = {pnums = {}}
for page_string in in_data:gmatch("%<page%s.-%/page%>") do
   local page = tonumber(page_string:match("page%sid=%D(%d+)%D"))
   if out_data[page] then
      ruprint("ОШИБКА! Дубликат: page id = " .. page)
   else
      out_data[page] = {}
      table.insert(out_data.pnums, page)
   end
   out_data[page].header = page_string:match("%<page%sid.-%>")
   out_data[page].id = page
   out_data[page].tlines = out_data[page].tlines or {}
   out_data[page].tnums = {}
   for line in page_string:gmatch("%<t%sid.-%/t%>") do
      local line_num = tonumber(line:match("t%sid=%D(%d+)%D"))

      if out_data[page].tlines[line_num] then
         ruprint("ОШИБКА! Дубликат: page id = " .. page .. ", t id = " .. line_num)
      else
         table.insert(out_data[page].tnums, line_num)
      end
      local line_text = line:match("%>(.-)%<")
      out_data[page].tlines[line_num] = line_text
   end
   table.sort(out_data[page].tnums, function(a, b) return a < b end)
end
table.sort(out_data.pnums, function(a, b) return a < b end)
in_data = nil
return out_data
end

local ref_file = io.open("D:/SteamLibrary/steamapps/common/X4 Foundations/unpack/t/0001-L007.xml")
local refer = ref_file:read("a")
io.close(ref_file)
local refertable = Make_Table(refer)

local check_file = io.open("C:/Users/eliseeff/Documents/X4/0001-L007-assemble_noNPC.xml")
local check = check_file:read("a")
io.close(check_file)
local checktable = Make_Table(check)

outtext = [[<?xml version="1.0" encoding="UTF-8"?>
<language id="7">
]]
outtext2 = [[<?xml version="1.0" encoding="utf-8"?>
<diff xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">
]]

for _, page in ipairs(checktable.pnums) do
find = false
if not refertable[page] then
   ruprint("ОШИБКА! Несуществующая страница (page id = " .. tostring(page) .. ")")
else
   for _, tid in ipairs(checktable[page].tnums) do
      if not refertable[page].tlines[tid] then
         ruprint("ВНИМАНИЕ! Несуществующая строка (page id = " .. tostring(page) .. ", t id = " .. tostring(tid) .. ")")
      elseif checktable[page].tlines[tid] ~= refertable[page].tlines[tid] then
         if not find then
            find = true
            outtext = outtext .. " " .. refertable[page].header .. string.char(0xD, 0xA)
         end
         outtext = outtext .. [[ <t id="]] .. tostring(tid) .. [[">]] .. checktable[page].tlines[tid] .. [[</t>]] .. string.char(0xD, 0xA)
         outtext2 = outtext2 .. [[ <replace sel="//page[@id=']] .. tostring(page) .. [[']/t[@id=']] .. tostring(tid) .. [[']/text()">]] .. checktable[page].tlines[tid] .. [[</replace>]] .. string.char(0xD, 0xA)
      end
   end
end
outtext = outtext .. (find and ([[ </page>]] .. string.char(0xD, 0xA)) or "")

end
outtext = outtext .. [[</language>]]
outtext2 = outtext2 .. [[</diff>]]

local diff_file = io.open("E:/XR/lua-5.3.4_Win64_bin/Diff/0001-L007.xml", "w")

io.output(diff_file)
io.write(outtext)
io.close(diff_file)

diff_file = io.open("E:/XR/lua-5.3.4_Win64_bin/Diff/mod/0001-L007.xml", "w")
io.output(diff_file)
io.write(outtext2)
io.close(diff_file)