mirror of
https://github.com/bryanthaboi/gen1recomp
synced 2026-09-26 13:33:27 -04:00
Shane McGovern
29 lines
1.4 KiB
Lua
29 lines
1.4 KiB
Lua
package.path='./?.lua;./?/init.lua;'..package.path
|
|
if not arg[1] then print('SKIP object ROM test: supply FireRed ROM');return end
|
|
local F=require('src.import.gba.file_io')
|
|
local imports=F.makeImports(arg[1],'test')
|
|
local rom=assert(require('src.import.gba.rom').open(imports,'firered'))
|
|
local E=require('src.import.gba.object_interactions_extract')
|
|
local p=E.readScripts(rom)
|
|
local I=require('src.core.game3.scripting.interaction_scripts')
|
|
local Vm=require('src.core.game3.scripting.vm')
|
|
local Content=require('src.import.gba.island1_content')
|
|
local textCount=0
|
|
for _,row in ipairs(I.FLAVOR) do
|
|
local messages={}
|
|
local vm=Vm.new({scripts=p.scripts,text=p.text,stdscripts=Content.STDSCRIPTS,
|
|
onMessage=function(text) messages[#messages+1]=text end})
|
|
assert(vm:start('EventScript_'..row[2]))
|
|
for _=1,100 do vm:tick() end
|
|
assert(#messages==1 and #messages[1]>0,row[2]..' did not show its text')
|
|
assert(not vm:isRunning(),row[2]..' did not return control')
|
|
-- Read original IR directly too: every shared script must resolve its text.
|
|
local script=p.scripts['EventScript_'..row[2]]
|
|
local key=script[1].value or script[1][2]
|
|
assert(type(key)=='string' and p.text[key],row[2]..' text missing')
|
|
textCount=textCount+1
|
|
end
|
|
assert(p.scripts.EventScript_WallTownMap)
|
|
assert(textCount==28)
|
|
imports:_close();print('PASS all 28 original object/sign scripts and Wall Town Map extracted')
|