; $VER: Install 1.0 (26.07.99) ; Installation-Script of SimpleFind ; ----- German string section ----- (set #language (getenv("language"))) (if( <> (strlen #language) 0) ( (set @language #language) )) (if (= @language "deutsch") ( (set #wrongversion (cat "Achtung! Es ist eine alte Version des Programmes 'Installer' " "auf Ihrem Amiga!\n\nDie Installation benötigt mindestens Installer 43.3.\n\n" "Bitte überprüfen Sie Ihre Konfiguration!" )) (set #nocopyicon-text (cat "Das Programm IconCopy wurde nicht gefunden!\n" "Es befindet sich normalerweise mit im SimpleFind3 Archiv.")) (set #welcome "Willkommen zur Installation von SimpleFind3!") (set #kind-request "Soll SimpleFind3 in ein einziges Verzeichnis installiert werden (empfohlen)?") (set #singledir-request "Wohin soll SimpleFind3 installiert werden?\n(ein Verzeichnis 'SimpleFind3' wird angelegt, wenn nötig)") (set #lang-request "Welche Sprachen sollen installiert werden?\n(Englisch ist eingebaut)"); (set #guide-request "Welche Versionen der Dokumentation soll installiert werden?") (set #arexx-request "Sollen die mitgelieferten ARexx Skripte installiert werden?") (set #logos-request "Sollen die mitgelieferten Logos installiert werden?") (set #iconset-request "Welches Icon Set soll installiert werden?") (set #iconset-amwb "Alternativ MagicWB") (set #copysf-request "Kopiere SimpleFind3 Dateien") (set #copyarexx-request "Kopiere ARexx Skripte") (set #copylogos-request "Kopiere Logos") (set #standarticon-text "Installiere Standart-4-Farb-Icons...") (set #mwbicon-text "Installiere MagicWB Icons...") (set #amwbicon-text "Installiere Alternativ MagicWB Icons...") (set #glowicon-text "Installiere Glow Icons...") (set #startup-request (cat "Um SimpleFind leichter von der Shell aus zu starten, sollte ein " "Pfad in der User-Startup auf das SimpleFind3 Verzeichnis eingerichtet werden." "\n\nPath \"%s\" ADD\n\nSoll das Installationsprogramm diesen Vorgang tun?")) ) ; ----- Spanish string section ----- (if (= @language "español") ( (set #wrongversion (cat "Tiene una versión antigua del programa 'Installer' " "en su Amiga!\n\nEste Script necesita, al menos, la versión 43.3.\n\n" "Por favor, verifique su configuración!" )) (set #nocopyicon-text (cat "No puedo encontrar el programa IconCopy!\n" " Normalmente se entrega con el archivo de SimpleFind.")) (set #welcome "Bienvenido a la instalación de SimpleFind!") (set #kind-request "Quiere que SimpleFind se instale en un Subdirectorio? (recomendado)") (set #singledir-request "Donde quiere instalar SimpleFind?\n(Se creará un directorio llamado SimpleFind, si no existe)") (set #lang-request "Qué lenguajes desea instalar?\n(Ingles por defecto)"); (set #guide-request "Qué documentación quiere instalar?") (set #arexx-request "Quiere instalar los Scripts ARexx incluidos?") (set #logos-request "Quiere instalar los logotipos incluidos?") (set #iconset-request "Qué set de iconos quieres instalar?") (set #iconset-amwb "MagicWB Alternatívos") (set #tbi-request "Quiere instalar la titlebar.image?") (set #tbiold-request "Intaller ha descubierto que hay una antigua versión de titlebar.image instalada en su sistema. Quiere reemplazarla con la nueva versión?") (set #copysf-request "Copiando Ficheros de SimpleFind") (set #copyarexx-request "Copiando ARexx Scripts") (set #copylogos-request "Copiando Logos") (set #standarticon-text "Instalando set standard de iconos (4 colores)") (set #mwbicon-text "Instalando iconos MagicWB") (set #amwbicon-text "Instalando iconos alternbatívos MagicWB") (set #glowicon-text "Instalando iconos Glow") (set #startup-request (cat "Para empezar SimpleFind facilmente desde una ventana Shell se debe especificar una ruta" "en el fichero User-Startup.\n\nRuta \"%s\" ADD\n\nQuiere que Instaler haga" "esto por usted?")) ) ; ----- Croatian string section ----- (if (= @language "hrvatski") ( (set #wrongversion (cat "Vi imate neku staru verziju programa 'Installer' " "na svojoj Amigi!\n\nInstalacijska procedura treba bar Installer 43.3\n\n" "Molim vas, provjerite svoju konfiguraciju!" )) (set #nocopyicon-text (cat "Ne mogu pronaæi program IconCopy!\n" " Obièno je ukljuèena unutar SimpleFind Arhive.")) (set #welcome "Dobro Do¹li u SimpleFind Instalaciju!") (set #kind-request "Da li æe SimpleFind biti instaliran u jedan imenik (preporuèljivo)?") (set #singledir-request "Gdje ¾elite instalirati SimpleFind?\n(Imenik 'SimpleFind'æe se stvoriti, ako veæ ne postoji)") (set #lang-request "Koji jezik ¾elite instalirati?\n(Engleski je ugraðen)"); (set #guide-request "Koju Dokumentaciju ¾elite instalirati?") (set #arexx-request "Da li ¾elite instalirati ukljuèene ARexx Skripte?") (set #logos-request "Da li æe ukljuèeni Logoi biti instalirani?") (set #iconset-request "Koji Set Ikona ¾elite instalirati?") (set #iconset-amwb "Alternativne MagicWB") (set #tbi-request "Da li æe titlebar.image biti instalirana?") (set #tbiold-request "Instaler je otkrio da postoji starija inaèica titlebar.image instalirana na va¹em sistemu. Da li da je zamjenimo s novijom inaèicom?") (set #copysf-request "Kopiram SimpleFind datoteke") (set #copyarexx-request "Kopiram ARexx Skripte") (set #copylogos-request "Kopiram Logoe") (set #standarticon-text "Instaliram Standardne-4-Bojne-Ikone...") (set #mwbicon-text "Instaliram MagicWB Ikone...") (set #amwbicon-text "Instaliram Alternativne MagicWB Ikone...") (set #glowicon-text "Instaliram Glow Ikone...") (set #startup-request (cat "Da bi lako pokrenuli SimpleFind iz Shell-a, komanda za put bi trebala biti" "dodana u User-Startup.\n\nPut\"%s\" ADD\n\nDa li ¾elite" "da instaler to napravi za vas?")) ) ; ----- English string section ----- ( (set #wrongversion (cat "You have an old version of the program 'Installer' " "on your Amiga!\n\nThe installation procedure needs at least Installer 43.3.\n\n" "Please check your configuration!" )) (set #nocopyicon-text (cat "Couldn't find the program IconCopy!\n" " Usually it is included within the SimpleFind archive.")) (set #welcome "Welcome to the the Installation of SimpleFind!") (set #kind-request "Should SimpleFind be installed in a single directory? (recommened)") (set #singledir-request "Where should SimpleFind be installed?\n(A directory called SimpleFind is created, if it doesn't exists)") (set #lang-request "Which languages should be installed?\n(english is built in)"); (set #guide-request "Which documentations should be installed?") (set #arexx-request "Do you want to install the included ARexx Scripts?") (set #logos-request "Should the included logos be installed?") (set #iconset-request "Which icon set should be installed?") (set #iconset-amwb "Alternate MagicWB") (set #tbi-request "Should the titlebar.image be installed?") (set #tbiold-request "Intaller has discovered that there is an older version of the titlebar.image installed on your system. Should it replaced with a newer version?") (set #copysf-request "Copying SimpleFind files") (set #copyarexx-request "Copying ARexx Scripts") (set #copylogos-request "Copying Logos") (set #standarticon-text "Installing standart 4 color icons now...") (set #mwbicon-text "Installing MagicWB icons now...") (set #amwbicon-text "Installing alternate MagicWB icons now...") (set #glowicon-text "Installing Glow Icons...") (set #startup-request (cat "To start SimpleFind easily from Shell a path command should be" "added in the User-Startup.\n\nPath \"%s\" ADD\n\nDo you want that" "the installer do this for you?")) )))) ; ---------------------------------- (set #lang-1 "deutsch") (set #lang-2 "español") (set #lang-3 "hrvatski") (set #lang-4 "nederlands") (set #lang-5 "norsk") (set #lang-6 "svenska") (set #guide-1 "deutsch") (set #guide-2 "english") (set #guide-3 "español") (set #guide-4 "nederlands") (procedure P_CopyCatalog #p_lang #p_destdrawer (copyfiles (help @copyfiles-help) (source (tackon "SimpleFind3/Catalogs" #p_lang)) (dest (tackon #p_destdrawer #p_lang)) (all) ) ) (procedure P_CopyGuide #p_lang #p_destdrawer (copyfiles (help @copyfiles-help) (source (tackon "SimpleFind3/Help" #p_lang)) (dest (tackon #p_destdrawer #p_lang)) (all) ) ) (procedure P_BuildIconLine #p_source #p_destdir #p_destname ("iconcopy %s \"%s\" check\n" #p_source (tackon #p_destdir #p_destname)) ) (procedure P_SingleDrawer (set @default-dest (askdir (prompt #singledir-request) (help @askdir-help) (default @default-dest))) (if (= (fileonly(@default-dest)) "SimpleFind3") (set @default-dest (pathonly(@default-dest)))) (set #drawer (tackon @default-dest "SimpleFind3")) (if (= (exists(#drawer)) 1) (if (<> (fileonly(@default-dest)) "SimpleFind3") (abort("A programm called SimpleFind3 has been found but no SimpleFind3 drawer")) ) ) (complete 1) (set #lang (askoptions (prompt #lang-request) (help @askoptions-help) (choices (cat "\x1b[2p" #lang-1) #lang-2 #lang-3 #lang-4 #lang-5 #lang-6))) (complete 2) (set #guide (askoptions (prompt #guide-request) (help @askoptions-help) (choices (cat "\x1b[2p" #guide-1) #guide-2 #guide-3 #guide-4))) (complete 3) (set #arexx (askbool (prompt #arexx-request) (help @askbool-help) (default 1))) (complete 4) (set #logos (askbool (prompt #logos-request) (help @askbool-help) (default 1))) (complete 5) (set #iconset (askchoice (prompt #iconset-request) (help @askchoice-help) (choices "\x1b[2pStandart" "MagicWB" #iconset-amwb "GlowIcons" "Alternate GlowIcons"))) (complete 7) (makedir #drawer) (complete 10) (copyfiles (prompt #copysf-request) (help @copyfiles-help) (source "SimpleFind3") (choices "ReadMe" "SimpleFind3") (dest #drawer) (confirm)) (complete 30) (if (<> 0 #lang) ( (set #catdrawer (tackon #drawer "Catalogs")) (makedir #catdrawer) (if (<> 0 (bitand #lang 1)) (P_CopyCatalog #lang-1 #catdrawer)) (if (<> 0 (bitand #lang 2)) (P_CopyCatalog #lang-2 #catdrawer)) (if (<> 0 (bitand #lang 4)) (P_CopyCatalog #lang-3 #catdrawer)) (if (<> 0 (bitand #lang 8)) (P_CopyCatalog #lang-4 #catdrawer)) (if (<> 0 (bitand #lang 16)) (P_CopyCatalog #lang-5 #catdrawer)) (if (<> 0 (bitand #lang 32)) (P_CopyCatalog #lang-6 #catdrawer)) )) (complete 40) (if (<> 0 #guide) ( (set #guidedrawer (tackon #drawer "Help")) (makedir #guidedrawer) (if (<> 0 (bitand #guide 1)) (P_CopyGuide #guide-1 #guidedrawer)) (if (<> 0 (bitand #guide 2)) (P_CopyGuide #guide-2 #guidedrawer)) (if (<> 0 (bitand #guide 4)) (P_CopyGuide #guide-3 #guidedrawer)) (if (<> 0 (bitand #guide 8)) (P_CopyGuide #guide-4 #guidedrawer)) ) ) (complete 55) (if (<> 0 #arexx) ( (copyfiles (prompt #copyarexx-request) (help @copyfiles-help) (source "SimpleFind3/ARexx") (dest (tackon #drawer "ARexx")) (all) (confirm) (infos)) ) ) (complete 70) (if (<> 0 #logos) ( (copyfiles (prompt #copylogos-request) (help @copyfiles-help) (source "SimpleFind3/Logos") (dest (tackon #drawer "Logos")) (all) (confirm) (infos)) ) ) (complete 80) (if (= 0 #iconset) ( (working #standarticon-text) (textfile (dest "T:SF3_IconInstallScript") (append (cat "resident c/iconcopy force\n" (P_BuildIconLine "SimpleFind3" (pathonly #drawer) "SimpleFind3") (P_BuildIconLine "SimpleFind3/ReadMe" #drawer "ReadMe") (P_BuildIconLine "SimpleFind3/SimpleFind3" #drawer "SimpleFind3") (P_BuildIconLine "SimpleFind3/Catalogs" #drawer "Catalogs") (P_BuildIconLine "SimpleFind3/Help" #drawer "Help") (P_BuildIconLine "SimpleFind3/Logos" #drawer "Logos") (P_BuildIconLine "SimpleFind3/ARexx" #drawer "ARexx") (P_BuildIconLine "SimpleFind3/Help/deutsch" #drawer "Help/deutsch") (P_BuildIconLine "SimpleFind3/Help/english" #drawer "Help/english") (P_BuildIconLine "SimpleFind3/Help/español" #drawer "Help/español") (P_BuildIconLine "SimpleFind3/Help/nederlands" #drawer "Help/nederlands") (P_BuildIconLine "SimpleFind3/Help/deutsch/SimpleFind3.guide" #drawer "Help/deutsch/SimpleFind3.guide") (P_BuildIconLine "SimpleFind3/Help/deutsch/ARexx.guide" #drawer "Help/deutsch/ARexx.guide") (P_BuildIconLine "SimpleFind3/Help/english/SimpleFind3.guide" #drawer "Help/english/SimpleFind3.guide") (P_BuildIconLine "SimpleFind3/Help/english/ARexx.guide" #drawer "Help/english/ARexx.guide") (P_BuildIconLine "SimpleFind3/Help/español/SimpleFind3.guide" #drawer "Help/español/SimpleFind3.guide") (P_BuildIconLine "SimpleFind3/Help/español/ARexx.guide" #drawer "Help/español/ARexx.guide") (P_BuildIconLine "SimpleFind3/Help/nederlands/SimpleFind3.guide" #drawer "Help/nederlands/SimpleFind3.guide") (P_BuildIconLine "SimpleFind3/Help/nederlands/ARexx.guide" #drawer "Help/nederlands/ARexx.guide") "resident iconcopy remove\n" ))) ) ( (if (or (= 1 #iconset) (= 2 #iconset)) ( (working #mwbicon-text) (if (= 1 #iconset) ( (set #sficon "SimpleFind3_OM") ) ( (set #sficon "SimpleFind3_MS") )) (textfile (dest "T:SF3_IconInstallScript") (append (cat "resident c/iconcopy force\n" (P_BuildIconLine "SimpleFind3/Icons/MagicWB" (pathonly #drawer) "SimpleFind3") (P_BuildIconLine "SimpleFind3/Icons/MagicWB/ReadMe" #drawer "ReadMe") (P_BuildIconLine (tackon "SimpleFind3/Icons/MagicWB" #sficon) #drawer "SimpleFind3") (P_BuildIconLine "SimpleFind3/Icons/MagicWB/Catalogs" #drawer "Catalogs") (P_BuildIconLine "SimpleFind3/Icons/MagicWB/Help" #drawer "Help") (P_BuildIconLine "SimpleFind3/Icons/MagicWB/Logos" #drawer "Logos") (P_BuildIconLine "SimpleFind3/Icons/MagicWB/ARexx" #drawer "ARexx") (P_BuildIconLine "SimpleFind3/Icons/MagicWB/Drawer" #drawer "Help/deutsch") (P_BuildIconLine "SimpleFind3/Icons/MagicWB/Drawer" #drawer "Help/english") (P_BuildIconLine "SimpleFind3/Icons/MagicWB/Drawer" #drawer "Help/español") (P_BuildIconLine "SimpleFind3/Icons/MagicWB/Drawer" #drawer "Help/nederlands") (P_BuildIconLine "SimpleFind3/Icons/MagicWB/Guide" #drawer "Help/deutsch/SimpleFind3.guide") (P_BuildIconLine "SimpleFind3/Icons/MagicWB/Guide" #drawer "Help/deutsch/ARexx.guide") (P_BuildIconLine "SimpleFind3/Icons/MagicWB/Guide" #drawer "Help/english/SimpleFind3.guide") (P_BuildIconLine "SimpleFind3/Icons/MagicWB/Guide" #drawer "Help/english/ARexx.guide") (P_BuildIconLine "SimpleFind3/Icons/MagicWB/Guide" #drawer "Help/español/SimpleFind3.guide") (P_BuildIconLine "SimpleFind3/Icons/MagicWB/Guide" #drawer "Help/español/ARexx.guide") (P_BuildIconLine "SimpleFind3/Icons/MagicWB/Guide" #drawer "Help/nederlands/SimpleFind3.guide") (P_BuildIconLine "SimpleFind3/Icons/MagicWB/Guide" #drawer "Help/nederlands/ARexx.guide") "resident iconcopy remove\n" ))) ) ( (working #glowicon-text) (if (= 3 #iconset) ( (set #sficon "SimpleFind3_JU") (set #sfdrw "GlowIcons") ) ( (set #sficon "SimpleFind3_PV") (set #sfdrw "GlowIcons/DrawerSimpleFind") )) (textfile (dest "T:SF3_IconInstallScript") (append (cat "resident c/iconcopy force\n" (P_BuildIconLine (tackon "SimpleFind3/Icons" #sfdrw) (pathonly #drawer) "SimpleFind3") (P_BuildIconLine "SimpleFind3/Icons/GlowIcons/ReadMe" #drawer "ReadMe") (P_BuildIconLine (tackon "SimpleFind3/Icons/GlowIcons" #sficon) #drawer "SimpleFind3") (P_BuildIconLine "SimpleFind3/Icons/GlowIcons/Catalogs" #drawer "Catalogs") (P_BuildIconLine "SimpleFind3/Icons/GlowIcons/Help" #drawer "Help") (P_BuildIconLine "SimpleFind3/Icons/GlowIcons/Logos" #drawer "Logos") (P_BuildIconLine "SimpleFind3/Icons/GlowIcons/ARexx" #drawer "ARexx") (P_BuildIconLine "SimpleFind3/Icons/GlowIcons/deutsch" #drawer "Help/deutsch") (P_BuildIconLine "SimpleFind3/Icons/GlowIcons/english" #drawer "Help/english") (P_BuildIconLine "SimpleFind3/Icons/GlowIcons/Drawer" #drawer "Help/español") (P_BuildIconLine "SimpleFind3/Icons/GlowIcons/Drawer" #drawer "Help/nederlands") (P_BuildIconLine "SimpleFind3/Icons/GlowIcons/AmigaGuide.D" #drawer "Help/deutsch/SimpleFind3.guide") (P_BuildIconLine "SimpleFind3/Icons/GlowIcons/AmigaGuide.D" #drawer "Help/deutsch/ARexx.guide") (P_BuildIconLine "SimpleFind3/Icons/GlowIcons/AmigaGuide.GB" #drawer "Help/english/SimpleFind3.guide") (P_BuildIconLine "SimpleFind3/Icons/GlowIcons/AmigaGuide.GB" #drawer "Help/english/ARexx.guide") (P_BuildIconLine "SimpleFind3/Icons/GlowIcons/AmigaGuide.E(sp)" #drawer "Help/español/SimpleFind3.guide") (P_BuildIconLine "SimpleFind3/Icons/GlowIcons/AmigaGuide.E(sp)" #drawer "Help/español/ARexx.guide") (P_BuildIconLine "SimpleFind3/Icons/GlowIcons/AmigaGuide.NL" #drawer "Help/nederlands/SimpleFind3.guide") (P_BuildIconLine "SimpleFind3/Icons/GlowIcons/AmigaGuide.NL" #drawer "Help/nederlands/ARexx.guide") "resident iconcopy remove\n" ))) )) )) (execute "T:SF3_IconInstallScript") (delete "T:SF3_IconInstallScript") (complete 95) (startup "SimpleFind3" (prompt (#startup-request #drawer)) (command ("Path \"%s\" ADD" #drawer)) (help @startup-help)) ) (procedure P_Scattered ) (welcome #welcome) (complete 0) (if (<> (exists "c/IconCopy") 1) ( (abort #nocopyicon-text) )) ;(set #kind (askbool (prompt #kind-request ) ; (help @askbool-help) ; (default 1) ; ) ;) ;(if (= #kind 1) ;( (P_SingleDrawer) ;) ;( ; (P_Scattered) ;) ;) (complete 100)