home *** CD-ROM | disk | FTP | other *** search
/ Amiga MA Magazine 1997 #3 / amigamamagazinepolishissue03-1 / my_favourite / soliton / soliton-install < prev    next >
Text File  |  1997-03-09  |  23KB  |  476 lines
  1. ;-------------------------------------------------------------------------------
  2. ;   Installation script for Soliton by Kai Nickel                 (1997-03-09)
  3. ;-------------------------------------------------------------------------------
  4. ;
  5. ; TRANSLATIONS:
  6. ; -------------
  7. ;
  8. ; 1. Append new language at "Ask Language"
  9. ;
  10. ; 2. Create a new section like "Deutsch" or "Francais" and override
  11. ;    as many of the english default strings as you like there.
  12. ;
  13. ; 3. Don't forget to change the if (= #LANG <nr>) in you new section
  14. ;    to the number of your new language.
  15. ;
  16. ; HINT: all translation-relevant parts are marked with ******
  17. ; -----
  18. ;
  19. ;*******************************************************************************
  20. ;*                         Ask Language                                        *
  21. ;*******************************************************************************
  22.  
  23. (complete 0)
  24.  
  25. (set #LANG
  26.   (askchoice
  27.     (prompt
  28.       "Wählen Sie ihre bevorzugte Sprache:\n"
  29.       "Select your preferred Language:\n"
  30.       "Sélectionnez votre langue préférée :\n"
  31.       "Välj det språk du föredrar:\n"
  32.       "Seleziona la lingua preferita:"
  33.     )
  34.     (help
  35.       "Wählen Sie bitte Ihre bevorzugte Sprache.\n\n"
  36.       "Please select your prefered language.\n\n"
  37.       "Vous êtes prié de choisir votre langue préférée.\n\n"
  38.       "Var god välj det språk du föredrar.\n\n"
  39.       "Seleziona la tua lingua preferita."
  40.     )
  41.     (choices
  42.       "english"                       ; ****************************
  43.       "deutsch"                       ; * append new language here *
  44.       "français"                      ; ****************************
  45.       "svenska"                       ; *
  46.       "norsk"                         ; *
  47.       "italiano"                      ; *
  48.       ;**********************************
  49.     )
  50.     (default 0)
  51.   )
  52. )
  53.  
  54.  
  55. ;*******************************************************************************
  56. ;*                    English default strings                                  *
  57. ;*******************************************************************************
  58. ;*
  59. ;* Installation strings. Override them in your language section, if you want.
  60. ;* Override-example is given in the following section "Deutsch".
  61. ;*
  62. (set #WELCOME        "Welcome to Soliton installation!\n\nThis script will copy all files you need to run Soliton in a drawer you choose.\nYou can also install a new version over an existing one. Except the default cardset your own cardsets will not be touched.\n")
  63. (set #MSG_MUI        "Warning: Soliton needs MUI 3.6 or higher!\n\nIt seems that you haven't installed the required MUI version. Anyway, you may continue if you think that this warning is wrong or if you are going to install MUI later\n")
  64. (set #MSG_OLDOS      "Soliton needs AmigaOS 3.0 or higher, because the cardsets are loaded via datatypes.")
  65. (set #MSG_PATH       "Choose path where new drawer 'Soliton' should be created.")
  66. (set #MSG_PATH_HELP  "In the choosen path a new drawer named 'Soliton' will be created, in which Soliton and its files will be copied.\nAbout 180KB will be needed for the installation.\n\nYou also may create a new drawer via 'Make New Drawer' before.\n")
  67. (set #MSG_MAIN       "Install the main program 'Soliton'")
  68. (set #MSG_MAIN_HELP  "The main program Soliton. The documentation has to be in the same drawer.\n")
  69. (set #MSG_GUIDE      "Install the documentation 'Soliton.guide'")
  70. (set #MSG_GUIDE_HELP "'Soliton.guide' is the documentation and online-help.\nIt must be placed into the same drawer as the main program.\n")
  71. (set #MSG_CARDS      "Copy cardsets and patterns")
  72. (set #MSG_CARDS_HELP "There are cardsets as image containing all cards or as directory with a file for each card.")
  73. (set #MSG_ICONS      "What icons do you want?")
  74. (set #MSG_ICONS_HELP "For the files exist icons in ths MagicWB-style.\n\nIf you do not have MagicWB, you also should not install these icons.\n(MagicWB is a Workbench-enhancment by Martin Huttenloher.)")
  75. (set #MSG_DOICONS    "Install the MagicWB icons.")
  76. (set #MSG_CAT        "Install 'Soliton.catalog'.")
  77. (set #MSG_CATDIR     "Create directory for Soliton.catalog.")
  78. (set #MSG_CAT_HELP   "Soliton.catalog contains the program texts in your language. Without catalog Soliton runs in english.\n")
  79. (set #EXTRAS         "Install Extras (ImageFX scripts)")
  80. (set #EXTRAS_HELP    "The 'Extras' directory contains scripts for ImageFX to convert cardsets from Cyberpatience and Reko to Soliton format.")
  81. ;*
  82. ;* Path and name of the guide belonging to the language.
  83. ;* Don't override this string, if there is no guide in your language.
  84. ;*
  85. (set #GUIDE          "Docs/English/Soliton.guide")
  86. ;*
  87. ;* Path of the catalog belonging your language.
  88. ;* Don't override this string, if there is no catalog in your language.
  89. ;*
  90. (set #CATDIR         "")
  91.  
  92. ;*******************************************************************************
  93. ;*                 Deutsch (#1) - overrides all strings                        *
  94. ;*******************************************************************************
  95.  
  96. (if (= #LANG 1) (
  97.   (set #WELCOME        "Willkommen zur Soliton-Installation!\n\nDieses Skript kopiert alle notwendigen Dateien in ein Verzeichnis ihrer Wahl.\nSie können eine neue Version auch einfach über eine vorhandene Soliton-Installation installieren. Außer dem mitgelieferten Default-Cardset werden evtl. vorhandene eigene Spielkartensätze nicht beeinflußt.\n")
  98.   (set #MSG_MUI        "Warnung: Soliton benötigt MUI3.6 oder höher.\n\nEs scheint, daß die benötigte MUI Version nicht vorhanden ist. Sie können Soliton trotzdem installieren, wenn Sie diese Warnung für falsch halten oder MUI später installieren werden.\n")
  99.   (set #MSG_OLDOS      "Soliton benötigt AmigaOS 3.0 oder höher, da die Spielkarten per Datatypes geladen werden.")
  100.   (set #MSG_PATH       "Wählen Sie das Verzeichnis, in dem die Schublade 'Soliton' erzeugt werden soll.")
  101.   (set #MSG_PATH_HELP  "Im gewählten Pfad wird ein neues Verzeichnis namens 'Soliton' erzeugt, in das Soliton und die zugehörigen Dateien kopiert werden.\nEs werden etwa 180KB für die Installation benötigt.\n\nSie können mit 'Make New Drawer' auch zuerst ein neues Verzeichnis erstellen.\n")
  102.   (set #MSG_MAIN       "Installieren des Hauptprogramms 'Soliton'")
  103.   (set #MSG_MAIN_HELP  "Das Hauptprogramm Soliton. Die Dokumentation muß sich später im selben Verzeichnis befinden.\n")
  104.   (set #MSG_GUIDE      "Installieren der Dokumentation 'Soliton.guide'")
  105.   (set #MSG_GUIDE_HELP "'Soliton.guide' ist Dokumentation und gleichzeitig Online-Hilfe.\nSie muß in das gleiche Verzeichnis wie das Hauptprogramm.")
  106.   (set #MSG_CARDS      "Spielkarten und Hintergrundmuster kopieren")
  107.   (set #MSG_CARDS_HELP "Die Spielkartensätze liegen entweder als Bild mit allen Karten vor, oder aber als Verzeichnis mit einer Datei für jede Karte.")
  108.   (set #MSG_ICONS      "Was für Icons möchten sie?")
  109.   (set #MSG_ICONS_HELP "Für die installierten Files stehen Piktogramme im MagicWB-Stil zur Verfügung.\n\nWenn sie kein MagicWB installiert haben, sollten sie diese Icons auch nicht verwenden.\n(MagicWB ist eine Workbench-Erweiterung von Martin Huttenloher.)")
  110.   (set #MSG_DOICONS    "Kopieren der MagicWB-Icons.")
  111.   (set #MSG_CAT        "Den deutschen 'Soliton.catalog' installieren.")
  112.   (set #MSG_CATDIR     "Verzeichnis für deutschen Katalog erzeugen.")
  113.   (set #MSG_CAT_HELP   "Der Soliton.catalog enthält alle deutschen Programmtexte. Wer ihn nicht installiert, muß Soliton in Englisch ertragen.\n")
  114.   (set #EXTRAS         "'Extras' installieren (ImageFX-Skripts)")
  115.   (set #EXTRAS_HELP    "Das 'Extras'-Verzeichnis enthält Skripts für ImageFX, um Cyberpatience- und Reko-Karten ins Soliton-Format zu konvertieren.")
  116.  
  117.   (set #GUIDE          "Docs/Deutsch/Soliton.guide")
  118.   (set #CATDIR         "Catalogs/Deutsch")
  119. ) )
  120.  
  121. ;*******************************************************************************
  122. ;*               Francais (#2) -                                               *
  123. ;*******************************************************************************
  124.  
  125. (if (= #LANG 2) (
  126. (set #WELCOME "Bienvenue pour l'installation de Soliton\n\nCe script va copier tous les fichiers requis par Soliton dans un tiroir.\nVous pouvez également écraser une ancienne version. Vos jeux de cartes ne seront pas touchés.\n")
  127.   (set #MSG_MUI        "Vous n'avez pas MUI (ou seulement une vieille version).\nSoliton a besoin de MUI 3.6 ou supérieure.\n\nVous pouvez installer Soliton, mais il ne marchera pas tant qu'une nouvelle version de MUI ne sera pas aussi installée.\n")
  128.   (set #MSG_OLDOS      "Soliton a besoin de l'AmigaOS 3.0 ou supérieur, car les jeux de cartes sont chargés via les datatypes.")
  129.   (set #MSG_PATH       "Choisissez le chemin où le tiroir « Soliton » devrait être créé.")
  130.   (set #MSG_PATH_HELP  "Dans le chemin choisi un tiroir « Soliton » sera créé, où Soliton et ses fichiers seront copiés.\nEnviron 180 ko sont nécessaires pour l'installation.\n\nVous pouvez aussi créer un nouveau tiroir.\n")
  131.   (set #MSG_MAIN       "Installer le programme « Soliton »")
  132.   (set #MSG_MAIN_HELP  "Le programme « Soliton ». La documentation doit être dans le même tiroir.\n")
  133.   (set #MSG_GUIDE      "Installer la documentation « Soliton.guide »")
  134.   (set #MSG_GUIDE_HELP "« Soliton.guide » est la documentation et l'aide en ligne.\nIl doit être placé dans le même tiroir que le programme.\n")
  135.   (set #MSG_CARDS      "Copier jeux de cartes et motifs")
  136.   (set #MSG_CARDS_HELP "Il y a des jeux de cartes en tant qu'images contenant toutes les cartes ou en tant que répertoires où chaque carte est un fichier.")
  137.   (set #MSG_ICONS      "Quelles icônes voulez-vous ?")
  138.   (set #MSG_ICONS_HELP "Il y a des icônes dans le style MagicWB.\n\nSi vous n'avez pas MagicWB, vous ne devriez pas installer ces icônes.\n(MagicWB est une amélioration du Workbench par Martin Huttenloher.)")
  139.   (set #MSG_DOICONS    "Installer les icônes MagicWB.")
  140.   (set #MSG_CAT        "Installer « Soliton.catalog ».")
  141.   (set #MSG_CATDIR     "Créer le répertoire pour Soliton.catalog.")
  142.   (set #MSG_CAT_HELP   "« Soliton.catalog » contient les textes correspondant à votre langue. Sans ce catalogue Soliton se lance en anglais.\n")
  143.  
  144.   (set #CATDIR         "Catalogs/Français")
  145.   (set #GUIDE          "Docs/Français/Soliton.guide")
  146. ) )
  147.  
  148. ;*******************************************************************************
  149. ;*               Svenska (#3) -                                                *
  150. ;*******************************************************************************
  151.  
  152. (if (= #LANG 3) (
  153.   (set #WELCOME
  154.     (cat
  155.       "Välkommen till Installeraren för Soliton!\n\n"
  156.       "Det här programmet kopierar alla filer du behöver för att spela "
  157.       "Soliton till en låda som du väljer.\n"
  158.       "Du kan också installera en ny version över en äldre version. "
  159.       "Förutom den förvalda kortleken kommer inte dina kortlekar att "
  160.       "påverkas.\n"
  161.     )
  162.   )
  163.   (set #MSG_MUI
  164.     (cat
  165.       "Du har inte MUI installerad (eller så har du en gammal version).\n"
  166.       "Soliton behöver MUI version 3.6 eller högre.\n\n"
  167.       "Du kan installera Soliton nu, men det kommer inte att fungera "
  168.       "förrän du har installerat en ny version av MUI.\n"
  169.     )
  170.   )
  171.   (set #MSG_OLDOS
  172.     (cat
  173.       "Soliton behöver AmigaOS version 3.0 eller högre, eftersom "
  174.       "kortlekarna laddas med hjälp av datatyper."
  175.     )
  176.   )
  177.   (set #MSG_PATH "Välj den låda där du vill att lådan 'Soliton' ska skapas.")
  178.   (set #MSG_PATH_HELP
  179.     (cat
  180.       "I den valda lådan kommer en ny låda kallad 'Soliton' att skapas, "
  181.       "till vilken Soliton och de tillhörande filerna kommer att kopieras.\n"
  182.       "Ungeför 180 KB ledigt utrymme behövs för installationen.\n\n"
  183.       "Du kan också skapa en ny låda med hjälp av knappen 'Skapa ny "
  184.       "låda...'.\n"
  185.     )
  186.   )
  187.   (set #MSG_MAIN       "Installera huvudprogrammet 'Soliton'.")
  188.   (set #MSG_MAIN_HELP
  189.     (cat
  190.       "Huvudprogrammet, Soliton. Dokumentationen måste vara i samma låda.\n"
  191.     )
  192.   )
  193.   (set #MSG_GUIDE      "Installera dokumentationen 'Soliton.guide'.")
  194.   (set #MSG_GUIDE_HELP
  195.     (cat
  196.       "'Soliton.guide' är dokumentationen och direkthjälpen.\n"
  197.       "Den måste finnas i samma låda som huvudprogrammet.\n"
  198.     )
  199.   )
  200.   (set #MSG_CARDS      "Kopiera kortlekar och bakgrunder.")
  201.   (set #MSG_CARDS_HELP
  202.     (cat
  203.       "Det finns kortlekar i form av en bild som innehåller alla kort, "
  204.       "eller som en låda med en fil för varje kort."
  205.     )
  206.   )
  207.   (set #MSG_ICONS      "Vilka ikoner vill du ha?")
  208.   (set #MSG_ICONS_HELP
  209.     (cat
  210.       "För filerna finns det ikoner i MagicWB-stilen.\n\n"
  211.       "Om du inte har MagicWB, bör du inte heller installera de här "
  212.       "ikonerna.\n"
  213.       "(MagicWB är en Workbench-förbättring av Martin Huttenloher.)"
  214.     )
  215.   )
  216.   (set #MSG_DOICONS    "Installera MagicWB-ikonerna.")
  217.   (set #MSG_CAT        "Installera 'Soliton.catalog'.")
  218.   (set #MSG_CATDIR     "Skapar katalog för Soliton.catalog.")
  219.   (set #MSG_CAT_HELP
  220.     (cat
  221.       "Soliton.catalog innehåller programtexterna på ditt språk. Utan "
  222.       "katalogen kommer Soliton att använda engelska.\n"
  223.     )
  224.   )
  225.   (set #CATDIR         "Catalogs/Svenska")
  226. ) )
  227.  
  228.  
  229. ;*******************************************************************************
  230. ;*               Norsk (#4)                                                    *
  231. ;*******************************************************************************
  232.  
  233. (if (= #LANG 4) (
  234.   (set #WELCOME        "Velkommen til installasjonsprogrammet\nfor Soliton!\n\nDette programmet vil kopiere alle filene du trenger for å kjøre Soliton til den skuffen du velger.\nDu kan også installere en ny versjon over en eldre. Bare standard-kortstokken vil endres. Dine egne kortstokker vil ikke bli rørt.\n")
  235.   (set #MSG_MUI        "Du har ikke MUI, eller du har en for gammel versjon av MUI. Soliton trenger MUI 3.6 eller høyere.\n\nDu kan installere Soliton nå, men det vil ikke virke før du installerer en ny versjon av MUI også.\n")
  236.   (set #MSG_OLDOS      "Soliton trenger AmigaOS 3.0 eller høyere fordi korstokkene hentes v.h.a. datatyper.")
  237.   (set #MSG_PATH       "Velg skuffen eller området der du vil opprette skuffen 'Soliton'.")
  238.   (set #MSG_PATH_HELP  "En skuff 'Soliton' vil bli opprettet i den valgte skuffen/området. Soliton og tilhørende filer vil bli lagt der.\n\nInstallasjonen vil trenge ca. 180 KB.\n\nDu kan også lage en ny skuff med 'Lag en skuff' på forhånd.\n")
  239.   (set #MSG_MAIN       "Installasjon av hovedprogrammet 'Soliton'")
  240.   (set #MSG_MAIN_HELP  "Hovedprogrammet Soliton. Dokumentasjonen må legges i samme skuff.\n")
  241.   (set #MSG_GUIDE      "Installasjon av dokumentasjonen 'Soliton.guide'")
  242.   (set #MSG_GUIDE_HELP "'Soliton.guide' inneholder dokumentasjon og online-hjelp.\nDen må plasseres i samme skuff som hovedprogrammet.\n")
  243.   (set #MSG_CARDS      "Kopiere kortstokker og mønstre")
  244.   (set #MSG_CARDS_HELP "Kortstokkene finnes enten som bilder av samtlige kort, eller som skuffer med ei fil for hvert enkelt kort.")
  245.   (set #MSG_ICONS      "Hvilke ikoner vil du bruke?")
  246.   (set #MSG_ICONS_HELP "Det finnes ikoner for filene i MagicWB-stil.\n\nHvis du ikke har MagicWB er det liten vits i å installere disse ikonene.\n(MagicWB er et Workbench-tillegg lagd av Martin Huttenloher.)")
  247.   (set #MSG_DOICONS    "Installere MagicWB-ikonene.")
  248.   (set #MSG_CAT        "Installere 'Soliton.catalog'.")
  249.   (set #MSG_CATDIR     "Lage skuff for Soliton.catalog.")
  250.   (set #MSG_CAT_HELP   "Soliton.catalog inneholder program-tekstene på ditt språk. Uten katalog vil Soliton vise engelske tekster.\n")
  251.  
  252.   (set #GUIDE          "Docs/Norsk/Soliton.guide")
  253.   (set #CATDIR         "Catalogs/Norsk")
  254. ) )
  255.  
  256.  
  257. ;*******************************************************************************
  258. ;*              Italiano (#5)                                                  *
  259. ;*******************************************************************************
  260.  
  261. (if (= #LANG 5) (
  262.   (set #WELCOME        "Benvenuto nell'installazione di Soliton!\n\nQuesto script copierà tutti i file necessari per eseguire Soliton in un cassetto a tua scelta.\nPuoi inoltre installare una nuova versione sopra una già esistente. I tuoi mazzi di carte non saranno toccati, ad eccezione di quello predefinito .\n")
  263.   (set #MSG_MUI        "Non hai MUI (o hai solo una versione datata).\nSoliton richiede MUI 3.6 o successiva.\n\nPuoi installare Soliton ora, ma non funzionerà fino a quando non installerai una nuova versione di MUI.\n")
  264.   (set #MSG_OLDOS      "Soliton richiede AmigaOS 3.0 o successivo, dato che carica i mazzi di carte mediante i datatype.")
  265.   (set #MSG_PATH       "Scegli il percorso dove deve essere creato il nuovo cassetto 'Soliton'.")
  266.   (set #MSG_PATH_HELP  "Nel percorso scelto sarà creato un nuovo cassetto chiamato 'Soliton', nel quale saranno poi copiati Soliton e i suoi file.\nPer l'istallazione aranno necessari circa 180KB.\n\nPuoi anche creare prima un nuovo cassetto con 'Crea nuovo cassetto...'.\n")
  267.   (set #MSG_MAIN       "Installo il programma principale 'Soliton'")
  268.   (set #MSG_MAIN_HELP  "Il programma principale Soliton. La documentazione deve trovarsi nello stesso cassetto.\n")
  269.   (set #MSG_GUIDE      "Installo la documentazione 'Soliton.guide'")
  270.   (set #MSG_GUIDE_HELP "'Soliton.guide' è la documentazione e l'aiuto in linea.\nDeve essere posta nello stesso cassetto del programma principale.\n")
  271.   (set #MSG_CARDS      "Copio i mazzi di carte e i motivi")
  272.   (set #MSG_CARDS_HELP "Ci sono mazzi di carte come file immagine contenenti tutte le carte o come directory con un file per ogni carta.")
  273.   (set #MSG_ICONS      "Come vuoi le icone?")
  274.   (set #MSG_ICONS_HELP "Per i file sono disponibili delle icone in stile MagicWB.\n\nSe non hai MagicWB, non dovresti installare queste icone.\n(MagicWB è una miglioria al Workbench di Martin Huttenloher.)")
  275.   (set #MSG_DOICONS    "Installo le icone MagicWB.")
  276.   (set #MSG_CAT        "Installo 'Soliton.catalog'.")
  277.   (set #MSG_CATDIR     "Creo la directory per Soliton.catalog.")
  278.   (set #MSG_CAT_HELP   "Soliton.catalog contiene i testi del programma nella tua lingua. Senza catalogo Soliton utilizza l'inglese.\n")
  279.  
  280.   (set #GUIDE          "Docs/Italiano/Soliton.guide")
  281.  
  282.   (set #CATDIR         "Catalogs/Italiano")
  283. ) )
  284.  
  285. ;*******************************************************************************
  286. ;*                                                                             *
  287. ;*             ! NOTHING MORE TO TRANSLATE BEYOND THIS POINT !                 *
  288. ;*                                                                             *
  289. ;*******************************************************************************
  290.  
  291.  
  292.  
  293. (message #WELCOME)
  294.  
  295. ;-------------------------------------------------------------------------------
  296. ;                            Check OS and MUI versions
  297. ;-------------------------------------------------------------------------------
  298.  
  299.  
  300. (complete 10)
  301.  
  302. (set #OSVersion (/ (getversion) 65536))
  303. (if (< #OSVersion 39)
  304.   (message #MSG_OLDOS)
  305. )
  306.  
  307.  
  308. (if (exists ("LIBS:Muimaster.library"))
  309.   (
  310.     (set #MUIVER (/ (getversion "LIBS:Muimaster.library") 65536))
  311.     (if (< #MUIVER 17)
  312.       (message #MSG_MUI)
  313.     )
  314.   )
  315.   (message #MSG_MUI)
  316. )
  317.  
  318.  
  319. ;-------------------------------------------------------------------------------
  320. ;                            Get and creat path
  321. ;-------------------------------------------------------------------------------
  322.  
  323. (complete 20)
  324.  
  325. (set #DESTINATION
  326.   (askdir (prompt  #MSG_PATH)
  327.           (help    #MSG_PATH_HELP)
  328.           (default @default-dest)
  329.   )
  330. )
  331.  
  332. (set #DESTINATION (tackon #DESTINATION "Soliton"))
  333.  
  334. (set @default-dest #DESTINATION)
  335.  
  336. (makedir #DESTINATION
  337.   (help @makedir-help)
  338.   (infos)
  339. )
  340.  
  341.  
  342.  
  343.  
  344. ;-------------------------------------------------------------------------------
  345. ;                            Copy main and guide
  346. ;-------------------------------------------------------------------------------
  347.  
  348. (complete 30)
  349.  
  350. (copyfiles (prompt #MSG_MAIN)
  351.            (source "Soliton")
  352.            (dest #DESTINATION)
  353.            (confirm)
  354.            (infos)
  355.            (noposition)
  356.            (help #MSG_MAIN_HELP)
  357. )
  358.  
  359. (complete 50)
  360.  
  361. (copyfiles (prompt #MSG_GUIDE)
  362.            (source #GUIDE)
  363.            (dest   #DESTINATION)
  364.            (confirm)
  365.            (infos)
  366.            (noposition)
  367.            (help #MSG_GUIDE_HELP)
  368. )
  369.  
  370. ;-------------------------------------------------------------------------------
  371. ;                            Copy catalog
  372. ;-------------------------------------------------------------------------------
  373.  
  374. (complete 60)
  375.  
  376. (if #CATDIR
  377.   (
  378.     (makedir (tackon #DESTINATION "Catalogs")
  379.              (help   @makedir-help)
  380.              (prompt #MSG_CATDIR)
  381.              (confirm)
  382.              (infos)
  383.     )
  384.  
  385.     (copyfiles (dest   (tackon #DESTINATION #CATDIR))
  386.                (source (tackon #CATDIR "Soliton.catalog"))
  387.                (prompt #MSG_CAT)
  388.                (help   #MSG_CAT_HELP)
  389.                (confirm)
  390.     )
  391.   )
  392. )
  393.  
  394.  
  395. ;-------------------------------------------------------------------------------
  396. ;                            Copy graphics
  397. ;-------------------------------------------------------------------------------
  398.  
  399. (complete 70)
  400.  
  401. (copyfiles (prompt #MSG_CARDS)
  402.            (source "Graphics/")
  403.            (dest   (tackon #DESTINATION "Graphics"))
  404.            (help #MSG_CARDS_HELP)
  405.            (confirm)
  406.            (all)
  407.            (infos)
  408. )
  409.  
  410.  
  411. ;-------------------------------------------------------------------------------
  412. ;                            Copy Extras
  413. ;-------------------------------------------------------------------------------
  414.  
  415. (complete 80)
  416.  
  417. (copyfiles (prompt #EXTRAS)
  418.            (source "Extras/")
  419.            (dest   (tackon #DESTINATION "Extras"))
  420.            (help #EXTRAS_HELP)
  421.            (confirm)
  422.            (all)
  423.            (infos)
  424. )
  425.  
  426. ;-------------------------------------------------------------------------------
  427. ;                           Copy icons
  428. ;-------------------------------------------------------------------------------
  429.  
  430. (complete 90)
  431.  
  432. (set #ICONS
  433.   (askchoice (prompt  #MSG_ICONS)
  434.              (help    #MSG_ICONS_HELP)
  435.              (choices "Standard" "MagicWB")
  436.              (default 0)
  437.   )
  438. )
  439.  
  440. (if (= #ICONS 1)
  441.   (
  442.     (copyfiles (prompt  #MSG_DOICONS)
  443.                (source  "MWBIcons/")
  444.                (dest    #DESTINATION)
  445.                (pattern "Soliton#?")
  446.     )
  447.  
  448.     (copyfiles (prompt #MSG_DOICONS)
  449.                (source "MWBIcons/Graphics.info")
  450.                (dest   #DESTINATION)
  451.     )
  452.  
  453.     (if (#CATDIR)
  454.       (copyfiles (prompt #MSG_DOICONS)
  455.                  (source "MWBIcons/Catalogs.info")
  456.                  (dest   #DESTINATION)
  457.       )
  458.     )
  459.  
  460.     (copyfiles (prompt #MSG_DOICONS)
  461.                (source "MWBIcons/Extras.info")
  462.                (dest   #DESTINATION)
  463.     )
  464.  
  465.     (run (cat "copy " "MWBIcons/Drawer.info \"" #DESTINATION ".info\""))
  466.   )
  467. )
  468.  
  469.  
  470. ;-------------------------------------------------------------------------------
  471. ;                            Goodbye
  472. ;-------------------------------------------------------------------------------
  473.  
  474. (complete 100)
  475. (exit)
  476.