;ProTracker Pro INSTALLATION SCRIPT © TEC DESIGN
;VER: $1.2E 21.06.1996 (LHA)

(set @app-name "ProTracker Pro") 
(set @language "deutsch")
(set @abort-button "Installation abbrechen")
(set @error-msg "Fehler!")
(set @pretend 0)
(set @special-msg "Schwerer Fehler!")
(set @user-level 2)

(welcome "Willommen zur Protracker 3.58 Installation.\nAnm: Sie MÜSSEN von Festplatte gebootet haben!")
(set Ok 0)
(complete 0)

(set pt_dir (getassign "ProTracker" "a")) 
  (
     (set pt_dir
        (askdir
           (prompt
              "Wählen Sie den Pfad, wohin Protracker\n"
              "installiert werden soll.\n"
               "Ein neuer Ordner namens 'Protracker'\n "
              "wird dort erzeugt.\n"
           (help
              "Installation des Basisprogramms und der Hilfedatei\n")
           (default "SYS:"))
        )
     )
     (set pt_dir (tackon pt_dir "ProTracker"))

     ;CREATE PT DRAWER
     (if (<> (exists pt_dir) 2) (makedir pt_dir (infos)))

  )
(copyfiles
   (prompt "Kopiere Basisdateien...")
   (help "Kopiert das Basispogramm sowie die verfügbaren Amigaguide-Dateien zum gewählten Ziel in einen neu erzeugten Ordner namens 'Protracker'")
   (source "Main/")
   (dest pt_dir)
   (pattern "#?")
   (safe)
   (infos)
   (confirm)
   (optional nofail askuser)
)
(complete 40)

;copying of the help data file in s:

(copyfiles
   (prompt "Kopiere Hilfe-Datei")
   (help "Diese Datei stellt die interne Hilfe des Protracker nach Druck auf 'HELP' zur Verfügung.")
   (source "Data/")
   (dest "S:")
   (pattern "pt.help")
   (safe)
   (infos)
   (confirm)
   (optional nofail askuser)
)
(complete 50)



(copyfiles
   (prompt "Installation der Beispielkonfigurationen.\n\nAchtung: ab V3.55 sind alte Configs nicht mehr nutzbar!.\n")
   (help "Nützliche Beispielkonfigurationen für den Schnelleinstieg installierbar.")
   (source "Data/")
   (dest "S:")
   (pattern "pt.config#?")
   (safe)
   (infos)
   (confirm)
   (optional nofail askuser)
)
(complete 70)


;if not anythere install ST-00 standarts
(set st_dir (getassign "ST-00" "a")) 
  (
     (set st_dir
        (askdir
           (prompt
              "Wählen Sie einen Pfad, wo bei Bedarf der ST-00-Ordner\n"
              "angelegt werden soll. Protracker benötigt ihn zur Ablage\n"
              "seiner externen Musikdaten und ein Assign darauf, was\n"
              "hiermit erzeugt wird. Wenn Sie updaten wählen Sie Ihre\n"
              "ST-00-Zuweisung, es wird nichts überschrieben!\n"
           (help
              "Auswahl des ST-00-Pfades tätigen.\n")
           (default pt_dir))
        )
     )
     (set st_dir (tackon st_dir "ST-00"))

     ;CREATE ST DRAWER
     (if (<> (exists st_dir) 2) (makedir st_dir (infos)))

     ;create ST subdrawerd
     (set md_dir (tackon st_dir "modules"))
     (if (<> (exists md_dir) 2) (makedir md_dir (infos)))

     (set so_dir (tackon st_dir "songs"))
     (if (<> (exists so_dir) 2) (makedir so_dir (infos)))

     (set sa_dir (tackon st_dir "samples"))
     (if (<> (exists sa_dir) 2) (makedir sa_dir (infos)))

     (set pa_dir (tackon st_dir "patterns"))
     (if (<> (exists pa_dir) 2) (makedir pa_dir (infos)))

     (set ins_dir (tackon st_dir "instruments"))
     (if (<> (exists ins_dir) 2) (makedir ins_dir (infos)))

     (set exe_dir (tackon st_dir "executables"))
     (if (<> (exists exe_dir) 2) (makedir exe_dir (infos)))

  )
(complete 90)
(set start-lines (cat "assign ST-00: " st_dir))
(startup @app-name (prompt "\nDie folgenden Zeilen werden nun in Ihrer "
                               "user-startup eingefügt:\nassign ST-00: "
                               st_dir "\n")
                       (command start-lines)
(help "Protracker benötigt zur korrekten Funktionsweise ein ST-00-Assign")
)
;installation complete

(complete 100)
(exit "Protracker-Installation erfolgreich beendet. Wenn Sie programmieren, können Sie einen Blick in den Ordner 'source' tun...\n\n\n\nViel Spaß!\n\n")