; This piece installs the Eagleplayer (TM) to your hard disk
; © 1993 DEFECT INC. All rights reserved.

;Note: der Noiseeagle muss auch unter diesem Namen auf der Disk sein !!
;      alle UPS müssen im Verzeichnis "EP-userprograms sein" !!
;      für die registrierte Version, nach "Eagleplayer.key" suchen und die
;      ";" vor den Zeilen löschen

(set #EP_Version (cat "1.50"))
(set #EP_Disk1 (cat "Eagleplayer_MainDisk:"))
(set #EP_Disk2 (cat "Eagleplayer_Disk_2:"))

;=========================== English texts ==================================

(set #which-disk
(cat "In which directory should the Eagleplayer be installed?"
))

(set #which-players
(cat "Which external Players you wish to be installed ?"
))

(set #which-players-help
(cat "This procedure asks you for selecting the external playroutines"
     " for the different moduleformats you own. The more playroutines"
     " you install the more time the Eagleplayer needs to load and"
     " the more memory is needed to start it. So it is recommended that"
     " you only install the players you really need if you`ve got only"
     " 1 MB Memory or even less.      "
     @Askoptions-help
))

(set #which-user13
(cat "Which Kickstart 1.3 compatible Userprograms you wish to be installed ?"
))

(set #which-user20
(cat "Which Userprograms requiering OS 2.0 you wish to be installed ?"
))

(set #which-user-help
(cat "This procedure asks you for selecting the Userprograms"
     " this program should install. Userprograms are the external modules"
     " the Eagleplayer loads out of the external Players. These can be"
     " Analyzers, Scopes or new Surfaces. Please notice that some"
     " Userprograms may take a lot of memory, so if you only own 1 MB"
     " of even less memory, choose only these you really like. (HIFI-System"
     " e.g. takes about 100 kB memory when it`s loaded) The Userprograms"
     " marked with a "R"- sign at the beginning are only available for the"
     " registered users and won`t be loaded in the general version. So if"
     " you are not registered you don`t need to install them.      "
     @Askoptions-help
))

(set #copydocs
(cat "Where to copy the Eagleplayer documentation ?"
))

(set #copydocshelp
(cat "Please confirm the Path you want to put these docs to."
))

(set #copyexamples
(cat "Where to copy the Eagleplayer developer examples ?"
))

(set #copyexampleshelp
(cat "The Program asks you if you want to get the developer"
     " examples, the Resource (TM) symbolfile and the Testplayer onto"
     " your had disk. For users with no experiences in Assembler-coding"
     " these files shouldn`t be useful at all (I think). The examples"
     " are packed using LHA to save room on the disk. To depack them,"
     " simply run the file from shell (for help call \"Examples.run -?\")."
))
(set #copybonus
(cat "Where to copy the Eagleplayer Bonus Programs ?"
))

(set #copybonusshelp
(cat "The Program asks you if you want to get the Bonus Programs onto"
     " your had disk. They may be useful in some cases."
))

(set #copymods
(cat "Where to copy the supplied Soundmodules ?"
))

(set #copymodshelp
(cat "Simply select whether you want the modules on your hard disk or"
     "not and when yes, where you want them."
))

(set #copyprefs
(cat "Where to copy the supplied predefined preferences ?"
))

(set #copyprefshelp
(cat "Simply, if you want to get the preferences files we offer on your"
     "hard disk or still take your old one if you already installed the"
     "Eagleplayer."
))

(set #copykey
(cat "Copying your personal Keyfile to devs:"
))


(set #copyprefsok
(cat "Proceed"
))

(set #copyprefsno
(cat "Skip this part"
))

(set #copyincludes
(cat "Where to copy the Eagleplayer include files ?"
))

(set #copyincludeshelp
(cat "Only for developers, the Eagleplayer include file needed for"
     " creating own Replayroutines or Userprograms (not documented yet)."
))
;=========================== Deutsche Texte =================================
(if (= @language "deutsch")
(

(set #which-disk
(cat "In welchem Verzeichnis soll der Eagleplayer installiert werden ?"
))

(set #which-players
(cat "Welche externen Abspieler möchten Sie installieren ?"
))

(set #which-players-help
(cat "Dieser Programmteil fragt nach der Selektierung der externen"
     " Abspielroutinen für die Verschiedenen Musikformate, die Sie"
     " benötigen. Je mehr Abspieler Sie installieren, desto länger"
     " dauert das Laden und je mehr Speicher wird verbraucht. Deahalb"
     " ist es empfehlenswert, daß Sie wirklich nur die derzeit benötigten"
     " Abspieler installieren, wenn Sie nur über 1 MB oder gar weniger"
     " Speicher verfügen.         "
     @Askoptions-help
))

(set #which-user13
(cat "Welche unter Kickstart 1.3 nutzbaren Userprogramme möchten Sie "
     "installieren ?"
))

(set #which-user20
(cat "Welche Userprogramme, die OS 2.0 erfordern, möchten Sie installieren ?"
))

(set #which-user-help
(cat "Dieser Programmteil fragt Sie, welche Userprogramme Sie installieren"
     " möchten. Userprogramme sind die externen Module, die außer den externen"
     " Abspielroutinen beim Start des Programmes oder später geladen werden."
     " Dieses können Spektrum Analyzer, Oszilliscopesimulatoren oder neue"
     " Oberflächen sein. Bitte beachten Sie, daß einige Userprogramme eine"
     " ganze Menge Speicher beanspruchen und somit sollten Sie bei nur 1 MB"
     " oder gar weniger Hauptspeicher nur die auswählen, die Sie auch wirlich"
     " oft nutzen. (so z.B. braucht "HIFI System" etwa 100 kByte) Diejenigen"
     " Userprogramme, die mit einem "R" am Anfang gekennzeichnet sind, können"
     " nur geladen werden, wenn Sie im Besitz einer registrierten Eagleplayer"
     "version sind und Ihr Keyfile richtig installiert haben.      "
     @Askoptions-help
))

(set #copydocs
(cat "Wohin soll ich die Eagleplayer Dokumentation kopieren ?"
))

(set #copydocshelp
(cat "Bitte bestätigen Sie den Verzeichnispfad, wohin ich die Anleitungen"
     " hinzukopieren habe."
))

(set #copyexamples
(cat "Wohin soll ich die Eagleplayer Entwicklerbeispiele kopieren ?"
))

(set #copyexampleshelp
(cat "Sie wurden gefragt ob Sie die Enfwickkerbeispiele, das Resource-"
     "Symbolfile und den Testplayer installieren möchten. FÜr Anwender"
     " ohne Assemblererfahrungen sind diese Dateien kaum relevant. Die"
     " Beispiele sind mit LHA gepackt um Platz zu sparen. Um sie zu"
     " entpacken ist es lediglich notwendig, das File von CLI/Shell aus"
     " aufzurufen."
))
(set #copybonus
(cat "Wohin soll ich die Eagleplayer Bonus Programme kopieren ?"
))

(set #copybonusshelp
(cat "Nur die Frage, ob Sie die kleinen, nützlichen Zusatzprogramme haben"
     " wollen."
))

(set #copymods
(cat "Wohin mit den mitgelieferten Musikstücken ?"
))

(set #copymodshelp
(cat "Wollen Sie sie nun, oder nicht ??"
))

(set #copyprefs
(cat "Wollen Sie die mitgelieferten Voreistellungen haben ?"
))

(set #copyprefshelp
(cat "Ja wat nu ?"
))

(set #copykey
(cat "Kopiere Ihr persönliches Keyfile nach devs:"
))

(set #copyprefsok
(cat "Weiter"
))

(set #copyprefsno
(cat "Diesen Teil überspingen"
))

(set #copyincludes
(cat "Wohin mit den Eagleplayer Include Files ?"
))

(set #copyincludeshelp
(cat "Sie wissen nicht, was Includefiles sind ?? Also vergessen Sie es,"
     "Sie werden sie nicht brauchen."
))

))
;============================== Welcome the User ===========================

(set @app-name (cat "Eagleplayer" #EP_version))
(set APPNAME (cat "Eagleplayer" #EP_version))

(welcome)

(cat "\n\n This procedurce lets you install the full Eagleplayer Version "
     #EP_Version
     " including the needed libraries on your hard drive. Any previous "
     " release already  present will be replaced. "
)

(set old_level @user-level)

;====== get target directory where the Eagleplayer is to be installed =====

    (user 2)

    (set target (askdir (prompt #which-disk)
			        (help @askdir-help)
			        (default "DH0:")
			        (disk)
		)
    )

   (set @default-dest target)

   (user old_level)

;========== Copy the Eagleplayer to the desired directory =============

    (copyfiles (source (tackon #EP_Disk1 "Eagleplayer"))
               (dest target)
               (infos)
               (optional force)
    )

;============= Copy the keyfile (if present)to devs: ==================


      (set keypresent (exists (tackon #EP_Disk1 "devs/Eagleplayer.key"))
      )

      (if (= keypresent 1)

      (

      (copyfiles (optional nofail)
                 (source (tackon #EP_Disk1 "devs/Eagleplayer.key"))
                 (dest "devs:")
                 (prompt #copykey)
                 (help "Read the Docs")
                 (confirm)
      )

     )
)
;===== Ask for the external Players to be installed and copy them =====

(makedir (tackon target "Eagleplayers"))
(copyfiles (source (tackon #EP_disk1 "Eagleplayers.info"))
           (dest target)
)

(user 2)

(copyfiles (source (tackon #EP_disk1 "Eagleplayers"))
	   (dest (tackon target "Eagleplayers"))
     (all)
     (prompt #which_players)
     (help #which_players_help)
     (confirm)
)

;=================== Ask for the Userprograms ============================

 (makedir (tackon target "EP-Userprograms"))
 (copyfiles (source (tackon #EP_disk1 "EP-Userprograms.info"))
            (dest target)
)

 (user 2)
 (set user13 (askoptions (prompt #which-user13)
		     (help #which-user-help)
		     (choices 
                              "R Analyze.small"
                              "- Levelgraph"
                              "R Levelgraph2"
                              "R Levelmeter"
                              "- Time"
                              "- Noiseeagle")
   )
 )

 (set user20 (askoptions (prompt #which-user20)
		     (help #which-user-help)
		     (choices 
                              "- Analyzer"
                              "- HiFi"
                              "R Monoscope"
                              "- M.E.L.G.U"
                              "R Stereoscope"
                              "- Quadrascope"
                              "R Voicemeter")
   )
 )

(user old_level)

;=============== copy the Userprograms ================================

(set n 0)
(set upspat "(%")
(while (set ups (select n
                         "Analyze.small"
                         "Levelgraph"
                         "Levelgraph2"
                         "Levelmeter"
                         "Time"
                         "Noiseeagle"
                         ""
		     )
       )


(
    (if (IN user13 n)
    (
	(set upspat (cat upspat "|" ups))
    ))
    (set n (+ n 1))
))

(copyfiles (source (tackon #EP_Disk2 "EP-Userprograms"))
	   (dest (tackon target "EP-Userprograms"))
	   (pattern (cat upspat ")"))
)

(copyfiles (source (tackon #EP_Disk1 "EP-Userprograms"))
	   (dest (tackon target "EP-Userprograms"))
	   (pattern (cat upspat ")"))
)


(set n 0)
(set upspat "(%")
(while (set ups (select n
                         "Analyzer"
                         "HiFi"
                         "Monoscope"
                         "M.E.L.G.U"
                         "Stereoscope"
                         "Quadrascope"
                         "Voicemeter"
                         ""
		     )
       )


(
    (if (IN user20 n)
    (
	(set upspat (cat upspat "|" ups))
    ))
    (set n (+ n 1))
))

(copyfiles (source (tackon #EP_Disk2 "EP-Userprograms"))
	   (dest (tackon target "EP-Userprograms"))
	   (pattern (cat upspat ")"))
)

(copyfiles (source (tackon #EP_Disk1 "EP-Userprograms"))
	   (dest (tackon target "EP-Userprograms"))
	   (pattern (cat upspat ")"))
)


;======================== copy Docs ===================================

(copyfiles (source (tackon #EP_Disk2 "Docs"))
	   (dest (tackon target "Eagleplayer-DOCS"))
     (all)
     (prompt #copydocs)
     (help #copydocshelp)
     (confirm)
     (infos)
)

;======================== copy Examples ===============================

(copyfiles (source (tackon #EP_Disk2 "Developer"))
	   (dest (tackon target "Eagleplayer-Developer"))
     (all)
     (prompt #copyexamples)
     (help #copyexampleshelp)
     (confirm)
     (infos)
)

;======================== copy Bonus Programs =========================

(copyfiles (source (tackon #EP_Disk2 "Bonus-Programs"))
	   (dest (tackon target "Eagleplayer-Bonus"))
     (all)
     (prompt #copybonus)
     (help #copybonushelp)
     (confirm)
     (infos)
)

;======================= copy Modules =================================

(copyfiles (source (tackon #EP_Disk2 "Modules"))
	   (dest (tackon target "Modules"))
     (all)
     (prompt #copymods)
     (help #copymodshelp)
     (confirm)
     (infos)
)

;==================== copy Preferences Files ==========================

 (makedir ("Envarc:Eagleplayer"))

     (copyfiles (source (tackon #EP_Disk1 "Prefs/env-archive/Eagleplayer"))
	        (dest "Envarc:Eagleplayer")
                 (all)
                 (prompt #copyprefs)
                 (help #copyprefshelp)
                 (confirm)
     )

;======================= copy Includes =================================

(copyfiles (source (tackon #EP_Disk2 "include"))
	   (dest "Include:")
     (all)
     (prompt #copyincludes)
     (help #copyincludeshelp)
     (confirm)
     (infos)
)

;============= ready installing the Eagleplayer  =======================