AmigActive 13/AACD13.ISO/AACD/Resources/System/VersCheck2/Goodies/Check_Your_System_france

Text File | 1999-12-14 | 5KB | 154 lines

; $VER: VersCheck-Select-Script V1.8 (14.12.1999) by Michaela Pruess
;
; Translation : Seahorse <[e-mail]> ATO-Fr

Echo " Exécution du script..."
IF NOT EXISTS SCRIPTS
    IF EXISTS /SCRIPTS
        PATH "" ADD
        CD /
    ELSE
        IF EXISTS C:SCRIPTS
            PATH "" ADD
            CD C:
        ELSE
            Echo "Interruption... Les scripts non pas été trouvés"
            END
        ENDIF
    ENDIF
ENDIF

STACK 250000

RTSimpleReq TITLE "Vérification du système" TEXT "Lancer VersCheck pour" CENTER BUTTON "_TOUS|_Libs|_Devs|DT_ypes|_MUI|_Handler|_Classes|_QUITTER" >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 "Vérification des bibliothèques" TEXT "Effectuer la vérification dans :" CENTER BUTTON "_Libs:|_Requête de fichiers|_Pas de vérification" >ENV:VCREQ2
    ENDIF
    IF $VCREQ2 EQ "1"
        VersCheck -1*fnmosvx3
    ENDIF
    IF $VCREQ2 EQ "2"
        RTFileReq TITLE "Chemin d'accès" DRAWER Libs: NOFILES >ENV:VCREQ3
        VersCheck -1fnmosvx3 "$VCREQ3"
    ENDIF
ENDIF

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

IF $VCREQ1 EQ "3"
    IF $VCREQ0 EQ "N"
        RTSimpleReq TITLE "Vérification des « Devices »" TEXT "Effectuer la vérification dans :" CENTER BUTTON "_Devs:|_Requête de fichiers|_Pas de vérification" >ENV:VCREQ2
    ENDIF
    IF $VCREQ2 EQ "1"
        VersCheck -2*fnmosvx3
    ENDIF
    IF $VCREQ2 EQ "2"
        RTFileReq TITLE "Chemin d'accès aux « devices »" DRAWER Devs: NOFILES >ENV:VCREQ3
        VersCheck -2fnmosvx3 "$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 "Effectuer la vérification dans :" CENTER BUTTON "_Sys:Classes/Datatypes|_Requête de fichiers|_Pas de vérification" >ENV:VCREQ2
    ENDIF
    IF $VCREQ2 EQ "1"
        VersCheck -3*fnmosvx3
    ENDIF
    IF $VCREQ2 EQ "2"
        RTFileReq TITLE "Chemin d'accès aux « Datatypes »" DRAWER Sys:Classes/Datatypes NOFILES >ENV:VCREQ3
        VersCheck -3fnmosvx3 "$VCREQ3"
    ENDIF
ENDIF

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

IF $VCREQ1 EQ "5"
    IF $VCREQ0 EQ "N"
        RTSimpleReq TITLE "Vérification de MUI" TEXT "Effectuer la vérification dans :" CENTER BUTTON "_MUI:Libs/MUI|_Requête de fichiers|_Pas de vérification" >ENV:VCREQ2
    ENDIF
    IF $VCREQ2 EQ "1"
        VersCheck -4*fnmsv
    ENDIF
    IF $VCREQ2 EQ "2"
        RTFileReq TITLE "Chemin d'accès à MUI" DRAWER MUI:Libs/MUI NOFILES >ENV:VCREQ3
        VersCheck -4fnmsv "$VCREQ3"
    ENDIF
ENDIF

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

IF $VCREQ1 EQ "6"
    IF $VCREQ0 EQ "N"
        RTSimpleReq TITLE "Vérification des gestionnaires" TEXT "Effectuer la vérification dans :" CENTER BUTTON "_L:|_Requête de fichiers|_Pas de vérification" >ENV:VCREQ2
    ENDIF
    IF $VCREQ2 EQ "1"
        VersCheck -5*fnmsvx3
    ENDIF
    IF $VCREQ2 EQ "2"
        RTFileReq TITLE "Chemin d'accès aux gestionnaires" DRAWER L: NOFILES >ENV:VCREQ3
        VersCheck -5fnmsvx3 "$VCREQ3"
    ENDIF
ENDIF

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

IF $VCREQ1 EQ "7"
    IF $VCREQ0 EQ "N"
        RTSimpleReq TITLE "Vérification des « classes »" TEXT "Effectuer la vérification dans :" CENTER BUTTON "Sys:_Classes+MUI:|_Sys:Classes|_MUI:|_Requête fic.|_Pas de vérif." >ENV:VCREQ2
    ENDIF
    IF $VCREQ2 EQ "1"
        VersCheck -afnmsv -0s .class -0l* ClassList -0n CLASS
        VersCheck -afnmsv -0s .image -0l* ImageList -0n CLASSIMG
        VersCheck -afnmsv -0s .gadget -0l* GadgetList -0n CLASSGAD
        VersCheck -afnmsv -0s .codec -0l* CodecList -0n CLASSCOD
        VersCheck -afnmsv -0s .decoder -0l* DecoderList -0n CLASSDEC
    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 " ******  FIN  ****** " TEXT "Les résultats se trouvent dans « RAM-Disk »" CENTER BUTTON "_OK" >NIL: