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