(welcome "Welcome to the installation utility for AssignMaster.")

(if (= (askbool (prompt "A T T E N T I O N !\n\n"
                        "An older version of AssignMaster should be completely "
                        "removed (including all save files) before installing new "
                        "Version 2.0(beta).\n\n"
                        "Continue installing AssignMaster?")
                (help @askbool-help)
                (default 1)
        ) 0)
  (
    (exit (cat "\n\nUser break installation procedure. "
               "No files are copied.")
          (quiet)
    )
  )
)

(set #destination_prg (askdir (prompt "Please select destination drawer "
                                      " for AssignMaster executable.")
                              (help @askdir-help)
                              (default "SYS:Tools")
                      )
)

(set #destination_doc (askdir (prompt "Choose the destination for "
                                      "the documentation file.")
                              (help @askdir-help)
                              (default "HELP:")
                      )
)


(copyfiles (prompt "Copy executable...")
           (help @copyfiles-help)
           (source "AssignMaster")
           (dest #destination_prg)
           (files)
           (confirm)
           (infos)
)

(copyfiles (prompt "Copy english documentation...")
           (help @copyfiles-help)
           (source "AssignMaster.GUIDE")
           (dest #destination_doc)
           (newname "AssignMaster.guide")
           (files)
           (confirm)
           (infos)
)


(if (= 1 (askbool (prompt "The following function is only useable for later "
                          "installation of AssignMaster in the 'startup-sequence'.\n\n"
                          "Should the current assign-list saved now?\n\n"
                          "If you not sure, select \"No\".")
                  (help @askbool-help)
                  (default 0)
                  (choices "Ja" "Nein")
         )
    )
  (
    (set #savefile (askfile (prompt "Select path and name of savefile now.")
                            (help @askfile-help)
                            (default #destination_prg)
                   )
    )
    (set #amcommand (cat (tackon #destination_prg "AssignMaster")
                         " BACKUP=\""
                         #savefile
                         "\"")
    )
    (run #amcommand (prompt (cat "Saving current assign list into file:\n"
                                 #savefile)
                    )
                    (help @run-help)
                    (confirm)
    )
  )
)

(exit (cat "Installation complete.\n\n")
      (quiet)
)