summaryrefslogtreecommitdiff
path: root/VP-roomwork.lua
diff options
context:
space:
mode:
Diffstat (limited to 'VP-roomwork.lua')
-rw-r--r--VP-roomwork.lua499
1 files changed, 499 insertions, 0 deletions
diff --git a/VP-roomwork.lua b/VP-roomwork.lua
new file mode 100644
index 0000000..d1eabfe
--- /dev/null
+++ b/VP-roomwork.lua
@@ -0,0 +1,499 @@
+function process_current_room_script()
+ local script, font, scriptfile, fontfile, nptrs
+ room_idx = current_file - 3610
+ if not rooms_lookup[room_idx] then return nil, nil end
+
+ script = Buffer(true)
+ scriptfile = Buffer(true)
+ fontfile = Buffer(true)
+ font = { idx = 1, ilookup = {}, clookup = {} }
+ for k, v in ipairs(script_types.room.translated) do
+ add_glyph(font, v)
+ end
+ for i = 1, script_types.room.size do
+ script:writeU8(script_types.room.header[i])
+ end
+ scriptfile:writeU16(0)
+ scriptfile:writeU16(3)
+ nptrs = 0
+ for pidx, pval in ipairs(rooms_lookup[room_idx]) do
+ nptrs = nptrs + 1
+ local ptr = rooms_txts[pval]
+ scriptfile:writeU16(script:getsize())
+ for k, v in ipairs(ptr) do
+ if type(v) == "string" then
+ local str = v
+ local char
+ local gidx
+ while str:len() ~= 0 do
+ char, str = get_next_utf8(str)
+ gidx = font.clookup[char] or add_glyph(font, char)
+ if gidx < 0x80 then
+ script:writeU8(gidx)
+ else
+ local high = shl(gidx, 7)
+ local low = andB(gidx, 127) + 0x80
+ script:writeU8(low)
+ script:writeU8(high)
+ end
+ end
+ elseif type(v) == "table" then
+ local code = v[1]
+ local high = 0x80
+ local low = 0x80 + code
+ script:writeU8(low)
+ script:writeU8(high)
+ if v[2] then script:writeU8(v[2]) end
+ if v[3] then script:writeU8(v[3]) end
+ if v[4] then error "Wrong script..." end
+ else
+ error("Wrong script...")
+ end
+ end
+ script:writeU8(0)
+ end
+ scriptfile:copyfrom(script)
+ script:destroy()
+
+ local npadding = alignment(#font.ilookup, 4)
+
+ fontfile:writeU32(#font.ilookup + npadding)
+ fontfile:writeU32(12)
+
+ for _, glyph in ipairs(font.ilookup) do
+ if not glyphes[glyph] then error("No glyph in database for " .. glyph) end
+ fontfile:writeU8(glyphes[glyph].attr.Width)
+ end
+ for i = 1, npadding do
+ fontfile:writeU8(0)
+ end
+
+ for _, glyph in ipairs(font.ilookup) do
+ Base64DecodeBin(glyphes[glyph].attr.Data, fontfile)
+ end
+ for i = 1, npadding do
+ for j = 1, 6 do fontfile:writeU32(0) end
+ end
+
+ return scriptfile, fontfile, nptrs + 2
+end
+
+function insert_script(old, new, nptrs)
+ local size_1 = old:readU32()
+ local u1 = old:readU32()
+ local u2 = old:readU32()
+ local n_ptrs = old:readU32()
+ local u3 = old:readU32()
+ local u4 = old:readU32()
+ local u5 = old:readU32()
+
+ local ret = Buffer(true)
+
+ ret:writeU32(size_1)
+ ret:writeU32(u1)
+ ret:writeU32(u2)
+ if nptrs ~= n_ptrs then error("Script inconsistancy! Got " .. nptrs .. " instead of " .. n_ptrs) end
+ ret:writeU32(nptrs)
+ ret:writeU32(u3)
+ ret:writeU32(u4)
+ ret:writeU32(u5)
+ if got_us and current_file == (3610 + 125) and activate_debug_room then
+ ret:copyfrom(old, 0x1158 * 4)
+ ret:writeU32(0x9e000000)
+ old:readU32()
+ ret:copyfrom(old, size_1 - 0x1159 * 4)
+ else
+ ret:copyfrom(old, size_1)
+ end
+ ret:copyfrom(new)
+
+ return ret
+end
+
+function process_arcroom(fname, h, size, ext)
+ log("Processing " .. fname .. "." .. ext)
+ local o
+
+ if dump_mode then
+ o = Output(fname .. "." .. ext)
+ o:copyfrom(h, size)
+ o:destroy()
+ h:seek(-size, SEEK_CUR)
+ end
+ log("Processing " .. fname .. " - format 'arcroom'")
+ dump_mkdir(fname)
+
+ local nfiles = h:readU32()
+ local offset = h:readU32()
+
+ if nfiles * 8 + 8 ~= offset then
+ error("Bad archive format.")
+ end
+
+ local ret
+
+ if not dump_mode then
+ ret = Buffer(true)
+ ret:writeU32(nfiles)
+ ret:writeU32(offset)
+ end
+
+ index = {}
+ for i = 1, nfiles do
+ index[i] = {}
+ index[i].ftype = h:readU32()
+ index[i].size = h:readU32()
+ end
+
+ local tell
+ local outfile = {}
+ local script = nil
+ local font = nil
+ local nptrs
+ if not dump_mode then
+ script, font, nptrs = process_current_room_script()
+ end
+ for i = 1, nfiles do
+ tell = h:tell()
+ local handler = nil
+ local counter = 1
+ if dump_mode and index[i].ftype == 4 then
+ log("Preparing to dump script...")
+ script = Buffer(true)
+ font = Buffer(true)
+ handler = function(fname, h, size, ext)
+ if counter == 1 then
+ log("Taking script...")
+ script:copyfrom(h)
+ elseif counter == 2 then
+ log("Taking font...")
+ font:copyfrom(h)
+ else
+ error("Too many files.")
+ end
+ counter = counter + 1
+ end
+ elseif index[i].ftype == 4 and script and font then
+ old_script = Buffer(true)
+ handler = function(fname, h, size, ext)
+ local ret
+ if counter == 1 then
+ log("Putting script...")
+ ret = insert_script(h, script, nptrs)
+ elseif counter == 2 then
+ log("Putting font...")
+ ret = Buffer(true)
+ ret:copyfrom(font)
+ else
+ error("Too many files.")
+ end
+ counter = counter + 1
+ return ret
+ end
+ end
+ outfile[i] = process_single_file(fname .. string.format("/%04i-%08X", i, index[i].ftype), h, index[i].size, "room", handler)
+ if handler then
+ if counter ~= 3 then error("Didn't get enough files; got " .. (counter - 1) .. " instead of 2.") end
+ if dump_mode then
+ extract_room_script(fname .. string.format("/%04i", i), script, font)
+ end
+ script:destroy()
+ font:destroy()
+ end
+ h:seek(tell + index[i].size)
+ end
+
+ if not dump_mode then
+ for i = 1, nfiles do
+ local alignment_bytes = alignment(outfile[i]:getsize(), 4)
+ for j = 1, alignment_bytes do
+ outfile[i]:writeU8(0)
+ end
+ ret:writeU32(index[i].ftype)
+ ret:writeU32(outfile[i]:getsize())
+ end
+ for i = 1, nfiles do
+ ret:copyfrom(outfile[i])
+ outfile[i]:destroy()
+ end
+ end
+
+ return ret
+end
+
+room_logic_check = {
+ [0x0090] = { 0x18000000, 0x00000008 }, [0x009B] = { 0x98100000, 0x17000000 },
+ [0x033C] = { 0x18000000, 0x0000002C }, [0x03BC] = { 0x92100000, 0x150003E1 }, [0x03C7] = { 0x94100000, 0x150003E1 }, [0x03D3] = { 0x93100000, 0x150003E1 }, [0x03DF] = { 0x92100000, 0x150003E1 },
+ [0x03E2] = { 0x18000000, 0x00000018 }, [0x03F0] = { 0x1400033C, 0x7E000000 },
+ [0x03F5] = { 0x18000000, 0x00000018 }, [0x0403] = { 0x1400033C, 0x7E000000 },
+ [0x0408] = { 0x18000000, 0x00000018 }, [0x0416] = { 0x1400033C, 0x7E000000 },
+-- [0x041B] = { 0x18000000, 0x00000020 }, [0x042B] = { 0x1400033C, 0x7E000000 },
+-- [0x0432] = { 0x18000000, 0x00000020 }, [0x0442] = { 0x1400033C, 0x7E000000 },
+-- [0x0449] = { 0x18000000, 0x00000020 }, [0x0459] = { 0x1400033C, 0x7E000000 },
+}
+
+function check_opcode(script, PC, supposed)
+ script:seek(PC * 4)
+ local r = script:readU32()
+ if r ~= supposed then error(string.format("Error for script: opcode %04X is %08X but was supposed to be %08X", PC, r, supposed)) end
+end
+
+function check_room_logic(script)
+ for offset, v in pairs(room_logic_check) do
+ local PC = offset - 1
+ for suboffset, supposed in ipairs(v) do
+ check_opcode(script, PC + suboffset, supposed)
+ end
+ end
+end
+
+function extract_room_script(fname, script, font)
+ log("Processing script " .. fname)
+ dump_mkdir(fname)
+ dump_mkdir(fname .. "/EXTRA")
+ local font = extract_font(fname .. "/FONT", font)
+ local lookup = resolve_font(font)
+ local size_1 = script:readU32()
+ local logic_offset = script:readU32()
+ local u1 = script:readU32()
+ local n_ptrs = script:readU32()
+ local u3 = script:readU32()
+ local u4 = script:readU32()
+ local u5 = script:readU32()
+
+ if logic_offset ~= 0 then error("Unhandled logic offset " .. logic_offset) end
+
+ local o
+ o = Output(fname .. "/EXTRA/00-head1-" .. string.format("%08X", u1) .. ".bin")
+ o:writeU32(u1)
+ o:destroy()
+ o = Output(fname .. "/EXTRA/00-head2-" .. string.format("%08X-%08X-%08X", u3, u4, u5) .. ".bin")
+ o:writeU32(u3)
+ o:writeU32(u4)
+ o:writeU32(u5)
+ o:destroy()
+ o = Output(fname .. "/EXTRA/01-head1.bin")
+ o:writeU32(u1)
+ o:destroy()
+ o = Output(fname .. "/EXTRA/01-head2.bin")
+ o:writeU32(u3)
+ o:writeU32(u4)
+ o:writeU32(u5)
+ o:destroy()
+ o = Output(fname .. "/EXTRA/02-part1.bin")
+ o:copyfrom(script, size_1)
+ o:destroy()
+ script:seek(-size_1, SEEK_CUR)
+ local logic = Buffer(true)
+ logic:copyfrom(script, size_1)
+
+ local ptrs = {}
+ local ptr_start = 1
+
+ for i = 1, n_ptrs do
+ ptrs[i] = script:readU16()
+ end
+
+ local ptrs_contents, ptrs_raws = {}, {}
+ local tell = script:tell()
+ ptrs_contents[1] = ""
+ ptrs_contents[2] = ""
+ ptrs_raws[1] = ""
+ ptrs_raws[2] = ""
+ ptr_start = 3
+
+ local header = script_types.room.header
+ for i = 1, script_types.room.size do
+ if script:readU8() ~= header[i] then error("Script header file of type 'room' not according to its header") end
+ end
+
+ for i = ptr_start, n_ptrs do
+ ptrs_contents[i] = ""
+ ptrs_raws[i] = ""
+ if tell + ptrs[i] ~= script:tell() then error("Script consistancy failure for pointer " .. i .. " - we're at " .. script:tell() .. " and " .. (tell + ptrs[i]) .. " was expected.") end
+ while true do
+ local r, rr = extract_char(script, lookup)
+ if not r then break end
+ ptrs_contents[i] = ptrs_contents[i] .. r
+ ptrs_raws[i] = ptrs_raws[i] .. rr
+ end
+ end
+
+ o = Output(fname .. "/EXTRA/logic.txt")
+ check_room_logic(logic)
+ local textboxes = { }
+ local rd_opcode = function(PC)
+ logic:seek(PC * 4)
+ return logic:readU32()
+ end
+ local add_textbox = function(txtptr, txtbox)
+ if txtptr < 0 then return end
+ o:write("\n")
+ if ptrs_raws[txtptr + ptr_start] then
+ o:write(ptrs_raws[txtptr + ptr_start])
+ if textboxes[txtptr + ptr_start] then
+ o:write("\n****SUSPECT****PTR ALREADY RECORDED****: " .. (txtptr + ptr_start))
+ end
+ textboxes[txtptr + ptr_start] = txtbox
+ else
+ error("****SUSPECT****PTR TOO LARGE****: " .. (txtptr + ptr_start))
+ end
+ end
+ local txt_process = function(PC)
+ local opcode = rd_opcode(PC)
+ local txtptr
+ local x, y, width, height
+ if andB(opcode, 0x00100000) ~= 0 then
+ local psh1 = rd_opcode(PC - 1)
+ local psh2 = rd_opcode(PC - 2)
+ local psh3 = rd_opcode(PC - 3)
+ local psh4 = rd_opcode(PC - 4)
+ local psh5 = rd_opcode(PC - 5)
+ local psh6 = rd_opcode(PC - 6)
+
+ if andB(psh1, 0xff000000) ~= 0x12000000 then return end
+ if andB(psh2, 0xff000000) ~= 0x12000000 then return end
+ if andB(psh3, 0xff000000) ~= 0x12000000 then return end
+ if andB(psh4, 0xff000000) ~= 0x12000000 then return end
+ if andB(psh5, 0xff000000) ~= 0x12000000 then return end
+ if andB(psh6, 0xff000000) ~= 0x12000000 then return end
+
+ local arg1 = andB(psh1, 0x7fffff)
+ local arg2 = andB(psh2, 0x7fffff)
+ local arg3 = andB(psh3, 0x7fffff)
+ local arg4 = andB(psh4, 0x7fffff)
+ local arg5 = andB(psh5, 0x7fffff)
+ local arg6 = andB(psh6, 0x7fffff)
+
+ txtptr = arg6 + 1 - ptr_start
+
+ x = arg5
+ y = arg4
+ width = arg3
+ height = arg2
+ else
+ txtptr = andB(opcode, 0xff) + 1 - ptr_start
+ local arg1 = rd_opcode(PC + 1)
+ local arg2 = rd_opcode(PC + 2)
+ x = andB(arg1, 0xffff)
+ y = shr(arg1, 16)
+ width = andB(arg2, 0xffff)
+ height = shr(arg2, 16)
+ end
+ add_textbox(txtptr, {
+ x = x,
+ y = y,
+ width = width,
+ height = height,
+ })
+ end
+ local process_subtxt = function(PC)
+ local psh1 = rd_opcode(PC - 1)
+ local psh2 = rd_opcode(PC - 2)
+ local psh3 = rd_opcode(PC - 3)
+ local psh4 = rd_opcode(PC - 4)
+ local psh5 = rd_opcode(PC - 5)
+ local psh6 = rd_opcode(PC - 6)
+
+ if andB(psh1, 0xff000000) ~= 0x12000000 and andB(psh1, 0xff000000) ~= 0x0B000000 then return end
+ if andB(psh2, 0xff000000) ~= 0x12000000 then return end
+ if andB(psh3, 0xff000000) ~= 0x12000000 and andB(psh3, 0xff000000) ~= 0x0B000000 then return end
+ if andB(psh4, 0xff000000) ~= 0x12000000 and andB(psh4, 0xff000000) ~= 0x0B000000 then return end
+ if andB(psh5, 0xff000000) ~= 0x12000000 and andB(psh5, 0xff000000) ~= 0x0B000000 then return end
+ if andB(psh6, 0xff000000) ~= 0x12000000 and andB(psh6, 0xff000000) ~= 0x0B000000 then return end
+
+ local arg1 = andB(psh1, 0x7fffff)
+ local arg2 = andB(psh2, 0x7fffff)
+ local arg3 = andB(psh3, 0x7fffff)
+ local arg4 = andB(psh4, 0x7fffff)
+ local arg5 = andB(psh5, 0x7fffff)
+ local arg6 = andB(psh6, 0x7fffff)
+
+ if andB(psh1, 0xff000000) == 0x0B000000 then arg1 = nil end
+ if andB(psh3, 0xff000000) == 0x0B000000 then arg3 = nil end
+ if andB(psh4, 0xff000000) == 0x0B000000 then arg4 = nil end
+ if andB(psh5, 0xff000000) == 0x0B000000 then arg5 = nil end
+ if andB(psh6, 0xff000000) == 0x0B000000 then arg6 = nil end
+
+ local txtptr = arg2 + 1 - ptr_start
+ add_textbox(txtptr, {
+ x = arg6 or "var",
+ y = arg5 or "var",
+ width = arg4 or "var",
+ height = arg3 or "var",
+ })
+ end
+ local process_subtxt2 = function(PC)
+ local psh1 = rd_opcode(PC - 1)
+ local psh2 = rd_opcode(PC - 2)
+ local psh3 = rd_opcode(PC - 3)
+ local psh4 = rd_opcode(PC - 4)
+ local psh5 = rd_opcode(PC - 5)
+
+ if andB(psh1, 0xff000000) ~= 0x12000000 then return end
+ if andB(psh2, 0xff000000) ~= 0x0B000000 then return end
+ if andB(psh3, 0xff000000) ~= 0x22000000 then return end
+ if andB(psh4, 0xff000000) ~= 0x0B000000 then return end
+ if andB(psh5, 0xff000000) ~= 0xCB000000 then return end
+
+ local txtptr = andB(psh5, 0xff) + 1 - ptr_start
+ add_textbox(txtptr, {
+ typ = "fixed",
+ })
+ end
+ local call_process = function(PC)
+ local opcode = rd_opcode(PC)
+ if opcode == 0x1400033C or opcode == 0x140003E2 or opcode == 0x140003F5 or opcode == 0x14000408 then process_subtxt(PC) end
+ if opcode == 0x14000090 then process_subtxt2(PC) end
+ end
+ logic_disasm(logic, o, {
+ -- ret
+ [0x17] = function(PC) o:write("\n-----------------------------------------------------\n") end,
+ -- txtbox1
+ [0x92] = txt_process,
+ -- txtbox2
+ [0x93] = txt_process,
+ -- txtbox3
+ [0x94] = txt_process,
+ -- txtbox4
+ [0x98] = txt_process,
+ -- *sigh*
+ [0x14] = call_process,
+ } )
+
+ o:destroy()
+ logic:destroy()
+
+ for i = ptr_start, n_ptrs do
+ if textboxes[i] then
+ local tb = textboxes[i]
+ if tb.typ == "fixed" then
+ ptrs_contents[i] = '<window type="fixed"/>\n' .. ptrs_contents[i]
+ elseif tb.typ == "auto" then
+ ptrs_contents[i] = '<window type="auto"/>\n' .. ptrs_contents[i]
+ else
+ ptrs_contents[i] = '<window x="' .. tb.x .. '" y="' .. tb.y .. '" width="' .. tb.width .. '" height="' .. tb.height .. '"/>\n' .. ptrs_contents[i]
+ end
+ else
+ ptrs_contents[i] = '<nowindowdetected/>\n' .. ptrs_contents[i]
+ end
+ end
+
+ -- WARNING -- only for rooms
+ local ptrs_idx = process_ptrs(ptrs_contents, ptr_start, n_ptrs)
+
+ local o = Output(fname .. "-script.txt")
+ o:write("template:room\n")
+
+ for i = ptr_start, n_ptrs do
+ o:write(ptrs_idx[i] .. "\n")
+ end
+
+ lookup_rooms:write(" [" .. current_file - 3610 .. "] = { ")
+ for i = ptr_start, n_ptrs do
+ lookup_rooms:write(ptrs_idx[i] .. ", ")
+ end
+ lookup_rooms:write "},\n"
+
+ o:destroy()
+end
generated by cgit v1.2.3 (git 2.39.1) at 2024-11-21 17:59:35 +0000