; $VER: VersCheck-Select-Script V1.1 (27.08.1999) by Michaela Pruess

Echo "Running Script"
IF NOT EXISTS SCRIPTS
	IF EXISTS /SCRIPTS
		PATH "" ADD
		CD /
	ELSE
		IF EXISTS C:SCRIPTS
			PATH "" ADD
			CD C:
		ELSE
			Echo "Can't find scripts, aborting..."
			END
		ENDIF
	ENDIF
ENDIF

STACK 250000

RTSimpleReq TITLE "Check your System" TEXT "Start VersCheck for" CENTER BUTTON "_ALL|_Libs|_Devs|D_Types|_MUI|_Handler|_Classes|_QUIT" >ENV:VCREQ1

IF $VCREQ1 EQ "1"
	ECHO "Y" >ENV:VCREQ0
	ECHO "2" >ENV:VCREQ1
	ECHO "1" >ENV:VCREQ2
ELSE
	ECHO "N" >ENV:VCREQ0
ENDIF

IF $VCREQ1 EQ "2"
	IF $VCREQ0 EQ "N"
		RTSimpleReq TITLE "Check Library's" TEXT "Select path to check" CENTER BUTTON "_Libs:|File_Requester|No Chec_K" >ENV:VCREQ2
	ENDIF
	IF $VCREQ2 EQ "1"
		VersCheck -1fnmosvx
	ENDIF
	IF $VCREQ2 EQ "2"
		RTFileReq TITLE "Library path" DRAWER Libs: NOFILES >ENV:VCREQ3
		VersCheck -1fnmosvx "$VCREQ3"
	ENDIF
ENDIF

IF $VCREQ0 EQ "Y"
	ECHO "3" >ENV:VCREQ1
ENDIF

IF $VCREQ1 EQ "3"
	IF $VCREQ0 EQ "N"
		RTSimpleReq TITLE "Check Devices" TEXT "Select path to check" CENTER BUTTON "_Devs:|File_Requester|No Chec_K" >ENV:VCREQ2
	ENDIF
	IF $VCREQ2 EQ "1"
		VersCheck -2fnmosvx
	ENDIF
	IF $VCREQ2 EQ "2"
		RTFileReq TITLE "Device path" DRAWER Devs: NOFILES >ENV:VCREQ3
		VersCheck -2fnmosvx "$VCREQ3"
	ENDIF
ENDIF

IF $VCREQ0 EQ "Y"
	ECHO "4" >ENV:VCREQ1
ENDIF

IF $VCREQ1 EQ "4"
	IF $VCREQ0 EQ "N"
		RTSimpleReq TITLE "Check Datatypes" TEXT "Select path to check" CENTER BUTTON "_Sys:Classes/Datatypes|File_Requester|No Chec_K" >ENV:VCREQ2
	ENDIF
	IF $VCREQ2 EQ "1"
		VersCheck -3fnmosvx
	ENDIF
	IF $VCREQ2 EQ "2"
		RTFileReq TITLE "Datatypes path" DRAWER Sys:Classes/Datatypes NOFILES >ENV:VCREQ3
		VersCheck -3fnmosvx "$VCREQ3"
	ENDIF
ENDIF

IF $VCREQ0 EQ "Y"
	ECHO "5" >ENV:VCREQ1
ENDIF

IF $VCREQ1 EQ "5"
	IF $VCREQ0 EQ "N"
		RTSimpleReq TITLE "Check MUI" TEXT "Select path to check" CENTER BUTTON "_MUI:Libs/MUI|File_Requester|No Chec_K" >ENV:VCREQ2
	ENDIF
	IF $VCREQ2 EQ "1"
		VersCheck -4fnmsvx
	ENDIF
	IF $VCREQ2 EQ "2"
		RTFileReq TITLE "MUI path" DRAWER MUI:Libs/MUI NOFILES >ENV:VCREQ3
		VersCheck -4fnmsvx "$VCREQ3"
	ENDIF
ENDIF

IF $VCREQ0 EQ "Y"
	ECHO "6" >ENV:VCREQ1
ENDIF

IF $VCREQ1 EQ "6"
	IF $VCREQ0 EQ "N"
		RTSimpleReq TITLE "Check Handler" TEXT "Select path to check" CENTER BUTTON "_l:|File_Requester|No Chec_K" >ENV:VCREQ2
	ENDIF
	IF $VCREQ2 EQ "1"
		VersCheck -5fnmsvx
	ENDIF
	IF $VCREQ2 EQ "2"
		RTFileReq TITLE "Handler path" DRAWER l: NOFILES >ENV:VCREQ3
		VersCheck -5fnmsvx "$VCREQ3"
	ENDIF
ENDIF

IF $VCREQ0 EQ "Y"
	ECHO "7" >ENV:VCREQ1
ENDIF

IF $VCREQ1 EQ "7"
	IF $VCREQ0 EQ "N"
		RTSimpleReq TITLE "Check Classes" TEXT "Select path to check" CENTER BUTTON "Sys:_Classes+MUI:|_Sys:Classes|_MUI:|File_Requester|No Chec_K" >ENV:VCREQ2
	ENDIF
	IF $VCREQ2 EQ "1"
		VersCheck -afnmsv -0s .class -0l ClassList -0n CLASS MUI:
		VersCheck -afnmv -0s .class -0l ClassList -0n CLASS Sys:Classes
		VersCheck -afnmsv -0s .image -0l ImageList -0n CLASSIMG MUI:
		VersCheck -afnmv -0s .image -0l ImageList -0n CLASSIMG Sys:Classes
		VersCheck -afnmsv -0s .gadget -0l GadgetList -0n CLASSGAD MUI:
		VersCheck -afnmv -0s .gadget -0l GadgetList -0n CLASSGAD Sys:Classes
		VersCheck -afnmsv -0s .codec -0l CodecList -0n CLASSCOD MUI:
		VersCheck -afnmv -0s .codec -0l CodecList -0n CLASSCOD Sys:Classes
		VersCheck -afnmsv -0s .decoder -0l DecoderList -0n CLASSDEC MUI:
		VersCheck -afnmv -0s .decoder -0l DecoderList -0n CLASSDEC Sys:Classes
	ENDIF
	IF $VCREQ2 EQ "2"
		VersCheck -afnmsv -0s .class -0l ClassList -0n CLASS Sys:Classes
		VersCheck -afnmsv -0s .image -0l ImageList -0n CLASSIMG Sys:Classes
		VersCheck -afnmsv -0s .gadget -0l GadgetList -0n CLASSGAD Sys:Classes
		VersCheck -afnmsv -0s .codec -0l CodecList -0n CLASSCOD Sys:Classes
		VersCheck -afnmsv -0s .decoder -0l DecoderList -0n CLASSDEC Sys:Classes
	ENDIF
	IF $VCREQ2 EQ "3"
		VersCheck -afnmsv -0s .class -0l ClassList -0n CLASS MUI:
		VersCheck -afnmsv -0s .image -0l ImageList -0n CLASSIMG MUI:
		VersCheck -afnmsv -0s .gadget -0l GadgetList -0n CLASSGAD MUI:
		VersCheck -afnmsv -0s .codec -0l CodecList -0n CLASSCOD MUI:
		VersCheck -afnmsv -0s .decoder -0l DecoderList -0n CLASSDEC MUI:
	ENDIF
	IF $VCREQ2 EQ "4"
		RTFileReq TITLE "Handler path" DRAWER Sys:Classes NOFILES >ENV:VCREQ3
		VersCheck -afnmsv -0s .class -0l ClassList -0n CLASS "$VCREQ3"
		VersCheck -afnmsv -0s .image -0l ImageList -0n CLASSIMG "$VCREQ3"
		VersCheck -afnmsv -0s .gadget -0l GadgetList -0n CLASSGAD "$VCREQ3"
		VersCheck -afnmsv -0s .codec -0l CodecList -0n CLASSCOD "$VCREQ3"
		VersCheck -afnmsv -0s .decoder -0l DecoderList -0n CLASSDEC "$VCREQ3"
	ENDIF
ENDIF
Delete ENV:VCREQ? >NIL:
RTSimpleReq TITLE "END" TEXT "Check your RAM-Disk for results" CENTER BUTTON "_OK" >NIL: