delay1 = 250
range = 400
delay2 = 600
gd1 = 0
gd2 = 0

file = io.open("seeds.txt","w")
--file:write("dio maiale\n")


function log()
	file:write(string.format("%4X: %d %d\n",memory.readword(0x2020000),gd1,gd2))
	file:flush()
	--print(vba.framecount())
	--update()

end


memory.registerwrite(0x2020000, log)
state = savestate.create()
savestate.save(state)
--while working==true do
for d1 = delay1,delay1+range do
		for d2 = delay2, delay2+range do
			gd1 = d1
			gd2 = d2
			while true do

				if(emu.framecount() == d1) then
					joypad.set(1, {A=true})
				elseif(emu.framecount() == d2) then
					joypad.set(1, {start=true})
				elseif(emu.framecount() == d2+130) then
					savestate.load(state)
					break
					--print("finito")
				end
				--print(emu.framecount())
				emu.frameadvance()
			end
	end
end
print("finito")