# Project IGI 2
# script for QuickBMS http://aluigi.org/papers.htm#quickbms

idstring ILFF
get FILESIZE long
set OFFSET 20

for
    if OFFSET >= FILESIZE
        cleanexit
    endif

    goto OFFSET
    get CHUNK long
    get CHUNKSZ long
    get FOUR long
    get XCHUNKSZ long
    savepos OFFSET

    if CHUNK == 0x454d414e  # NAME
        getdstring NAME CHUNKSZ
        string NAME -= "LOCAL:"

    else    # leaving this "else" allows to dump anything (not good with messages)
    #endif
    #if CHUNK == 0x59444f42  # BODY (only phisical files and not CSTR and other things)

        log NAME OFFSET CHUNKSZ
    endif

    math OFFSET += CHUNKSZ
    do                      # boring padding
        if OFFSET & 3
            math OFFSET += 1
        endif
    while OFFSET & 3
next