;$VER: CyberClock installer script 2.00
;Copyright © 2000 by Nikola Smolenski

(set @default-dest "")

(set d0 "CyberClock_Amelia.bsh"
     d1 "CyberClock_digital_small.bsh"
     d2 "CyberClock_digital.bsh"
     d3 "CyberClock_digital_large.bsh"
     d4 "CyberClock_Frontier.bsh"
     d5 "CyberClock_Frontier_large.bsh"
     d6 "CyberClock_Pinball.bsh"
     d7 "CyberClock_mFast.bsh"
     d8 "CyberClock_topaz.bsh"
     d9 "CyberClock_topaz_white.bsh")

(set exedest (askdir (prompt
             "Dove vuoi installare CyberClock?")
             (help @askdir-help) (disk) (default "SYS:WBStartup")))

(copyfiles (source "CyberClock") (dest exedest) (infos))

(set docdest (askdir (prompt
             "Dove vuoi installare la documentazione di CyberClock?")
             (help @askdir-help) (disk) (default "HELP:Deutsch/")))

(copyfiles (source "CyberClock.guide") (dest docdest) (infos))

(textfile (dest "S:CyberClock.reinstall") (append (cat exedest "\n" docdest "\n")))

(copyfiles (source (cat "Digits/" (select (askchoice
                                          (prompt
                                          "Quale quadrante vuoi usare?")
                                          (help @askchoice-help)
                                          (choices d0 d1 d2 d3 d4 d5 d6 d7 d8 d9)
                                          (default 1))
                                  d0 d1 d2 d3 d4 d5 d6 d7 d8 d9)))
           (dest "S:") (newname "CyberClock.bsh"))

(copyfiles (source "Catalogs/deutsch/CyberClock.catalog")
           (dest "LOCALE:Catalogs/deutsch/"))
(copylib (source "libs/iff.library") (dest "LIBS:"))
(copylib (source "libs/screennotify.library") (dest "LIBS:"))

(exit "\nL'installazione di CyberClock è stata completata.\n\n"
      "Quando vorrai aggiornare CyberClock, usa "
      "lo script \"ReInstall CyberClock\".\n" (quiet))