EA ASF Scanner

# Extracts individual EA SCHl format files from archives.
# Script for QuickBMS: https://aluigi.altervista.org/quickbms.htm

get BNAME basename

for i = 0
	# Find SCHl header
	findloc OFFSET string "SCHl" 0
	goto OFFSET

	# Find SCEl block (end marker)
	do
		get BLOCKID long
		get BLOCKSIZE long
		math BLOCKSIZE - 8
		goto BLOCKSIZE 0 SEEK_CUR
	while BLOCKID != 0x6C454353 # SCEl

	savepos SIZE
	math SIZE - OFFSET

	string NAME p "%s_%d.asf" BNAME i
	log NAME OFFSET SIZE
next i