;$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
             "Para onde quer copiar o executável do CyberClock?")
             (help @askdir-help) (disk) (default "SYS:WBStartup")))

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

(set docdest (askdir (prompt
             "Para onde quer copiar a documentação do CyberClock?")
             (help @askdir-help) (disk) (default "HELP:English/")))

(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
                                          "Qual é o conjunto de ícones que deseja usar?")
                                          (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/portuguêse/CyberClock.catalog")
           (dest "LOCALE:Catalogs/portuguêse/"))
(copylib (source "libs/iff.library") (dest "LIBS:"))
(copylib (source "libs/screennotify.library") (dest "LIBS:"))

(exit "\nO CyberClock está instalado.\n\n"
      "Se no futuro for necessário actualizar o CyberClock, use o script "
      "\"ReInstall CyberClock\".\n" (quiet))