Merciful 3/Merciful_Release_3.bin/software/l/ljboostv1.02.lha/LJ4Boost/LJ4Boost-Install

Text File | 1995-04-16 | 5KB | 172 lines

; -------------------------------------------------------------------------
; $VER: LJ4Boost-Install 1.02 (16.04.95)
;
; Installer-Script for LJ4Boost V1.02
; Copyright © 1995 by Oliver Hitz

; TEXTS -------------------------------------------------------------------

(set #lj4b-install
  (cat "\nLJ4Boost V1.02\n"
       "Installer Script\n\n"
       "© 1995 by Oliver Hitz\n\n"
       "Click on >Continue< to proceed!\n"
  )
)

(set #lj4b-install-help
  (cat "This installer script installs the LJ4Boost Printer Driver Package V1.02\n\n")
)

(set #lj4b-driver
  (cat "\nCopy the printer driver to DEVS:Printers?")
)

(set #lj4b-driver-help
  (cat "The printer driver is the main program of this package. It is copied to the other printer drivers which are in the directory DEVS:Printers.\n")
)

(set #lj4b-prefs
  (cat "\nCopy the preferences editor to SYS:Prefs?")
)

(set #lj4b-prefs-help
  (cat "The preferences editor lets you take control over some special features that this package offers.\n")
)

(set #lj4b-prefscat
  (cat "\nSelect which catalog files you would like to install.")
)

(set #lj4b-prefscat-help
  (cat "Unfortunately there are only three languages available at the moment. But this will (hopefully) change in future versions.\n")
)

(set #lj4b-doc
  (cat "\nInstall the documentation?")
)

(set #lj4b-doc-help
  (cat "Sometimes it is useful to have the documentation ready-to-use somewhere on the hard drive. The documentation is NOT needed by the program.")
)

(set #lj4b-register
  (cat "\nThe LJ4Boost Printer Driver Package\n"
       "is SHAREWARE. If you use it, you HAVE TO pay\n"
       "for it.\n\n"
       "Do you want to install the Registration-Utility?\n"
       "(It is suggested you install it in the same\n"
       "directory as the docs, because it can be started\n"
       "from the documentation)."
  )
)

(set #lj4b-register-help
  (cat "It is strongly recommended to install the Registration-Utility. After you have registered, you can of course delete it...")
)

(set #wrong-kick
  (cat "\nSorry, this package needs at least\n"
       "Kickstart version 2.0!\n\n"
  )
)

; VARS --------------------------------------------------------------------

(set sourcePath (expandpath (pathonly @icon)))

(set ver (/ (getversion "exec.library" (resident)) 65536))

; MAIN --------------------------------------------------------------------

(complete 0)
(if (> ver 36)
  (if (askbool (prompt #lj4b-install)
               (help #lj4b-install-help)
               (choices "Continue" "End Installation")
               (default 1)
      )
    (
      (if (askbool (prompt #lj4b-driver)
                   (help #lj4b-driver-help)
                   (choices "Copy" "Skip This Part")
                   (default 1)
          )
          (Copyfiles (source (tackon sourcePath "Devs/Printers/LJ4Boost"))
                     (dest "DEVS:Printers")
                     (infos)
          )
      )
      (complete 25)
      (if (askbool (prompt #lj4b-prefs)
                   (help #lj4b-prefs-help)
                   (choices "Copy" "Skip This Part")
                   (default 1)
          )
          (Copyfiles (source (tackon sourcePath "Prefs/LJ4Boost"))
                     (dest "SYS:Prefs")
                     (infos)
          )
      )
      (complete 40)
      (set catalogs (askoptions (prompt #lj4b-prefscat)
                                (help #lj4b-prefscat-help)
                                (choices "Deutsch"
                                         "Français")
                                (default 0)
                    )
      )
      (set n 0)
      (while (set catalog (select n "deutsch"
                                    "français"
                                    ""
                          )
             )
             (
                (if (IN catalogs n)
                    (
                      (Copyfiles (source (tackon sourcePath (tackon "Locale/Catalogs" (tackon catalog "lj4boostprefs.catalog"))))
                                 (dest (tackon "LOCALE:Catalogs" catalog))
                      )
                    )
                )
                (set n (+ n 1))
             ))
      (complete 50)
      (if (askbool (prompt #lj4b-doc)
                   (help #lj4b-doc-help)
                   (choices "Copy" "Skip This Part")
                   (default 1)
          )
          (Copyfiles (source (tackon sourcePath "LJ4Boost.guide"))
                     (dest (askdir (prompt "Please select a place to the documentation.")
                                   (help @askdir-help)
                                   (default "SYS:Tools")
                           )
                     )
                     (infos)
          )
      )
      (complete 75)
      (if (askbool (prompt #lj4b-register)
                   (help #lj4b-register-help)
                   (choices "Copy" "Skip This Part")
                   (default 1)
          )
          (Copyfiles (source (tackon sourcePath "LJ4Boost-Register"))
                     (dest (askdir (prompt "Please select a place for the Registration-Utility.")
                                   (help @askdir-help)
                                   (default "SYS:Tools")
                           )
                     )
                     (infos)
          )
      )
      (complete 99)
    )
  )
  (abort #wrong-kick)
)
(set @default-dest "DEVS:Printers")