# Another Day (new FEAR ARCH00 archive)
# script for QuickBMS http://aluigi.org/papers.htm#quickbms
# the script will return an error after the extraction, don't worry it's all ok, ignore it

idstring LTAR
get VERSION long
getdstring DUMMY 16
get DUMMY long      # 1
get DUMMY long      # 0
get DUMMY long      # 0
get FILES long
get FOLDERS long
get NAMESSZ long

savepos OFFSET
log MEMORY_FILE OFFSET NAMESSZ

math OFFSET += NAMESSZ
set FILESSZ long FILES
math FILESSZ *= 32
log MEMORY_FILE2 OFFSET FILESSZ

math OFFSET += FILESSZ
set FOLDERSSZ long FOLDERS
math FOLDERSSZ *= 16
log MEMORY_FILE3 OFFSET FOLDERSSZ

set FOLDER string ""
callfunction SCANDIR

startfunction SCANDIR
    get NAMEOFF long MEMORY_FILE3
    get SUB_FOLDERS long MEMORY_FILE3
    get NEXT_FOLDERS long MEMORY_FILE3
    get NUM_FILES long MEMORY_FILE3

    goto NAMEOFF MEMORY_FILE
    get NAME string MEMORY_FILE
    string FOLDER += NAME
    string FOLDER += \

    for i = 0 < NUM_FILES
        get NAMEOFF  long MEMORY_FILE2
        get OFFSET   long MEMORY_FILE2
        get OFFSET64 long MEMORY_FILE2  # 64bit
        get ZSIZE    long MEMORY_FILE2
        get ZSIZE64  long MEMORY_FILE2  # 64bit
        get SIZE     long MEMORY_FILE2
        get SIZE64   long MEMORY_FILE2  # 64bit
        get DUMMY    long MEMORY_FILE2

        goto NAMEOFF MEMORY_FILE
        get NAME string MEMORY_FILE

        set FULLNAME string FOLDER
        string FULLNAME += NAME
        log FULLNAME OFFSET SIZE
    next i

    for i = 0 < SUB_FOLDERS
        callfunction SCANDIR
    next i

    set FOLDER string ""
    for i = 0 < NEXT_FOLDERS
        callfunction SCANDIR
    next i
endfunction