; 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"
					 "Dansk"      ;1
;                    "Español"
;                    "Français"   ;2
					 "Italiano"   ;3
                    "Deutsch"     ;4
;                    "Nederlands"
;                    "Norsk"
;                    "Português"
                     "Svenska"	  ;5
					 "Suomi"      ;6
                     )
            (default 1)
        )
)

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

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

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


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

(if (IN locale 5)
    (copyfiles
            (source "catalogs/Svenska/TrapPrefs.catalog")
            (dest "Locale:Catalogs/Svenska")
    )
)

(if (IN locale 6)
    (copyfiles
            (source "catalogs/Suomi/TrapPrefs.catalog")
            (dest "Locale:Catalogs/Suomi")
    )
)

( 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)