; Installation script for PetitChimiste ; $VER: Install-PetitChimiste 2.0 (20/06/98) ; Spanish translation by Dámaso D. Estévez (set @default-dest "SYS:") (if (= @language "français") ( (set #kick "Ce programme nécéssite le Kickstart 3.0 minimum !") (set #ix (cat "PetitChimiste nécessite ixemul.library V41.3 ou plus.\n" "Actuellement ixemul.library n'est pas installée. Désolé.\n\n" "L'ixemul.library est présente dans Aminet:dev/gcc/\n" ) ) (set #path "Choisissez le tiroir où installer PetitChimiste\nUn tiroir y sera créé à cet effet.") (set #makedrawer "Tiroir PetitChimiste en cours de création...") (set #version "Quelle version doit être installée ?") (set #ixreq "(nécessite ixemul.library)") (set #language "Quelle(s) langues choisissez vous ?") (set #installing "Installation de la version de PetitChimiste...") (set #guides "Quelle documentation doit être installée ?") (set #installing_guides "Installation de la documentation...") (set #installing_molecules "Installation des molecules...") ) (if (= @language "español") ( (set #kick "¡ Este programa requiere Kickstart 3.0 o superarior para ser ejecutado !") (set #ix (cat "PetitChimiste requiere la biblioteca 'ixemul.library' versión 41.3 " "o superior.\nLo siento, pero actualmente no está instalada en " "su sistema, aunque puede consegurirla en Aminet:dev/gcc/\n" ) ) (set #makedrawer "Creando cajón PetitChimiste") (set #version "¿Qué ejecutable debo instalar?") (set #ixreq "(requiere 'ixemul.library')") (set #path "Elija donde desee instalar 'PetitChimiste'\n(se creará un nuevo cajón)") (set #language "¿Qué idiomas desea instalar?") (set #installing "Instalando 'PetitChimiste'") (set #guides "¿En qué idioma desea instalar la documentación?") (set #installing_guides "Instalando ficheros guía") (set #installing_molecules "Instalando moléculas") ) (if (= @language "deutsch") ( (set #kick "PetitChimiste benötigt mindenstens Kickstart 3.0 !") (set #ix (cat "PetitChimiste PetitChimiste benötigt mindenstens ixemul.library V41.3.\n" "Currently ixemul.library is not installed. Sorry.\n\n" "ixemul.library Aminet:dev/gcc/\n" ) ) (set #makedrawer "Erstelle PetitChimiste") (set #version "Welsche Programm soll installiert werden ?") (set #ixreq "(ixemul.library nötig)") (set #path "Bitte wählen Sie das Verzeichniss wohin PetitChimiste installiert werden soll. Dieses Installationsscript legt dort selbst eine Schublade an.") (set #language "Welsche Sprache soll installiert werden ?") (set #installing "Installiere Hauptprogramm...") (set #guides "Welsche Dokumentation soll installiert werden ?") (set #installing_guides "Installiere Dokumentation...") (set #installing_molecules "Installiere Molekülen...") ) (if (= @language "italiano") ( (set #kick "Al minimo il Kickstart 3.0 é nécessario con questo programma!") (set #ix (cat "Al minimo il ixemul.library V41.3 é nécessario.\n" "Adesso ixemul.library non é présente.\n" "Si puo trovaré la ixemul.library in Aminet:dev/gcc/\n" ) ) (set #makedrawer "Facendo il cassetto PetitChimiste") (set #version "Quale programma deve essere installato ?") (set #ixreq "(ixemul.library nécessario)") (set #path "in quale cassetto vanno installati i file di PetitChimiste.\nA nove cassetto sarà fatto.") (set #language "Quale lingue devono essere installate ?") (set #installing "Installa PetitChimiste...") (set #guides "Quali documenti devono essere installati ?") (set #installing_guides "Installa Guides...") (set #installing_molecules "Installa Molecule...") ) ( (set #kick "This program requires Kickstart 3.0 or greater to run !") (set #ix (cat "PetitChimiste requires ixemul.library V41.3 or better.\n" "Currently ixemul.library is not installed. Sorry.\n\n" "ixemul.library can be found in Aminet:dev/gcc/\n" ) ) (set #makedrawer "Creating Drawer PetitChimiste") (set #version "Which program should be installed ?") (set #ixreq "(ixemul.library required)") (set #path "Select where to install PetitChimiste.\nA new drawer will be created.") (set #language "Which language(s) should be installed ?") (set #installing "Installing PetitChimiste...") (set #guides "Which Guide(s) should be installed ?") (set #installing_guides "Installing Guides...") (set #installing_molecules "Installing Molecules...") ) ) ) ) ) (if (< (/ (getversion) 65536) 39) (abort #kick) ) (if (= 0 (exists "Libs:ixemul.library" (noreq))) (abort #ix ) ) (set destdir (askdir (prompt #path) (help @askdir-help) (default @default-dest) (newpath) ) ) (set @default-dest (tackon destdir "PetitChimiste") ) (makedir @default-dest (prompt #makedrawer) (help @makedir-help) (infos) ) (message "This version of PetitChimiste is called 2.0\nDue to the limitation of the hardware of my amigas, i give you 2 versions 2.0, a CHIP version designed for people who have a powerfull graphic-card,\n and a FAST version for most people.\n\n\nPlease send me a small email if you try both at\ngilbert.leger@wanadoo.fr") (set numver (askchoice (prompt "Which program should be installed ?") (help @askchoice-help) (choices "Version -Direct to CHIPMEM-" "Version -Buffer in FASTMEM-") (default 0) ) ) (if (= numver 0) ( (set program (askchoice (prompt #version) (help @askchoice-help) (choices (cat "68020 IEEE " #ixreq ) (cat "68030 68881 " #ixreq) (cat "68040 " #ixreq)) (default 0) ) ) (copylib (prompt #installing) (help @copylib-help) (source (select program "bin/CHIP/68020IEEE/PetitChimiste" "bin/CHIP/6803068881/PetitChimiste" "bin/CHIP/68040/PetitChimiste" ) ) (dest @default-dest) (infos) ) ) ( (set program (askchoice (prompt #version) (help @askchoice-help) (choices (cat "68020 IEEE " #ixreq ) (cat "68030 68881 " #ixreq) (cat "68040 " #ixreq)) (default 0) ) ) (copylib (prompt #installing) (help @copylib-help) (source (select program "bin/FAST/68020IEEE/PetitChimiste" "bin/FAST/6803068881/PetitChimiste" "bin/FAST/68040/PetitChimiste" ) ) (dest @default-dest) (infos) ) ) ) (set lang (askoptions (prompt #language) (help @askoptions-help) (choices "English" "Français" "Deutsch" "Italiano" "Español" "Svenska" ) (default 1) ) ) (set n 0) (while (set language (select n "english" "français" "deutsch" "italiano" "español" "svenska" "") ) ( (if (IN lang n) ( (if (<> 0 n) ( (set catalog_dir (cat "catalogs/" language)) (set locale_dir (cat "locale:catalogs/" language)) (copyfiles (prompt "Installing Catalogs") (source catalog_dir) (dest locale_dir) (all) ) ) ) ) ) (set n (+ n 1)) ) ) (set lang (askoptions (prompt #guides) (help @askoptions-help) (choices "English" "Français" "Español" "Svenska" ) (default 1) ) ) (makedir (tackon @default-dest "Guides") (infos)) (set n 0) (while (set language (select n "english" "français" "español" "svenska" "") ) ( (if (IN lang n) ( (set guides_dir (cat "Guides/" language)) (copyfiles (prompt #installing_guides) (source guides_dir) (dest (tackon @default-dest "Guides")) (all) ) ) ) (set n (+ n 1)) ) ) (makedir (tackon @default-dest "Molecules") (infos)) (copyfiles (prompt #installing_molecules) (help @copyfiles-help) (source "Molecules") (dest (tackon @default-dest "Molecules")) (all) )