;
;
; Assign-Script for CED_HTML v2.2
; -------------------------------
;
; CED_HTML is (c) 1999 Eric Belle <ebelle@kyxar.fr>
; $VER Installer-Script for CED_HTML v2.2 (c) 23-Feb-99 Kai Philippsen <kai@philippsen.de>
;

; -----

; Defaults

(set #dest "")

(set @default-dest "Sys:")

(if (= @language "deutsch")
    (set #def_lang 1)
    (set #def_lang 0)
)

(if (= @language "français")
    (set #def_lang 2)
)

(complete 0)

; Language select

(set #lang
     (askchoice
        (prompt "Please select your preferred language.\nBitte die bevorzugte Sprache wählen.\nSélectionnez votre langue préférée.")
        (help   (cat "The chosen language will be used during this installation progress.\nDie gewählte Sprache wird während dieser Installation verwendet.\nLa langue choisie sera utilisée au cours de l'installation.\n\n\n" @askchoice-help))
        (choices "English" "Deutsch" "Français")
        (default #def_lang)
     )
)

; -----

; Define text strings (English)

(if (= #lang 0)
    (
(set #MSG_START "\n\nWelcome to the CED_HTML assigning script!\n\nThis script will add the assign CED_HTML:\nin case you didn't insert it to s:user-startup.\n\nCED_HTML is © 1999\nby Eric Belle <ebelle@kyxar.fr>\n\nPlease report problems during assignment to\nKai Philippsen <kai@philippsen.de>")
(set #MSG_DIR "Where did you install CED_HTML's 'Html' drawer?\n(Do not select the 'Html' drawer itself!)")
(set #MSG_DIR_HELP (cat "Choose the harddisk partition and optionally subdirectories, where you installed the program. The directory name 'Html' will be added automatically."
                    "\n\n\n" @askdir-help))
    )
)


; Define text strings (German)

(if (= #lang 1)
    (
(set #MSG_START "\n\nWillkommen zum CED_HTML Assign-Skript!\n\nDieses Skript führt für Sie den Assign CED_HTML: aus,\nwenn Sie ihn nicht in s:user-startup eingefügt haben.\n\nCED_HTML ist © 1999\nby Eric Belle <ebelle@kyxar.fr>\n\nBitte wenden Sie sich bei Problemen mit dem Assign-Skript an\nKai Philippsen <kai@philippsen.de>")
(set #MSG_DIR "Wo haben Sie CED_HTML's Verzeichnis 'Html' installiert?\n(Bitte wählen Sie nicht das Verzeichnis `Html' selbst aus.)")
(set #MSG_DIR_HELP (cat "Wählen Sie die Festplattenpartition und optional Unterverzeichnisse für den Pfad, in dem Sie das Programm installiert haben. Der Verzeihnisname 'Html' wird automatisch angefügt."
                    "\n\n\n" @askdir-help))
    )
)

; Define text strings (French)

(if (= #lang 2)
    (
(set #MSG_START "\n\nBienvenue dans le script d'assignation de CED_HTML!\n\nCe script a pour objectif de réaliser \nune assignation non définitive de 'CED_HTML:'.\n\nCED_HTML est © 1999\npar Eric Belle <ebelle@kyxar.fr>\n\nPrière de rapporter les éventuels problèmes rencontrés avec ce script à \nKai Philippsen <kai@philippsen.de>")
(set #MSG_DIR "Sélectionnez le chemin d'accès à CED_HTML\n(ne sélectionnez pas le répertoire 'Html'!).")
(set #MSG_DIR_HELP (cat "Sélectionnez la partition et optionnellement les sous-répertoires permettant d'accéder à CED_HTML. Ne sélectionnez pas le répertoire 'Html', celui-ci sera ajouté automatiquement."
                    "\n\n\n" @askdir-help))
    )
)

; ---------------------------> Procedures <-----------------------------

; Assign CED_HTML: to correct path

(procedure ass


(complete 10)


; Destination of HTML drawer

 (if (= #dest "")
     (
         (set #dir
              (askdir
                   (prompt #MSG_DIR)
                   (help #MSG_DIR_HELP)
                   (default @default-dest)
               )
         )
         (complete 20)
         (set #dest (tackon #dir "Html"))

     )
 )


; Insert an assign

(run (cat "assign CED_HTML: " "\"" #dest "\""))

(complete 100)

)

; ------------------------------> MAIN <--------------------------------

(message #MSG_START)

(ass)
	
(set @default-dest #dest)

(exit)