; Installation script for TrapListPrefs

(set @user-level 2)

(transcript "Installing TrapListPrefs...")

(set locale
        (askoptions
            (prompt "Install which language?")
            (help  @askoptions-help)
            (choices "English"
;					 "Dansk"
;                    "Español"
                     "Français"   ;1
	 				 "Italiano"   ;2
                     "Deutsch"    ;3
;                    "Nederlands"
;                    "Norsk"
;                    "Português"
					 "Suomi"      ;4
                     "Svenska"		;5
                     )
            (default 1)
        )
)

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

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

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

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

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

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

(set preftype
        (askchoice
            (prompt "Which version of the TrapListPrefs do you prefer")
            (help  @askchoice-help)
            (choices "MUI"    ;0
					 "BGUI" 	;1
                     )
            (default 0)
        )
)

(if (= preftype 0)
    (set prefname "MUITrapListPrefs")
   	(set prefname "BGUITrapListPrefs")
)

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

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

(set @default-dest destdir)

(copyfiles
        (source prefname)
        (infos)
        (dest @default-dest)
        (newname "TrapListPrefs")
)

(exit ("Please remember TrapListPrefs is shareware,\nsee docs for information about registering."))