Meeting Pearls 3/Meeting_Pearls_III.iso/Pearls/comm/Fido/TrapPrefs/Install_TrapPrefs

Text File | 1995-03-08 | 4KB | 200 lines

; Installation script for TrapPrefs

(set @user-level 2)

(transcript "Installing TrapPrefs...")

(set rtvernum (getversion "libs:reqtools.library"  ))
(set rtver (/ rtvernum 65536))
(set rtrev (- rtvernum (* rtver 65536) ) )


(set muivernum (getversion "libs:muimaster.library" ))
(set muiver (/ muivernum 65536))
(set muirev (- muivernum (* muiver 65536) ) )


( if (< rtver  38)
    (message ("You have reqtools v%ld.%ld\n" rtver rtrev)
             "You need to install version 38.x+ of reqtools.library\n"
             "inorder to use TrapPrefs")
)

( if (< muiver  8)
    (message ("You have MUI v%ld.%ld" muiver muirev)
             "You need to install version 8.x+ of MUI\n"
             "in order to use TrapPrefs."
             "This version of MUI can be found in the 2.1+ release\n")
)


(set locale
        (askoptions
            (prompt "Install which language?")
            (help  @askoptions-help)
            (choices "English"
                     "Italiano"   ;1
                    "Deutsch"     ;2
                    "Français" ;3
                     )
            (default 1)
        )
)

(if (IN locale 1)
    (copyfiles
            (source "catalogs/Italiano/trapprefs.catalog")
            (dest "Locale:Catalogs/Italiano")
    )
)


(if (IN locale 2)
    (copyfiles
            (source "catalogs/Deutsch/trapprefs.catalog")
            (dest "Locale:Catalogs/Deutsch")
    )
)

(if (IN locale 3)
    (copyfiles
            (source "catalogs/français/trapprefs.catalog")
            (dest "Locale:Catalogs/Français")
    )
)

( if (= (exists "Mail:TrapDoor.cfg" (noreq)) 1)
    (set cfg
        (askbool
                (prompt "You already have a configuration for TrapDoor\n"
                        "in your Mail: directory.\n"
                        "Do you want to TrapPrefs to automatically load\n"
                        "that config when it is run" )
                (help "It's up to YOU.")
                (choices "Yes" "No")
                (default 1)              ; 0 = no
        )
    )
)


(if (= cfg 1)                           ; conditional test
    (tooltype
            (dest "TrapPrefs")
            (settooltype "CONFIG" "Mail:TrapDoor.cfg")
    )
)

(set style
        (askchoice
            (prompt "Please choose the style to display the\nnon default options in the cycle gadgets\nIf your cycle gadgets have a white backgroup\nyou will not be able to see the options\nwith the default choice.")
            (help  @askchoice-help)
            (choices "Underline"    ;0
                     "Bold"          ;1
                     "Italic"       ;2
                     "Normal"       ;3
                     "Pen Color 2"     ;4
                     "Pen Color 3"     ;5
                     "Pen Color 4"     ;6
                     "Pen Color 5"     ;7
                     "Pen Color 6"     ;8
                     "Pen Color 7"     ;9
                     "Pen Color 8"     ;10
                     "Pen Color 9"     ;11
                     )
            (default 5)
        )
)

(if (= style 0)
    (tooltype
        (dest "TrapPrefs")
        (settooltype "COLOR" "u")
    )
)
(if (= style 1)
    (tooltype
        (dest "TrapPrefs")
        (settooltype "COLOR" "b")
    )
)
(if (= style 2)
    (tooltype
        (dest "TrapPrefs")
        (settooltype "COLOR" "i")
    )
)
(if (= style 3)
    (tooltype
        (dest "TrapPrefs")
        (settooltype "COLOR")
    )
)
(if (= style 4)
    (tooltype
        (dest "TrapPrefs")
        (settooltype "COLOR" "2")
    )
)
(if (= style 5)
    (tooltype
        (dest "TrapPrefs")
        (settooltype "COLOR" "3")
    )
)
(if (= style 6)
    (tooltype
        (dest "TrapPrefs")
        (settooltype "COLOR" "4")
    )
)
(if (= style 7)
    (tooltype
        (dest "TrapPrefs")
        (settooltype "COLOR" "5")
    )
)
(if (= style 8)
    (tooltype
        (dest "TrapPrefs")
        (settooltype "COLOR" "6")
    )
)
(if (= style 9)
    (tooltype
        (dest "TrapPrefs")
        (settooltype "COLOR" "7")
    )
)
(if (= style 10)
    (tooltype
        (dest "TrapPrefs")
        (settooltype "COLOR" "8")
    )
)
(if (= style 11)
    (tooltype
        (dest "TrapPrefs")
        (settooltype "COLOR" "9")
    )
)


(set destdir
        (askdir
                (prompt "Install TrapPrefs where?")
                (help @askdir-help)
                (default "SYS:Tools")
        )
)

(set @default-dest destdir)

(copyfiles
        (source "TrapPrefs")
        (infos)
        (dest @default-dest)
)

(exit)