; Install script for Background
; V1.1 04.08.1997

;--------------------------------- Translators --------------------------------
;Anyone who wants to translate the texts used in this scipts is hereby
;encouraged to do so. Below is a template use this and the English texts as a
;template for your translation. When fininshed, please send me the script for
;including it in the next release.
;
;   Roland Haas
;   Mühlweg 16
;   77948 Friesenheim
;   GERMANY

;--- cut here --8<------insert point is marked later----------------------------

;--- <your language> ---
;(if (= @language "<your-language>")
;(
;(if (< (getversion) 38) (set @abort-install "<Abort install>"))
;(set #Ja <Yes>)
;(set #Nein <No>)
;(set #hallo
;cat (<welcome to the Installation...>
;))
;(set #WohinKopieren
;(cat <Where to copy the main program>
;))
;(set #help_WohinKopieren
;(cat <Help text: Where to copy the main program?>
;))
;(set #KopiereHauptprogramm
;(cat <Displayed while copying the main program>
;))
;(set #help_KopiereHauptprogramm
;(cat <Where the main program is copied to>
;))
;(set #PrefsKopieren?
;(cat (<Want to copy the prefs?>
;))
;(set #help_PrefsKopieren?
;(cat <Help text: What does the preferences editor?>
;))
;(set #PrefsWohinKopieren
;(cat <Where to copy the prefs editor>
;))
;(set #help_PrefsWohinKopieren
;(cat <Help text: Where to copy the prefs editor?>
;))
;(set #KopierePrefs
;(cat <Displayed while copying the prefs editor>
;))
;(set #help_KopierePrefs
;(cat <Where the prefs editor is copied to>
;))
;(set #PresetKopieren?
;(cat <Want an example?>
;))
;(set #help_PresetKopieren?
;(cat <Help text: An example?>
;))
;(set #PresetWohinKopieren
;(cat <Where to copy the example to>
;))
;(set #help_PresetWohinKopieren
;(cat <Help text: Where to copy the example to?>
;))
;(set #KopierePreset
;(cat <Displayed while copying the eample>
;))
;(set #help_KopierePreset
;(cat <Where the example is copied to>
;))
;(set #preset-datei
;(cat "\"<complete path of picture>\" #?                  TILE ;standard picture\n"
;     "\"<complete path of picture>\" %                   TILE ;workbench window\n"
;     "\"<complete path of picture>\" \"Workbench Screen\" TILE SCREEN ;screen picture\n"
;     "\"<complete path of picture>\" \"<Pattern: (),%,#?,|>\" \"<Pattern: (),%,#?,|>\" TILE\n"
;     ";Copy the line above if you need more pictures\n"
;))
;(set #VerändereStart?
;(cat <Start Background during reboot?>
;))
;(set #help_VerändereStart?
;(cat <Help text: Why should it be started?>
;))
;(set #VerändereStart
;(cat <Displayed while adding entry to user-startup>
;))
;(set #help_VerändereStart
;(cat <Help text: Why am I adding this entry?>
;))
;(set #WelcheAnleitungen
;(cat <Docs?>
;))
;(set #help_WelcheAnleitungen
;(cat <Help text: Guide - AmigaGuide format>
;     <           ASCII - plain text>
;     <           experts can install foreign languages>
;))
;(set #AnlWohinKopieren
;(cat <Where to copy the docs to>
;))
;(set #help_AnlWohinKopieren
;(cat <Help text: Guide - AmigaGuide format>
;     <           ASCII - plain text>
;     <           experts can install foreign languages>
;))
;(set #KopiereAnleitungen
;(cat <Select docs you need>
;))
;(set #help_KopiereAnleitungen
;(cat <Help text: What is what?>
;     <           Language markers>
;))
;(set #WoSindProc
;(cat <Installation completed\n>
;     <Where Background can be found\n>
;))
;(set #WoSindPrefs
;(cat <Where the prefs editor can be found\n>
;))
;(set #WoSindPresets
;(cat <Where the example can be found\n>
;))
;(set #WoSindAnl
;(cat <Where the docs can be found\n>
;))
;) ;<your language>

;---cut here -8<--------------------------------------------------------------

;--- Deutsch ---
(if (= @language "deutsch")
(
(if (< (getversion) 38) (set @abort-install "Installation abbrechen"))
(set #Ja "Ja")
(set #Nein "Nein")
(set #hallo
     "Willkommen zur Installation des Verschönerungsprogramms \"Background\"! "
)
(set #WohinKopieren
(cat "Bitte geben Sie die Schublade an, in die das Hauptprogramm \"Background\" "
     "kopiert werden soll. "
))
(set #help_WohinKopieren
(cat "Sie müssen das Verzeichnis angeben, in das das Hauptprogramm \"Background\" "
     "kopiert werden soll. Dieses Programm muß möglichst früh während des "
     "Startvorgangs ausgeführt werden. Am besten kopieren Sie es in die Schublade "
     "Tools und rufen es in der \"user-startup\" auf. Wenn das nicht möglich ist "
     "kopieren sie es am besten nach WBStartup. "
))
(set #KopiereHauptprogramm
(cat "Kopiere das Hauptprogramm und sein Piktogramm. "
))
(set #help_KopiereHauptprogramm
(cat "Momentan wird das Hauptprogramm mitsammt seinem Piktogramm nach %s "
     "kopiert. "
))
(set #PrefsKopieren?
     "Wollen Sie das Voreinstellungsprogramm auch kopieren? "
)
(set #help_PrefsKopieren?
(cat "Mit Hilfe des Voreinstellungsprogramms können Sie auf einfache Weise "
     "festlegen welches Bild für welches Fenster verwendet werden soll. "
     "Es sollte auf jeden Fall kopiert werden, da das Format der Einstellungsdatei "
     "ziemlich unübersichtlich ist. "
))
(set #PrefsWohinKopieren
(cat "Bitte geben Sie die Schublade an, in die das Voreinstellungsprogramm "
     "kopiert werden soll. Üblicherweise ist das Prefs. "
))
(set #help_PrefsWohinKopieren
(cat "Sie müssen das Verzeichnis angeben, in das das Voreinstellungsprogramm "
     "kopiert werden soll. Mit Hilfe dieses Programms legen Sie fest welches "
     "Bild für welches Fenster verwendet werden soll. "
))
(set #KopierePrefs
(cat "Kopiere das Voreinstellungsprogramm und sein Piktogramm. "
))
(set #help_KopierePrefs
(cat "Momentan wird das Voreinstellungsprogramm mitsammt seinem Piktogramm "
     "nach %s kopiert. "
))
(set #PresetKopieren?
     "Wollen Sie eine Beispielkonfiguration erstellen lassen? "
)
(set #help_PresetKopieren?
(cat "Erstellt in einem wählbaren Verzeichnis eine Konfigurationsdatei, die "
     "leicht an ihr System angepaßt werden kann. "
))
(set #PresetWohinKopieren
(cat "Bitte geben Sie die Schublade an, in die die Beispielkonfiguration "
     "kopiert werden soll. Üblicherweise ist das Prefs/Presets. "
))
(set #help_PresetWohinKopieren
(cat "Sie müssen das Verzeichnis angeben, in das die Beispielkonfiguration "
     "kopiert werden soll. Diese Datei ist als Vorlage gedacht und muß noch "
     "an ihre persönlichen Bedürfnisse angepaßt werden. "
))
(set #KopierePreset
(cat "Kopiere die Beispielkonfiguration. "
))
(set #help_KopierePreset
     "Momentan wird die Beispielkonfiguration nach %s kopiert. "
)
(set #preset-datei
(cat "\"<Vollständiger Pfad des Bildes>\" #?                  TILE ;Standartbild\n"
     "\"<Vollständiger Pfad des Bildes>\" %                   TILE ;Workbenchfenster\n"
     "\"<Vollständiger Pfad des Bildes>\" \"Workbench Screen\" TILE SCREEN ;Screen\n"
     "\"<Vollständiger Pfad des Bildes>\" \"<Muster: (),%,#?,|>\"  \"<Muster: (),%,#?,|>\"TILE\n"
     ";Die vorhergehende Zeile für weitere Bilder verdoppeln\n"
))
(set #VerändereStart?
     "Soll Background während des Systemstart aufgerufen werden? "
)
(set #help_VerändereStart?
(cat "Background sollte während des Systemstarts, möglicht noch vor loadwb, "
     "aufgerufen werden, da sich so ein lästiger Effekt vermeiden läßt. "
     "(Das schnelle Öffnen und Schließen eines Fensters um die Hintergrundbilder "
     "sichtbar zu machen). "
))
(set #VerändereStart
     "Füge Aufruf von Background in die user-startup ein. "
)
(set #help_VerändereStart
(cat "Background muß möglichst früh während des systemstarts aufgerufen werden. "
     "Deshalb wird ein Eintrag in die user-startup eingefügt, der Background "
     "noch bevor die Workbench geladen wird aufruft. "
))
(set #WelcheAnleitungen
     "Welche Anleitungen möchten Sie kopieren? "
)
(set #help_WelcheAnleitungen
(cat "Sie können sich aussuchen welche Anleitungen sie kopieren wollen. "
     "Die Guide-Anleitung können Sie nur verwenden, wenn sie AmigaGuide oder "
     "MultiView besitzen.\n"
     "EXPERTen können auch fremdsprachige Anleitungen kopieren. (Auch wenn mir "
     "nicht klar ist, warum man das tun sollte) "
))
(set #AnlWohinKopieren
     "In welches Verzeichnis soll die Dokumentation kopiert werden? "
)
(set #help_AnlWohinKopieren
(cat "Wohin wollen Sie die Anleitungen für das Hauptprogramm und das "
     "Voreinstellungsprogramm kopieren?\n"
     "Als EXPERTe können Sie auch fremdsprachige Anleitungen kopieren, sonst "
     "wird immer die Anleitung in der jeweiligen Landessprache kopiert (oder "
     "Englisch, wenn es keine Übersetzung gibt. "
))
(set #KopiereAnleitungen
     "Welche Anleitungen benötigen Sie? "
)
(set #help_KopiereAnleitungen
(cat "Wählen Sie diejenige Anleitung aus, die für Sie in Frage kommt. Die "
     "Anleitungen für das Hauptprogramm beginnen alle mit \"Background\", "
     "die für das Voreinstellungsprogramm mit \"BackPrefs\".\n"
     "ASCII bedeutet reinen Text, Guide ein AmigaGuide Dokument. "
))
(set #WoSindProc
(cat "Installation abgeschlossen!\n"
     "\"Background\" finden Sie nun in Ihrer Schublade (oder "
     "Partition) \"%s\"\n"
))
(set #WoSindPrefs
(cat "Das Voreinstellungsprogramm finden Sie nun in Ihrer Schublade (oder "
     "Partition) \"%s\"\n"
))
(set #WoSindPresets
(cat "Die Beispielkonfiguration finden Sie nun in Ihrer Schublade (oder "
     "Partition) \"%s\"\n"
))
(set #WoSindAnl
     "Die Dokumentation finden Sie nun in Ihrer Schublade (oder Partition) \"%s\"\n"
)
) ;Deutsch

;----- insert here -----------------------------------------------------------

;--- English ---
(
(set @language "english")
(set #Ja "Yes")
(set #Nein "No")
(set #hallo
     "Welcome to the installation utility for \"Background\"! "
)
(set #WohinKopieren
(cat "Please choose a drawer where you want the main-program \"Background\" "
     "to be copied to. "
))
(set #help_WohinKopieren
(cat "You must select a drawer to which the main-program \"Background\" should "
     "be copied. This program must be started as early as possible during "
     "system reboot. It's best to copy it to the Tools drawer and call it within "
     "the \"user-startup\". If this isn't possible copy the programm to WBStartup. "
))
(set #KopiereHauptprogramm
(cat "Copying the main-program and its icon. "
))
(set #help_KopiereHauptprogramm
     "Currently the main-program and its icon are copied to %s. "
)
(set #PrefsKopieren?
     "Do you want to also copy the preferences editor? "
)
(set #help_PrefsKopieren?
(cat "Using the preferences editor you can easily define which picture should "
     "be used for a window. You should allways copy it, because the file it "
     "creates for you has a rather _strange_ layout. ;-)"
))
(set #PrefsWohinKopieren
(cat "Please select a drawer which the preferences editor should be copied "
     "to. Usualy this would be Prefs. "
))
(set #help_PrefsWohinKopieren
(cat "You must choose the drawer to which the preferences editor should be copied. "
     "This program is used to define which picture is to use for a window. "
))
(set #KopierePrefs
(cat "Copying the preferences editor and its icon... "
))
(set #help_KopierePrefs
     "Currently the preferences editor and its icon are copied to %s. "
)
(set #PresetKopieren?
     "Do you want the example configuration to be created? "
)
(set #help_PresetKopieren?
(cat "A configuration file, that is easy to adapt to your own wishes, will "
     "be created in a definable drawer. "
))
(set #PresetWohinKopieren
(cat "Please choose a drawer where the example configuration will be stored. "
     "Usualy this would be Prefs/Presets. "
))
(set #help_PresetWohinKopieren
(cat "You must select a drawer to which the example configuration should be "
     "copied to. This file is a template that needs to be adapted to your "
     "personal requirements. "
))
(set #KopierePreset
(cat "Copying the example configuration... "
))
(set #help_KopierePreset
     "Currently the example configuration is copied to %s. "
)
(set #preset-datei
(cat "\"<complete path of picture>\" #?                  TILE ;standard picture\n"
     "\"<complete path of picture>\" %                   TILE ;workbench window\n"
     "\"<complete path of picture>\" \"Workbench Screen\" TILE SCREEN ;screen picture\n"
     "\"<complete path of picture>\" \"<Pattern: (),%,#?,|>\" \"<Pattern: (),%,#?,|>\" TILE\n"
     ";Copy the line above if you need more pictures\n"
))
(set #VerändereStart?
     "Should Background be called uppon reset? "
)
(set #help_VerändereStart?
(cat "Background should be started during system reboot, if possibly before "
     "workbench is loaded, to avoid an annoying effect. "
     "(Fast opening and closing a window to make the pictures visible) "
))
(set #VerändereStart
     "Adding background to the user-startup... "
)
(set #help_VerändereStart
(cat "Background must be started as early as possibly during system reboot. "
     "Because of this an entry is added to the user-startup that calls Background "
     "even before workbench is loaded. "
))
(set #WelcheAnleitungen
     "Which docs do you need? "
)
(set #help_WelcheAnleitungen
(cat "You can choose which docs you need. The Guide docs are only usable if "
     "you own AmigaGuide or MultiView.\n"
     "EXPERTs are also allowed to copy foreign language docs. (Also "
     "I don't know why you should do this) "
))
(set #AnlWohinKopieren
     "Where should the docs be copied to? "
)
(set #help_AnlWohinKopieren
(cat "Where do you want to copy the docs for the main-program and the preferences "
     "editor?\n"
     "As an EXPERT you are allowed to copy foreign language docs, otherwise "
     "the doc in your own language is copied (or English if there's no translation). "
))
(set #KopiereAnleitungen
     "Which docs do you need? "
)
(set #help_KopiereAnleitungen
(cat "Choose the docs that are in your language. The docs for the main-program "
     "all start with \"Background\", the ones for the preferences editor with "
     "\"BackPrefs\".\n"
     "ASCII means plain, Guide an AmigaGuide document. "
))
(set #WoSindProc
(cat "Installation cpompleted!\n"
     "\"Background\" can be found in %s drawer (or partition).\n"
))
(set #WoSindPrefs
     "The preferences editor can be found in your %s drawer (or partition).\n"
)
(set #WoSindPresets
     "The example configuration can be found in your %s drawer (or partition).\n"
)
(set #WoSindAnl
     "The docs can be found in your %s drawer (or partition).\n"
)
)) ;English

;-----------------------------------------------------------------------------
;Begrüßung
(welcome #hallo)
(complete 0)

;Wohin kopieren?
(if @user-level
   (set @default-dest
      (askdir
         (prompt #WohinKopieren)
         (help #help_WohinKopieren)
         (default
            (if (exists (tackon @default-dest "Tools") (noreq))
               (tackon @default-dest "Tools")
               (if (exists (tackon @default-dest "WBStartup") (noreq))
                  (tackon @default-dest "WBStartup")
                  (cat @default-dest "") ;Keins von oben passt
               ) ;das untere if
            ) ;das obere if
         ) ;default
      ) ;askdir
   ) ;set
   (set @default-dest (tackon @default-dest "Tools"))
) ;if user
(complete 10)

;Hauptprogramm kopieren
(copyfiles (prompt #KopiereHauptprogramm)
           (help (#help_KopiereHauptprogramm @default-dest))
           (source "Background")
           (dest @default-dest)
           (infos)
           (noposition)
           (optional "force" "askuser")
) ;copyfiles
(complete 20)

;------------------------------------------------------------------------------

;Auch das Prefs-Programm kopieren?
(set #prefs-dest "Sys:Prefs")
(if (= @user-level 2)
   (set #copy-prefs (askbool (prompt #PrefsKopieren?) (help #help_PrefsKopieren?) (choices #Ja #Nein)))
   (set #copy-prefs 1)
) ;Nur für Experten
(if #copy-prefs
;Wohin damit?
   (((if @user-level
      (set #prefs-dest
         (askdir
            (prompt #PrefsWohinKopieren)
            (help #help_PrefsWohinKopieren)
            (default
               (if (exists (tackon (cat (getdevice @default-dest) ":") "Prefs") (noreq))
                  (tackon (cat (getdevice @default-dest) ":") "Prefs")
                  (cat @default-dest "")
               ) ;das obere if
            ) ;default
         ) ;askdir
      ) ;set
      (set #prefs-dest (tackon (cat (getdevice @default-dest) ":") "Prefs"))
   (complete 30))) ;if user
;Prefs-Programm kopieren
   ((copyfiles (prompt #KopierePrefs)
              (help (#help_KopierePrefs #prefs-dest))
              (source "Prefs/Background")
              (dest #prefs-dest)
              (infos)
              (noposition)
              (optional "force" "askuser"))
   ) ;copyfiles
   (complete 40))
) ;if KopierePrefs?

;Preset kopieren
(if (= @user-level 2)
   (set #copy-preset (askbool (prompt #PresetKopieren?) (help #help_PresetKopieren?) (default 1) (choices #Ja #Nein)))
   (set #copy-preset 1)
) ;Nur Experten dürfen wählen
(complete 50)

(if #copy-preset
;Wohin damit?
   ((set #preset-dest
      (if @user-level
         (askdir
            (prompt #PresetWohinKopieren)
            (help #help_PresetWohinKopieren)
            (default
               (if #copy-prefs
                  (
                     (if (exists (tackon #prefs-dest "Presets") (noreq))
                        (tackon #prefs-dest "Presets")
                        (if (= (exists "ENVARC:" (noreq)) 2)
                           (cat "ENVARC:" "")
                           (cat @default-dest "")
                        ) ;if ENV:
                     ) ;if Presets
                  )
                  (
                     (if (= (exists "ENVARC:" (noreq)) 2)
                        (cat "ENVARC:" "")
                        (cat @default-dest "")
                     ) ;if ENV:
                  )
               ) ;if copyprefs
            ) ;default
         ) ;askdir
         (tackon #prefs-dest "Presets")
      ) ;if user
   ) ;set preset-dest
;Preset erstellen
   (textfile
      (prompt #KopierePreset)
      (help #help_KopierePreset #preset-dest)
      (dest (tackon #preset-dest "background.conf"))
      (append #preset-datei)
   ) ;textfile
   (copyfiles
      (prompt #KopierePreset)
      (help #help_KopierePreset #preset-dest)
      (dest #preset-dest)
      (source "Prefs/Presets/Background.conf.info")
      (optional "force" "askuser")
   )) ;copyfiles (Icon)
) ;if KopierePreset?
(complete 60)


;------------------------------------------------------------------------------

;Automatisch starten?
(if @user-level
   (if (patmatch "#?WBStartup(%|/)" @default-dest)
      (set #auto-start 0)
      (set #auto-start (askbool (prompt #VerändereStart?) (help #help_VerändereStart?) (default 1) (choices #Ja #Nein)))
   ) ;if NOT
   (set #auto-start 1)
) ;if @user-level
;startup-sequence ändern
(if #auto-start
   (startup
      @app-name
      (prompt #VerändereStart)
      (help #help_VerändereStart)
      (command (tackon @default-dest "Background NOSCAN OPENWBENCH"))
   ) ;startup
) ;if auto-start
(complete 70)

;------------------------------------------------------------------------------

;Welche Anleitungen kopieren?
(if @user-level
   (set #docs-dest
         (askdir
            (prompt #AnlWohinKopieren)
            (help #help_AnlWohinKopieren)
            (default @default-dest)
         ) ;askdir
   ) ;set
   (set #docs-dest @default-dest)
) ;if @user-level
(complete 80)
;Anleitungen kopieren
(copyfiles
   (prompt #KopiereAnleitungen)
   (help #help_KopiereAnleitungen)
   (dest #docs-dest)
   (source "Docs/")
   (if (= @user-level 2) (all) (pattern ("(Background|BackPrefs).(guide|doc).%s" @language)))
   (infos)
   (noposition)
   (optional "force" "askuser")
   (confirm)
) ;copyfiles (Anleitung)
(complete 100)

(exit
   (#WoSindProc @default-dest)
   (if #copy-prefs (#WoSindPrefs #prefs-dest))
   (if #copy-preset (#WoSindPresets #preset-dest))
   (#WoSindAnl #docs-dest)
   (quiet)
) ; exit