# Armageddon Riders Clutch
# script for QuickBMS http://aluigi.org/papers.htm#quickbms

idstring "KAPT"
get VERSION long
get FILES long

get NAMETABLESZ long
get NAMETABLESZZ long
get DUMMY long
savepos OFFSET
log MEMORY_FILE OFFSET NAMETABLESZZ
putvarchr MEMORY_FILE 0 0x78
putvarchr MEMORY_FILE 1 0x9c
clog MEMORY_FILE2 0 NAMETABLESZZ NAMETABLESZ MEMORY_FILE

math OFFSET += NAMETABLESZZ
goto OFFSET

get FILETABLESZ long
get FILETABLESZZ long
savepos OFFSET
log MEMORY_FILE OFFSET FILETABLESZZ
putvarchr MEMORY_FILE 0 0x78
putvarchr MEMORY_FILE 1 0x9c
clog MEMORY_FILE3 0 FILETABLESZZ FILETABLESZ MEMORY_FILE

math OFFSET += FILETABLESZZ
goto OFFSET
set BASE_OFFSET long OFFSET

for i = 0 < FILES
    get SIZE long MEMORY_FILE3
    get ZSIZE long MEMORY_FILE3
    get OFFSET long MEMORY_FILE3
    get NAMEOFF long MEMORY_FILE3
    get NAMESZ long MEMORY_FILE3
    get ZIP long MEMORY_FILE3
    getdstring TIMESTAMP 8 MEMORY_FILE3

    goto NAMEOFF MEMORY_FILE2
    getdstring NAME NAMESZ MEMORY_FILE2
    math OFFSET += BASE_OFFSET

    math CL == NAMESZ
    math DL == NAMESZ
    math DL %= 5
    math DL += i
    for j = 0 < NAMESZ
        getvarchr BYTE NAME j
        math BL == j
        math BL += CL
        math BL += BL
        math BL += DL
        math BYTE ^= BL
        putvarchr NAME j BYTE
    next j

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