; $VER: RndPic Install 1.0
; Date: 9.4.98
; Author: Helmut Hummel <hhummel@t-online.de>

(set #nodoc "A doc for your native language is not available. You should copy a doc file of your choice to your DOpus5 docs manually.")
(set #nocat "Sorry, a catalog for your native language is not available.")

(if (= @language "deutsch")
    (
        (set #welcome       "Willkommen bei der Installation des RndPic-Moduls !")
        (set #wronginst     "Leider ist mindestens der Installer V42.9 nötig.")
        (set #wrongkick     "Leider brauchst Du mindestens Kick/WB 2.x und eine 68020 CPU")
        (set #helpguide     "Möchtest Du die Guide nach DOpus5:Help kopieren ?")
        (set #helpguidehelp "Du brauchst sie nicht unbedingt, doch für die Online-Hilfe ist sie erforderlich.")
        (set #module        "Kopiere RndPic-Modul")
        (set #doc           "Kopiere Anleitung")
        (set #catalog       "Kopiere Katalog")
        (set #success       "Das RndPic-Modul wurde erfolgreich nach \"DOpus5:\" installiert. Jetzt solltest Du RndPicPrefs starten. Viel Spass !")
    )
    (
        (set #welcome       "Welcome to the installation of the RndPic module !")
        (set #wronginst     "Sorry, you need the Installer V43 to go on.")
        (set #wrongkick     "Sorry, but you need at least Kick/WB 2.x and a 68020 CPU")
        (set #helpguide     "Do you wish to install the guide to DOpus5:Help ?" )
        (set #helpguidehelp "You need them not to use the RndPic module. It is needed, if you want to use the online help.")
        (set #module        "Copying RndPic module")
        (set #doc           "Copying doc")
        (set #catalog       "Copying catalog")
        (set #success       "The RndPic module is successful installed to \"DOpus5:\" . Now you should run RndPicPrefs. Enjoy it.")
    )
)

;

(if (= @installer-version 0)
    (abort #wronginst)
)

(set cpu (+ (database "cpu")))

(if     (OR (< (getversion) 37)
             (< cpu 68020)
        )
        (abort #wrongkick)
)

(set @default-dest "DOpus5:")
(set helpguide 0)

(welcome #welcome)

(set docdir (cat "Opus5/help/" @language))

(if (exists docdir (noreq))
    (
       (
          (if @user-level
              (set helpguide
                  (askbool
                      (prompt #helpguide)
                      (help #helpguidehelp)
                  )
              )
          )
          (
              (set helpguide 1)
          )
       )
       (if helpguide
           (copyfiles
                (prompt #doc)
                (source docdir)
                (dest "DOpus5:Help/")
                (all)
           )
       )
    )
    (message #nodoc)
)

(copyfiles
       (prompt #module)
       (source "Opus5/modules/")
       (dest "DOpus5:modules/")
       (all)
)


(set catalogdir (cat "Opus5/catalogs/" @language))

(if (exists catalogdir (noreq))
    (
         (copyfiles
              (prompt #catalog)
              (source catalogdir)
              (dest (cat "DOpus5:catalogs/" @language))
              (pattern "#?.catalog")
         )
    )
    (message #nocat)
)

(exit #success (quiet))