; ;---------------------------------------------------------------------------- ; ; YAM 1.3 - Installer script by Marcin Orlowski ; ;---------------------------------------------------------------------------- ; ; $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))