.key node/a
.bra {
.ket }
; Zip Extractor script for MAX's Professional v2.00 by Steve Clack
; Modified 2 Work With MAx's Pro V2.05 By Skutter 3/2/1998
; Tested With UnZip V5.1d3 Beta (18/2/93)

FailAt 9999

Type BBS:Scripts/ANSI/FileTypes/Zip.text >$MPout{node}

SetEnv UploadedDir{node} "BBS:Scripts/Extract/Node{node}/"
CD $UploadedDir{node}

Type BBS:Scripts/ANSI/TestFile.Text >$MPout{node}
Type BBS:Scripts/ANSI/White.macro >$MPout{node}

Unzip -t $UploadedFile{node} >$MPout{node}

IF NOT WARN 
   ; It's adding in my BBS advert. You may want to remove this :).
   
;   Type BBS:Scripts/ANSI/Add-Adverts.Text >$MPout{node}
;   Zip $UploadedFile{node} s:the·weekend·warrior

   Type BBS:Scripts/ANSI/PleaseWait.Text >$MPout{node}
   Unzip -o $UploadedFile{node} file_id.diz $UploadedDir{node}
   Unzip -o $UploadedFile{node} $UploadedReadme{node} $UploadedDir{node}

   BBS:C/ProcessDiz {node} $UploadedDiz{node}

   Delete file_id.diz
   Delete $UploadedReadme{node}
ELSE
   Delete $UploadedFile{node}
   SetEnv CreditDock{node} "1"
   Type BBS:Scripts/ANSI/CorruptFile.Text >$MPout{node}
   SetEnv UploadedComment{node} "BAD ZIP archive!"
ENDIF

SetENV Finished{node} "FIN"
; Needed so STDIO output can terminate :)