# Cabela's games series (script 0.1.2)
# script for QuickBMS http://aluigi.org/papers.htm#quickbms

goto -0x800
savepos MAX_SIZE
idstring "ARC\0"
get VER long
get INFO_OFFSET long
get INFO_SIZE long
get OFFSET2 long
get SIZE2 long

if VER == 0x100
    math INFO_OFFSET <<= 11
elif VER == 0x200
else
    print "unknown ARC version %VER%"
    cleanexit
endif

math TMP = MAX_SIZE
math TMP -= INFO_OFFSET
clog MEMORY_FILE INFO_OFFSET TMP INFO_SIZE

for INFO_OFF = 0 < INFO_SIZE
    idstring MEMORY_FILE "ARCH"
    get OFFSET long MEMORY_FILE
    get DUMMY long MEMORY_FILE
    get SIZE long MEMORY_FILE
    get ZSIZE long MEMORY_FILE
    get ZIP long MEMORY_FILE
    get NAMESZ long MEMORY_FILE
    getdstring NAME NAMESZ MEMORY_FILE
    savepos INFO_OFF MEMORY_FILE

    if VER == 0x100
        math OFFSET <<= 11
    endif

    if ZIP == 0
        log NAME OFFSET SIZE
    else
        clog NAME OFFSET ZSIZE SIZE
    endif
next