; $VER: Install_PhoneCall 2.6 (7.11.95)
; Install script for PhoneCall on Workbench 2.1 or higher

;========================================================
; English strings

(set default_lang 256)

  (set #msg-bad-kick          (cat "\nYou have to use at least\nAmigaOS 2.04\nto use PhoneCall."))
  (set #msg-pcalldest         (cat "Please select the path where to install PhoneCall. A drawer 'PhoneCall' will be created."))
  (set #msg-abort             "File \"PhoneCall\" already exists.")
  (set #msg-existMsg          (cat "\n\nThere already exists a copy of `PhoneCall'. "
                              "If you proceed, existing files will be updated. Your phonebook "
                              "will be leaved untouched."))
  (set #msg-destdir           (cat "Please select the path where to install the main program\n'PhoneCall'."
                              "\nWBStartup, f.e."))
  (set #msg-copypc            "\nCopying PhoneCall to\n")
  (set #msg-askicon           "Please, select an program-icon to install.\n")
  (set #msg-icon1             "MagicWB standard icon")
  (set #msg-icon2             "MagicWB icon by Jodel (Schneider)")
  (set #msg-icon3             "ROM Icon (grey) by Roman Patzner")
  (set #msg-icon4             "ROM Icon (brown) by Roman Patzner")
  (set #msg-icon5             "NewIcon")
  (set #msg-installIcon       "Installing %s...")
  (set #msg-askdoc            "Please select the manual(s) to install.\n")
  (set #msg-guidedoc          "German AmigaGuide manual")
  (set #msg-dvidoc            "German DVI manual")
  (set #msg-txtdoc            "German manual (ASCII)")
  (set #msg-txtdoc3           "Greek manual (ASCII)")
  (set #msg-guidedoc3         "Greek AmigaGuide manual")
  (set #msg-installguide      "Installing amigaguide manual...")
  (set #msg-installdvi        "Installing DVI manual...")
  (set #msg-installtxt        "Installing ASCII manual...")
  (set #msg-asklanguage       "Which language catalog(s) do you want to install?")
  (set #msg-language0         "english (built-in)")
  (set #msg-language1         "german")
  (set #msg-language2         "franais")
  (set #msg-language3         "greek")
  (set #msg-languagehelp      (cat "If you are using a version of the AmigaOS which "
                              "does not support localization, please do not install "
                              "a catalog file.\n\n "
                              "The english built-in language does not require "
                              "a catalog file."))
  (set #msg-installlanguage1  "Installing german catalog for PhoneCall...")
  (set #msg-installlanguage2  "Installing franais catalog for PhoneCall...")
  (set #msg-askonline         "Which onlinehelp(s) do you want to install?")
  (set #msg-onlinehelp        (cat "If you are using a version of the AmigaOS which "
                              "does not support localization, please do not install "
                              "onlinehelp(s)."))
  (set #msg-installonline1    "Installing german onlinehelp for PhoneCall...")
  (set #msg-installonline2    "Installing franais online-help for PhoneCall...")
  (set #msg-installonline3    "Installing greek online-help for PhoneCall...")
  (set #msg-asktextfield      (cat "\nDo you want to install the\n\nTextField.gadget Version %ld.%ld\n"
                              "\ninto 'SYS:Classes/Gadgets'?\n"
                              "\nYour current version is %ld.%ld\n\n"))
  (set #msg-textfieldhelp     "Installs the TextField.gadget in your 'SYS:Classes/Gadgets' directory.")
  (set #msg-installtextfield  "\nInstalling TextField.gadget...\n")
  (set #msg-installpb         "\nInstalling initial PhoneCall phonebook...\n")
  (set #msg-bye               "Have fun with PhoneCall\nPlease, support the idea of shareware!")
  (set #msg-docdir            "Manual")


;========================================================
; Greek strings

(if (= @language "GREEK")
 (
  (set default_lang 1)

  (set #msg-bad-kick          (cat "\n    \nAmigaOS 2.04\n    PhoneCall."))
  (set #msg-pcalldest         (cat "         PhoneCall.     'PhoneCall'\n  ."))
  (set #msg-abort             "  \"PhoneCall\"  .")
  (set #msg-existMsg          (cat "\n\n       `PhoneCall'. "
                              " ,      .       "
                              "  ."))
  (set #msg-destdir           (cat "         \n'PhoneCall'."
                              "\nWBStartup,  ."))
  (set #msg-copypc            "\n  PhoneCall \n")
  (set #msg-askicon           "       .\n")
  (set #msg-icon1             " MagicWB")
  (set #msg-icon2             " MagicWB   Jodel (Schneider)")
  (set #msg-icon3             " ROM ()   Roman Patzner")
  (set #msg-icon4             " ROM ()   Roman Patzner")
  (set #msg-icon5             " NewIcon")
  (set #msg-installIcon       " %s...")
  (set #msg-askdoc            "  /    .\n")
  (set #msg-guidedoc          "     AmigaGuide")
  (set #msg-dvidoc            "     DVI")
  (set #msg-txtdoc            "     ASCII")
  (set #msg-txtdoc3           "     ASCII")
  (set #msg-guidedoc3         "     AmigaGuide")
  (set #msg-installguide      "  migaGuide...")
  (set #msg-installdvi        "  DVI...")
  (set #msg-installtxt        "  ASCII...")
  (set #msg-asklanguage       "/   ()   ;")
  (set #msg-language0         " (   )")
  (set #msg-language1         "")
  (set #msg-language2         "")
  (set #msg-language3         "")
  (set #msg-languagehelp      (cat "     AmigaOS  "
                              "   ,  "
                              "   .\n\n "
                              "       "
                              "    . "))
  (set #msg-installlanguage1  "  ...")
  (set #msg-installlanguage2  "  ...")
  (set #msg-installlanguage3  "  ...")
  (set #msg-askonline         "  on-line    ;")
  (set #msg-onlinehelp        (cat "     AmigaOS  "
                              "   ,  "
                              "  on-line .\n\n "))
  (set #msg-installonline1    "  on-line ...")
  (set #msg-installonline2    "  on-line ...")
  (set #msg-installonline3    "  on-line ...")
  (set #msg-asktextfield      (cat "\n   \n\nTextField.gadget  %ld.%ld\n"
                              "\n  'SYS:Classes/Gadgets';\n"
                              "\n       %ld.%ld\n\n"))
  (set #msg-textfieldhelp     "   TextField.gadget   'SYS:Classes/Gadgets'.")
  (set #msg-installtextfield  "\n  TextField.gadget...\n")
  (set #msg-installpb         "\n   ...\n")
  (set #msg-bye               "  :  . \n\n   PhoneCall \n      shareware!")
  (set #msg-docdir            " ")
 )
)

;========================================================
; German strings

(if (= @language "DEUTSCH")
 (
  (set default_lang 1)

  (set #msg-bad-kick          (cat "\nSie mssen mindestens\nAmigaOS 2.04\nhaben, wenn Sie PhoneCall benutzen mchten."))
  (set #msg-pcalldest         (cat "Whlen Sie wohin `PhoneCall' installiert werden soll.\nEin Verzeichnis 'PhoneCall' wird automatisch angelegt."))
  (set #msg-abort             "Es ist bereits eine Datei mit dem Namen \"PhoneCall\" vorhanden.")
  (set #msg-existMsg          (cat "\n\nEine Kopie von `PhoneCall' existiert bereits. "
                               "Wenn Sie fortfahren, wird diese erneuert. Weitere Dateien "
                               "werden berschrieben (Ihr Telefonbuch bleibt unverndert)."))
  (set #msg-destdir           (cat "Whlen Sie ein Verzeichnis in welches das Hauptprogramm\n'PhoneCall' installiert werden soll."
                               "\nz.B. WBStartup ..."))
  (set #msg-copypc            "\nKopiere PhoneCall zu \n")
  (set #msg-askicon           "Whlen Sie das Programm-Icon aus, welches Sie installieren mchten.\n")
  (set #msg-icon1             "MagicWB Standard Icon")
  (set #msg-icon2             "MagicWB Icon von Jodel (Schneider)")
  (set #msg-icon3             "ROM Icon (grau) Roman Patzner")
  (set #msg-icon4             "ROM Icon (brau) Roman Patzner")
  (set #msg-icon5             "NewIcon")
  (set #msg-installIcon       "Installiere das %s...")
  (set #msg-askdoc            "Whlen Sie die Dokumentation(en) aus, die Sie installieren mchten.\n")
  (set #msg-guidedoc          "deutsche AmigaGuide Anleitung")
  (set #msg-dvidoc            "deutsche DVI-Anleiting")
  (set #msg-txtdoc            "deutsche Anleitung in ASCII")
  (set #msg-txtdoc3           "griechische Anleitung in ASCII")
  (set #msg-guidedoc3         "griechische AmigaGuide Anleitung")
  (set #msg-installguide      "Installiere AmigaGuide Anleitung...")
  (set #msg-installdvi        "Installiere DVI Anleitung...")
  (set #msg-installtxt        "Installiere ASCII Anleitung...")
  (set #msg-asklanguage       "Welche Sprache(n) mchten Sie installieren?")
  (set #msg-language0         "english (eingebaut)")
  (set #msg-language1         "deutsch")
  (set #msg-language2         "franzsisch")
  (set #msg-language3         "griechisch")
  (set #msg-languagehelp      (cat "Wenn Sie eine Version des AmigaOS besitzen, "
                               "die keine Lokalisierung untersttzt, "
                               "installieren Sie bitte keine Sprache.\n\n "
                               "Die in PhoneCall eingebaute englische Sprache "
                               "bentigt keinen Katalog! "))
  (set #msg-installlanguage1  "Installiere deutschen Katalog fr PhoneCall...")
  (set #msg-installlanguage2  "Installiere franzsischen Katalog fr PhoneCall...")
  (set #msg-askonline         "Welche OnlineHilfe(n) wollen Sie installieren?")
  (set #msg-onlinehelp        (cat "Wenn Sie eine Version des AmigaOS besitzen, "
                               "die keine Lokalisierung untersttzt, "
                               "installieren Sie bitte keine Online-Hilfe.\n\n "))
  (set #msg-installonline1    "Installiere deutsche Online-Hilfe fr PhoneCall...")
  (set #msg-installonline2    "Installiere franzsische Online-Hilfe fr PhoneCall...")
  (set #msg-installonline3    "Installiere griechische Online-Hilfe fr PhoneCall...")
  (set #msg-asktextfield      "Mchten Sie das\n\nTextField.gadget Version %ld.%ld\n\nin das 'SYS:Classes/Gadgets' Verzeichnis installieren ?\n\nDie aktuelle Version ist %ld.%ld\n\n")
  (set #msg-textfieldhelp     "Installiert die mitgelieferte Version des TextField.gadget in das 'SYS:Classes/Gadgets' Verzeichnis, wenn Sie mchten.")
  (set #msg-installtextfield  "\nKopiere das TextField.gadget...\n")
  (set #msg-installpb         "\nKopiere eine PhoneCall BasisDatei...\n")
  (set #msg-bye               "Viel Spa mit PhoneCall\nBitte untersttzen Sie die Idee der Shareware !")
  (set #msg-docdir            "Anleitung")
 )
)
;========================================================

 (complete 0)
 (welcome)

 (set currentver (/ (getversion "SYS:Classes/Gadgets/textfield.gadget") 65536))
 (set currentrev (BITAND (getversion "SYS:Classes/Gadgets/textfield.gadget") 65535))
 (set myver      (/ (getversion "Classes/Gadgets/textfield.gadget") 65536))
 (set myrev      (BITAND (getversion "Classes/Gadgets/textfield.gadget") 65535))

 (if (< (/ (getversion) 65536) 37)
   (abort #msg-bad-Kick)
 )

(set pcalldest
    (askdir
        (prompt #msg-pcalldest PhoneCall)
        (help @askdir-help)
        (default @default-dest)
    )
)

(set pcalldir           (tackon pcalldest "PhoneCall"))
(set docdir             (tackon pcalldir #msg-docdir))
(set @default-dest      pcalldir)
(set pcalldata          (tackon pcalldir "PhoneCall.pb"))
(set oldvernum 0)

;**
;**  Create directory/Check if there is already a copy installed
;**

(complete 10)

(set extype (exists pcalldir))
(if (= extype 1) (abort #msg-abort))
(if (= extype 2)
    (
        (if (exists (tackon pcalldir "PhoneCall"))
            (
                (set oldvernum (getversion (tackon pcalldir "PhoneCall")))
                (message #msg-existMsg)
            )
        )
    )
    (makedir pcalldir)
)
(makedir docdir (infos))

(copyfiles
     (source "def_Icons/PhoneCall.info")
     (dest pcalldest)
     (files)
)

(set oldver (/ oldvernum 65536))
(set oldrev (- oldvernum (* oldver 65536) ) )

(complete 20)

 (set destdir
    (askdir (prompt #msg-destdir)
                    (help @askdir-help)
                    (default pcalldir)
    )
 )

(complete 25)

(copyfiles
    (prompt (#msg-copypc destdir))
    (source "PhoneCall")
    (dest destdir)
    (files)
)

(complete 30)

(set iconchoice
    (askchoice
        (prompt #msg-askicon)
        (choices #msg-icon1
                 #msg-icon2
                 #msg-icon3
                 #msg-icon4
                 #msg-icon5)
        (help @askoptions-help)
    )
)

(complete 35)

(if (= iconchoice 0)
    (
        (copyfiles
            (prompt (#msg-installIcon #msg-icon1))
            (source "def_Icons/PhoneCall_MWB.info")
            (newname "PhoneCall.info")
            (dest destdir)
            (help @copyfiles-help)
            (files)
        )
    )
)

(complete 35)

(if (= iconchoice 1)
    (
        (copyfiles
                (prompt (#msg-installIcon #msg-icon2))
                (source "def_Icons/PhoneCall_JODEL.info")
                (newname "PhoneCall.info")
                (dest destdir)
                (help @copyfiles-help)
                (files)
        )
    )
)

(complete 35)

(if (= iconchoice 2)
    (
        (copyfiles
                (prompt (#msg-installIcon #msg-icon3))
                (source "def_Icons/PhoneCall_ROM2.info")
                (newname "PhoneCall.info")
                (dest destdir)
                (help @copyfiles-help)
                (files)
        )
    )
)

(complete 35)

(if (= iconchoice 3)
    (
        (copyfiles
                (prompt (#msg-installIcon #msg-icon4))
                (source "def_Icons/PhoneCall_ROM1.info")
                (newname "PhoneCall.info")
                (dest destdir)
                (help @copyfiles-help)
                (files)
        )
    )
)

(complete 35)

(if (= iconchoice 4)
    (
        (copyfiles
                (prompt (#msg-installIcon #msg-icon5))
                (source "def_Icons/PhoneCall_NEWICON.info")
                (newname "PhoneCall.info")
                (dest destdir)
                (help @copyfiles-help)
                (files)
        )
    )
)

(complete 40)

(set docchoice
    (askoptions
        (prompt #msg-askdoc)
        (choices #msg-guidedoc
                 #msg-dvidoc
                 #msg-txtdoc
                 #msg-guidedoc3
                 #msg-txtdoc3)
        (help @askoptions-help)
    )
)

(complete 50)

(if (IN docchoice 0)
    (
        (copyfiles
            (prompt #msg-installguide)
            (source "Document/deutsch/PhoneCall.guide")
            (dest docdir)
            (help @copyfiles-help)
            (infos)
        )
    )
)

(complete 55)

(if (IN docchoice 1)
    (
        (copyfiles
                (prompt #msg-installdvi)
                (source "Document/deutsch/PhoneCall.DVI")
                (dest docdir)
                (help @copyfiles-help)
                (infos)
        )
    )
)

(complete 60)

(if (IN docchoice 2)
    (
        (copyfiles
                (prompt #msg-installtxt)
                (source "Document/deutsch/PhoneCall.dok")
                (dest docdir)
                (help @copyfiles-help)
                (infos)
        )
    )
)

(complete 70)

(if (IN docchoice 3)
    (
        (copyfiles
            (prompt #msg-installguide)
            (source "Document/greek/PhoneCall.guide")
            (dest docdir)
            (help @copyfiles-help)
            (infos)
        )
    )
)

(if (IN docchoice 4)
    (
        (copyfiles
            (prompt #msg-installtxt)
            (source "Document/greek/PhoneCall.doc")
            (dest docdir)
            (help @copyfiles-help)
            (infos)
        )
    )
)

(complete 75)

(if (AND (NOT (= (getassign "Locale") "")) (exists "libs:locale.library"))
 (
    (set language
       (askoptions
         (prompt #msg-asklanguage)
         (choices #msg-language0
                  #msg-language1
                  #msg-language2
                  #msg-language3)
         (help #msg-languagehelp)
       )
    )

  (if (IN language 1)
    (
       (copyfiles
          (source "Catalogs/deutsch/PhoneCall.catalog")
          (dest "Locale:catalogs/deutsch")
          (prompt #msg-installlanguage1)
       )
    )
  )

  (if (IN language 2)
    (
       (copyfiles
          (source "Catalogs/franais/PhoneCall.catalog")
          (dest "Locale:catalogs/franais")
          (prompt #msg-installlanguage2)
       )
    )
  )

  (if (IN language 3)
    (
       (copyfiles
          (source "Catalogs/greek/PhoneCall.catalog")
          (dest "Locale:catalogs/greek")
          (prompt #msg-installlanguage3)
       )
    )
  )

 )
)

(complete 80)

(if (AND (NOT (= (getassign "Help") "")) (exists "libs:locale.library"))
  (
    (set helpfile
       (askoptions
         (prompt #msg-askonline)
         (choices #msg-language1
                  #msg-language3)
         (help #msg-onlinehelp)
     )
  )

  (if (IN helpfile 0)
    (
       (copyfiles
          (source "Document/deutsch/PhoneCall.guide")
          (dest "Locale:help/deutsch")
          (prompt #msg-installonline1)
       )
    )

  )

  (if (IN helpfile 1)
    (
       (copyfiles
          (source "Document/greek/PhoneCall.guide")
          (dest "Locale:help/greek")
          (prompt #msg-installonline3)
       )
    )

  )

 )
)

(complete 85)

        (if(askbool
                (prompt (#msg-asktextfield myver myrev currentver currentrev))
                (help #msg-textfieldhelp )
                (default 1))
                (copyfiles
                        (prompt #msg-installtextfield)
                        (source "Classes/Gadgets/TextField.gadget")
                        (dest   "SYS:Classes/Gadgets/")
                        (files)
                )
        )

(complete 90)

(set exdata (exists pcalldata))

(if (<> exdata 1)
   (copyfiles
           (prompt #msg-installpb)
           (source "PhoneCall.pb")
           (dest   pcalldir)
           (files)
   )
)

(complete 100)
(exit #msg-bye)

