; $VER: Install 1.0 (21.11.98)
; 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 SimpleFind Archiv."))

(set #welcome "Willkommen zur Installation von SimpleFind!")
(set #kind-request "Soll SimpleFind in ein einziges Verzeichnis installiert werden (empfohlen)?")
(set #singledir-request "Wohin soll SimpleFind installiert werden?\n(ein Verzeichnis 'SimpleFind' 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 #tbi-request "Soll das titlebar.image installiert werden?")
(set #tbiold-request "Es wurde eine alte Version des titlebar.image gefunden. Soll es durch eine neuere ersetzt werden?")
(set #copysf-request "Kopiere SimpleFind 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 #startup-request
(cat "Um SimpleFind leichter von der Shell aus zu starten, sollte ein "
     "Pfad in der User-Startup auf das SimpleFind 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 #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 #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 #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 @default-dest "RAM:")

(procedure P_SingleDrawer
 (set @default-dest (askdir (prompt #singledir-request)
                    (help @askdir-help)
                    (default @default-dest)))

 (if (= (fileonly(@default-dest)) "SimpleFind")
  (set @default-dest (pathonly(@default-dest))))

 (set #drawer (tackon @default-dest "SimpleFind"))

 (if (= (exists(#drawer)) 1)
  (if (<> (fileonly(@default-dest)) "SimpleFind")
   (abort("A programm called SimpleFind has been found but no SimpleFind drawer"))
  )
 )

 (complete 1)

 (set #lang (askoptions
            (prompt #lang-request)
            (help @askoptions-help)
            (choices "\x1b[2pdeutsch" "español" "français" "norsk" "suomi" "svenska" "hrvatski")))

 (complete 2)

 (set #guide (askoptions
            (prompt #guide-request)
            (help @askoptions-help)
            (choices "\x1b[2pdeutsch" "english" "español")))

 (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)))

 (complete 6)

 (if(= (exists("SYS:Classes/Images/titlebar.image")) 1 )
 (
  (set #tbi 0)

  (if(=(earlier "SYS:Classes/Images/titlebar.image" "SimpleFind/Classes/Images/titlebar.image")1)
   (
    (if( ( = (askbool
            (prompt #tbiold-request)
           (help @askbool-help)
            (default 1))) 1)
   (
    (copylib (prompt "Copying titlebar.image")
             (help @copylib-help)
             (source "SimpleFind/Classes/Images/titlebar.image")
             (dest "SYS:Classes/Images"))
   ))
  ))
 )
 (
  (set #tbi (askbool
            (prompt #tbi-request)
            (default 1)
            (help @askbool-help)))
 ))

 (complete 7)

 (makedir #drawer)

 (complete 10)

 (copyfiles (prompt #copysf-request)
          (help @copyfiles-help)
          (source "SimpleFind")
               (choices "ReadMe" "SimpleFind" "SimpleFindPrefs")
          (dest #drawer)
          (confirm))

 (complete 30)

 (if (<> 0 #lang)
 (
  (set #catdrawer (tackon #drawer "Catalogs"))
  (makedir #catdrawer)

  (if (<> 0 (bitand #lang 1))
   (copyfiles
              (help @copyfiles-help)
              (source "SimpleFind/Catalogs/deutsch")
              (dest (tackon #catdrawer "deutsch"))
              (all)
              )
  )
  (if (<> 0 (bitand #lang 2))
   (copyfiles
              (help @copyfiles-help)
              (source "SimpleFind/Catalogs/español")
              (dest (tackon #catdrawer "español"))
              (all)
              )
  )
  (if (<> 0 (bitand #lang 4))
   (copyfiles
              (help @copyfiles-help)
              (source "SimpleFind/Catalogs/français")
              (dest (tackon #catdrawer "français"))
              (all)
              )
  )
  (if (<> 0 (bitand #lang 8))
   (copyfiles
              (help @copyfiles-help)
              (source "SimpleFind/Catalogs/norsk")
              (dest (tackon #catdrawer "norsk"))
              (all)
              )
  )
  (if (<> 0 (bitand #lang 16))
   (copyfiles
              (help @copyfiles-help)
              (source "SimpleFind/Catalogs/suomi")
              (dest (tackon #catdrawer "suomi"))
              (all)
              )
  )
  (if (<> 0 (bitand #lang 32))
   (copyfiles
              (help @copyfiles-help)
              (source "SimpleFind/Catalogs/svenska")
              (dest (tackon #catdrawer "svenska"))
              (all)
              )
  )
  (if (<> 0 (bitand #lang 64))
   (copyfiles
              (help @copyfiles-help)
              (source "SimpleFind/Catalogs/hrvatski")
              (dest (tackon #catdrawer "hrvatski"))
              (all)
              )
  )
 ))

 (complete 40)

 (if (<> 0 #guide)
 (
  (set #guidedrawer (tackon #drawer "Help"))
  (makedir #guidedrawer)

  (if (<> 0 (bitand #guide 1))
   (copyfiles (help @copyfiles-help)
              (source "SimpleFind/Help/deutsch/SimpleFind.guide")
              (dest (tackon #guidedrawer "deutsch"))
              )
  )

  (if (<> 0 (bitand #guide 2))
   (copyfiles
              (help @copyfiles-help)
              (source "SimpleFind/Help/english/SimpleFind.guide")
              (dest (tackon #guidedrawer "english"))
              )
  )

  (if (<> 0 (bitand #guide 4))
   (copyfiles (help @copyfiles-help)
              (source "SimpleFind/Help/español/SimpleFind.guide")
              (dest (tackon #guidedrawer "español"))
              )
  )
 )
 )

 (complete 55)


 (if (<> 0 #arexx)
 (
  (copyfiles (prompt #copyarexx-request)
             (help @copyfiles-help)
             (source "SimpleFind/ARexx")
             (dest (tackon #drawer "ARexx"))
             (all)
             (confirm)
             (infos))
 )
 )

 (complete 65)

 (if (<> 0 #logos)
 (
  (copyfiles (prompt #copylogos-request)
             (help @copyfiles-help)
             (source "SimpleFind/Logos")
             (dest (tackon #drawer "Logos"))
             (all)
             (confirm)
             (infos))
 )
 )

 (complete 75)

 (if (<> 0 #tbi)
 (
   (set #tbidrawer (tackon #drawer "Classes/Images"))
   (makedir #tbidrawer)
   (copylib (prompt "Copying titlebar.image")
            (help @copylib-help)
            (source "SimpleFind/Classes/Images/titlebar.image")
            (dest #tbidrawer))

 ))

 (complete 80)

 (if (= 0 #iconset)
 (
  (working #standarticon-text)
  (execute ("iconinst_standart \"%s\"" #drawer))
 )
 (
  (if (= 1 #iconset)
  (
   (working #mwbicon-text)
   (execute ("iconinst_mwb \"%s\"" #drawer))
  )
  (
   (working #amwbicon-text)
   (execute ("iconinst_amwb \"%s\"" #drawer))
  ))
 ))

 (complete 95)


 (startup "SimpleFind"
    (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)