(set progname    "VTrainer")
(set progversion "4.2")
(set progdir     "VTrainer_v4.2")
(set diskname    "")
(set user-level @user-level)
(user 2)

(message (cat "\nWillkommen zum Installationsprogramm von\n" progname
              " " progversion " !\n\n"
              "Dieses Programm installiert " progname
              "\nvollständig auf Ihrer Harddisk.\n")
)

(user user-level)
(welcome)

(set progpath "WORK:")
(set ok 0)


(set user-level @user-level)
(user 2)

(while (not ok)
  (set progpath (askdir
                (prompt (cat "Wo soll " progname " installiert werden?\n"
                             "(Neues Verzeichnis wird im angegebenen Pfad erstellt.)"))
                (help @askdir-help)
                (default progpath)
                (disk)
                )
  )
  (If (= (Exists progpath (noreq)) 0)
    (
    (message (cat "\nAngegebener Pfad existiert nicht!\n"
                  progname " konnte daher nicht installiert werden.\n\n"
                  "Bitte wählen Sie ein gültiges Verzeichnis."))
    )
    (
    (If (= (Exists (tackon progpath progdir)) 0)
      (
      (set ok 1)
      )
      (
      (message (cat "\nEin Verzeichnis namens " progdir " existiert \n"
                    "bereits im angegebenen Pfad!\n"
                    progname " konnte daher nicht installiert werden.\n\n"
                    "Bitte wählen Sie ein anderes Verzeichnis oder\n"
                    "löschen Sie das " progdir "-Verzeichnis aus\n"
                    "dem gewählten Pfad."))
      )
    )
    )
  )
)

(set progpath  (tackon progpath progdir))
(set device    (getdevice progpath))
(set devicec   (cat device ":C"))
(set devicelib (cat device ":Libs"))


(copyfiles (prompt "\nKopiere Dateien... bitte warten.")
           (help @copyfiles-help)
           (source "")
           (dest progpath)
           (all)
           (infos)
)
 
(If (< (Exists devicec) 2)
  (makedir devicec
           (prompt "\nCreating C-Directory")
  )
)
(If (= (Exists (tackon devicec "Amigaguide")) 0)
  (copyfiles (prompt "\nKopiere Dateien in C-Verzeichnis...")
             (help @copyfiles-help)
             (source (cat progpath "/C"))
             (dest devicec)
             (all)
  )
)

(If (< (Exists devicelib) 2)
  (makedir devicelib
           (prompt "\nCreating Libs-Directory")
  )
)
(If (= (Exists (tackon devicelib "Amigaguide.library")) 0)
  (copyfiles (prompt "\nKopiere Dateien in Libs-Verzeichnis...")
             (help @copyfiles-help)
             (source (cat progpath "/Libs"))
             (dest devicelib)
             (all)
  )
)


(delete (tackon progpath "HD-Install")
        (prompt "")
        (optional force)
)
(delete (tackon progpath "HD-Install.info")
        (prompt "")
        (optional force)
)
(delete (tackon progpath "Installer")
        (prompt "")
        (optional force) 
)
(delete (cat progpath "/C/AmigaGuide")
        (prompt "")
        (optional force) 
) 
(delete (cat progpath "/Libs/AmigaGuide.library")
        (prompt "")
        (optional force) 
) 
(delete (cat progpath "/C")
        (prompt "")
        (optional force) 
) 
(delete (cat progpath "/Libs")
        (prompt "")
        (optional force) 
) 

(user user-level)
(set language1 "VT_English/")
(set language2 "VT_Deutsch/")
(set language3 "VT_Francais/")
(set language4 "VT_Italiano/")
(set language5 "VT_Espanol/")
(set language6 "VT_Latinum/")

(set ok (askbool  (prompt (cat "\n Sollen die Pfade der " progname "-Konfiguration \n"
                               "angepasst werden?"))
                  (default 1)
                  (help (cat"\nIn " progname " kann angegeben werden, aus welchem "
                            "Verzeichnis die Lektionen (Daten) der jeweiligen "
                            "Sprache zu laden sind.\n"
                            "Sie werden nun gefragt, ob diese Pfadeinstellungen an "
                            "die neue Umgebung (neuer Standort) angepasst werden sollen. "
                            "Alle auf der Diskette verfügbaren Lektionen wären dann "
                            "sofort von " progname " aus abrufbar."))
        )
)
(If (= ok 1)
  (textfile (prompt "Schreibe Konfiguration")
            (dest (tackon progpath "VT_Path.prefs"))
            (append (cat "\n"
                         (tackon progpath language1) "\n"
                         (tackon progpath language2) "\n"
                         (tackon progpath language3) "\n"
                         (tackon progpath language4) "\n"
                         (tackon progpath language5) "\n"
                         (tackon progpath language6) "\n"))
  )
)