; Installer for WBInfo 3.0 (31.3.1999)
(SET @default-dest "SCALOS:Modules/")
(SET @default-docdir "HELP:")
(SET default_lang 0)

; ***** english texts *****

(SET #needKick (CAT "\nWBInfo needs Workbench Version 38 at least." ) )

(SET #startMsg (CAT "\nWBInfo 3.0 - the ultimate information replacement !\n\n"
                     "This script installs WBInfo on your AMIGA.\n\n") )

(SET #destPrompt (CAT "Please choose the destination directory for WBInfo.\n" ) )

(SET #copyPFiles (CAT "Copying program files") )

(SET #langPrompt (CAT "Select the languages you wish to use with WBInfo.") )

(SET #DocPrompt (CAT "Select the directory for the documentation file.") )

(SET #exitMsg (CAT "WBInfo installation succeeded\nYou should reboot now.") )

; ***** german texts *****

(IF (= @language "deutsch")
(
(SET default_lang 1)

(SET #needKick (CAT "\nWBInfo benötigt mindestens die Workbench-Version 38." ) )

(SET #startMsg (CAT "\n\WBInfo 3.0 - der ultimative informations ersatz !\n\n"
                     "Diese Datei installiert WBInfo auf ihrem AMIGA.\n\n") )

(SET #destPrompt (CAT "Wählen Sie bitte das Zielverzeichnis für WBInfo.\n") )

(SET #copyPFiles (CAT "Kopiere Programmdateien") )

(SET #langPrompt (CAT "Wählen Sie die Sprachen, die Sie mit WBInfo benutzen wollen.") )

(SET #DocPrompt (CAT "Wählen Sie ein Verzeichnis, in welches die Dokumentation kopiert werden soll.") )

(SET #exitMsg (CAT "WBInfo wurde erfolgreich installiert!\n Sie sollten nun das System neustarten.") )
)
)

; ***** start installation *****

(if (< (/ (GETVERSION) 65536) 38)
    (ABORT #needKick)
)

(MESSAGE #startMsg)

; ***** get dest dir for WBInfo *****

(SET @default-dest
    (ASKDIR (PROMPT  #destPrompt)
            (HELP    askdir-help)
            (DEFAULT @default-dest )))

(COPYFILES (SOURCE "WBInfo")
           (DEST @default-dest )
           (NEWNAME "Information.module")
           (HELP copyfiles-help)
           (INFOS)
           (NOPOSITION)
)

; ***** install some languages *****

(SET sprachen (ASKOPTIONS (PROMPT #langPrompt)
                          (HELP   askoptions-help)
                          (CHOICES "english"
                                   "deutsch"
                          )
                          (DEFAULT (+ default_lang 0) )
              )
)

(if (IN sprachen 1)
    (COPYFILES (SOURCE "catalogs/deutsch/WBInfo.catalog")
               (DEST "Locale:Catalogs/deutsch") )
)
; ***** get dest for doc files *****

(SET @DocDir
    (ASKDIR (PROMPT  #DocPrompt)
            (HELP    askdir-help)
            (DEFAULT @default-docdir)
            (NEWPATH)
    )
)

; ***** install doc files *****

(if (IN sprachen 0)
  (SET SDocDir  "docs/english")
)
  
(if (IN sprachen 1)
  (SET SDocDir "docs/deutsch")
)  

(COPYFILES (SOURCE  SDocDir)
           (DEST    @DocDir)
           (CHOICES "WBInfo.guide")
           (INFOS)
           (NOPOSITION)
)

(EXIT #exitMsg)