Spider-Man PS1 XA Extractor

# Spider-Man (PS1)(SLUS-00875) - COMPILED.XA
# Script for QuickBMS: https://aluigi.altervista.org/quickbms.htm

# Make sure the executable is in the same dir.
open FDSE "SLUS_008.75" 1
math BLOCK_TABLE_OFF = 0x088844
math SOUND_TABLE_OFF = 0x0888E4
get BNAME basename

for i = 0 < 79
	goto BLOCK_TABLE_OFF 1
	get BLOCK_SEC short 1
	xmath BLOCK_OFF "(BLOCK_SEC << 4) * 0x930"

	savepos BLOCK_TABLE_OFF 1
	goto SOUND_TABLE_OFF 1

	# 37800 Hz mono - 16 channels.
	for j = 0 < 16
		get SOUND_SECS short 1

		if SOUND_SECS != 0xFFFF
			xmath SOUND_OFF "BLOCK_OFF + j * 0x930"
			log MEMORY_FILE 0 0

			for k = 0 < SOUND_SECS
				xmath OFFSET "SOUND_OFF + k * 16 * 0x930"
				append
				log MEMORY_FILE OFFSET 0x930
				append
			next k

			xmath SIZE "SOUND_SECS * 0x930"
			string NAME p "%s_%d_%d.xa" BNAME i j
			log NAME 0 SIZE MEMORY_FILE
		endif
	next j

	savepos SOUND_TABLE_OFF 1
next i