home *** CD-ROM | disk | FTP | other *** search
- ;
- ;----------------------------------------------------------------------------
- ;
- ; YAM 1.3 - Installer script by Marcin Orlowski <carlos@dedal.man.szczecin.pl>
- ;
- ;----------------------------------------------------------------------------
- ;
- ; $VER: Installer script v1.0 for YAM (23.07.96) © Marcin Orlowski
- ;
- ;
- ; History
- ; --------------------
- ;
- ; - Sat Jul 27 20:13:01 1996 - First release with YAM 1.3.
- ;
- ;----------------------------------------------------------------------------
-
- (set _Version 1)
- (set _Revision 3)
- (set _Date "29.07.1996")
-
- ;----------------------------------------------------------------------------
-
-
- ; 1 Català
- ; 2 Dansk
- ; 4 Deutsch
- ; 8 Español
- ; 16 Français
- ; 32 Greek
- ; 64 Italiano
- ; 128 Nederlands
- ; 256 Polski
- ; 512 Português
- ; 1024 Suomi
- ; 2048 Svenska
- ;
- ; 0 Deutsch
- ; 1 English
- ; 2 Italiano
-
- ;----------------------------------------------------------------------------
-
- ; ***** english texts *****
-
- (set #def_cat_lang 0)
- (set #def_doc_lang 1)
- (set #wrongOS "YAM needs at least OS2.04 to run\n")
- (set #wrongMUI "YAM needs at least MUI3.1 to run\n")
-
- (set #YAM_dir (cat"Choose YAM home directory\n"
- "(NO extra drawer will be created!)"))
-
- (set #lang_catalog (cat "Which catalog file do you want to install?\n"
- "(English language is built-in)"))
- (set #lang_manual "Select language for on-line AmigaGuide help")
-
- (set #icons "Select the icons style you want to install")
- (set #icons_def "Default")
- (set #icons_def_4 "Default (4 colors)")
- (set #icons_all "Copy them all...")
- (set #icons_help (cat "For icons overview please take a closer "
- "look at contents of \"Icons\" directory...\n\n"))
-
- (set #arexx_prompt "Where do you want to install ARexx scripts?")
-
- (set #assign_prompt (cat "YAM: assign should be added to your S:USER-STARTUP\n"
- "Do you mind?"))
- (set #assign_help (cat "When the Installer program asks if you want to place this "
- "assignment into your S:user-startup file, you should select "
- "the \"Proceed\" button; otherwise, the next time you boot up your "
- "machine, the program won't be able to find the necessary files "
- "and drawers it needs to run.\n"))
-
- (set #done_1 (cat "\nYAM has been succesfuly installed.\n\n"
- "Click the \"YAM\" icon in the\n"))
- (set #done_2 "\ndirectory to taste it.\n\nHave fun...")
-
- ; ***** polish texts *****
-
- (IF (= @language "polski")
- (
- (set #def_cat_lang 256)
- (set #def_doc_lang 1)
- (set #wrongOS "YAM wymaga systemu w wersji co najmniej 2.04\n")
- (set #wrongMUI "YAM wymaga MUI w wersji co najmniej 3.1\n")
-
- (set #YAM_dir (cat"Wybierz katalog w którym chcesz umieôciê YAMa\n"
- "(Katalog dodatkowy NIE zostanie utworzony!)"))
-
- (set #lang_catalog (cat "Wybierz jëzyk jakiego chcesz uûywaê z YAMem\n"
- "(Jëzyk angielski jest wbudowany)"))
- (set #lang_manual "Wybierz jëzyk pliku pomocy")
-
- (set #icons "Wybierz rodzaj ikonek do zainstalowania")
- (set #icons_def "Podstawowe")
- (set #icons_def_4 "Podstawowe (4 kolory)")
- (set #icons_all "Skopiuj wszystkie...")
- (set #icons_help (cat "Jeôli chcesz zobaczyê jak wymienione ikonki wyglâdajâ "
- "zajrzyj do katalogu \"Icons\"...\n\n"))
-
- (set #arexx_prompt "Gdzie chcesz zaistalowaê skrypty ARexx'a?")
-
- (set #assign_prompt (cat "Przypisanie YAM: powinno zostaê dodane do pliku S:USER-STARTUP\n"
- "Czy masz coô przeciw?"))
- (set #assign_help (cat "Gdy Installer pyta czy chcesz dodaê to przypisanie do pliku "
- "S:USER-STARTUP powinieneô wybraê \"Kontynuuj\", w przeciwnym "
- "razie przy nastëpnym uruchomieniu komputera program nie bëdzie "
- "w stanie znaleúê niezbëdnych do pracy plików i katalogów.\n"))
-
- (set #done_1 (cat "\nYAM zostaî poprawnie zainstalowany.\n\n"
- "Kliknij na ikonce \"YAM\" w katalogu\n"))
- (set #done_2 "\naby sprawdziê co YAM potrafi.\n\nMiîej zabawy...")
- )
- )
-
- ; ***** german texts *****
-
- (IF (= @language "deutsch")
- (
- (set #def_cat_lang 4)
- (set #def_doc_lang 0)
- (set #wrongOS "YAM benötigt OS2.04 oder höher\n")
- (set #wrongMUI "YAM benötigt MUI3.1 oder höher\n")
-
- (set #YAM_dir (cat"Wählen Sie ein Verzeichnis für YAM\n"
- "(es wird KEIN eigenes Verzeichnis erstellt!)"))
-
- (set #lang_catalog (cat "Welche catalog-Datei wollen Sie installieren?\n"
- "(Englisch ist eingebaut)"))
- (set #lang_manual "Wählen Sie eine Sprache für die Online-AmigaGuide-Hilfe")
-
- (set #icons "Welches Icon-Set möchten Sie installieren?")
- (set #icons_def "Voreinstellung")
- (set #icons_def_4 "Voreinstellung (4 Farben)")
- (set #icons_all "Alle kopieren...")
- (set #icons_help (cat "Eine grafische Übersicht aller Icon-Sets "
- "finden Sie im Verzeichnis \"Icons\"...\n\n"))
-
- (set #arexx_prompt "Wohin wollen Sie die ARexx-Beispiele kopieren?")
-
- (set #assign_prompt (cat "In S:USER-STARTUP sollte ein Assign YAM: eingefügt werden.\n"
- "Sind Sie damit einverstanden?"))
- (set #assign_help (cat "Wenn Sie vom Installer gefragt werden, ob er diese Zuweisung "
- "in der Datei s:user-startup vornehmen darf, sollten Sie den "
- "Knopf \"Weiter\" drücken; andernfalls kann das Programm nach "
- "dem nächsten Booten die benötigten Dateien und Verzeichnisse "
- "nicht finden.\n"))
-
- (set #done_1 (cat "\nYAM wurde erfolgreich installiert.\n\n"
- "Klicken Sie auf das \"YAM\"-Icon im Verzeichnis\n"))
- (set #done_2 "\nund es kann losgehen.\n\nViel Spass!")
- )
- )
-
- ; ***** portugese texts *****
-
- (IF (= @language "português")
- (
- (set #def_cat_lang 512)
- (set #def_doc_lang 1)
-
- (set #wrongOS "O YAM precisa no mínimo do OS2.04 para correr\n")
- (set #wrongMUI "O YAM precisa no mínimo do MUI3.1 para correr\n")
-
- (set #YAM_dir (cat"Escolha o directório onde instalar o YAM\n"
- "(NÃO SERÁ CRIADO qualquer directório extra!)"))
-
- (set #lang_catalog (cat "Que catálogo de linguagem deseja instalar?\n"
- "(A linguagem Inglesa é interna)"))
- (set #lang_manual "Escolha a linguagem para a ajuda 'online' em AmigaGuide")
-
- (set #icons "Escolha o estilo de icones que deseja instalar")
- (set #icons_def "Normais")
- (set #icons_def_4 "Normais (4 cores)")
- (set #icons_all "Copiar todos...")
- (set #icons_help (cat "Para ver o aspecto dos icones por favor veja "
- "o conteúdo do directório \"Icons\" ...\n\n"))
-
- (set #arexx_prompt "Onde deseja instalar as 'scripts' ARexx?")
-
- (set #assign_prompt (cat "O assign YAM: deve ser acrescentado ao seu ficheiro\n"
- "S:USER-STARTUP, importa-se?"))
- (set #assign_help (cat "Quando o Installer lhe pergunta se deseja colocar este "
- "assign no ficheiro S:user-startup, deve seleccionar o "
- "botão \"Proceed\"; de outro modo, na próxima vez que arrancar "
- "o seu sistema, o programa (YAM) não conseguirá encontrar os "
- "ficheiros e directórios necessários e não poderá correr.\n"))
-
- (set #done_1 (cat "\nO YAM foi instalado correctamente.\n\n"
- "Carregue no icone \"YAM\" do directório\n"))
- (set #done_2 "\npara prová-lo.\n\nDivirta-se...")
- )
- )
-
- ; ***** dutch texts *****
-
- (IF (= @language "nederlands")
- (
- (set #def_cat_lang 128)
- (set #def_doc_lang 1)
- (set #wrongOS "YAM heeft minimaal OS2.04 nodig\n")
- (set #wrongMUI "YAM heeft minimaal MUI3.1 nodig\n")
-
- (set #YAM_dir (cat"Kies de YAM home directory\n"
- "(GEEN extra lade wordt gecreëerd!)"))
-
- (set #lang_catalog (cat "Welke catalog file wilt u installeren?\n"
- "(Engelse taal is ingebouwd)"))
- (set #lang_manual "Kies taal voor on-line AmigaGuide help")
-
- (set #icons "Kies de ikonen stijl die u wilt installeren")
- (set #icons_def "Standaard")
- (set #icons_def_4 "Standaard (4 kleuren)")
- (set #icons_all "Kopieer ze allemaal...")
- (set #icons_help (cat "Voor een overzicht van de ikonen kunt u kijken "
- "naar de inhoud van de \"Icons\" directory...\n\n"))
-
- (set #arexx_prompt "Waar wilt u de ARexx scripts installeren?")
-
- (set #assign_prompt (cat "YAM: assign moet toegevoegd worden aan uw S:USER-STARTUP\n"
- "Is dit goed?"))
- (set #assign_help (cat "Wanneer het Installatie programma u vraagt of u wilt dat deze assign "
- "aan uw S:user-startup toegevoegd wordt, moet u op de \"Proceed\" knop "
- "klikken, anders zal het programma bij een volgende computerstart de "
- "benodigde directories en bestanden niet kunnen vinden.\n"))
-
- (set #done_1 (cat "\nYAM is met succes geinstalleerd.\n\n"
- "Klik op het \"YAM\" ikoon in de\n"))
- (set #done_2 "\ndirectory om YAM te starten.\n\nVeel plezier...")
- )
- )
-
- ; ***** danish texts *****
-
- (IF (= @language "dansk")
- (
- (set #def_cat_lang 2)
- (set #def_doc_lang 1)
- (set #wrongOS "YAM kræver mindst OS2.04 for at køre\n")
- (set #wrongMUI "YAM kræver mindst MUI3.1 for at køre\n")
-
- (set #YAM_dir (cat"Vælg hjemme-skuffen til YAM\n"
- "(INGEN ekstra skuffe vil blive skabt!)"))
-
- (set #lang_catalog (cat "Hvilket sprog ønsker du at installere?\n"
- "(Engelsk er indbygget)"))
- (set #lang_manual "Vælg sprog til on-line hjælp med AmigaGuide")
-
- (set #icons "Vælg ikon-stilen, som du ønsker at installere")
- (set #icons_def "Standard")
- (set #icons_def_4 "Standard (4 farver)")
- (set #icons_all "Kopiere dem alle...")
- (set #icons_help (cat "For en oversigt over ikonerne kan du tage et "
- "nærmere kig i skuffen \"Icons\"...\n\n"))
-
- (set #arexx_prompt "Hvor ønsker du at installere ARexx-skriptene?")
-
- (set #assign_prompt (cat "Tilknytningen YAM: skal lægges til din S:USER-STARTUP\n"
- "Har du noget imod dette?"))
- (set #assign_help (cat "Når Installer-programmet spørger, om du ønsker at placere denne "
- "tilknytning i din S:user-startup fil, skal du trykke på "
- "\"Fortsætte\"-knappen; ellers vil programmet ikke være i stand til "
- "at finde de nødvendige filer og skuffer, som det behøver for at køre, "
- "næste gang du starter din maskine.\n"))
-
- (set #done_1 (cat "\nYAM er korrekt installeret.\n\n"
- "Tryk på \"YAM\"-ikonen i skuffen\n"))
- (set #done_2 "\nfor at prøve det.\n\nHav det sjovt...")
- )
- )
-
- ; ******* Italian text by Francesco Mancuso (mcfrank@mediatel.it) *******
-
- (IF (= @language "italiano")
- (
- (set #def_cat_lang 64)
- (set #def_doc_lang 2)
- (set #wrongOS "E' necessario avere almeno l'OS2.04 perché YAM si avvii\n")
- (set #wrongMUI "E' necessario avere almeno la MUI3.1 perché YAM si avvii\n")
-
- (set #YAM_dir (cat"Scegliete la directory dove porre YAM\n"
- "(NESSUN cassetto extra sarà creato!)"))
-
- (set #lang_catalog (cat "Quale catalog volete installare?\n"
- "(L'inglese é interno al programma)"))
- (set #lang_manual "Selezionate la lingua per l'Aiuto in linea")
-
- (set #icons "Selezionate lo stile delle icone che volete installare")
- (set #icons_def "Default")
- (set #icons_def_4 "Default (4 colori)")
- (set #icons_all "Copiale tutte...")
- (set #icons_help (cat "Per uno sguardo d'insiene delle icone prego andate nella "
- "directory dove son contenute le \"Icone\"...\n\n"))
-
- (set #arexx_prompt "Dove volete installare gli script ARexx?")
-
- (set #assign_prompt (cat "YAM: l'assign sarà aggiunto alla vostra S:USER-STARTUP\n"
- "Fate attenzione?"))
- (set #assign_help (cat "Quando l'Installer vi chiede se volete sia posto questo "
- "assignment nella vostra S:user-startup, dovrete selezionare "
- "il pulsante \"Procedi\"; altrimenti, la prossima volta che avviate "
- "l'amiga, il programma non sarà in grado di trovare i file necessari "
- "ed i cassetti di cui necessita per funzionare.\n"))
-
- (set #done_1 (cat "\nYAM é stato installato con successo.\n\n"
- "Cliccate sull'icona \"YAM\" nella \n"))
- (set #done_2 "\ndirectory per apprezzarlo.\n\nBuon Divertimento...")
- )
- )
-
- ; ***** greek texts *****
-
- (IF (= @language "greek")
- (
- (set #def_cat_lang 32)
- (set #def_doc_lang 1)
- (set #wrongOS "Ôï YAM ÷ñåéÜæåôáé ôïõëÜ÷éóôïí ôï OS2.04 ãéá íá ôñÝîåé\n")
- (set #wrongMUI "Ôï YAM ÷ñåéÜæåôáé ôïõëÜ÷éóôïí ôï MUI3.1 ãéá íá ôñÝîåé\n")
-
- (set #YAM_dir (cat"ÅðéëÝîôå ôïí YAM home êáôÜëïãï\n"
- "(ÄÅÍ èá äçìéïõñãçèåß íÝïò êáôÜëïãïò!)"))
-
- (set #lang_catalog (cat "Ðïéü áñ÷åßï êáôáëüãïõ èá èÝëáôå íá åãêáôáóôÞóåôå?\n"
- "(Ç ÁããëéêÞ ãëþóóá åßíáé åíóùìáôùìÝíç)"))
- (set #lang_manual "ÅðéëÝîôå ôçí ãëþóóá ãéá ôï on-line AmigaGuide help")
-
- (set #icons "ÅðéëÝîôå ôïõò ôýðïõò åéêïíéäßùí ðïõ èá åãêáôáóôáèïýí")
- (set #icons_def "ÅíóùìáôùìÝíá")
- (set #icons_def_4 "ÅíóùìáôùìÝíá (4÷ñùìá)")
- (set #icons_all "ÁíôéãñáöÞ üëùí...")
- (set #icons_help (cat "Ãéá áðåéêüíçóç åéêïíéäßùí, ðáñáêáëþ êïéôÜîôå "
- "ôá ðåñéå÷üìåíá ôïõ êáôáëïãïõ \"Icons\"...\n\n"))
-
- (set #arexx_prompt "Ðïý èá èÝëáôå íá åãêáôáóôáèïýí ôá ARexx scripts?")
-
- (set #assign_prompt (cat "Ôï YAM: assign èá ðñÝðåé íá ðñïóôåèåß óôï S:USER-STARTUP\n"
- "ÅíôÜîåé?"))
- (set #assign_help (cat "¼ôáí ï åãêáôáóôÜôçò ñùôÜåé åÜí èÝëåôå íá ôïðïèåôÞóåôå "
- "áõôü ôï assignment óôï S:user-startup áñ÷åßï, ðñÝðåé íá åðéëÝîåôå "
- "ôï \"ÓõíÝ÷éóå\" ðëÞêôñï, áëëéþò, ôçí åðüìåíç öïñÜ ðïõ îåêéíÞóåôå "
- "ôï ìç÷Üíçìá, ôï ðñüãñáììá èá áäõíáôåß íá âñåß ôá áðáñáßôçôá áñ÷åßá "
- "êáé êáôáëüãïõò ðïõ ÷ñåéÜæåôáé ãéá íá äïõëÝøåé.\n"))
-
- (set #done_1 (cat "\nÔï YAM åãêáôáóôÜèçêå åðéôõ÷þò.\n\n"
- "ÐáôÞóôå óôï åéêïíßäéï \"YAM\" óôï\n"))
- (set #done_2 "\nêáôÜëïãï ãéá íá ðÜñåôå ìéÜ ãåýóç.\n\nÊáëÞ äéáóêÝäáóç...")
- )
- )
-
- ; ***** finnish texts *****
-
- (IF (= @language "suomi")
- (
- (set #def_cat_lang 1024)
- (set #def_doc_lang 1)
- (set #wrongOS "YAM tarvitsee ainakin käyttöjärjestelmän version 2.04 toimiakseen\n")
- (set #wrongMUI "YAM tarvitsee ainakin MUIn version 3.1 toimiakseen\n")
-
- (set #YAM_dir (cat"Valitse hakemisto, jonne YAM asennetaan\n"
- "(Uutta hakemistoa EI luoda!)"))
-
- (set #lang_catalog (cat "Mikä kielitiedosto asennetaan?\n"
- "(Englanti on sisäänrakennettu ohjelmaan)"))
- (set #lang_manual "Valitse kieli on-line ohjeita varten")
-
- (set #icons "Valitse minkä tyyppiset ikonit haluat asennettavan")
- (set #icons_def "Vakio")
- (set #icons_def_4 "Vakio (4 väriä)")
- (set #icons_all "Kopioi kaikki...")
- (set #icons_help (cat "Lisätietoja ikoneista saat katsomalla "
- "\"Icons\" hakemiston sisältöä...\n\n"))
-
- (set #arexx_prompt "Minne haluat asentaa ARexx ohjelmat?")
-
- (set #assign_prompt (cat "YAM: assign pitää lisätä S:User-Startup tiedostoon\n"
- "Tehdäänkö tämä lisäys?"))
- (set #assign_help (cat "Kun asennusohjelma kysyy haluatko tehdä tämän lisäyksen "
- "S:User-Startup tiedostoon, sinun kannattaa valita "
- "\"Jatka\" (\"Proceed\"), muutoin seuraavalla kerralla, "
- "kun käynnistät koneen YAM ei löydä tarvitsemiaan "
- "hakemistoja ja tiedostoja.\n"))
-
- (set #done_1 (cat "\nYAM asennettiin onnistuneesti.\n\n"
- "Naksauta \"YAM\" ikonia\n"))
- (set #done_2 "\nhakemistossa kokeillaaksesi sitä.\n\nPidä hauskaa...")
- )
- )
-
- ; ***** french texts *****
-
- (IF (= @language "français")
- (
- (set #def_cat_lang 16)
- (set #def_doc_lang 1)
- (set #wrongOS "YAM a besoin de OS2.04 ou plus recent pour fonctionner")
- (set #wrongMUI "YAM a besoin de MUI3.1 ou plus recent pour fonctionner")
-
- (set #YAM_dir (cat"Indiquez l'emplacement du répertoire de YAM.\n"
- "(Aucun tiroir supplémentaire ne sera créé!)"))
-
- (set #lang_catalog (cat "Quel catalog voulez-vous installer ?\n"
- "(L'anglais est la langue par défaut)"))
- (set #lang_manual "Choisir la langue du fichier d'aide")
-
- (set #icons "Quel style d'icones voulez-vous installer")
- (set #icons_def "Défaut")
- (set #icons_def_4 "Défaut (4 couleurs)")
- (set #icons_all "Tous les copier...")
- (set #icons_help (cat "Pour un aperçu des icones, jeter un coup"
- "d'oeil au contenu du tiroir \"Icons\"...\n\n"))
-
- (set #arexx_prompt "Où voulez-vous installer les scripts ARexx ?")
-
- (set #assign_prompt (cat "L'assignation YAM: devrait être ajoutée à votre fichier S:USER-STARTUP\n"
- "Ajouter ?"))
- (set #assign_help (cat "Quand l'Installer vous demande si vous voulez ajouter cet"
- "assignement dans votre fichier S:user-startup, vous devriez"
- "choisir le bouton \"Proceed\"; autrement, la prochaine fois"
- "que vous relancerez votre système, YAM sera incapable de "
- "trouver les fichiers nécessaires.\n"))
-
- (set #done_1 (cat "\nYAM a été correctement installé.\n\n"
- "Clicker sur l'icon \"YAM\" du tiroir\n"))
- (set #done_2 "\npour le tester.\n\nAmusez-vous bien...")
- )
- )
-
- ; ***** catalan texts *****
-
- (IF (= @language "català")
- (
- (set #def_cat_lang 1)
- (set #def_doc_lang 1)
- (set #wrongOS "YAM necessita almenys OS2.04 per funcionar")
- (set #wrongMUI "YAM necessita almenys MUI3.1 per funcionar")
-
- (set #YAM_dir (cat"Tria un directori pel YAM \n"
- "(NO es crearà cap calaix!)"))
-
- (set #lang_catalog (cat "Quin catàleg vols instal.lar?\n"
- "(Angles és per defecte)"))
- (set #lang_manual "Tria l'idioma de l'ajuda on-line")
-
- (set #icons "Tria el tipus d'icona a instal.lar")
- (set #icons_def "Per defecte")
- (set #icons_def_4 "Per defecte (4 colors)")
- (set #icons_all "Copiar'ls tots...")
- (set #icons_help (cat "Per a una ullada de les icones"
- "mira el contingut del directori \"Icons\"...\n\n"))
-
- (set #arexx_prompt "On vols instal.lar els guions AREXX?")
-
- (set #assign_prompt (cat "l'assignació YAM: hauria de ser afegida a S:USER-STARTUP\n"
- "Vols fer-ho?"))
- (set #assign_help (cat "Quan el programa Installer et demani si vols afegir"
- "l'assignació al teu fitxer S:user-startup, hauries de seleccinar"
- "elbotó \"Procedir\"; sino la propera vegada que inicialitzis la teva"
- "màquina, el programa no podrà trobar els fitxers"
- "i calaixos que necessita per funcionar.\n"))
-
- (set #done_1 (cat "\nYAM ha estat instal.lat.\n\n"
- "Prem la icona \"YAM\" del\n"))
- (set #done_2 "\ndirectori per probar-el.\n\nQue vagi bé...")
- )
- )
-
- ;----------------------------------------------------------------------------
-
- (if (< (getversion "exec.library" (resident)) 2424832) (abort #wrongOS))
- ;(if (< (getversion "MUI:Libs/muimaster.library") 851968) (abort #wrongMUI))
-
- ;----------------------------------------------------------------------------
-
- (complete 0)
-
- (if (= 2 (exists "YAM:" (noreq)))
- (set YAM_def_dir "YAM:")
- (set YAM_def_dir @default-dest)
- )
-
- (set YAM_dir
- (askdir
- (default YAM_def_dir)
- (prompt #YAM_dir)
- (help @askdir-help)
- )
- )
-
-
- (set Catalog_lang
- (askoptions
- (prompt #lang_catalog)
- (help @askoptions-help)
- (choices "Català"
- "Dansk"
- "Deutsch"
- "Español"
- "Français"
- "Greek"
- "Italiano"
- "Nederlands"
- "Polski"
- "Português"
- "Suomi"
- "Svenska"
- )
- (default #def_cat_lang)
- )
- )
-
- (set Docs_lang
- (askchoice
- (prompt #lang_manual)
- (help @askoptions-help)
- (choices "Deutsch"
- "English"
- "Italiano"
- )
- (default #def_doc_lang)
- )
- )
-
- (set Icons
- (askchoice
- (prompt #icons)
- (help #icons_help
- @askoptions-help
- )
- (choices #icons_def
- #icons_def_4
- "Claudio"
- "Florent"
- "Paolo"
- "Richard"
- #icons_all
- )
- (default 0)
- )
- )
-
- (set ARexx_dir
- (askdir
- (default "REXX:")
- (prompt #arexx_prompt)
- (help @askdir-help)
- )
- )
-
- ;-------------------------- here we go... -----------------------------------
-
- (makedir YAM_dir (infos))
-
- (copyfiles (source "/YAM")
- (dest YAM_dir)
- (infos)
- (help @copyfiles-help)
- )
- (copyfiles (source "/Changes")
- (dest YAM_dir)
- (infos)
- (help @copyfiles-help)
- )
-
- (if (> Catalog_lang 0)
- (
- (set Cat_dir (tackon YAM_dir "Catalogs"))
- (if (not (exists Cat_dir)) (makedir Cat_dir))
-
- (if (bitand Catalog_lang 1) ((set lang "català") (copyfiles (source (tackon "/Catalogs" lang)) (choices "YAM.catalog") (dest (tackon Cat_dir lang)))))
- (if (bitand Catalog_lang 2) ((set lang "dansk") (copyfiles (source (tackon "/Catalogs" lang)) (choices "YAM.catalog") (dest (tackon Cat_dir lang)))))
- (if (bitand Catalog_lang 4) ((set lang "deutsch") (copyfiles (source (tackon "/Catalogs" lang)) (choices "YAM.catalog") (dest (tackon Cat_dir lang)))))
- (if (bitand Catalog_lang 8) ((set lang "español") (copyfiles (source (tackon "/Catalogs" lang)) (choices "YAM.catalog") (dest (tackon Cat_dir lang)))))
- (if (bitand Catalog_lang 16) ((set lang "français") (copyfiles (source (tackon "/Catalogs" lang)) (choices "YAM.catalog") (dest (tackon Cat_dir lang)))))
- (if (bitand Catalog_lang 32) ((set lang "greek") (copyfiles (source (tackon "/Catalogs" lang)) (choices "YAM.catalog") (dest (tackon Cat_dir lang)))))
- (if (bitand Catalog_lang 64) ((set lang "italiano") (copyfiles (source (tackon "/Catalogs" lang)) (choices "YAM.catalog") (dest (tackon Cat_dir lang)))))
- (if (bitand Catalog_lang 128) ((set lang "nederlands") (copyfiles (source (tackon "/Catalogs" lang)) (choices "YAM.catalog") (dest (tackon Cat_dir lang)))))
- (if (bitand Catalog_lang 256) ((set lang "polski") (copyfiles (source (tackon "/Catalogs" lang)) (choices "YAM.catalog") (dest (tackon Cat_dir lang)))))
- (if (bitand Catalog_lang 512) ((set lang "português") (copyfiles (source (tackon "/Catalogs" lang)) (choices "YAM.catalog") (dest (tackon Cat_dir lang)))))
- (if (bitand Catalog_lang 1024) ((set lang "suomi") (copyfiles (source (tackon "/Catalogs" lang)) (choices "YAM.catalog") (dest (tackon Cat_dir lang)))))
- (if (bitand Catalog_lang 2048) ((set lang "svenska") (copyfiles (source (tackon "/Catalogs" lang)) (choices "YAM.catalog") (dest (tackon Cat_dir lang)))))
- )
- )
-
-
-
- (if (= Docs_lang 0) (copyfiles (source "/Docs/YAM_deutsch.guide") (dest YAM_dir) (newname "YAM.guide") (infos)))
- (if (= Docs_lang 1) (copyfiles (source "/Docs/YAM_english.guide") (dest YAM_dir) (newname "YAM.guide") (infos)))
- (if (= Docs_lang 2) (copyfiles (source "/Docs/YAM_italiano.guide") (dest YAM_dir) (newname "YAM.guide") (infos)))
-
-
-
- (set Icons_dir (tackon YAM_dir "Icons"))
- (if (not (exists Icons_dir))
- (
- (makedir Icons_dir)
- (copyfiles (source "/Icons.info")
- (dest YAM_dir)
- (help @copyfiles-help)
- )
- )
- )
-
- (if (= Icons 0) (copyfiles (source "/Icons/") (dest Icons_dir) (pattern "(old.|new.|empty.)#?")))
- (if (= Icons 1) (copyfiles (source "/Icons/4colors") (dest Icons_dir) (all)))
- (if (= Icons 2) (copyfiles (source "/Icons/Claudio") (dest Icons_dir) (all)))
- (if (= Icons 3) (copyfiles (source "/Icons/Florent") (dest Icons_dir) (all)))
- (if (= Icons 4) (copyfiles (source "/Icons/Paolo") (dest Icons_dir) (all)))
- (if (= Icons 5) (copyfiles (source "/Icons/Richard") (dest Icons_dir) (all)))
- (if (= Icons 6) (copyfiles (source "/Icons/") (dest Icons_dir) (all)))
-
-
- (copyfiles
- (source "/Rexx/")
- (dest ARexx_dir)
- (all)
- )
-
-
- (copylib
- (prompt "textfield.gadget")
- (source "/Libs/Classes/textfield.gadget")
- (dest "SYS:Classes/Gadgets/")
- (confirm)
- (help @copylib-help)
- )
-
- (copylib
- (prompt "MUI - ListTree.MCC")
- (source "/libs/MUI/ListTree.mcc")
- (dest "MUI:Libs/MUI/")
- (confirm)
- (help @copylib-help)
- )
-
- (copylib
- (prompt "MUI - ListTree.MCP")
- (source "/libs/MUI/ListTree.mcp")
- (dest "MUI:Libs/MUI/")
- (confirm)
- (help @copylib-help)
- )
-
-
- (startup "YAM - Amiga mailer"
- (prompt #assign_prompt)
- (help #assign_help)
- (command
- "C:Assign YAM: \"" YAM_dir "\"\n"
- )
- )
-
- ;-------------------------- ... and we gone. -------------------------------
-
- (makeassign "YAM" YAM_dir)
-
- (complete 100)
- (message #done_1
- "\"" YAM_dir "\""
- #done_2
- )
-
- ;********************
-
- (exit (QUIET))
-