(set progname    "VideoArchiv")
(set progversion "1.2")
(set progdir     "VideoArchiv_v1.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) 
)