/*
    delagger scrip
    patchs bik(bink movies) files to stop them from running on billboards and lagging you 

    byte 8-11 defines the frame counter
    we are simply overwriting them and gets ride of the anims that way

    remember to change path variable into where you have installed your anarchy online
    
    requirements
    
    Regina Rexx
    regutil (http://pages.interlog.com/~ptjm/)
*/

/* load addition functions */
call RXFUNCADD 'SysFileTree','REXXUTIL','sysfiletree'

path="c:\Programmer\Funcom\Anarchy"||x2c(20)||"Online\mediacache\"
search=path||'*.bik'
call SysFileTree search,'file','O'
do i=1 to file.0
    type = right(file.i,4)
    if (compare(type,".bik")=0) then call patch(file.i)

end
exit

patch:
parse arg filename
/* patch the part of the file that holes the frame counter */
say "opening "||filename||" for patching"
IF (stream(filename,"C","OPEN WRITE")=="READY:") THEN DO
data=x2c('00 00 00 00')
call charout filename,data,9
say "finished patching"
END



..
.