home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Sound / Player / EAGLEPLA.LHA / Eagleplayer / install < prev    next >
Encoding:
Text File  |  1994-10-03  |  25.9 KB  |  980 lines
  1. ; This piece installs the Eagleplayer (TM) to your hard disk
  2. ; © 1993 DEFECT INC. All rights reserved.
  3. ;
  4. ; Written by Buggs/DFT 03/Oct/94
  5.  
  6. (set #EP_Version (cat "1.53"))                ;Eagleplayer Version
  7. (set #EP_Disk1 (cat "Installdata/"))                ;Name of first Disk
  8. (set #EP_Disk2 (cat "Installdata/"))                ;Name of Second Disk
  9. (set #Space (cat "1.4 "))                ;Megabytes needed for
  10.                                                         ;installation.
  11. (set KickVersion (/ (getversion) 65536))
  12. (debug "Kickversion:" Kickversion)
  13. ;=========================== English texts ==================================
  14. (set Docfile ("Eagleplayer.Doc.Guide"))
  15.  
  16. (set #which-disk
  17. (cat "In which drawer shall I install the Eagleplayer?\n"
  18.      "(no own directory will be created by the script)"
  19. ))
  20.  
  21. (Set #intro
  22. (cat "This procedurce lets you install the full Eagleplayer Version "
  23.      #EP_Version
  24.      "including the needed libraries on your hard drive. Any previous "
  25.      "release already present will be replaced. For installing the full "
  26.      "package you need about "
  27.      #Space
  28.      "MBytes free space on your harddisk. \n"
  29.      "With the default installation settings the Eagleplayer uses the "
  30.      "Playerbatch functions to save memory by guessing the type of a "
  31.      "module by the name. "
  32.      "If you dislike this awesome feature you "
  33.      "only have to switch it off. (chapter 4.4 in the GUIDE file) "
  34.      "Note: If switched off all Players need about 600 KByte of free "
  35.      "memory ! So delete unused ones if you have not much memory."
  36. ))
  37.  
  38. (Set #WhatInstall
  39. (cat  "Which parts of the Eagleplayer Package do you want to install now ?"
  40. ))
  41.  
  42. (Set #WhatHelp
  43. (cat "Here you are asked to choose between the different parts of the "
  44.      "Eagleplayer package you want to get. Simply to start the Eagleplayer "
  45.      "the Main Program and the needed libraries are enough. \n"
  46.      "To be able playing modules of all supported formats you have to install "
  47.      "the supplied replayers. \n"
  48.      "For the analyzing and some extended controlling features you may choose "
  49.      "to install the so called Userprograms. \n"
  50.      "The Documentation is recommended to read for learning to know and to "
  51.      "handle all the abilities of this package. READ IT BEFORE COMPLAINING "
  52.      "ABOUT SEVERAL PROBLEMS !! \n"
  53.      @askoptions-help
  54. ))
  55.  
  56. (Set MainProgname
  57. (cat "Eagleplayer Main Program"
  58. ))
  59. (set Eagleplayersname
  60. (cat "External Replayers"
  61. ))
  62. (set Libsname
  63. (cat "needed Libraries"
  64. ))
  65. (set Userprogramsname
  66. (cat "Userprograms (Analyzers, etc.)"
  67. ))
  68. (set Documentationname
  69. (cat "Documentations"
  70. ))
  71. (set ArexxScriptsname
  72. (cat "Arexx Example Scripts"
  73. ))
  74. (set DeveloperKitname
  75. (cat "Developer Examples & include Files"
  76. ))
  77.  
  78. (set #where-libs
  79. (cat "Enter the Path where your LIBS: Directory is situated when you "
  80.      "boot from your Harddisk !"
  81. ))
  82.  
  83. (set #where-key
  84. (cat "Enter the Path where your DEVS: Directory is situated when you "
  85.      "boot from your Harddisk !"
  86. ))
  87.  
  88. (set #where-rexx
  89. (cat "Enter the Path where your REXX: Directory is situated when you "
  90.      "boot from your Harddisk !"
  91. ))
  92.  
  93. (set #where-envarc
  94. (cat "Enter the Path where your ENVARC: Directory is situated when you "
  95.      "boot from your Harddisk !"
  96. ))
  97.  
  98. (set #where-locale
  99. (cat "Enter the Path where your LOCALE: Directory is situated when you "
  100.      "boot from your Harddisk !"
  101. ))
  102.  
  103. (set #Betterabort
  104. (cat "OK, you booted from the Eagleplayer Disk. That means that this install "
  105.      "script doesn`t know your system`s settings and default drawers. If "
  106.      "you (due to the fact that you selected \"novice user\") don`t know "
  107.      "what and where your \"DEVS:\",\"REXX:\" and \"LIBS:\" paths are on your "
  108.      "harddisk then you better select \"ABORT INSTALL\", reboot your machine "
  109.      "from your harddisk and then put the Eagleplayer Disk 1 into your drive "
  110.      "and start this install-script again. Then this script will find these "
  111.      "paths automatically !"
  112. ))
  113.  
  114. (set #Betterboot
  115. (cat "OK, you booted from the Egleplayer Disk. That means you have to select "
  116.      "\"Libs:\",\"DEVS:\",\"REXX:\" and \"ENVARC:\" manually. If you don`t "
  117.      "want you better reboot from harddisk. "
  118. ))
  119.  
  120. (set #InstallReplays
  121. (cat "Installing the external Replayers, please wait."
  122. ))
  123.  
  124. (set #which-user13
  125. (cat "Which Kickstart 1.3 compatible Userprograms you wish to be installed ?"
  126. ))
  127.  
  128. (set #which-user20
  129. (cat "Which Userprograms requiering OS 2.0 you wish to be installed ?"
  130. ))
  131.  
  132. (set #which-user30
  133. (cat "Which Userprograms requiering OS 3.0 you wish to be installed ?"
  134. ))
  135.  
  136. (set #which-user-help
  137. (cat "This procedure asks you for selecting the Userprograms"
  138.      " this program should install. Userprograms are the external modules"
  139.      " the Eagleplayer loads out of the external Players. These can be"
  140.      " Analyzers, Scopes or new Surfaces. Please notice that some"
  141.      " Userprograms may take a lot of memory, so if you only own 1 MB"
  142.      " of even less memory, choose only these you really like. (HIFI-System"
  143.      " e.g. takes about 100 kB memory when it`s loaded) The Userprograms"
  144.      " marked with a "R"- sign at the beginning are only available for the"
  145.      " registered users and won`t be loaded in the general version. So if"
  146.      " you are not registered you don`t need to install them.      "
  147.      @Askoptions-help
  148. ))
  149.  
  150. (set #copyingdocs
  151. (cat "Installing the Amigaguide® Documentation File"
  152. ))
  153.  
  154. (set #copyinglocale
  155. (cat "Installing the Localisation File(s)"
  156. ))
  157.  
  158. (set #copydocs
  159. (cat "Where to copy the Eagleplayer documentation ?"
  160. ))
  161.  
  162. (set #copydocshelp
  163. (cat "Please confirm the Path you want to put these docs to."
  164. ))
  165.  
  166. (set #copyingexamples
  167. (cat "Installing the Developer Example Files"
  168. ))
  169.  
  170. (set #copyexamples
  171. (cat "Where to copy the Eagleplayer developer examples ?"
  172. ))
  173.  
  174. (set #copyexampleshelp
  175. (cat "The Program asks you if you want to get the developer"
  176.      " examples, the Resource (TM) symbolfile and the Testplayer onto"
  177.      " your had disk. For users with no experiences in Assembler-coding"
  178.      " these files shouldn`t be useful at all (I think). "
  179. ))
  180.  
  181. (set #copyingarexx
  182. (cat "Installing the Arexx Example Files"
  183. ))
  184.  
  185. (set #copymods
  186. (cat "Where to copy the supplied Soundmodules ?"
  187. ))
  188.  
  189. (set #copymodshelp
  190. (cat "Simply select whether you want the modules on your hard disk or"
  191.      "not and when yes, where you want them."
  192. ))
  193.  
  194. (set #copyprefs
  195. (cat "Copying default preferences.... (to \"ENVARC:\")"
  196. ))
  197.  
  198. (set #copyprefsenv
  199. (cat "Copying default preferences.... (to \"ENV\")"
  200. ))
  201.  
  202. (set #copykey
  203. (cat "Copying your personal Keyfile to devs:"
  204. ))
  205.  
  206. (set #copyhelp
  207. (cat "Copying your Helpfile"
  208. ))
  209.  
  210.  
  211. (set #copyprefsok
  212. (cat "Proceed"
  213. ))
  214.  
  215. (set #copyprefsno
  216. (cat "Skip this part"
  217. ))
  218.  
  219. (set #copyincludes
  220. (cat "Where to copy the Eagleplayer include files ?"
  221. ))
  222.  
  223. (set #copyincludeshelp
  224. (cat "Only for developers, the Eagleplayer include file needed for"
  225.      " creating own Replayroutines or Userprograms (not documented yet)."
  226. ))
  227.  
  228.  
  229. ;=========================== Deutsche Texte =================================
  230. (if (= @language "deutsch")
  231. (
  232.  
  233. (set Docfile ("Eagleplayer.Dok.Guide"))
  234.  
  235. (set #which-disk
  236. (cat "Wo soll der Eagleplayer installiert werden ? "
  237.      "(es wird kein eigenes Vezeichnis angelegt)"
  238. ))
  239.  
  240. (Set #intro
  241. (cat "Dieser Vorgang ermöglicht es Ihnen, das komplette Eagleplayer-Paket "
  242.      #EP_Version
  243.      " samt den benötigten Bibliotheken auf Ihrer Harddisk zu installieren. "
  244.      " jede vorherige Version wird ersetzt. Zur Installation des kompletten "
  245.      " Paketes werden etwa "
  246.      #Space
  247.      "MBytes freier Platz auf der Festplatte benötigt. Mit den dabei "
  248.      "installierten Einstellungen wird die \"Playerbatch\" Funktion "
  249.      "benutzt, mit der sich erheblich Speicher sparen läßt. Lesen "
  250.      "Sie dazu in der Anleitung das Kapitel 4.4 \"Batch Dateien\". "
  251.      "Wenn Sie diese Funktion abschalten, werden beim Start alle "
  252.      "externen Player mitgeladen, was etwa 600 KByte Speicher erfordert !"
  253. ))
  254.  
  255. (Set #WhatInstall
  256. (cat  "Welche Teile des Eagleplayerpaketes möchten Sie jetzt installieren ?"
  257. ))
  258.  
  259. (Set #WhatHelp
  260. (cat "Sie sollten nun auswählen, welche Teile des Eagleplayerpaketes Sie "
  261.      "haben wollen. Um den Eagleplayer starten zu können ist lediglich "
  262.      "das Hauptprogramm notwendig. (bei Bedarf die Libraries noch dazu) \n"
  263.      "Um Musikstücke aller unterstützter Formate abzuspielen müssen Sie "
  264.      "zwangsweise auch die externen Abspieler mit installieren.\n"
  265.      "Für die Analyzer und einige externe Kontrollfunktionen benötigen "
  266.      "Sie die sogenannten \"Userprogramme\".\n"
  267.      "Die Dokumentation zu installieren wird ihnen wärmstens ans Herz gelegt, "
  268.      "schließlich handelt es sich hier um ein Paket von weit über 1MB Umfang."
  269.      "AUßERDEM SOLLTEN SIE ERST IN DER ANLEITUNG NACHLESEN, BEVOR SIE SICH "
  270.      "BESCHWEREN.\n"
  271.      @askoptions-help
  272. ))
  273.  
  274. (Set MainProgname
  275. (cat "Eagleplayer Hauptprogramm"
  276. ))
  277. (set Eagleplayersname
  278. (cat "Externe Abspieler"
  279. ))
  280. (set Libsname
  281. (cat "benutzte Libraries"
  282. ))
  283. (set Userprogramsname
  284. (cat "Userprogramme"
  285. ))
  286. (set Documentationname
  287. (cat "Dokumentation"
  288. ))
  289. (set ArexxScriptsname
  290. (cat "Arexx Beispieldateien"
  291. ))
  292. (set DeveloperKitname
  293. (cat "Entwicklerunterlagen"
  294. ))
  295.  
  296. (set #where-libs
  297. (cat "Bitte geben Sie den Pfad an, wo sich das LIBS: Verzeichnis befindet, "
  298.      "wenn Sie von Festplatte booten !"
  299. ))
  300.  
  301. (set #where-key
  302. (cat "Bitte geben Sie den Pfad an, wo sich das DEVS: Verzeichnis befindet, "
  303.      "wenn Sie von Festplatte booten !"
  304. ))
  305.  
  306. (set #where-rexx
  307. (cat "Bitte geben Sie den Pfad an, wo sich das REXX: Verzeichnis befindet, "
  308.      "wenn Sie von Festplatte booten !"
  309. ))
  310.  
  311. (set #where-envarc
  312. (cat "Bitte geben Sie den Pfad an, wo sich das ENVARC: Verzeichnis befindet, "
  313.      "wenn Sie von Festplatte booten !"
  314. ))
  315.  
  316. (set #where-locale
  317. (cat "Bitte geben Sie den Pfad an, wo sich das LOCALE: Verzeichnis befindet, "
  318.      "wenn Sie von Festplatte booten !"
  319. ))
  320.  
  321. (set #Betterabort
  322. (cat "OK, Sie haben von der Eagleplayer Disk 1 gebootet. Dies bedeutet, daß "
  323.      "die Installationsdatei allein nicht herausfinden kann, wo sich die "
  324.      "Systemverzeichnisse befinden, wenn Sie von Festplatte hochfahren. "
  325.      "Da Sie \"Anfänger\" als Installationsoption angegeben haben, würde "
  326.      "ich vorschlagen, daß Sie \"Abort Install\" anwählen, ihren Rechner "
  327.      "neustarten und dann erst die Eagleplayerdiskette einlegen, nachdem "
  328.      "der Rechner von Festplatte hochgefahren ist. Dies würde für Sie "
  329.      "als Anfänger erheblich einfacher werden."
  330. ))
  331.  
  332. (set #InstallReplays
  333. (cat "Installiere die externen Abspieler, bitte warten ...."
  334. ))
  335.  
  336. (set #which-user13
  337. (cat "Welche unter Kickstart 1.3 nutzbaren Userprogramme möchten Sie "
  338.      "installieren ?"
  339. ))
  340.  
  341. (set #which-user20
  342. (cat "Welche Userprogramme, die OS 2.0 erfordern, möchten Sie installieren ?"
  343. ))
  344.  
  345. (set #which-user30
  346. (cat "Welche Userprogramme, die OS 3.0 erfordern, möchten Sie installieren ?"
  347. ))
  348.  
  349. (set #which-user-help
  350. (cat "Dieser Programmteil fragt Sie, welche Userprogramme Sie installieren"
  351.      " möchten. Userprogramme sind die externen Module, die außer den externen"
  352.      " Abspielroutinen beim Start des Programmes oder später geladen werden."
  353.      " Dieses können Spektrum Analyzer, Oszilliscopesimulatoren oder neue"
  354.      " Oberflächen sein. Bitte beachten Sie, daß einige Userprogramme eine"
  355.      " ganze Menge Speicher beanspruchen und somit sollten Sie bei nur 1 MB"
  356.      " oder gar weniger Hauptspeicher nur die auswählen, die Sie auch wirklich"
  357.      " oft nutzen. (so z.B. braucht "HIFI System" etwa 100 kByte) Diejenigen"
  358.      " Userprogramme, die mit einem "R" am Anfang gekennzeichnet sind, können"
  359.      " nur geladen werden, wenn Sie im Besitz einer registrierten Eagleplayer"
  360.      "version sind und Ihr Keyfile richtig installiert haben.      "
  361.      @Askoptions-help
  362. ))
  363.  
  364. (set #copyingdocs
  365. (cat "Installiere die Amigaguide® Dokumentationsdatei"
  366. ))
  367.  
  368. (set #copyinglocale
  369. (cat "Installiere die Übersetzten Dateien"
  370. ))
  371.  
  372. (set #copydocs
  373. (cat "Wohin soll ich die Eagleplayer Dokumentation kopieren ?"
  374. ))
  375.  
  376. (set #copydocshelp
  377. (cat "Bitte bestätigen Sie den Verzeichnispfad, wohin ich die Anleitungen"
  378.      " hinzukopieren habe."
  379. ))
  380.  
  381. (set #copyingexamples
  382. (cat "Installiere die Entwicklerbeispiele..."
  383. ))
  384.  
  385. (set #copyexamples
  386. (cat "Wohin soll ich die Eagleplayer Entwicklerbeispiele kopieren ?"
  387. ))
  388.  
  389. (set #copyexampleshelp
  390. (cat "Sie wurden gefragt ob Sie die Enfwickkerbeispiele, das Resource-"
  391.      "Symbolfile und den Testplayer installieren möchten. FÜr Anwender"
  392.      " ohne Assemblererfahrungen sind diese Dateien kaum relevant. "
  393. ))
  394.  
  395. (set #copyingarexx
  396. (cat "Installiere die Arexx Beispieldateien"
  397. ))
  398.  
  399.  
  400. (set #copyprefs
  401. (cat "Kopiere die vordefinierten Einstellungen (nach ENVARC:) ..."
  402. ))
  403.  
  404. (set #copyprefsenv
  405. (cat "Kopiere die vordefinierten Einstellungen (nach ENV:) ..."
  406. ))
  407.  
  408. (set #copyprefshelp
  409. (cat "Ja wat nu ?"
  410. ))
  411.  
  412. (set #copykey
  413. (cat "Kopiere Ihr persönliches Keyfile nach devs:"
  414. ))
  415.  
  416. (set #copyhelp
  417. (cat "Kopiere Datei für Online-Hilfe"
  418. ))
  419.  
  420. (set #copyprefsok
  421. (cat "Weiter"
  422. ))
  423.  
  424. (set #copyprefsno
  425. (cat "Diesen Teil überspingen"
  426. ))
  427.  
  428. )
  429. )
  430. ;======================= Prozeduren und Hilfsroutinen ======================
  431. (procedure DepackFile
  432. ;Extract one file from an lha archive
  433. ; syntax: 
  434. ;    (set #Message     ("Installing %s/%s..." Destdir Filename))
  435. ;    (set ArchiveName ("%sEagleplayers.lha" #EP_Disk1))
  436. ;    (set Destination (tackon target "Eagleplayers/"))
  437. ;    (set FileName    ("Actionamics"))
  438. ;    (Depackfile)
  439.  
  440.     (
  441.     (working #Message)
  442.     (set Error (run ("ram:lha -q -Qp -N -wRAM: x %s \"%s\" \"%s\"" ArchiveName Destination FileName)))
  443.     (if (<> Error 0)
  444.         (message
  445.          ("Cannot Depack %s from the archive %s to %s" FileName ArchiveName Destination
  446.          )
  447.     )
  448.     )
  449.     )
  450. )
  451.  
  452. (procedure DepackFiles
  453. ;Extract all files from an lha archive
  454. ; syntax: 
  455. ;    (set #Message     ("Installing Bla Bla"))
  456. ;    (set ArchiveName ("%sEagleplayers.lha" #EP_Disk1))
  457. ;    (set Destination (tackon target "Eagleplayers/"))
  458. ;    (Depackfiles)
  459.  
  460.     (
  461.         (debug "In Entpackroutine für ganze Dirs")
  462.     (working #Message)
  463.     (set Error (run ("ram:lha -q -Qp -N -wRAM: x %s \"%s\"" ArchiveName Destination)))
  464.     (if (<> Error 0)
  465.         (message
  466.             ("Cannot Depack from the archive %s to \n" ArchiveName
  467.              "%s" Destination
  468.             )
  469.     )
  470.     )
  471.     )
  472. )
  473.  
  474. (procedure DepackUserprg
  475.  (
  476.   (if (IN  maxfiles n)
  477.    (
  478.     (protect (tackon target (tackon "EP-Userprograms/" UPSFileName)) "+rwed")
  479.     (delete (tackon target (tackon "EP-Userprograms/" UPSFileName)))
  480.  
  481.     (set #Message     ("Installing EP-Userprograms/%s..." UPSFilename))
  482.     (set Destination (tackon target "EP-Userprograms/"))
  483.     (set FileName UPSFilename)
  484.     (depackfile)
  485.    )
  486.   )
  487.  )
  488. )
  489. ;============================== Welcome the User ===========================
  490.  
  491. (set @app-name (cat "Eagleplayer" #EP_version))
  492. (set APPNAME (cat "Eagleplayer" #EP_version))
  493.  
  494. ;(welcome)
  495.  
  496. (set old_level @user-level)
  497.  
  498. (user 2)
  499. (message #intro)
  500. (user old_level)
  501.  
  502. ;======================== Ask what he wants to install =======================
  503.  
  504. (set #InstallParts
  505.         (askoptions
  506.             (prompt #WhatInstall)
  507.             (help #WhatHelp)
  508.             (choices
  509.                 ("%s" MainProgname)        ;Bit 0
  510.                 ("%s" Eagleplayersname)        ;Bit 1
  511.                 ("%s" Userprogramsname)        ;Bit 2
  512.                 ("%s" Libsname)            ;Bit 3
  513.                 ("%s" Documentationname)    ;Bit 4
  514.                 ("%s" ArexxScriptsname)        ;Bit 5
  515.                 ("%s" DeveloperKitname)        ;Bit 6
  516.             )
  517.         )
  518. )
  519. ;====== get target directory where the Eagleplayer is to be installed =====
  520.     (user 2)
  521.  
  522.     (set target (askdir (prompt #which-disk)
  523.                     (help @askdir-help)
  524.                     (default "DH0:")
  525.                     (disk)
  526.         )
  527.     )
  528.  
  529.    (set @default-dest target)
  530.  
  531.    (user old_level)
  532.  
  533. ;----------- set libs,devs and rexx path if needed  ----------
  534. (set Booted
  535.   (expandpath "sys:")
  536. )
  537.  
  538. (set Libpath ('Libs:'))
  539. (set Keypath ('Devs:'))
  540. (set Rexxpath ('Rexx:'))
  541. (set Envarcpath "Envarc:")
  542. (set Localepath ('Locale:'))
  543.  
  544. ;=================== Ask for the Userprograms ============================
  545.  (
  546.     (set keypresent (exists (tackon #EP_Disk1 "Eagleplayer.key"))
  547.     )
  548.     (set keypresent (+ keypresent (exists (tackon Keypath "Eagleplayer.key")))
  549.     )
  550.  
  551.       (debug "Wir haben als Keyfile:" keypresent)
  552.  
  553.      (if (<> keypresent 0)
  554.       (
  555.        ;setze Maske für registrierte Version (alle UPS)
  556.        (set user13 511)            ;<- muß 2^(Anzahl der UPS) -1  sein !!!
  557.        (if (> kickversion 36)
  558.         (set user20 16383)        ;<- muß 2^(Anzahl der UPS) -1  sein !!
  559.         (set user20 0)                   ;für Kick 1.3
  560.        )
  561.  
  562.        (if (> kickversion 38)
  563.         (set user30 3)            ;<- muß 2^(Anzahl der UPS) -1  sein !!
  564.         (set user30 0)                   ;für Kick 1.3
  565.        )
  566.  
  567.       )
  568.  
  569.       (
  570.        ;setze Maske für unregistrierte Version (nur unregistrierte UPS)
  571.        (set user13 498)
  572.        (if (> kickversion 36)
  573.         (set user20 6079)
  574.         (set user20 0)
  575.        )
  576.        (if (> kickversion 38)
  577.         (set user30 3)
  578.         (set user30 0)
  579.        )
  580.       )
  581.      )
  582.  
  583.  )
  584.  
  585. (if (AND (= @user-level 2) (IN #InstallParts 2))
  586.  (
  587.   (set user13
  588.    (askoptions (prompt #which-user13)
  589.                (help #which-user-help)
  590.                (choices 
  591.                                "R Analyze.small"     ;1
  592.                                "- Levelgraph"        ;2
  593.                                "R Levelgraph2"       ;4
  594.                                "R Levelmeter"        ;8
  595.                                "- Time"              ;16
  596.                                "- Noiseeagle"       ;32
  597.                                "- Patternscroll_1.3"    ;64
  598.                                "- Space-Scope+"       ;128
  599.                                "- Moduleinfo")       ;256
  600.  
  601.  
  602.                (default user13)
  603.    )
  604.   )
  605.  
  606.   (set user20
  607.    (askoptions (prompt #which-user20)
  608.                (help #which-user-help)
  609.                (choices 
  610.                               "- Analyzer"            ;1
  611.                               "- DirList Viewer"        ;2
  612.                               "- HiFi"                ;4
  613.                               "- M.E.L.G.U"            ;8
  614.                               "- Messagewindow"            ;32
  615.                               "R Monoscope"            ;64
  616.                               "- Patternscroll"            ;128
  617.                               "- Patternscroll++"        ;256
  618.                               "- Public Screen Manager"        ;512
  619.                               "- Space-Scope"            ;1024
  620.                               "R Stereoscope"            ;2048
  621.                               "- Quadrascope"            ;4096
  622.                               "R Voicemeter")            ;8192
  623.                (default user20)
  624.    )
  625.   )
  626.  
  627.   (set user30
  628.    (askoptions (prompt #which-user30)
  629.                (help #which-user-help)
  630.                (choices 
  631.                               "- Levelmeter  AGA"        ;1
  632.                               "- Stereoscope AGA")        ;2
  633.                (default user30)
  634.    )
  635.   )
  636.  
  637.  )
  638. )
  639. (debug "Ausgewählte Userprogramme:" user13 user20 user30)
  640.  
  641. ;Disk 1 ============  Copy LHA to Ram: (to depack all archives) ==============
  642.     (copyfiles
  643.         (prompt "")
  644.         (help "")
  645.         (source (tackon #EP_Disk1 "lha"))
  646.         (dest "RAM:")
  647.     )
  648.  
  649. ;Disk 1 ========== Copy the Eagleplayer to the desired directory =============
  650. ;       ==========                   if Exist:                   =============
  651. ;              beside of this: default prefs, keyfile and helpfile
  652. (if (IN #InstallParts 0)
  653.  (
  654.     (copyfiles (source (tackon #EP_Disk1 "Eagleplayer"))
  655.                (dest target)
  656.                (infos)
  657.                (optional "force" "nofail")
  658.     )
  659.  
  660.      (set keypresent (exists Envarcpath))
  661.      (debug "Envarc gefunden:" keypresent)
  662.  
  663.       (if (= keypresent 2)
  664.        (
  665.          (copyfiles (optional "nofail")
  666.                     (source (tackon #EP_Disk1 "prefs/env-archive"))
  667.                     (dest Envarcpath)
  668.                     (prompt #copyprefs)
  669.                     (help "")
  670.                     (confirm)
  671.                     (all)
  672.          )
  673.        )
  674.       )
  675.  
  676.      (if (<> #EP_Disk1 Booted)
  677.       (
  678.  
  679.        (set keypresent (exists "Env:"))
  680.        (debug "Env: gefunden:" keypresent)
  681.  
  682.        (if (= keypresent 2)
  683.         (
  684.          (copyfiles (optional "nofail")
  685.                     (source (tackon #EP_Disk1 "prefs/env-archive"))
  686.                     (dest "env:")
  687.                     (prompt #copyprefsenv)
  688.                     (help "")
  689.                     (confirm)
  690.                     (all)
  691.          )
  692.         )
  693.        )
  694.       )
  695.      )
  696.  
  697.      (set keypresent (exists (tackon #EP_Disk1 "devs/Eagleplayer.key"))
  698.      )
  699.  
  700.       (if (= keypresent 1)
  701.  
  702.        (
  703.  
  704.          (copyfiles (optional "nofail")
  705.                     (source (tackon #EP_Disk1 "devs/Eagleplayer.key"))
  706.                     (dest keypath)
  707.                     (prompt #copykey)
  708.                     (help "Read the Docs")
  709.                     (confirm)
  710.          )
  711.  
  712.       )
  713.      )
  714.  
  715.      (set keypresent (exists (tackon #EP_Disk1 "Eagleplayer.help"))
  716.      )
  717.  
  718.       (if (= keypresent 1)
  719.  
  720.        (
  721.  
  722.         (copyfiles (optional "nofail")
  723.                  (source (tackon #EP_Disk1 "Eagleplayer.help"))
  724.                  (dest target)
  725.                  (prompt #copyhelp)
  726.                  (help "Read the Docs")
  727.                  (confirm)
  728.         )
  729.        )
  730.       )
  731.  )
  732. )
  733.  
  734. ;Disk 1 ================= copy Libraries ===================================
  735. (if (IN #InstallParts 3)
  736.  (
  737.   (copylib
  738.       (prompt "Copy XPKMaster.library")
  739.       (help @copylib-help)
  740.     (source (tackon #EP_Disk1 "LIBS/XPKMaster.library"))
  741.     (dest Libpath)
  742.       (confirm)
  743.     (optional "nofail")
  744.   )
  745.  
  746.   (copyfiles
  747.      (prompt "Copy XPKNuke/XPKSQSH/XPKCRMS.library")
  748.      (help @copylib-help)
  749.      (source (tackon #EP_Disk1 "LIBS/Compressors/"))
  750.    (dest (tackon Libpath "Compressors"))
  751.    (confirm)
  752.    (optional "nofail")
  753.    (all)
  754.   )
  755.  
  756.   (copylib
  757.      (prompt "Copy Powerpacker.library")
  758.      (help @copylib-help)
  759.      (source (tackon #EP_Disk1 "LIBS/Powerpacker.library"))
  760.    (dest Libpath)
  761.      (confirm)
  762.    (optional "nofail")
  763.   )
  764.  
  765.   (copylib
  766.    (prompt "Copy LH.library")
  767.      (help @copylib-help)
  768.      (source (tackon #EP_Disk1 "LIBS/lh.library"))
  769.    (dest Libpath)
  770.      (confirm)
  771.    (optional "nofail")
  772.   )
  773.  
  774.   (copylib
  775.      (prompt "Copy Req.library")
  776.      (help @copylib-help)
  777.      (source (tackon #EP_Disk1 "LIBS/req.library"))
  778.    (dest Libpath)
  779.      (confirm)
  780.    (optional "nofail")
  781.   )
  782.  
  783.   (copylib
  784.      (prompt "Copy Reqtools.library")
  785.      (help @copylib-help)
  786.      (source (tackon #EP_Disk1 "LIBS/req.library"))
  787.    (dest Libpath)
  788.      (confirm)
  789.    (optional "nofail")
  790.   )
  791.  )
  792. )
  793.  
  794. ;Disk 2 ============== copy the external Players to be installed ========
  795. (if (IN #InstallParts 1)
  796.   (
  797.     (set yo (exists (tackon target "Eagleplayers")))
  798.       (if (<> yo 0)
  799.        (
  800.         (debug "so ein schit!!")
  801.     (set eplayers (tackon target "Eagleplayers"))
  802.     (set Error (run ("c:delete %s all" eplayers)))
  803.        )
  804.       )
  805.  
  806.     (makedir (tackon target "Eagleplayers")
  807.              (infos)
  808.     )
  809.  
  810.    (set #Message #InstallReplays)
  811.    (set ArchiveName ("%sEagleplayers.lha" #EP_Disk2))
  812.    (set Destination (tackon target "Eagleplayers/"))
  813.    (Depackfiles)
  814.   )
  815. )
  816.  
  817. ;Disk 2======================== copy Docs ===================================
  818. ;              Betriebssystem < 3.0 -> Install Amigaguide
  819. (if (IN #InstallParts 4)
  820.   (
  821.     (set doctarget (askdir (prompt #copydocs)
  822.                            (help #copydocshelp)
  823.                            (default target)
  824.                            (disk)
  825.                    )
  826.     )
  827.  
  828.     (set #Message #copyingdocs)
  829.     (set ArchiveName ("%sDocs.lha" #EP_Disk2))
  830.     (set Destination "ram:")
  831.     (set FileName Docfile)
  832.     (Depackfile)
  833.  
  834.     (set #Message #copyingdocs)
  835.     (set ArchiveName ("%sDocs.lha" #EP_Disk2))
  836.     (set Destination "ram:")
  837.     (set FileName ("%s.info" Docfile))
  838.     (debug Filename)
  839.     (debug Archivename)
  840.     (Depackfile)
  841.  
  842.     (set ramtest (expandpath doctarget))
  843.     (set ramtest2 (expandpath "ram:"))
  844.  
  845.     (if (<> ramtest ramtest2)
  846.      (
  847.       (copyfiles (source (tackon "ram:" docfile))
  848.                (dest doctarget)
  849.                (infos)
  850.                (optional "force" "nofail")
  851.       )
  852.  
  853.       (delete (tackon "ram:" docfile))
  854.      )
  855.     )
  856.   )
  857. )
  858.  
  859. ;Disk 2 =============== copy the Userprograms ===========================
  860. (if (IN #InstallParts 2)
  861.  (
  862.   (set yo (exists (tackon target "EP-Userprograms")))
  863.     (if (<> yo 0)
  864.      (
  865.       (debug "so ein schit!!")
  866.       (set eplayers (tackon target "EP-Userprograms"))
  867.       (set Error (run ("c:delete %s all" eplayers)))
  868.      )
  869.     )
  870.  
  871.   (makedir (tackon target "EP-Userprograms")
  872.            (infos)
  873.   )
  874.  
  875.   (if (<> user13 0)
  876.    (
  877.     (set n 0)
  878.     (set maxfiles user13)
  879.     (set ArchiveName ("%sUserprograms.lha" #EP_Disk2))
  880.       (while (set UPSFileName
  881.               (select n
  882.             "Analyze.small"
  883.             "Levelgraph"
  884.             "Levelgraph2"
  885.             "Levelmeter"
  886.             "Time"
  887.             "Noiseeagle"
  888.                         "Patternscroll_Kick1.3"
  889.                         "Space-Scope+"
  890.                         "Moduleinfo"
  891.             ""
  892.             )
  893.              )
  894.            (Depackuserprg)
  895.            (set n (+ n 1))
  896.     )
  897.      )
  898.   )
  899.  
  900.   (if (<> user20 0)
  901.    (
  902.     (set n 0)
  903.     (set maxfiles user20)
  904.       (while (set UPSFileName
  905.               (select n
  906.                          "Analyzer"
  907.                          "DirListViewer"
  908.                          "HiFi"
  909.                          "M.E.L.G.U"
  910.                          "Messagewindow"
  911.                          "Monoscope"
  912.                          "Patternscroll"
  913.                          "Patternscroll++"
  914.                          "PublicScreenmanager"
  915.                          "Space-scope"
  916.                          "Stereoscope"
  917.                          "Quadrascope"
  918.                          "Voicemeter"
  919.                          ""
  920.             )
  921.              )
  922.            (Depackuserprg)
  923.            (set n (+ n 1))
  924.     )
  925.      )
  926.   )
  927.  
  928.   (if (<> user30 0)
  929.    (
  930.     (set n 0)
  931.     (set maxfiles user30)
  932.       (while (set UPSFileName
  933.               (select n
  934.                          "LevelmeterAGA"
  935.                          "StereoscopeAGA"
  936.                          ""
  937.             )
  938.              )
  939.            (Depackuserprg)
  940.            (set n (+ n 1))
  941.     )
  942.      )
  943.   )
  944.  
  945.  
  946.  )
  947. )
  948.  
  949. ;Disk 2 ===================== copy Examples ================================
  950. (if (IN #InstallParts 6)
  951.   (
  952.     (set examplestarget (askdir (prompt #copyexamples)
  953.                                 (help #copyexampleshelp)
  954.                             (default target)
  955.                             (disk)
  956.                         )
  957.     )
  958.  
  959.    (set #Message #copyingexamples)
  960.    (set ArchiveName ("%sDeveloper.lha" #EP_Disk2))
  961.    (set Destination examplestarget)
  962.    (Depackfiles)
  963.   )
  964. )
  965.  
  966. ;Disk 2 ===================== copy Arexx-Scripts =======================
  967. (if (IN #InstallParts 5)
  968.   (
  969.    (set #Message #copyingarexx)
  970.    (set ArchiveName ("%sArexxExamples.lha" #EP_Disk2))
  971.    (set Destination Rexxpath)
  972.    (Depackfiles)
  973.   )
  974. )
  975.  
  976. ;============= ready installing the Eagleplayer  =======================
  977. (delete "ram:lha")
  978.  
  979. (exit)
  980.