home *** CD-ROM | disk | FTP | other *** search
/ Amiga ACS 1998 #4 / amigaacscoverdisc1998-041998.iso / utilities / shareware / music / sfx-030 / install-sfx next >
Encoding:
Text File  |  1998-03-08  |  32.0 KB  |  894 lines
  1. ; Install-SFX Start -----------------------------------------------------------------------------------------
  2. ;
  3. ; $VER: Install-SFX (02.11.1997)
  4. ;
  5. ; SoundFX Installscript
  6. ; (C) Copyright 1993-1998 Stefan Kost. All Rights Reserved.
  7. ;
  8. ; -----------------------------------------------------------------------------------------------------------
  9.  
  10. ; setze sprachenabhängige Texte -----------------------------------------------------------------------------
  11.  
  12. (IF (= @LANGUAGE "deutsch")
  13. (
  14.     (SET #bad-kick                "SoundFX benötigt mindestens Kickstart 3.0 !")
  15.     (SET #bad-installer            "SoundFX benötigt die Installerversion >= 43.0 !\nDieser ist im Aminet unter util/misc/Installer43.3.lha zu finden.")
  16.     (SET #welcome-messy             "\n\nWillkommen zur Installation von SoundFX !\nDieses Script wird alle Dateien, die Sie zum Benutzen von SoundFX brauchen, auf Ihre Festplatte kopieren.")
  17.     (SET #choose-dest            "Bitte Zielverzeichnis aussuchen !\nEin Verzeichnis mit dem Namen SFX wird angelegt !")
  18.     (SET #choose-dest-help        "Hier können Sie auswählen, wohin Sie das Programm installeren möchten")
  19.     (SET #dest-require            "\n\nBitte stellen Sie sicher, daß auf der Zielpartition\n3.0 MB-Speicher frei ist !")
  20.     (SET #copy-loader            "kopiere Loader-Module ...")
  21.     (SET #copy-operators        "kopiere Operator-Module ...")
  22.     (SET #copy-player            "kopiere Player-Module ...")
  23.     (SET #copy-rexx                "kopiere ARexx-Scripts ...")
  24.     (SET #copy-saver            "kopiere Saver-Module ...")
  25.     (SET #copy-executable        "kopiere Executable ...")
  26.     (SET #copy-fonts            "kopiere Fonts ...")
  27.     (SET #copy-libs                "kopiere Librarys ...")
  28.     (SET #copy-envelopes        "kopiere Envelopes ...")
  29.     (SET #copy-presets            "kopiere Presets ...")
  30.     (SET #copy-workshop            "kopiere Workshopdateien ...")
  31.     (SET #copy-gfx                "kopiere Gfx ...")
  32.     (SET #copy-text                "kopiere Texte ...")
  33.     (SET #copy-guides            "kopiere Guides ...")
  34.     (SET #copy-keyfile            "kopiere Keyfile ...")
  35.     (SET #copy-help                "Die entsprechenden Dateien werden gerade auf ihre Festplatte kopiert.")
  36.     (SET #choose-icon            "Bitte wählen Sie den Icontyp aus, das Sie installieren möchten !")
  37.     (SET #choose-icon-help        "Die Standart Variante ist für eine 4-farbige WB.\nDie MagicWB und Iconographics-Varianten benötigen mindestens 8 Farben.\nDie NewIcon Varianten benötigen die NewIcon Software.")
  38.     (SET #choose-keypath        "Bitte suchen Sie ein Zielverzeichnis aus, wo das Keyfile installiert werden soll !")
  39.     (SET #choose-fontpath        "Bitte suchen Sie ein Zielverzeichnis aus, wo die Zeichensätze installiert werden sollen !")
  40.     (SET #choose-path-help        "Sie können irgendeins der angegebenen Verzeichnisse wählen ! SFX wird in allen Verzeichnissen suchen.")
  41.     (SET #choose-instmode        "SFX ist bereits installiert ! Wie soll ich fortfahren ?")
  42.     (SET #choose-instmode-help    "Im Modus Backup wird das alte SFX-Verzeichnis nach SFX_old umbenannt.\nIm Modus Update werde bereits installierte Dateien überschrieben.")
  43.     (SET #copykey-fail            "Das Kopieren des Keyfiles hat nicht geklappt !")
  44.     (SET #exit-messy            "\n\nSFX konnte erfolgreich installiert werden.\nBitte lesen Sie das Guide, um zu erfahren wie das Programm bedient wird.\n")
  45.     (SET #orderform                "Bestellformular.txt")
  46.     (SET #readme                "LiesMich#?")
  47. ))
  48. (IF (= @LANGUAGE "english")
  49. (
  50.     (SET #bad-kick                "SoundFX requires at least Kickstart 3.0 !")
  51.     (SET #bad-installer            "SoundFX requires installer version >= 43.0 !\nThis could be found on Aminet in util/misc/Installer43.3.lha.")
  52.     (SET #welcome-messy            "\n\nWelcome to the installation of SoundFX !\nThis scripts will copy all the files you need to run SoundFX to your harddisk.")
  53.     (SET #choose-dest            "Please choose a destination directory !\nA drawer called SFX will be automatically generated !")
  54.     (SET #choose-dest-help        "Here you can choose the place on your HD, were SFX should be installed")
  55.     (SET #dest-require            "\n\nPlease make sure, that you have at least 3.0 MB free free space on your HD !")
  56.     (SET #copy-loader            "copying loadermoduls ...")
  57.     (SET #copy-operators        "copying operatormoduls ...")
  58.     (SET #copy-player            "copying playermoduls ...")
  59.     (SET #copy-rexx                "copying arexxscripts ...")
  60.     (SET #copy-saver            "copying savermoduls ...")
  61.     (SET #copy-executable        "copying executable ...")
  62.     (SET #copy-fonts            "copying fonts ...")
  63.     (SET #copy-libs                "copying libraries ...")
  64.     (SET #copy-envelopes        "copying envelopes ...")
  65.     (SET #copy-presets            "copying presets ...")
  66.     (SET #copy-workshop            "copying workshopfiles ...")
  67.     (SET #copy-icons            "copying icons ...")
  68.     (SET #copy-gfx                "copying gfx ...")
  69.     (SET #copy-text                "copying texts ...")
  70.     (SET #copy-guides            "copying guides ...")
  71.     (SET #copy-keyfile            "copying Keyfile ...")
  72.     (SET #copy-help                "The respective files will copied to your HD.")
  73.     (SET #choose-icon            "Please choose the the icon-set you want to install !")
  74.     (SET #choose-icon-help        "The standart version is for a 4 coulour wb.\nThe MagicWB and Iconographics versions require at least 8 colours.\nThe NewIcon versions require the newicon software.")
  75.     (SET #choose-keypath        "Please choose a directory where the keyfile should be installed to !")
  76.     (SET #choose-fontpath        "Please choose a directory where the fonts should be installed to !")
  77.     (SET #choose-path-help        "You can choose any of these places ! SFX will search all loactions.")
  78.     (SET #choose-instmode        "SFX is already installed ! What should i do ?")
  79.     (SET #choose-instmode-help    "In mode backup the old drawer will be renamed to SFX_old.\nIn mode update already installed files will be overwritten.")
  80.     (SET #copykey-fail            "Copying of the keyfile failed !")
  81.     (SET #exit-messy            "\n\nSFX is successfuly installed.\nPlease read the guide, to learn how to work with the program.")
  82.     (SET #orderform                "Orderform.txt")
  83.     (SET #readme                "ReadMe#?")
  84. ))
  85. (IF (= @LANGUAGE "français")
  86. (
  87.     (SET #bad-kick                "SoundFX demande au moins le Kickstart 3.0 !")
  88.     (SET #bad-installer            "SoundFX demande l'installer version >= 43.0 !\nCe Script peut être trouver sur Aminet dans util/misc/Installer43.3.lha.")
  89.     (SET #welcome-messy            "\n\nBienvenue dans l'installation de SoundFX !\nCes  scripts vont copier tous les fichiers dont vous avez besoin pour démarrer SoundFX de votre disque dur.")
  90.     (SET #choose-dest            "Choisissez SVP le répertoire de destination !\nUn répertoire appelé SFX va être automatiquement créé !")
  91.     (SET #choose-dest-help        "Ici vous pouvez choisir la place dans votre DD, où SFX doit être installé")
  92.     (SET #dest-require            "\n\nVérifier SVP que vous avez au moins 3 Mo d'espace libre dans votre DD !")
  93.     (SET #copy-loader            "Copie des modules de lecture (loadermoduls) ...")
  94.     (SET #copy-operators        "Copie des modules opérateurs (operatormoduls) ...")
  95.     (SET #copy-player            "Copie des modules d'écoute (playermoduls) ...")
  96.     (SET #copy-rexx                "Copie des scripts AREXX (arexxscripts) ...")
  97.     (SET #copy-saver            "Copie des modules de sauvegarde (savermoduls) ...")
  98.     (SET #copy-executable        "Copie de l'executable ...")
  99.     (SET #copy-fonts            "Copie des fontes ...")
  100.     (SET #copy-libs                "Copie des librairies ...")
  101.     (SET #copy-envelopes        "Copie des envellopes ...")
  102.     (SET #copy-presets            "Copie des "presets" ...")
  103.     (SET #copy-workshop            "Copie des fichiers workshop ...")
  104.     (SET #copy-icons            "Copie des icônes ...")
  105.     (SET #copy-gfx                "Copie des gfx ...")
  106.     (SET #copy-text                "Copie des textes ...")
  107.     (SET #copy-guides            "Copie des guides ...")
  108.     (SET #copy-keyfile            "Copie du Keyfile ...")
  109.     (SET #copy-help                "Les fichiers respectifs vont être copiés dans votre DD.")
  110. ; CHANGE
  111. ;    (SET #choose-icon            "Choisissez SVP le type d'icône que vous voulez installer\nLa version 4 couleur est faite pour les couleurs du WorkBench standart et la version 8 couleurs est faite  pour magic-wb !")
  112. ;    (SET #choose-icon-help        "Si votre écran wb possède plus de 4 couleurs alors choisissez la version 8 couleurs.\nCelle-ci est plus belle.")
  113.     (SET #choose-icon            "Choisissez SVP le type d'icône que vous voulez installer !")
  114.     (SET #choose-icon-help        "La version standart est faite pour le WB de 4 couleur.\nLes versions MagicWB et Iconographics demandent au moins 8 coleurs.\nLes versions NewIcon demandent le NewIcon logiciel.")
  115. ; CHANGE
  116.     (SET #choose-keypath        "Choisissez SVP le répertoire où le keyfile doit être installé !")
  117.     (SET #choose-fontpath        "Choisissez SVP le répertoire où les fontes doivent être installés !")
  118.     (SET #choose-path-help        "Vous pouvez choisir n'importe lequel de ces endroits ! SFX cherchera touts ces endroits.")
  119.     (SET #choose-instmode        "SFX est déjà installé ! Que dois je faire ?")
  120.     (SET #choose-instmode-help    "En mode "backup" le vieux répertoire sera renommé en SFX_old.\nEn mode "update", les fichiers éxistants seront remplacés.")
  121. ; NEW
  122.     (SET #copykey-fail            "Copying of the keyfile failed !")
  123. ; NEW
  124.     (SET #exit-messy            "\n\nSFX a été installé avec succés.\nLisez SVP le guide, pour apprendre comment travailler avec le programme.")
  125.     (SET #orderform                "Orderform.français.txt")
  126.     (SET #readme                "ReadMe#?")
  127. ))
  128. (IF (= @LANGUAGE "italiano")
  129. (
  130.     (SET #bad-kick                "SoundFX richiede il Kickstart 3.0 o superiore !")
  131.     (SET #bad-installer            "SoundFX richiede una versione di Installer 43.0 o superiore !\nTale versione può essere reperita in Aminet in util/misc/Installer43.3.lha.")
  132.     (SET #welcome-messy            "\n\nBenvenuto nell'installazione di SoundFX !\nQuesto script copierà tutti i file necessari sul tuo hard-disk.")
  133.     (SET #choose-dest            "Seleziona una directory di destinazione !\nUna directory chiamata SFX sarà automaticamente creata.")
  134.     (SET #choose-dest-help        "Con questo requester puoi scegliere dove installare SFX sul tuo HD.")
  135.     (SET #dest-require            "\n\nAssicurati di avere almeno 3.0 Mb liberi sul tuo HD !")
  136.     (SET #copy-loader            "sto copiando i loadermodules ...")
  137.     (SET #copy-operators        "sto copiando gli operatormodules ...")
  138.     (SET #copy-player            "sto copiando i playermodules ...")
  139.     (SET #copy-rexx                "sto copiando gli script arexx ...")
  140.     (SET #copy-saver            "sto copiando i savermodules ...")
  141.     (SET #copy-executable        "sto copiando l'eseguibile ...")
  142.     (SET #copy-fonts            "sto copiando i fonts ...")
  143.     (SET #copy-libs                "sto copiando le librerie ...")
  144.     (SET #copy-envelopes        "sto copiando le envelopes ...")
  145.     (SET #copy-presets            "sto copiando i presets ...")
  146.     (SET #copy-workshop            "sto copiando i workshopfiles ...")
  147.     (SET #copy-icons            "sto copiando le icone ...")
  148.     (SET #copy-gfx                "sto copiando la grafica ...")
  149.     (SET #copy-text                "sto copiando i testi ...")
  150.     (SET #copy-guides            "sto copiando le guide ...")
  151.     (SET #copy-keyfile            "sto copiando il Keyfile ...")
  152.     (SET #copy-help                "I file selezionati verranno copiati sul tuo HD.")
  153. ; CHANGE
  154. ;    (SET #choose-icon            "Seleziona l'icona che vuoi installare\nL'icona a 4 colori è stata creata per il WB standard, mentre quella a 8 colori segue la palette MagicWB.")
  155. ;    (SET #choose-icon-help        "Se il tuo WB ha più di 4 colori, seleziona l'icona ad 8 colori.\nQuesta icona è più bella.")
  156.  
  157.     (SET #choose-icon            "Please choose the the icon-set you want to install !")
  158.     (SET #choose-icon-help        "The standart version is for a 4 coulour wb.\nThe MagicWB and Iconographics versions require at least 8 colours.\nThe NewIcon versions require the newicon software.")
  159. ; CHANGE
  160.     (SET #choose-keypath        "Please choose a directory where the keyfile should be installed to !")
  161.     (SET #choose-keypath        "Seleziona la directory dove installare il keyfile !")
  162.     (SET #choose-fontpath        "Seleziona la directory dove installare i fonts !")
  163.     (SET #choose-path-help        "Puoi selezionare qualsiasi destinazione: SFX controllerà tutte le directory")
  164.     (SET #choose-instmode        "SFX è già installato ! Cosa devo fare ?")
  165.     (SET #choose-instmode-help    "In modalità backup il vecchio cassetto verrà rinominato SFX_old.\nIn modalità update i file già installati verranno sovrascritti.")
  166. ; NEW
  167.     (SET #copykey-fail            "Copying of the keyfile failed !")
  168. ; NEW
  169.     (SET #exit-messy            "\n\nSFX è stato installato con successo.\nLeggi attentamente la guida per imparare ad utilizzare al meglio il programma.")
  170.     (SET #orderform                "Orderform.italiano.txt")
  171.     (SET #readme                "ReadMe#?")
  172. ))
  173. (IF (= @LANGUAGE "polski")
  174. (
  175.     (SET #bad-kick                "SoundFX wymaga systemu w wesji co najmniej 3.0!")
  176.     (SET #bad-installer            "SoundFX wymaga Installera w wesji co najmniej 43.0!\nNajnowszâ wersjë Installera znajdziesz na Aminecie: \"util/misc/Installer43.3.lha\".")
  177.     (SET #welcome-messy         "\n\nWitaj w programie instalacyjnym SoundFXa!\nTen program skopiuje wszystkie pliki niezbëdne do uruchomienia SoundFXa na Twój dysk twardy.")
  178.     (SET #choose-dest            "Gdzie chcesz zainstalowaê SoundFXa?\nKatalog \"SFX\" zostanie automatycznie utworzony!")
  179.     (SET #choose-dest-help        "wybierz katalog na dysku twardym, w którym SoundFX powinien zostaê zainstalowany")
  180.     (SET #dest-require            "\n\nUpewnij sië, ûe masz co najmniej 3.0 MB wolnego miejsca na dysku!")
  181.     (SET #copy-loader            "kopiujë moduîy wczytujâce...")
  182.     (SET #copy-operators        "kopiujë operatory...")
  183.     (SET #copy-player            "kopiujë moduîy odtwarzajâce...")
  184.     (SET #copy-rexx                "kopiujë skrypty ARexx'a...")
  185.     (SET #copy-saver            "kopiujë moduîy zapisujâce...")
  186.     (SET #copy-executable        "kopiujë program...")
  187.     (SET #copy-fonts            "kopiujë czcionki...")
  188.     (SET #copy-libs                "kopiujë biblioteki...")
  189.     (SET #copy-envelopes        "kopiujë obwiednie...")
  190.     (SET #copy-presets            "kopiujë ustawienia ...")
  191.     (SET #copy-workshop            "kopiujë przykîady ...")
  192.     (SET #copy-icons            "kopiujë ikonki...")
  193.     (SET #copy-gfx                "kopiujë grafikë...")
  194.     (SET #copy-text                "kopiujë teksty...")
  195.     (SET #copy-guides            "kopiujë dokumentacjë...")
  196.     (SET #copy-keyfile            "kopiujë plik-klucz...")
  197.     (SET #copy-help                "Odpowiednie pliki zostanâ skopiowane na Twój dysk twardy.")
  198. ; CHANGE
  199. ;    (SET #choose-icon            "Wybierz rodzaj ikonek do zainstalowania\n4 kolorowâ dla standardowej palety Workbencha oraz 8 kolorowâ dla palety MagicWB!")
  200. ;    (SET #choose-icon-help        "Jeôli masz wiëcej niû 4 kolory na swoim ekranie WB wybierz wersjë 8 kolorowâ.\nWyglâda znacznie lepiej.")
  201.  
  202.     (SET #choose-icon            "Please choose the the icon-set you want to install !")
  203.     (SET #choose-icon-help        "The standart version is for a 4 coulour wb.\nThe MagicWB and Iconographics versions require at least 8 colours.\nThe NewIcon versions require the newicon software.")
  204. ; CHANGE
  205.     (SET #choose-keypath        "Wybierz katalog w którym chcesz zainstalowaê swój plik-klucz")
  206.     (SET #choose-fontpath        "Wybierz katalog w którym chcesz zainstalowaê czcionki")
  207.     (SET #choose-path-help        "Moûesz wybraê dowolny katalog z wymienionych! SFX sprawdzi je wszystkie.")
  208.     (SET #choose-instmode        "SFX jest juû zainstalowany! Co mam zrobiê?")
  209.     (SET #choose-instmode-help    "W trybie \"Backup\" nazwa istniejâcëgo katalogu zostanie zmieniona na \"SFX_old\".\nW trybie aktualizacji, istniejâce pliki zostanâ zastâpione nowymi.")
  210. ; NEW
  211.     (SET #copykey-fail            "Copying of the keyfile failed !")
  212. ; NEW
  213.     (SET #exit-messy            "\n\nSFX zostaî poprawnie zainstalowany.\nProszë, przeczytaj dokumentacjë, aby dowiedzieê sië jak pracowaê z programem.")
  214.     (SET #orderform                "Orderform.polski.txt")
  215.     (SET #readme                "ReadMe#?")
  216. ))
  217. (IF (= @LANGUAGE "svenska")
  218. (
  219.     (SET #bad-kick                "SoundFX kräver åtminstone Kickstart 3.0 !")
  220.     (SET #bad-installer            "SoundFX kräver åtminstone version 43.0 av installeraren !\nDenna finns på Aminet i util/misc/Installer43.3.lha.")
  221.     (SET #welcome-messy            "\n\nVälkommen till installationen av SoundFX !\nDetta skript kommer att kopiera alla filer du behöver för att köra SoundFX till din hårddisk.")
  222.     (SET #choose-dest            "Välj var SoundFX skall installeras !\nEn låda med namnet SFX kommer automatiskt att skapas !")
  223.     (SET #choose-dest-help        "Här kan du välja var på din hårddisk som SoundFX skall installeras.")
  224.     (SET #dest-require            "\n\nSe till att du har minst 3.0 MB ledigt utrymme på hårddisken !")
  225.     (SET #copy-loader            "kopierar laddningsmoduler ...")
  226.     (SET #copy-operators        "kopierar operatormoduler ...")
  227.     (SET #copy-player            "kopierar ljudmoduler ...")
  228.     (SET #copy-rexx                "kopierar arexxskript ...")
  229.     (SET #copy-saver            "kopierar sparningsmoduler ...")
  230.     (SET #copy-executable        "kopierar körbara filen ...")
  231.     (SET #copy-fonts            "kopierar typsnitt ...")
  232.     (SET #copy-libs                "kopierar bibliotek (libraries)...")
  233.     (SET #copy-envelopes        "kopierar enveloper ...")
  234.     (SET #copy-presets            "kopierar förinställningar (presets) ...")
  235.     (SET #copy-workshop            "kopierar workshopfiler ...")
  236.     (SET #copy-icons            "kopierar ikoner ...")
  237.     (SET #copy-gfx                "kopierar grafik ...")
  238.     (SET #copy-text                "kopierar texter ...")
  239.     (SET #copy-guides            "kopierar guider ...")
  240.     (SET #copy-keyfile            "kopierar nyckelfil (Keyfile) ...")
  241.     (SET #copy-help                "Respektive filer kommer att kopieras till din hårddisk.")
  242. ; CHANGE
  243. ;    (SET #choose-icon            "Var vänlig välj vilken ikon du vill installera\nfyrfärgsikonen är gjord för standard Workbenchfärger och åttafärgsversionen är gjord för Magic-WB !")
  244. ;    (SET #choose-icon-help        "Om du inte har installerat Magic-WB tidigare, välj fyrfärgsikonen.\nOm du har installerat Magic-WB, välj åttafärgersikonen, den ser bättre ut.")
  245.  
  246.     (SET #choose-icon            "Please choose the the icon-set you want to install !")
  247.     (SET #choose-icon-help        "The standart version is for a 4 coulour wb.\nThe MagicWB and Iconographics versions require at least 8 colours.\nThe NewIcon versions require the newicon software.")
  248. ; CHANGE
  249.     (SET #choose-keypath        "Var vänlig välj var nyckelfilen skall sparas !")
  250.     (SET #choose-fontpath        "Var vänlig välj var typsnitten (fonts) skall installeras !")
  251.     (SET #choose-path-help        "Du kan välja vilken som helst av dessa ställen ! SoundFX kommer att söka på alla.")
  252.     (SET #choose-instmode        "SoundFX är redan installerat ! Vad vill du göra ?")
  253.     (SET #choose-instmode-help    "I backup-mod kommer den gamla lådan att döpas om till SFX_old.\nI update-mod kommer de redan installerade filerna skrivas över.")
  254. ; NEW
  255.     (SET #copykey-fail            "Copying of the keyfile failed !")
  256. ; NEW
  257.     (SET #exit-messy            "\n\nSoundFX har installerats klart.\nVar god läs dokumentationen för att lära dig hur man arbetar med programmet.")
  258.     (SET #orderform                "Orderform.svenska.txt")
  259.     (SET #readme                "ReadMe#?")
  260. ))
  261.  
  262. ; check kick version ----------------------------------------------------------------------------------------
  263.  
  264. (SET #vernum (GETVERSION))
  265. (SET #ver (/ #vernum 65536))
  266. (IF (< #ver 39)
  267.     (ABORT #bad-kick)
  268. )
  269.  
  270. ; check installer version -----------------------------------------------------------------------------------
  271.  
  272. (SET #vernum @INSTALLER-VERSION)
  273. (SET #ver (/ #vernum 65536))
  274. (IF (< #ver 43)
  275.     (ABORT #bad-installer)
  276. )
  277.  
  278. ; los geht`s ------------------------------------------------------------------------------------------------
  279.  
  280. (COMPLETE 0)
  281. (MESSAGE #welcome-messy)
  282.  
  283. ; mal sehn was für Drives da sind ---------------------------------------------------------------------------
  284.  
  285. (IF (= (EXISTS "music:" (NOREQ)) 2)
  286.     (SET @DEFAULT-DEST "music:")
  287. )
  288. (IF (= (EXISTS "sound:" (NOREQ)) 2)
  289.     (SET @DEFAULT-DEST "sound:")
  290. )
  291. (IF (= (EXISTS "audio:" (NOREQ)) 2)
  292.     (SET @DEFAULT-DEST "audio:")
  293. )
  294.  
  295. ; vielleicht hat er es ja auch schon mal installiert --------------------------------------------------------
  296.  
  297. (SET lastdest (GETENV "SFXPATH"))            ; cleanup old envvar
  298. (IF (> (STRLEN lastdest) 0)
  299. (
  300.     (RUN "MAKEDIR ENV:Installer")
  301.     (RUN "MAKEDIR ENV:Installer/Programs")
  302.     (RUN "COPY ENV:SFXPath ENV:Installer/Programs/SFXPath")
  303.     (RUN "MAKEDIR ENVARC:Installer")
  304.     (RUN "MAKEDIR ENVARC:Installer/Programs")
  305.     (RUN "COPY ENV:Installer/Programs/SFXPath ENVARC:Installer/Programs/SFXPath")
  306.     (RUN "DELETE ENV:SFXPath ENVARC:SFXPath")
  307. )
  308. )
  309.  
  310. (SET lastdest (GETENV "Installer/Programs/SFXPath"))        ; check if env-var exists
  311. (IF (= (STRLEN lastdest) 0)
  312. (
  313.     (SET @DEFAULT-DEST                                            ; no, use default
  314.         (ASKDIR
  315.             (PROMPT #choose-dest)
  316.             (HELP #choose-dest-help)
  317.             (DEFAULT @DEFAULT-DEST)
  318.         )
  319.     )
  320.     (MESSAGE #dest-require)
  321. )
  322. (
  323.     (SET @DEFAULT-DEST                                            ; yes
  324.         (ASKDIR
  325.             (PROMPT #choose-dest)
  326.             (HELP #choose-dest-help)
  327.             (DEFAULT lastdest)
  328.         )
  329.     )
  330. ))
  331.  
  332. (RUN (CAT "SETENV Installer/Programs/SFXPath " @DEFAULT-DEST))
  333. (RUN "MAKEDIR ENVARC:Installer")
  334. (RUN "MAKEDIR ENVARC:Installer/Programs")
  335. (RUN "COPY ENV:Installer/Programs/SFXPath ENVARC:Installer/Programs/SFXPath")
  336.  
  337. ; falls nicht vorhanden, Verzeichnis anlegen ----------------------------------------------------------------
  338. (COMPLETE 2)
  339. (SET drawer-dest @DEFAULT-DEST)
  340. (SET @DEFAULT-DEST (TACKON @DEFAULT-DEST "SFX"))
  341. (SET sfx-dest @DEFAULT-DEST)
  342. (IF (= (EXISTS sfx-dest) 0)                                    ; check if drawer exists
  343.     (MAKEDIR sfx-dest (INFOS))                                    ; no, create one
  344.     (
  345.         (IF (= (EXISTS (TACKON sfx-dest "_loaders" )) 2)            ; sfx-bin already installed
  346.             (SET bin-ex 1)
  347.             (SET bin-ex 0)
  348.         )
  349.         (IF (= (EXISTS (TACKON sfx-dest "Guides")) 2)                ; sfx-doc already installed
  350.             (SET doc-ex 1)
  351.             (SET doc-ex 0)
  352.         )
  353.         (IF (= (EXISTS (TACKON sfx-dest "Workshop")) 2)            ; sfx-data already installed
  354.             (SET data-ex 1)
  355.             (SET data-ex 0)
  356.         )
  357.         (IF (= (+ (+ bin-ex doc-ex) data-ex) 3)                    ; all three already installed
  358.         (
  359.             (SET instmode                                            ; yes, backup or update ?
  360.                 (ASKCHOICE
  361.                     (PROMPT #choose-instmode)
  362.                     (HELP #choose-instmode-help)
  363.                     (CHOICES
  364.                         "Backup old installation"
  365.                         "Udate old installation"
  366.                     )
  367.                     (DEFAULT 0)
  368.                 )
  369.             )
  370.             (IF (= instmode 0)                                        ; backup
  371.             (
  372.                 (SET sfxsub-dest (CAT sfx-dest "_old"))
  373.                 (IF (= (EXISTS sfxsub-dest) 2)                            ; delete old backup
  374.                     (RUN (CAT "DELETE " sfxsub-dest " ALL QUIET FORCE"))
  375.                 )
  376.                 (COPYFILES
  377.                     (SOURCE sfx-dest)
  378.                     (DEST sfxsub-dest)
  379.                     (ALL)
  380.                     (INFOS)
  381.                 )
  382.                 (RUN (CAT "DELETE " sfx-dest "/#?.db QUIET FORCE"))        ; delete old database files
  383.             ))
  384.         ))
  385.     )
  386. )
  387.  
  388. ; SFX-bin begin ---------------------------------------------------------------------------------------------
  389.  
  390. (IF (= (EXISTS "sfx-bin") 2)
  391. (
  392.  
  393. ; Loader ----------------------------------------------------------------------------------------------------
  394. (COMPLETE 5)
  395. (SET sfxsub-dest (TACKON sfx-dest "_loaders"))
  396. (IF (= (EXISTS sfxsub-dest) 0)
  397.     (MAKEDIR sfxsub-dest)
  398.     (RUN (CAT "DELETE " sfxsub-dest "/#?.(sfxmod|guide|modinfo) ALL QUIET FORCE"))
  399. )
  400. (COPYFILES
  401.     (PROMPT #copy-loader)
  402.     (HELP #copy-help)
  403.     (SOURCE "sfx-bin/_loaders/")
  404.     (DEST sfxsub-dest)
  405.     (ALL)
  406. )
  407.  
  408. ; Operators -------------------------------------------------------------------------------------------------
  409. (COMPLETE 8)
  410. (SET sfxsub-dest (TACKON sfx-dest "_operators"))
  411. (IF (= (EXISTS sfxsub-dest) 0)
  412.     (MAKEDIR sfxsub-dest)
  413.     (RUN (CAT "DELETE " sfxsub-dest "/#?.(sfxmod|guide|modinfo) ALL QUIET FORCE"))
  414. )
  415. (COPYFILES
  416.     (PROMPT #copy-operators)
  417.     (HELP #copy-help)
  418.     (SOURCE "sfx-bin/_operators/")
  419.     (DEST sfxsub-dest)
  420.     (ALL)
  421. )
  422.  
  423. ; Player ----------------------------------------------------------------------------------------------------
  424. (COMPLETE 15)
  425. (SET sfxsub-dest (TACKON sfx-dest "_players"))
  426. (IF (= (EXISTS sfxsub-dest) 0)
  427.     (MAKEDIR sfxsub-dest)
  428.     (RUN (CAT "DELETE " sfxsub-dest "/#?.(sfxmod|guide|modinfo) ALL QUIET FORCE"))
  429. )
  430. (COPYFILES
  431.     (PROMPT #copy-player)
  432.     (HELP #copy-help)
  433.     (SOURCE "sfx-bin/_players/")
  434.     (DEST sfxsub-dest)
  435.     (ALL)
  436. )
  437.  
  438. ; Saver -----------------------------------------------------------------------------------------------------
  439. (COMPLETE 17)
  440. (SET sfxsub-dest (TACKON sfx-dest "_savers"))
  441. (IF (= (EXISTS sfxsub-dest) 0)
  442.     (MAKEDIR sfxsub-dest)
  443.     (RUN (CAT "DELETE " sfxsub-dest "/#?.(sfxmod|guide|modinfo) ALL QUIET FORCE"))
  444. )
  445. (COPYFILES
  446.     (PROMPT #copy-saver)
  447.     (HELP #copy-help)
  448.     (SOURCE "sfx-bin/_savers/")
  449.     (DEST sfxsub-dest)
  450.     (ALL)
  451. )
  452.  
  453. ; SFX -------------------------------------------------------------------------------------------------------
  454. (COMPLETE 19)
  455. (COPYFILES
  456.     (PROMPT #copy-executable)
  457.     (HELP #copy-help)
  458.     (SOURCE "sfx-bin/sfx")
  459.     (DEST sfx-dest)
  460.     (NEWNAME "SoundFX")
  461. )
  462. (COMPLETE 23)
  463. (SET sfxsub-dest (TACKON sfx-dest "libs"))
  464. (IF (= (EXISTS sfxsub-dest) 0)
  465.     (MAKEDIR sfxsub-dest)
  466. )
  467. (COPYFILES
  468.     (PROMPT #copy-executable)
  469.     (HELP #copy-help)
  470.     (SOURCE "sfx-bin/sfxsupport.library")
  471.     (DEST sfxsub-dest)
  472. )
  473.  
  474. ))
  475.  
  476. ; SFX-bin ende ----------------------------------------------------------------------------------------------
  477.  
  478. ; SFX-data begin --------------------------------------------------------------------------------------------
  479.  
  480. (IF (= (EXISTS "sfx-data") 2)
  481. (
  482.  
  483. ; Fonts kopieren --------------------------------------------------------------------------------------------
  484. (COMPLETE 25)
  485. (SET fontpath
  486.     (ASKCHOICE
  487.         (PROMPT #choose-fontpath)
  488.         (HELP #choose-path-help)
  489.         (CHOICES
  490.             "FONTS:"
  491.             "Progdir:fonts/"
  492.         )
  493.         (DEFAULT 0)
  494.     )
  495. )
  496. (IF (= fontpath 0)
  497. (
  498.     (SET sfxsub-dest "FONTS:")
  499. ))
  500. (IF (= fontpath 1)
  501. (
  502.     (SET sfxsub-dest (TACKON sfx-dest "fonts"))
  503.     (IF (= (EXISTS sfxsub-dest) 0)
  504.         (MAKEDIR sfxsub-dest)
  505.     )
  506. ))
  507. (COPYFILES
  508.     (PROMPT #copy-fonts)
  509.     (HELP #copy-help)
  510.     (SOURCE "sfx-data/fonts/")
  511.     (DEST sfxsub-dest)
  512.     (ALL)
  513. )
  514.  
  515. ; Libs kopieren ---------------------------------------------------------------------------------------------
  516. (COMPLETE 26)
  517. (COPYLIB
  518.     (PROMPT #copy-libs)
  519.     (HELP #copy-help)
  520.     (SOURCE "sfx-data/Libs/amigaguide.library")
  521.     (DEST "LIBS:")
  522. )
  523. (COPYLIB
  524.     (PROMPT #copy-libs)
  525.     (HELP #copy-help)
  526.     (SOURCE "sfx-data/Libs/asyncio.library")
  527.     (DEST "LIBS:")
  528. )
  529.  
  530. ; Envelopes -------------------------------------------------------------------------------------------------
  531. (COMPLETE 29)
  532. (SET sfxsub-dest (TACKON sfx-dest "Envelopes"))
  533. (IF (= (EXISTS sfxsub-dest) 0)
  534.     (MAKEDIR sfxsub-dest)
  535. )
  536. (COPYFILES
  537.     (PROMPT #copy-envelopes)
  538.     (HELP #copy-help)
  539.     (SOURCE "sfx-data/Envelopes/")
  540.     (DEST sfxsub-dest)
  541.     (ALL)
  542. )
  543.  
  544. ; Module Data (.modinfo, .presets ) -------------------------------------------------------------------------
  545. (COMPLETE 31)
  546. (COPYFILES
  547.     (PROMPT #copy-presets)
  548.     (HELP #copy-help)
  549.     (SOURCE "sfx-data/")
  550.     (PATTERN "_#?")
  551.     (DEST sfx-dest)
  552. )
  553.  
  554. ; Workshop-Scripte ------------------------------------------------------------------------------------------
  555. (COMPLETE 38)
  556. (SET sfxsub-dest (TACKON sfx-dest "Workshop"))
  557. (IF (= (EXISTS sfxsub-dest) 0)
  558.     (MAKEDIR sfxsub-dest)
  559. )
  560. (COPYFILES
  561.     (PROMPT #copy-workshop)
  562.     (HELP #copy-help)
  563.     (SOURCE "sfx-data/Workshop/")
  564.     (DEST sfxsub-dest)
  565.     (ALL)
  566. )
  567.  
  568. ; Delete Old Files ------------------------------------------------------------------------------------------
  569.  
  570. (COMPLETE 40)
  571. (SET sfxsub-dest (TACKON sfx-dest "Synths"))
  572. (IF (= (EXISTS sfxsub-dest) 1)
  573.     (RUN (CAT "DELETE " sfxsub-dest " ALL QUIET FORCE"))
  574. )
  575. (COMPLETE 41)
  576. (SET sfxsub-dest (TACKON sfx-dest "EqShps"))
  577. (IF (= (EXISTS sfxsub-dest) 1)
  578.     (RUN (CAT "DELETE " sfxsub-dest " ALL QUIET FORCE"))
  579. )
  580.  
  581. ; Icon ------------------------------------------------------------------------------------------------------
  582. (COMPLETE 42)
  583. (SET icon
  584.     (ASKCHOICE
  585.         (PROMPT #choose-icon)
  586.         (HELP #choose-icon-help)
  587.         (CHOICES
  588.             "Standart"
  589.             "Magic WB"
  590.             "NewIcons"
  591.             "AristIcons (NewIcons)"
  592.             "Iconographics"
  593.         )
  594.         (DEFAULT 0)
  595.     )
  596. )
  597. (SET sfxsub-dest (TACKON sfx-dest "Guides"))
  598. (IF (= icon 0)
  599.     (SET icon-dest "sfx-data/icons_std")
  600. )
  601. (IF (= icon 1)
  602.     (SET icon-dest "sfx-data/icons_mwb")
  603. )
  604. (IF (= icon 2)
  605.     (SET icon-dest "sfx-data/icons_ni")
  606. )
  607. (IF (= icon 3)
  608.     (SET icon-dest "sfx-data/icons_arist")
  609. )
  610. (IF (= icon 4)
  611.     (SET icon-dest "sfx-data/icons_icgfx")
  612. )
  613.  
  614. (COPYFILES
  615.     (PROMPT #copy-icons)
  616.     (HELP #copy-help)
  617.     (SOURCE (TACKON icon-dest "SoundFX.info"))
  618.     (DEST sfx-dest)
  619. )
  620. (COPYFILES
  621.     (PROMPT #copy-icons)
  622.     (HELP #copy-help)
  623.     (SOURCE (TACKON icon-dest "Guides.info"))
  624.     (DEST sfx-dest)
  625. )
  626. (COPYFILES
  627.     (PROMPT #copy-icons)
  628.     (HELP #copy-help)
  629.     (SOURCE (TACKON icon-dest "SFX.guide.info"))
  630.     (DEST sfxsub-dest)
  631. )
  632. (COPYFILES
  633.     (PROMPT #copy-icons)
  634.     (HELP #copy-help)
  635.     (SOURCE (TACKON icon-dest "Form.info"))
  636.     (DEST sfx-dest)
  637.     (NEWNAME (CAT #orderform ".info"))
  638. )
  639. (COPYFILES
  640.     (PROMPT #copy-icons)
  641.     (HELP #copy-help)
  642.     (SOURCE (TACKON icon-dest "SoundDir.info"))
  643.     (DEST drawer-dest)
  644.     (NEWNAME "sfx.info")
  645. )
  646.  
  647. ; GFX -------------------------------------------------------------------------------------------------------
  648. (COMPLETE 47)
  649. (COPYFILES
  650.     (PROMPT #copy-gfx)
  651.     (HELP #copy-help)
  652.     (SOURCE "sfx-data/SFX-Titel.rawbrush")
  653.     (DEST sfx-dest)
  654.     (ALL)
  655. )
  656.  
  657. ; Keyfile kopieren ------------------------------------------------------------------------------------------
  658.  
  659. (SET key-ex 0)
  660.  
  661. (IF (= (EXISTS "devs:keyfiles/sfx.key") 1)            ; testen ob key bereits existiert
  662.     (SET key-ex 1)
  663.     (IF (= instmode 0)
  664.     (
  665.         (IF (= (EXISTS (CAT sfx-dest "_old/sfx.key")) 1)
  666.             (SET key-ex 1)
  667.         )
  668.         (IF (= (EXISTS (CAT sfx-dest "_old/Keyfiles/sfx.key")) 1)
  669.             (SET key-ex 1)
  670.         )
  671.     )
  672.     )
  673. )
  674. (IF (= key-ex 0)                                    ; nein -> checken, ob Disk im Laufwerk ist
  675. (
  676.     (IF (= (EXISTS "SoundFX:" (NOREQ)) 1)
  677.     (
  678.         (COMPLETE 51)
  679.         (SET keypath
  680.             (ASKCHOICE
  681.                 (PROMPT #choose-keypath)
  682.                 (HELP #choose-path-help)
  683.                 (CHOICES
  684.                     "DEVS:keyfiles/"
  685.                     "Progdir:keyfiles/"
  686.                     "Progdir:"
  687.                 )
  688.                 (DEFAULT 0)
  689.             )
  690.         )
  691.         (IF (= keypath 0)
  692.         (
  693.             (SET sfxsub-dest "DEVS:keyfiles")
  694.             (IF (= (EXISTS sfxsub-dest) 0)
  695.                 (MAKEDIR sfxsub-dest (INFOS))
  696.             )
  697.         ))
  698.         (IF (= keypath 1)
  699.         (
  700.             (SET sfxsub-dest (TACKON sfx-dest "keyfiles"))
  701.             (IF (= (EXISTS sfxsub-dest) 0)
  702.                 (MAKEDIR sfxsub-dest)
  703.             )
  704.         ))
  705.         (IF (= keypath 2)
  706.         (
  707.             (SET sfxsub-dest sfx-dest)
  708.         ))
  709.         (COMPLETE 53)
  710.         (SET copykey 1)
  711.         (COPYFILES                            ; versuche Key von der Disk zu kopieren
  712.             (PROMPT #copy-keyfile)
  713.             (HELP #copy-help)
  714.             (SOURCE "SoundFX:SFX.key")
  715.             (DEST sfxsub-dest)
  716.             (OPTIONAL "nofail")
  717.         )
  718.         (TRAP 4 (SET copykey 0))            ; testen ob's geklappt hat
  719.  
  720.         (IF (= copykey 0)
  721.         (
  722.           (SET copykey 1)
  723.           (COPYFILES                        ; mit 1. Kopie nochmal versuchen
  724.             (PROMPT #copy-keyfile)
  725.             (HELP #copy-help)
  726.             (SOURCE "SoundFX:SFX.key_1")
  727.             (DEST sfxsub-dest)
  728.             (NEWNAME "sfx.key")
  729.             (OPTIONAL "nofail")
  730.           )
  731.           (TRAP 4 (SET copykey 0))            ; testen ob's geklappt hat
  732.         ))
  733.         (IF (= copykey 0)
  734.         (
  735.           (SET copykey 1)
  736.           (COPYFILES                        ; mit 2. Kopie nochmal versuchen
  737.             (PROMPT #copy-keyfile)
  738.             (HELP #copy-help)
  739.             (SOURCE "SoundFX:SFX.key_2")
  740.             (DEST sfxsub-dest)
  741.             (NEWNAME "sfx.key")
  742.             (OPTIONAL "nofail")
  743.           )
  744.           (TRAP 4 (SET copykey 0))            ; testen ob's geklappt hat
  745.         ))
  746.         (IF (= copykey 0)
  747.         (
  748.           (SET copykey 1)
  749.           (COPYFILES                        ; mit 3. Kopie nochmal versuchen
  750.             (PROMPT #copy-keyfile)
  751.             (HELP #copy-help)
  752.             (SOURCE "SoundFX:SFX.key_3")
  753.             (DEST sfxsub-dest)
  754.             (NEWNAME "sfx.key")
  755.             (OPTIONAL "nofail")
  756.           )
  757.           (TRAP 4 (SET copykey 0))            ; testen ob's geklappt hat
  758.         ))
  759.         (IF (= copykey 0)
  760.             (MESSAGE #copykey-fail)
  761.         )
  762.     ))
  763. ))
  764.  
  765. ))
  766.  
  767. ; SFX-data ende ---------------------------------------------------------------------------------------------
  768.  
  769. ; SFX-doc begin ---------------------------------------------------------------------------------------------
  770.  
  771. (IF (= (EXISTS "sfx-doc") 2)
  772. (
  773.  
  774. ; Guide -----------------------------------------------------------------------------------------------------
  775.  
  776. (COMPLETE 55)
  777. (COPYFILES
  778.     (PROMPT #copy-text)
  779.     (HELP #copy-help)
  780.     (SOURCE "sfx-doc/")
  781.     (FILES)
  782.     (PATTERN #readme)
  783.     (DEST sfx-dest)
  784. )
  785. (COPYFILES
  786.     (PROMPT #copy-text)
  787.     (HELP #copy-help)
  788.     (SOURCE "sfx-doc/")
  789.     (FILES)
  790.     (PATTERN #orderform)
  791.     (DEST sfx-dest)
  792. )
  793. (COMPLETE 58)
  794. (SET sfxsub-dest (TACKON sfx-dest "Guides"))
  795. (IF (= (EXISTS sfxsub-dest) 0)
  796.     (MAKEDIR sfxsub-dest)
  797. )
  798. (COPYFILES
  799.     (PROMPT #copy-guides)
  800.     (HELP #copy-help)
  801.     (SOURCE "sfx-doc/Guides/")
  802.     (FILES)
  803.     (PATTERN "#?.guide")
  804.     (DEST sfxsub-dest)
  805. )
  806.  
  807. (COMPLETE 62)
  808. (SET sfxsub-dest (TACKON sfx-dest "Guides/Workshop"))
  809. (IF (= (EXISTS sfxsub-dest) 0)
  810.     (MAKEDIR sfxsub-dest)
  811. )
  812. (COPYFILES
  813.     (PROMPT #copy-guides)
  814.     (HELP #copy-help)
  815.     (SOURCE "sfx-doc/Guides/Workshop/")
  816.     (FILES)
  817.     (PATTERN "#?.rexx")
  818.     (DEST sfxsub-dest)
  819. )
  820.  
  821. (COMPLETE 66)
  822. (SET sfxsub-dest (TACKON sfx-dest "_loaders"))
  823. (IF (= (EXISTS sfxsub-dest) 0)
  824.     (MAKEDIR sfxsub-dest)
  825. )
  826. (COPYFILES
  827.     (PROMPT #copy-guides)
  828.     (HELP #copy-help)
  829.     (SOURCE "sfx-doc/Guides/Loaders/")
  830.     (DEST sfxsub-dest)
  831.     (ALL)
  832. )
  833.  
  834. (COMPLETE 72)
  835. (SET sfxsub-dest (TACKON sfx-dest "_operators"))
  836. (IF (= (EXISTS sfxsub-dest) 0)
  837.     (MAKEDIR sfxsub-dest)
  838. )
  839. (COPYFILES
  840.     (PROMPT #copy-guides)
  841.     (HELP #copy-help)
  842.     (SOURCE "sfx-doc/Guides/Operators/")
  843.     (DEST sfxsub-dest)
  844.     (ALL)
  845. )
  846.  
  847. (COMPLETE 82)
  848. (SET sfxsub-dest (TACKON sfx-dest "_players"))
  849. (IF (= (EXISTS sfxsub-dest) 0)
  850.     (MAKEDIR sfxsub-dest)
  851. )
  852. (COPYFILES
  853.     (PROMPT #copy-guides)
  854.     (HELP #copy-help)
  855.     (SOURCE "sfx-doc/Guides/Players/")
  856.     (DEST sfxsub-dest)
  857.     (ALL)
  858. )
  859.  
  860. (COMPLETE 86)
  861. (SET sfxsub-dest (TACKON sfx-dest "_rexx"))
  862. (IF (= (EXISTS sfxsub-dest) 0)
  863.     (MAKEDIR sfxsub-dest)
  864. )
  865. (COPYFILES
  866.     (PROMPT #copy-guides)
  867.     (HELP #copy-help)
  868.     (SOURCE "sfx-doc/Guides/Rexx/")
  869.     (DEST sfxsub-dest)
  870.     (ALL)
  871. )
  872.  
  873. (COMPLETE 92)
  874. (SET sfxsub-dest (TACKON sfx-dest "_savers"))
  875. (IF (= (EXISTS sfxsub-dest) 0)
  876.     (MAKEDIR sfxsub-dest)
  877. )
  878. (COPYFILES
  879.     (PROMPT #copy-guides)
  880.     (HELP #copy-help)
  881.     (SOURCE "sfx-doc/Guides/Savers/")
  882.     (DEST sfxsub-dest)
  883.     (ALL)
  884. )
  885.  
  886. ))
  887.  
  888. ; SFX-doc ende ----------------------------------------------------------------------------------------------
  889.  
  890. ; Fertig ----------------------------------------------------------------------------------------------------
  891. (COMPLETE 100)
  892. (EXIT #exit-messy)
  893. ; Install-SFX Ende ------------------------------------------------------------------------------------------
  894.