Dump Banks

get BNAME basename

for
    findloc OFFSET string "CSNDBNK_" 0 0
    if OFFSET == 0
        cleanexit
    endif

    goto OFFSET
    get MAGIC longlong
    get NUM_STRINGS long
    get STRINGS_SIZE long
    get NAME_LEN long
    getdstring ID NAME_LEN
    get NAME_LEN long
    getdstring NAME NAME_LEN

    padding 0x800
    findloc OFFSET string "CSNDBKDT" 0 0
    if OFFSET == 0
        savepos OFFSET
        print "No match at %OFFSET|h%!"
        cleanexit
    endif

    goto OFFSET
    get MAGIC longlong
    get SIZE longlong
    savepos OFFSET
    string NAME p "%s.bnk" NAME
    log NAME OFFSET SIZE
next