home *** CD-ROM | disk | FTP | other *** search
/ Amiga Computing 105 / ac105a.adf / DASmodplayer.lzx / DASModPlayer / Installation / Install-DASMP < prev    next >
Encoding:
Text File  |  1995-04-18  |  28.2 KB  |  996 lines
  1. ; This is the installation script (V1.6.10) for D.A.S.ModulePlayer V3.5b
  2. ; Default language: English
  3. ; Locales provided:
  4. ;   Suomi (Finland).
  5. ;   Français (France)
  6. ;   Deutsch (Germany)
  7. ;   Norsk (Norway)
  8. ;   Svenska (Swedish)
  9. ;   Nederlands No install translation
  10. ;
  11. (set daseplibsource "/EPL")
  12. (set dasextarcsource "/ENV/dasmp.extarc")
  13. (set dasauthorsource "/ENV/dasmp.author")
  14. (set arexxsource    "/rexx")
  15. (set catalogdir        "/Locale/Catalogs/")
  16. (set old_level @user_level)
  17. ;********************************
  18. ; Default English strings
  19. (set default_lang 1)
  20.  
  21. (set #copying-eplib     "Copying External Player Libraries... ")
  22. (set #copying-exes      "Copying Executables and guide files... ")
  23. (set #copying-arexx     "Copying example arexx scripts...")
  24. (set #moving-env        "Moving Environment to new place...")
  25. (set #exists-extarc
  26. (cat    "dasmp.extarc was already found from your ENV: drawer "
  27.         "Would you like to overwrite it? This may destroy "
  28.         "previous settings you may have done for external archivers. "))
  29. (set #exists-author
  30. (cat    "dasmp.author was already found from your ENV: drawer "
  31.         "Would you like to overwrite it? This will destroy "
  32.         "previous settings you may have done for your author listing. "))
  33.                 
  34. (set #copy-magicwb
  35. (cat    "Would you like to have neat 8-color MAGIC WB "
  36.         "icons copied instead of those dull 4 color ones? "))
  37.  
  38. (set #scandir-do
  39. (cat    "Would you like to select a directory which will "
  40.         "be scanned and files in it added to the module "
  41.         "list everytime you run D.A.S.MP? "
  42.         "Line will be added to the tooltypes. "))
  43. (set #blaahlastwords
  44. (cat    "Congratulations! You have succesfully installed "
  45.         "D.A.S.ModulePlayer. Please read the documents. "
  46.         "Guide contains lot of usefull information about "
  47.         "inner workings of DASMP and those little things "
  48.         "which make your module handling easier."))
  49.  
  50. (set #copy-020libs
  51. (cat "Do you want to copy 68020++ specific libraries? "
  52.      "You will need MC68020 or better for these to work. "))
  53. (set #selectexamples
  54. (cat "Select what parts to install. These will "
  55.      "override old lists/scripts. "))
  56. (set #maindirectory
  57. (cat "Please select directory to install D.A.S.MP into. "
  58.      "Directory is not created automatically. "))
  59. (set #maindirhelp
  60. (cat "You must select a directory into which D.A.S.ModulePlayer "
  61.     "will be installed. There should be around 800 KB space "
  62.     "available for full software installation. Directory is "
  63.     "not created by the script. "))
  64. (set #scandtoolt
  65. (cat "Setting scandir tooltype"))
  66. (set #selscandir
  67. (cat "Please select directory to scan. "))
  68. (set #selarexxdir
  69. (cat "Please select directory where to install example "
  70.      "arexx scripts. "))
  71. (set #sel020libs
  72. (cat "Select the 020 optimized libraries to install."))
  73. (set #selepls
  74. (cat "Which EPLs you want to install?"))
  75. (set #seldocdir
  76. (cat "Please select directory to copy DOCUMENTS into. "
  77.      "Documents include: Dasmp.guide, Dasmp.guide.info. "))
  78. (set #docdirhelp
  79. (cat "Dasmp.guide file will be copied to this destination "))
  80. (set #which-language 
  81. (cat "\nWhich languages should be installed?"))
  82. ;***************************************
  83. ; Suomi strings
  84. ;
  85. ; Translated by: Pauli Porkka (Oikeinkirjoitusvirheistä voi valittaa)
  86.  
  87. (if (= @language "suomi")
  88. (
  89. (set default_lang 2)
  90. (set #copying-eplib     "Kopioimassa soittokirjastoja... ")
  91. (set #copying-exes      "Kopioimassa ohjelma- ja tekstitiedostoja... ")
  92. (set #copying-arexx     "Kopioimassa esimerkki arexx tiedostoja...")
  93. (set #moving-env        "Siirtämässä ympäristötietoja...")
  94. (set #exists-extarc
  95. (cat    "dasmp.extarc tiedosto on jo ennestään ENV: hakemistossa. "
  96.         "Korvataanko se? Korvaaminen tuhoaa mahdolliset muutokset "
  97.         " joita olet tehnyt tähän tiedostoon. "))
  98. (set #exists-author
  99. (cat    "dasmp.author tiedosto on jo ennestään ENV: hakemistossa. "
  100.         "Korvataanko se? Korvaaminen tuhoaa mahdolliset muutokset "
  101.         "joita olet tehnyt tekijälista tiedostoon. "))
  102.  
  103.  
  104. (set #copy-magicwb
  105. (cat    "Haluatko kopioida 8-väriset MagicWB ikonit "
  106.         "normaalien 4-väristen sijaan?"))
  107.  
  108. (set #scandir-do
  109. (cat    "Haluatko valita hakemiston joka käydään läpi "
  110.         "joka kerta DASMP:tä käynnistettäessä ja siinä "
  111.         "olevat tiedostot ladataan moduli listaan? "
  112.         "Rivi lisätään ikonin tooltype tietoihin."))
  113. (set #blaahlastwords
  114. (cat    "Onneksi olkoon! Olet asentanut D.A.S.ModulePlayer "
  115.         "ohjelman. Ole hyvä ja lue dokumentit, ne sisältävät "
  116.         "paljon hyödyllistä tietoa DASMP:n toiminnasta, "
  117.         "lisäksi sieltä löytyy pieniä vihjeitä toiminnan "
  118.         "helpottamiseksi. "))
  119.  
  120. (set #copy-020libs
  121. (cat "Haluatko kopioida 68020++ prosessoreille optimoidut "
  122.      "soittokirjastot?. Sinulla tarvitsee olla 68020 "
  123.      "prosessori tai parempi. "))
  124. (set #selectexamples
  125. (cat "Valitse osat jotka haluat kopioida. Nämä kirjoitetaan "
  126.      "aikaisempien tiedostojen päälle. "))
  127.  
  128. (set #maindirectory
  129. (cat "Valitse hakemisto johon D.A.S.MP asennetaan. "
  130.      "Scripti ei luo hakemistoa. "))
  131.  
  132. (set #maindirhelp
  133. (cat "Valitse hakemisto johon D.A.S.MP:n tiedostot "
  134.      "kopioidaan. Vähintään 800 kilotavua tilaa tarvitaan "
  135.      "täydelliseen asennukseen. Tämä scripti ei luo hakemistoa, "
  136.      "joten jos haluat oman hakemiston D.A.S.MP:lle, luo se. "))
  137.  
  138. (set #scandtoolt
  139. (cat "SCANDIR tooltypeä asennetaan.."))
  140. (set #selscandir
  141. (cat "Valitse läpikäytävä hakemisto. "))
  142. (set #selarexxdir
  143. (cat "Valitse hakemisto johon esimerkki arexx tiedostot "
  144.      "asennetaan. "))
  145. (set #sel020libs
  146. (cat "Valitse mitkä 020 optimoidut kirjastot asennetaan."))
  147. (set #selepls
  148. (cat "Mitkä soittokirjastot asennetaan?"))
  149. (set #seldocdir
  150. (cat "Valitse hakemisto johon tekstitiedostot asennetaan. "))
  151. (set #docdirhelp
  152. (cat "dasmp.guide tiedosto asennetaan tähän hakemistoon. "))
  153. (set #which-language       
  154. (cat "\nMinkä kieliset tiedostot asennetaan?"))
  155.  
  156. )) ; end if language statement
  157. ;**************************************************************
  158. ;French strings
  159. ;
  160. ; Translated by: Philippe Brand
  161. ;**************************************************************
  162. (if (= @language "français")
  163. (
  164. (set default_lang 4)
  165. (set #copying-eplib     "Copie des Librairies Players Externes... ")
  166. (set #copying-exes      "Copyie des Executables et des fichiers guide... ")
  167. (set #copying-arexx     "Copie des scripts d'exemple arexx...")
  168. (set #moving-env        "Déplacement de l'environnemen...")
  169. (set #exists-extarc
  170. (cat    "dasmp.extarc est déja présent dans votre répertoire ENV: "
  171.         "Voulez-vous l'écraser? Cela pourrait effacer vos paramètres "
  172.         "précédents que vous auriez pu positionner pour les archiveurs externes. "))
  173. (set #exists-author
  174. (cat    "dasmp.author est déja présent dans votre répertoire ENV: "
  175.         "Voulez-vous l'écraser? Cela pourrait effacer vos paramètres "
  176.         "précédents que vous auriez pu positionner pour la liste des auteurs. "))
  177. (set #copy-magicwb
  178. (cat    "Préférez-vous que les icônes en 8 couleurs style MAGIC WB "
  179.         "soient copiés au lieu des icônes en 4 couleurs? "))
  180. (set #scandir-do
  181. (cat    "Désirez-vous séléctionner un répertoire qui sera contrôlé "
  182.         "à chaque lancement de D.A.S.MP? "))
  183. (set #blaahlastwords
  184. (cat    "Maintenant que vous avez installé D.A.S.MP: "
  185.         "Si vous désirez reproduire des modules autres que les PT/NT "
  186.         "Vous devrez ajouter des entrées EPL à la liste des Players "
  187.         "Externes dans l'option de Configuration, page 5. "
  188.         "Lisez le manuel pour plus d'information. "))
  189. (set #copy-020libs
  190. (cat "Désirez-vous copier les librairies spécifiques 68020++? "
  191.      "Vous avec besoin d'un MC68020 au minimum pour qu'elles fonctionnent. "))
  192. (set #selectexamples
  193. (cat "Sélectionnez les fichiers à installer. Ils remplaceront "
  194.      "les anciens scripts/listes. "))
  195. (set #maindirectory
  196. (cat "Veuillez sélectionner le répertoire dans lequel installer D.A.S.MP. "
  197.      "Ce répertoire n'est pas automatiquement créé. "))
  198. (set #maindirhelp
  199. (cat "Vous devez sélectionner un répertoire dans lequel D.A.S.ModulePlayer "
  200.     "sera installé. Il doit y avoir aux alentour de 800Ko d'espace libre "
  201.     "pour une installation complète. Le répertoire n'est pas créé par "
  202.     "le script. "))
  203. (set #scandtoolt
  204. (cat "Tooltype scandir positionné"))
  205. (set #selscandir
  206. (cat "Veuillez sélectionner un répertoire à parcourir. "))
  207. (set #selarexxdir
  208. (cat "Veuillez sélectionner le répertoire où les exemples de scripts arexx "
  209.      "seront copiés. "))
  210. (set #sel020libs
  211. (cat "Sélectionnez les librairies optimisées 020 à installer."))
  212. (set #selepls
  213. (cat "Quels EPLs voulez-vous installer??"))
  214. (set #seldocdir
  215. (cat "Veuillez sélectionner le répertoire où placer les DOCUMENTS. "
  216.      "Les documents incluent: Dasmp.guide, Dasmp.guide.info. "))
  217. (set #docdirhelp
  218. (cat "Le fichier Dasmp.guide sera copié à cette destination "))
  219. (set #which-language
  220. (cat "\nQuels languages voulez-vous installer??"))
  221. ))
  222. ;**************************************************************
  223. ; German Strings
  224. ;
  225. ; Translated by: Michael Mutschler
  226. ;**************************************************************
  227. (if (= @language "deutsch")
  228. (
  229. (set default_lang 8)
  230. (set #copying-eplib     "Kopiere Externe Player Libraries... ")
  231. (set #copying-exes      "Kopiere Executables und guide files... ")
  232. (set #copying-arexx     "Kopiere Beispiel Arexx Scripte...")
  233. (set #moving-env        "Schiebe die Umgebung an einen neuen Platz...")
  234. (set #exists-extarc
  235. (cat    "dasmp.extarc wurde schon in Ihrem ENV:-Verzeichnis "
  236.         "gefunden. Wollen Sie die Datei überschreiben? Dies könnte "
  237.         "Ihre vorhergehenden Einstellungen löschen, die Sie "
  238.         "für die externen Archive angelegt haben. "))
  239. (set #exists-author
  240. (cat    "dasmp.author wurde schon in Ihrem ENV:-Verzeichnis "
  241.         "gefunden. Wollen Sie die Datei überschreiben? Dies könnte "
  242.         "Ihre vorhergehenden Einstellungen löschen, die Sie "
  243.         "für die Autoren-Liste angelegt haben. "))
  244. (set #copy-magicwb
  245. (cat    "Wollen Sie lieber 8-Farben Magic WB-icons haben, "
  246.         "statt dieser langweiligen 4-farbigen? "))
  247.  
  248. (set #scandir-do
  249. (cat    "Wollen Sie ein Verzeichnis wählen, das bei jedem "
  250.         "Start von D.A.S.MP nach neuen Modulen durchsucht "
  251.         "wird? "
  252.         "Eine Zeile wird an die Tooltypes angehängt. "))
  253. (set #blaahlastwords
  254. (cat    "Herzlichen Gückwunsch! Sie haben D.A.S.Moduleplayer "
  255.         "erfolgreich installiert. Lesen Sie nun bitte die "
  256.         "Anleitungen. Das Guide enbthält viele nützliche "
  257.         "Informationen über die Arbeitweise von DASMP, und "
  258.         "viele kleine Sachen, die die Bedienung einfacher "
  259.         "machen."))
  260.  
  261. (set #copy-020libs
  262. (cat    "Wollen Sie die speziellen 68020+ Libraries "
  263.         "installieren? "
  264.         "Sie brauchen einen MC68020 oder besser, damit "
  265.         "diese Libraries funktionieren. "))
  266. (set #selectexamples
  267. (cat    "Wählen Sie die Programmteile die Sie installieren"
  268.         "wollen. Diese werden alte Listen/Scripte überschreiben."))
  269. (set #maindirectory
  270. (cat    "Bitte wählen Sie das Directory in das D.A.S.MP"
  271.         "installiert werden soll. Dieses Directory wird nicht"
  272.         "automatisch angelegt. "))
  273. (set #maindirhelp
  274. (cat    "Sie müssen ein Verzeichnis angeben, in das"
  275.         "D.A.S.ModulePlayer installiert werden soll. Es sollten"
  276.         "ungefähr 800KB Platz sein, um eine vollständige"
  277.         "Installation durchzuführen. Das Directory wird von"
  278.         "diesem Script nicht angelegt, "))
  279. (set #scandtoolt
  280. (cat    "Setze scandir Tooltype"))
  281. (set #selscandir
  282. (cat    "Bitte wählen Sie ein Verzeichnis zum Durchsuchen. "))
  283. (set #selarexxdir
  284. (cat    "Bitte wählen Sie ein Verzeichnis, wo die Arexx"
  285.         "Scripte installiert werden sollen. "))
  286. (set #sel020libs
  287. (cat    "Wählen Sie die optimierten 020 Libraries, die"
  288.         "installiert werden sollen. "))
  289. (set #selepls
  290. (cat    "Welche EPLs wollen Sie installieren?"))
  291. (set #seldocdir
  292. (cat    "Bitte wählen Sie ein Verzeichnis, in das die "
  293.         "Dokumentation kopiert werden soll."))
  294. (set #docdirhelp
  295. (cat    "Dasmp.guide file wird dorthin kopiert. "))
  296. (set #which-language
  297. (cat "\nWelche Sprache soll installiert werden?"))
  298. ))
  299. ;***************************************************************
  300. ;**************************************************************
  301. ; Norsk Strings 
  302. ;
  303. ; Translated by: Øyvind Falch
  304. ;**************************************************************
  305. (if (= @language "norsk")
  306. (
  307. (set default_lang 16)
  308. (set #copying-eplib     "Kopierer Eksterne Player Libraries... ")
  309. (set #copying-exes      "Kopierer Kjørbare og guide filer... ")
  310. (set #copying-arexx     "Kopierer arexx eksempler...")
  311. (set #moving-env        "Flytter Oppsett til et nytt sted...")
  312. (set #exists-extarc
  313. (cat    "dasmp.extarc er allerede funnet i din ENV: katalog "
  314.         "Vil du skrive over denne? Dette vil slette ditt "
  315.         "allerede eksisterende oppsett som du har satt for eksterne pakkere. "))
  316. (set #exists-author
  317. (cat    "dasmp.author er allerede funnet i din ENV: katalog  "
  318.         "Vil du skrive over denne? Dette vil slette ditt "
  319.         "allerede eksisterende oppsett som du har satt for kompositør liste. "))
  320.                 
  321. (set #copy-magicwb
  322. (cat    "Vil du ha 8-farges fine MAGIC WB ikoner "
  323.         "kopiert istede for de kjedelige 4 farges ikonene? "))
  324.  
  325. (set #scandir-do
  326. (cat    "Vil du velge katalog som vil bli sjekket for "
  327.         "moduler og lagt til i listen hver gang du starter "
  328.         "D.A.S.MP? "
  329.         "Kommandoen blir lagt inn i tooltypes. "))
  330. (set #blaahlastwords
  331. (cat    "Gratulerer! Du har klart å installere "
  332.         "D.A.S.ModulePlayer. Vennligst les dokumentasjonene. "
  333.         "Guide inneholder en god del brukbar informasjon om "
  334.         "hvordan man benytter DASMP og de små ting som "
  335.         "gjør module håndtering enklere."))
  336.  
  337. (set #copy-020libs
  338. (cat "Vil du kopiere 68020++ libraries? "
  339.      "Du må da ha en MC68020 eller bedre for at dette skal fungere. "))
  340. (set #selectexamples
  341. (cat "Velg hvilke deler du vil installere. Disse vil "
  342.      "overskrive dine gamle lister/scripts. "))
  343. (set #maindirectory
  344. (cat "Vennligst velg katalog for installasjon av D.A.S.MP. "
  345.      "Katalog vil ikke bli laget automatisk. "))
  346. (set #maindirhelp
  347. (cat "Du må velge katalog for hvor D.A.S.ModulePlayer "
  348.     "skal bli installert. Det må være ca 800 KB ledig plass "
  349.     "for full software installasjon. Katalog blir "
  350.     "ikke laget av scriptet. "))
  351. (set #scandtoolt
  352. (cat "Setter scandir tooltype"))
  353. (set #selscandir
  354. (cat "Vennligt velg katalog for scanning. "))
  355. (set #selarexxdir
  356. (cat "Vennligst velg katalog for installasjon av arexx script eksempler. "))
  357. (set #sel020libs
  358. (cat "Velg 020 optimaliserte libraries for installasjon."))
  359. (set #selepls
  360. (cat "Hvilke  EPLs vil du installere?"))
  361. (set #seldocdir
  362. (cat "Vennligst velg katalog for DOKUMENTER. "
  363.      "Dokumenter inkluderer: Dasmp.guide, Dasmp.guide.info. "))
  364. (set #docdirhelp
  365. (cat "Dasmp.guide filen vil bli kopiert til dette stedet. "))
  366. (set #which-language 
  367. (cat "\nHvilke språk skal installeres?"))
  368. ))
  369. ;***************************************
  370.  
  371. ; Nederlands locale. Sorry, no strings for installation.
  372. (if (= @language "nederlands")
  373. (
  374. (set default_lang 32)
  375. ))
  376. ;**************************************************************
  377. ; Svensk Strings
  378. ;
  379. ; Translated by: Markus Sommarmyr
  380. ;**************************************************************
  381. (if (= @language "svenska")
  382. (
  383. (set default_lang 64)
  384. (set #copying-eplib     "Kopierar Externa Spel Libraries... ")
  385. (set #copying-exes      "Kopierar Körbara och guide filer... ")
  386. (set #copying-arexx     "Kopierar arexx exempel...")
  387. (set #moving-env        "Flyttar Omgivning till ett nytt ställe...")
  388. (set #exists-extarc
  389. (cat    "dasmp.extarc fanns redan i din ENV: katalog "
  390.         "Vill du skriva över denna? Detta kan förstöra redan "
  391.         "gjorda inställningar för Externa packare. "))
  392. (set #exists-author
  393. (cat    "dasmp.author fanns redan i din ENV: katalog "
  394.         "Vill du skriva över denna? Detta kan förstöra redan "
  395.         "gjorda inställningar för Upphovsman lista. "))
  396.  
  397. (set #copy-magicwb
  398. (cat    "Vill du ha läckra 8-färgs MAGIC WB ikoner istället "
  399.         "för dom tråkiga 4 färgsikonerna? "))
  400.  
  401. (set #scandir-do
  402. (cat    "Vill du välja en katalog som skall sökas av efter "
  403.         "moduler och läggas till i listan varje gång du startar "
  404.         "D.A.S.MP? "
  405.         "Kommandoraden läggs till i tooltypes. "))
  406. (set #blaahlastwords
  407. (cat    "Grattis! Du har installerat D.A.S.ModulePlayer "
  408.         "utan problem. Var vänlig läs dokumentationen. "
  409.         "Guiden innehåller viktig information om hur DASMP "
  410.         "fungerar och sånt som gör modul hanteringen enklare."))
  411.  
  412. (set #copy-020libs
  413. (cat "Vill du kopiera 68020++ libraries? "
  414.      "Du måste ha en MC68020 eller bättre för att dessa ska fungera. "))
  415. (set #selectexamples
  416. (cat "Välj vilka delar som skall installeras. Dessa kommer "
  417.      "skriva över gamla listor/scripts. "))
  418. (set #maindirectory
  419. (cat "Var vänlig välj katalog som D.A.S.MP skall installeras i. "
  420.      "Katalog kommer inte göras automatiskt. "))
  421. (set #maindirhelp
  422. (cat "Du måste välja en katalog att installera D.A.S.ModulePlayer till. "
  423.      "Det går åt ca 800 KB för en komplett installation. "
  424.      "Katalog kommer inte göras automatiskt. "))
  425. (set #scandtoolt
  426. (cat "Ställer in scandir tooltype"))
  427. (set #selscandir
  428. (cat "Välj katalog för avsökning. "))
  429. (set #selarexxdir
  430. (cat "Var vänlig välj katalog för arexx script exempel. "))
  431. (set #sel020libs
  432. (cat "Välj 020 optimerade libraries för installation."))
  433. (set #selepls
  434. (cat "Vilka EPLs vill du installera?"))
  435. (set #seldocdir
  436. (cat "Var vänlig välj katalog för DOKUMENT. "
  437.      "Dokument inkluderar: Dasmp.guide, Dasmp.guide.info. "))
  438. (set #docdirhelp
  439. (cat "Dasmp.guide filen kommer kopieras till detta ställe. "))
  440. (set #which-language
  441. (cat "\nVilket språk skall installeras?"))
  442. ))
  443. ;***************************************
  444.  
  445. (set destinationd
  446.     (askdir
  447.     (prompt #maindirectory)
  448.     (help #maindirhelp
  449.     @askdir-help
  450.     )
  451.     (default "SYS:")
  452.     )
  453. )
  454.  
  455. (set destinationdd
  456.     (askdir
  457.     (prompt #seldocdir)
  458.     (help #docdirhelp)
  459.     (default destinationd)
  460.     )
  461. )
  462. (set @default-dest destinationd)
  463.  
  464. (complete 5)
  465.  
  466. (copyfiles
  467.     (prompt "\n" #copying-exes)
  468.     (help "")
  469.     (source "/dasmodplayer")
  470.     (dest destinationd)
  471. )
  472.  
  473. (complete 15)
  474. (copyfiles
  475.     (prompt "\n" #copying-exes)
  476.     (help "")
  477.     (source "/dasmp.guide")
  478.     (dest destinationdd)    
  479.     (infos)
  480. )
  481. (if (< (/ (getversion) 65536) 39)
  482. (
  483.     (tooltype
  484.         (dest (tackon destinationdd "dasmp.guide"))
  485.         (setdefaulttool "SYS:Utilities/AmigaGuide")
  486.     )
  487. ))
  488. (if (= (exists "l:dasmp.key") 0)
  489.     (
  490.         (copyfiles
  491.         (prompt "\n" #copying-docs)
  492.         (help "")
  493.         (source "/Register.doc")
  494.         (dest destinationd)
  495.         (infos)
  496.     )))
  497.  
  498. (complete 30)
  499. ; EPL COPY ------------------------------------------------------
  500.  
  501. (set epldirri (tackon destinationd "EPL"))
  502. (if (= (exists epldirri) 0)
  503. (
  504. (makedir (tackon destinationd "EPL"))
  505. ))
  506. (set destinationld (tackon destinationd "EPL"))
  507. (set tools
  508.     (askoptions
  509.         (prompt #selepls)
  510.         (help @askoptions-help)
  511.         (choices "S3M Player" "MTM Player" "6-8 Channel mods" "QuadraComposer" "Future Composer" "(Octa)Med" 
  512.         "PT/NT FAST ram" "Sound Mon 2.0" "MULT (7 formats)" "SID" "TFMX" "Standard PT" 
  513.         "Old ST" "JamCracker" "XM Player")
  514.     )
  515. )
  516.  
  517. (if (in tools 0)
  518. (
  519. (copyfiles
  520.  (prompt "\n" #copying-eplib)
  521.  (help @copylib-help)
  522.  (source "/epl/dasS3M0.library")
  523.  (dest destinationld)
  524. )
  525. ))
  526.  
  527. (if (in tools 1)
  528. (
  529. (copyfiles
  530.  (prompt "\n" #copying-eplib)
  531.  (help @copylib-help)
  532.  (source "/epl/dasMTM.library")
  533.  (dest destinationld)
  534. )
  535. ))
  536.  
  537. (if (in tools 2)
  538. (
  539. (copyfiles
  540.  (prompt "\n" #copying-eplib)
  541.  (help @copylib-help)
  542.  (source "/epl/das68CH.library")
  543.  (dest destinationld)
  544. )
  545. ))
  546. (if (in tools 3)
  547. (
  548. (copyfiles
  549.  (prompt "\n" #copying-eplib)
  550.  (help @copylib-help)
  551.  (source "/epl/dasQC20.library")
  552.  (dest destinationld)
  553. )
  554. ))
  555. (if (in tools 4)
  556. (
  557. (copyfiles
  558.  (prompt "\n" #copying-eplib)
  559.  (help @copylib-help)
  560.  (source "/epl/dasFC.library")
  561.  (dest destinationld)
  562. )
  563. ))
  564. (if (in tools 5)
  565. (
  566. (copyfiles
  567.  (prompt "\n" #copying-eplib)
  568.  (help @copylib-help)
  569.  (source "/epl/dasMED.library")
  570.  (dest destinationld)
  571. )
  572. ))
  573. (if (in tools 6)
  574. (
  575. (copyfiles
  576.  (prompt "\n" #copying-eplib)
  577.  (help @copylib-help)
  578.  (source "/epl/dasFAST.library")
  579.  (dest destinationld)
  580. )
  581. ))
  582. (if (in tools 7)
  583. (
  584. (copyfiles
  585.  (prompt "\n" #copying-eplib)
  586.  (help @copylib-help)
  587.  (source "/epl/dasSM20.library")
  588.  (dest destinationld)
  589. )
  590. ))
  591. (if (in tools 8)
  592. (
  593. (copyfiles
  594.  (prompt "\n" #copying-eplib)
  595.  (help @copylib-help)
  596.  (source "/epl/dasMULT.library")
  597.  (dest destinationld)
  598. )
  599. ))
  600. (if (in tools 9)
  601. (
  602. (copyfiles
  603.  (prompt "\n" #copying-eplib)
  604.  (help @copylib-help)
  605.  (source "/epl/dasSID.library")
  606.  (dest destinationld)
  607. )
  608. ))
  609. (if (in tools 10)
  610. (
  611. (copyfiles
  612.  (prompt "\n" #copying-eplib)
  613.  (help @copylib-help)
  614.  (source "/epl/dasTFMX.library")
  615.  (dest destinationld)
  616. )
  617. ))
  618. (if (in tools 11)
  619. (
  620. (copyfiles
  621.  (prompt "\n" #copying-eplib)
  622.  (help @copylib-help)
  623.  (source "/epl/dasPT.library")
  624.  (dest destinationld)
  625. )
  626. ))
  627. (if (in tools 12)
  628. (
  629. (copyfiles
  630.  (prompt "\n" #copying-eplib)
  631.  (help @copylib-help)
  632.  (source "/epl/dasOST.library")
  633.  (dest destinationld)
  634. )
  635. ))
  636. (if (in tools 13)
  637. (
  638. (copyfiles
  639.  (prompt "\n" #copying-eplib)
  640.  (help @copylib-help)
  641.  (source "/epl/dasJC.library")
  642.  (dest destinationld)
  643. )
  644. ))
  645. (if (in tools 14)
  646. (
  647. (copyfiles
  648.  (prompt "\n" #copying-eplib)
  649.  (help @copylib-help)
  650.  (source "/epl/dasXM.library")
  651.  (dest destinationld)
  652. )
  653. ))
  654. (if 
  655.     (askbool
  656.         (prompt #copy-020libs)
  657.         (help "")
  658.         (default 1)
  659.     )
  660.     (
  661.     (set tools
  662.         (askoptions
  663.             (prompt #sel020libs)
  664.             (help @askoptions-help)
  665.             (choices "S3M player" "MTM Player" "6-8 Channel mods" "XM Player")
  666.         )
  667.     )
  668. (if (in tools 0)
  669. (
  670. (copyfiles
  671.  (prompt "\n" #copying-eplib)
  672.  (help @copylib-help)
  673.  (source "/epl/020/dasS3M0.library")
  674.  (dest destinationld)
  675. )
  676. ))
  677.  
  678. (if (in tools 1)
  679. (
  680. (copyfiles
  681.  (prompt "\n" #copying-eplib)
  682.  (help @copylib-help)
  683.  (source "/epl/020/dasMTM.library")
  684.  (dest destinationld)
  685. )
  686. ))
  687.  
  688. (if (in tools 2)
  689. (
  690. (copyfiles
  691.  (prompt "\n" #copying-eplib)
  692.  (help @copylib-help)
  693.  (source "/epl/020/das68CH.library")
  694.  (dest destinationld)
  695. )
  696. ))
  697. (if (in tools 3)
  698. (
  699. (copyfiles
  700.  (prompt "\n" #copying-eplib)
  701.  (help @copylib-help)
  702.  (source "/epl/020/dasXM.library")
  703.  (dest destinationld)
  704. )
  705. ))
  706. ))   ; End 020 optimized library install
  707.  
  708. ; For Pre-3.5 versions. Make dasmp directory and copy files.
  709.  
  710. (if (= (exists "ENV:dasmp") 0)
  711.     (
  712.     (makedir "ENV:dasmp")
  713.     (makedir "ENVARC:dasmp")
  714.  
  715.     (if (= (exists "ENV:dasmp.author") 1)
  716.         (
  717.         (copyfiles
  718.             (prompt "\n" #moving-env)
  719.             (help " ")
  720.             (source "ENV:dasmp.author")
  721.             (dest "ENV:dasmp")
  722.         )
  723.         (copyfiles
  724.             (prompt "\n" #moving-env)
  725.             (help " ")
  726.             (source "ENVARC:dasmp.author")
  727.             (dest "ENVARC:dasmp")
  728.         )
  729.         (delete "ENV:dasmp.author")
  730.         (delete "ENVARC:dasmp.author")
  731.     ))
  732.  
  733.     (if (= (exists "ENV:dasmp.extarc") 1)
  734.         (
  735.         (copyfiles
  736.             (prompt "\n" #moving-env)
  737.             (help " ")
  738.             (source "ENV:dasmp.extarc")
  739.             (dest "ENV:dasmp")
  740.         )
  741.         (copyfiles
  742.             (prompt "\n" #moving-env)
  743.             (help " ")
  744.             (source "ENVARC:dasmp.extarc")
  745.             (dest "ENVARC:dasmp")
  746.         )
  747.         (delete "ENV:dasmp.extarc")
  748.         (delete "ENVARC:dasmp.extarc")
  749.     ))
  750.     (if (= (exists "ENV:dasmp.extlib") 1)
  751.         (
  752. ;        (copyfiles
  753. ;            (prompt "\n" #moving-env)
  754. ;            (help " ")
  755. ;            (source "ENV:dasmp.extlib")
  756. ;            (dest "ENV:dasmp")
  757. ;        )
  758. ;        (copyfiles
  759. ;            (prompt "\n" #moving-env)
  760. ;            (help " ")
  761. ;            (source "ENVARC:dasmp.extlib")
  762. ;            (dest "ENVARC:dasmp")
  763. ;        )
  764.         (delete "ENV:dasmp.extlib")
  765.         (delete "ENVARC:dasmp.extlib")
  766.     ))
  767.     (if (= (exists "ENV:dasmp.config") 1)
  768.         (
  769.         (copyfiles
  770.             (prompt "\n" #moving-env)
  771.             (help " ")
  772.             (source "ENV:dasmp.config")
  773.             (dest "ENV:dasmp")
  774.         )
  775.         (copyfiles
  776.             (prompt "\n" #moving-env)
  777.             (help " ")
  778.             (source "ENVARC:dasmp.config")
  779.             (dest "ENVARC:dasmp")
  780.         )
  781.         (delete "ENV:dasmp.config")
  782.         (delete "ENVARC:dasmp.config")
  783.     ))
  784.     )
  785. )   ; ends the exists if statement
  786.  
  787. (set tools
  788.     (askoptions
  789.         (prompt #selectexamples)
  790.         (help @askoptions-help)
  791.         (choices "Example: External arc list" "Example: Author list" "Example: Rexx scripts")
  792.     )
  793. )
  794.  
  795. (if (in tools 0)
  796. (
  797.     (if (= (exists "ENV:dasmp/dasmp.extarc") 1)
  798.     ((if (askbool
  799.          (prompt #exists-extarc)
  800.          (help "")
  801.          (default 0))
  802.          
  803.          ((copyfiles
  804.              (source dasextarcsource)
  805.              (dest "ENVARC:dasmp"))
  806.           (copyfiles
  807.              (source dasextarcsource)
  808.              (dest "ENV:dasmp"))
  809.         )
  810.     ))) ; if exists = 1 end
  811.     (if (= (exists "ENV:dasmp/dasmp.extarc") 0)
  812.     (
  813.         ((copyfiles
  814.              (source dasextarcsource)
  815.              (dest "ENVARC:dasmp"))
  816.         (copyfiles
  817.              (source dasextarcsource)
  818.              (dest "ENV:dasmp"))
  819.         )
  820.     ))  ; if exists = 0
  821.  
  822. ))  ; "if in tools 0" end.
  823.  
  824. (if (in tools 1)
  825. (
  826.     (if (= (exists "ENV:dasmp/dasmp.author") 1)
  827.     ((if (askbool
  828.          (prompt #exists-author)
  829.          (help "")
  830.          (default 0))
  831.          
  832.          ((copyfiles
  833.              (source dasauthorsource)
  834.              (dest "ENVARC:dasmp"))
  835.           (copyfiles
  836.              (source dasauthorsource)
  837.              (dest "ENV:dasmp"))
  838.         )
  839.     ))) ; if exists = 1 end
  840.     (if (= (exists "ENV:dasmp/dasmp.author") 0)
  841.     (
  842.         ((copyfiles
  843.              (source dasauthorsource)
  844.              (dest "ENVARC:dasmp"))
  845.         (copyfiles
  846.              (source dasauthorsource)
  847.              (dest "ENV:dasmp"))
  848.         )
  849.     ))  ; if exists = 0
  850.  
  851. ))  ; "if in tools 1" end.
  852.  
  853. (if (in tools 2)
  854. (
  855.       (set @default-rexxdest
  856.             (askdir
  857.             (prompt #selarexxdir)
  858.             (help @askdir-help)
  859.             (default "rexx:")
  860.             ))
  861.         (copyfiles
  862.             (prompt "\n" #copying-arexx)
  863.             (help "")
  864.             (source "/rexx")
  865.             (dest @default-rexxdest)
  866.             (all)    
  867.         )
  868. ))
  869.  
  870. (complete 70)
  871.  
  872. (set dasicon (tackon destinationd "dasmodplayer.info"))
  873. (set doinfo (exists dasicon))
  874. (if (= doinfo 0)
  875. (
  876. (copyfiles
  877.     (prompt "\n" #copying-exes)
  878.     (help "")
  879.     (source "/DMODPAPPICON.info")
  880.     (dest destinationd)
  881. )
  882. (copyfiles
  883.     (prompt "\n" #copying-exes)
  884.     (help "")
  885.     (source "/dasmodplayer.info")
  886.     (dest destinationd)
  887. )
  888. (if
  889.     (askbool
  890.         (prompt #copy-magicwb)
  891.         (help "")
  892.         (default 1)
  893.     )
  894.     (
  895.     (copyfiles
  896.         (source "/MagicWB-icons")
  897.         (dest destinationd)
  898.         (all)
  899.     )
  900.     )
  901. ))
  902. )
  903. (complete 80)
  904. ;***************************************************************************
  905. ; Copy catalog files (usefull only on v38+ machines)
  906. ;***************************************************************************
  907. (if (exists "LOCALE:")
  908. (
  909.     (user 2)
  910.     (set lang
  911.         (askoptions
  912.             (prompt #which-language)
  913.             (help @askoptions-help)
  914.             (choices
  915.                 "English"
  916.                 "Suomi"
  917.                 "Français"
  918.                 "Deutsch"
  919.                 "Norsk"
  920.                 "Nederlands"
  921.                 "Svenska"
  922.             )
  923.             (default default_lang)
  924.         )
  925.     )
  926.     (set n 0)
  927.  
  928.     (while
  929.         (set language
  930.             (select n
  931.                 "English"
  932.                 "Suomi"
  933.                 "Français"
  934.                 "Deutsch"
  935.                 "Norsk"
  936.                 "Nederlands"
  937.                 "Svenska"
  938.                 ""
  939.             )
  940.         )
  941.     (
  942.         (if (IN lang n)
  943.         (
  944.             (if (<> 0 n)
  945.             (
  946.                 (makedir (cat "LOCALE:Catalogs/" language))
  947.  
  948.                 (copyfiles
  949.                     (source (cat catalogdir language))
  950.                     (dest (cat "LOCALE:Catalogs/" language))
  951.                     (all)
  952.                 )
  953.             ))
  954.         ))
  955.  
  956.         (set n (+ n 1))
  957.     ))
  958. ))
  959. ;*************************************
  960. (if (exists "HELP:English")
  961.     (
  962.     (copyfiles
  963.         (source "/Locale/help/English/dasmphelp.guide")
  964.         (dest "HELP:English")
  965.     )
  966.     (tooltype
  967.     (dest (tackon destinationd "dasmodplayer"))
  968.     (help @tooltype-help)
  969.     (settooltype "ONLINEHELP" "HELP:English/dasmphelp.guide")
  970.     )
  971. ))
  972. (complete 90)
  973.  
  974. (if (askbool
  975.         (prompt #scandir-do)
  976.         (help "")
  977.         (default 0))
  978.  
  979.     (           ; start of if statement
  980.       (set @default-scandest
  981.             (askdir
  982.             (prompt #selscandir)
  983.             (help @askdir-help)
  984.             (default "sys:")
  985.             ))
  986.  
  987.         (tooltype
  988.             (prompt #scandtoolt)
  989.             (dest (tackon destinationd "dasmodplayer"))
  990.             (settooltype "SCANDIR" @default-scandest)
  991.  
  992.     )))
  993.  
  994.  
  995. (complete 100)
  996. (message #blaahlastwords)