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

(set @app-name "ProTracker Pro") 
(set @language "english")
(set @abort-button "Abort Installation")
(set @error-msg "Error!")
(set @pretend 0)
(set @special-msg "Large Error!")
(set @user-level 2)

(welcome "Welcome to the Protracker Pro V3.58 Installation.\nNote: you MUST have booted from your hard disk!")
(set Ok 0)
(complete 0)

(set pt_dir (getassign "ProTracker" "a")) 
  (
     (set pt_dir
        (askdir
           (prompt
              "Please choose a path who Protracker should\n"
              "be installed.\n"
               "A new drawer named 'Protracker' would be\n "
              "created.\n"
           (help
              "Choose path for Protracker main file and the guide\n")
           (default "SYS:"))
        )
     )
     (set pt_dir (tackon pt_dir "ProTracker"))

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

  )
(copyfiles
   (prompt "Copying base files ...")
   (help "dummy")
   (source "Main/")
   (dest pt_dir)
   (pattern "#?")
   (safe)
   (infos)
   (confirm)
   (optional nofail askuser)
)
(complete 40)

;copying of the help data file in s:

(copyfiles
   (prompt "Copying helpfile")
   (help "dummy")
   (source "Data/")
   (dest "S:")
   (pattern "pt.help")
   (safe)
   (infos)
   (confirm)
   (optional nofail askuser)
)
(complete 50)



(copyfiles
   (prompt "Install of default configuration files...\n\nWarning: Since V3.55 the old configs not more usuable!.\n")
   (help "usefull standart configurations for quickstarting with Protracker Pro.")
   (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
              "Please choose a path who Installer should made an\n"
              "ST-00 drawer. Protracker need this for his Sound Files\n"
              "with an logical Assign to ST-00: If already exists,\n"
              "nothings will be overwritten. Only the dirs will\n "
              "be created if not aleady aviable.\n"
           (help
              "Choose path for ST-00 assignment\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 "\nThe following lines will be added to "
                               "your user-startup:\nassign ST-00: "
                               st_dir "\n")
                       (command start-lines)
(help "Protracker needs an assign named ST-00 who most MODS/samples are installed")
)
;installation complete

(complete 100)
(exit "Installation of Protracker complete.If you are an programmer, please take a look in the drawer 'source' ...\n\n\n\nHave Fun!\n\n")