;=======================================================================
; Instalacni soubor pro BD Editor 1.x - $VER: Instalace 1.11 (13.9.1996)
;=======================================================================

; deklarace nekterych hlaseni pro uzivatele

(set select-font "Vyberte si font, ktery chcete instalovat. Pro ukonceni instalace zvolte Konec.")

(set vlozte-KOREKTOR "\n\n\n\n\nVlozte prosim disketu s nazvem KOREKTOR")

(set end-mess "\nDekuji za pozornost.\n")

; Hlavni program

(user 3)

(set src "KOREKTOR:Fonts"
     korektor-name "KOREKTOR"
     @default-dest "BD_Editor:")

(run "resident BD_Editor:C/Delete PURE ADD")

(message (cat
 "\nVitejte v instalacnim programu\n\n"
 "***  ***     **** ***  * *****  ***  ***  *   *\n"
 "*  * *  *    *    *  * *   *   *   * *  * *   *\n"
 "***  *  *    ***  *  * *   *   *   * ***  *   *\n"
 "*  * *  *    *    *  * *   *   *   * *  * *   *\n"
 "***  ***     **** ***  *   *    ***  *  *  *** \n\n\n"
 "Tento instalacni program slouzi k instalaci\nfontu dodavanych s BD Editorem")
)

(welcome)

(complete 0)

(askdisk
 (prompt vlozte-KOREKTOR)
 (help @askdisk-help)
 (dest korektor-name)
)

; nyni se budou kopirovat knihovny, fonty apod.

(while
 (set volba
  (askchoice
   (prompt select-font)
   (help @askchoice-help)
   (choices "Konec" "Courier (22 KB)" "Diamond (12 KB)" "Emerald (7 KB)" "Garnet (10 KB)" "Helvetica (25 KB)" "Ruby (15 KB)" "Sapphire (13 KB)" "CGTimes (vektorovy, 80KB)" "CGTriumvirate (vektorovy, 64KB)")
  )
 )
(
(select volba
 (set fontname "xxxxxxx")
 (set fontname "Courier")
 (set fontname "Diamond")
 (set fontname "Emerald")
 (set fontname "Garnet")
 (set fontname "Helvetica")
 (set fontname "Ruby")
 (set fontname "Sapphire")
 (set fontname "CGTimes")
 (set fontname "CGTriumvirate")
)
; kopirujeme do ram
(copyfiles
 (source src)
 (help @copyfiles-help)
 (dest "RAM:")
 (pattern (cat fontname "#?"))
)
; pripadna vektorova cast
(copyfiles
 (source (tackon src "_bullet_outlines"))
 (help @copyfiles-help)
 (dest "RAM:")
 (pattern (cat fontname ".type"))
)
; kopirujeme do Fonts:
(copyfiles
 (source "RAM:")
 (help @copyfiles-help)
 (dest "Fonts:")
 (pattern (cat fontname "~(#?.type)"))
)
; pripadna vektorova cast
(copyfiles
 (source "RAM:")
 (help @copyfiles-help)
 (dest "Fonts:_bullet_outlines")
 (pattern (cat fontname ".type"))
)
; smazani z RAM
(run ("Delete <NIL: >NIL: RAM:%s ALL" (cat fontname "#?")))

)
)

(complete 100)

; konec instalacniho programu
(exit end-mess (quiet))