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

; deklarace nekterych hlaseni pro uzivatele

(set instalace-BDE (cat
"\n\nV teto casti instalace se bude instalovat "
"vlastni editor a k nemu nalezejici soubory.\n\n"
"Instalace editoru s napovedou a vsemi potrebnymi "
"soubory zabere na disku asi 450 KB.\n\n"
"Chcete ji provest?")
)

(set instalace-kam (cat
"Na ktery disk a do ktereho adresare chcete\nBD Editor naistalovat?\n"
"(bude v nem vytvoren adresar s nazvem BDE)")
)

(set instalovat-napovedu (cat
"\n\n\nChcete nainstalovat take soubor s interaktivni napovedou?\n\n"
"Tento soubor je ve formatu AmigaGuide a je vyuzivan pro "
"interni napovedu primo v BD Editoru.")
)

(set instalace-knihovny (cat
"V teto casti instalace se budou instalovat soubory potrebne "
"pro provoz BD Editoru (knihovny, fonty, klavesnice...)\n\n"
"Jedna se o bezne systemove knihovny "
"dodavane s Workbenchem. Vetsinu z nich mate patrne k dispozici "
"na systemovem disku (vyjimkou je EasyRexx.library a IFF.library). Pro provoz "
"BD Editoru je vsak treba mit nove verze techto knihoven. Pri "
"nasledujici instalaci budete mit moznost urcit, zda chcete "
"knihovnu nainstalovat ci ne.\n Chcete pokracovat?")
)

(set instalace-korektor (cat
"\n\n\nV teto casti instalace se budou instalovat slovniky potrebne "
"pro korektor pravopisu BD Editoru.\n"
"Tyto soubory budou nainstalovany do tehoz adresare jako "
"editor. Na cilovem disku je treba mit alespon 500 KB "
"volneho mista.\n"
"Chcete pokracovat?")
)

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

(set korektor-assign (cat
"\n\n\nNyni je treba pridat do user-startup prikaz pro vytvoreni "
"logickeho navesti, ktere urcuje umisteni slovniku.")
)

(set end-mess (cat
"\nDekuji za pozornost.\n\n"
"Pomoci instalacniho programu Instaluj fonty si "
"muzete doinstalovat bitmapove i vektorove "
"fonty dodavane s editorem na systemovy disk.")
)

; Hlavni program

(user 3)

(set
 src "BD_Editor:"
 dst "SYS:"
 mylibs "BD_Editor:Libs"
 myfonts "BD_Editor:Fonts"
 mykeymaps "BD_Editor:Devs/Keymaps"
 korektor-name "KOREKTOR"
 korektor-dir "KOREKTOR:"
 @default-dest "SYS:")

(message (cat
"\nVitejte v instalacnim programu\n\n"
"***  ***     **** ***  * *****  ***  ***  *   *\n"
"*  * *  *    *    *  * *   *   *   * *  * *   *\n"
"***  *  *    ***  *  * *   *   *   * ***  *   *\n"
"*  * *  *    *    *  * *   *   *   * *  * *   *\n"
"***  ***     **** ***  *   *    ***  *  *  *** \n\n\n"
"Tento instalacni program slouzi k instalaci\nBD Editoru verze 1.2 na pevny disk")
)

(welcome)

(complete 0)

; instalace hlavniho programu...

(message instalace-BDE)
; zacatek instalace hlavniho programu
(set dst
 (askdir
  (prompt instalace-kam)
  (help @askdir-help)
  (default @default-dest)
 )
)
(set dstbde (tackon dst "BDE"))
(set @default-dest dstbde)
(copyfiles
 (source src)
 (help @copyfiles-help)
 (dest dst)
 (pattern "BDE")
 (infos)
)
; rozbalime napovedu
(textfile
 (dest (tackon dstbde "BDEditor.HELP.SCRIPT"))
 (append (cat "CD " dstbde "\nBDEditor.HELP.EXTRACT\n"))
)
(execute (tackon dstbde "BDEditor.HELP.SCRIPT"))
(delete (tackon dstbde "BDEditor.HELP.EXTRACT"))
(delete (tackon dstbde "BDEditor.HELP.SCRIPT"))
; ? ma se okopirovat napoveda
(if
 (askbool
  (prompt instalovat-napovedu)
  (help @aksbool-help)
  (choices "Ano" "Ne")
  (default 1)
 )
 (set maska "#?")
 (
  (delete (tackon dstbde "BDEditor.HELP"))
  (delete (tackon dstbde "BDEditor.HELP.info"))
 )
)
(complete 40)

; nyni se budou kopirovat knihovny, fonty apod.

(if
 (askbool
  (prompt instalace-knihovny)
  (help @askbool-help)
  (choices "Ano" "Preskocit")
  (default 1)
 )
 (
 (foreach mylibs "~(decrunch.library|commodities.library|version.library|locale.library)"
  (copylib
   (prompt ("Instalace knihovny %s" @each-name))
   (help @copylib-help)
   (source (tackon mylibs @each-name))
   (dest "Libs:")
   (confirm)
  )
 )
; fonty
 (copyfiles
  (source myfonts)
  (help @copyfiles-help)
  (dest "Fonts:")
  (all)
 )
; klavesnice
 (copyfiles
  (source mykeymaps)
  (help @copyfiles-help)
  (dest "Devs:Keymaps")
  (all)
 )
 )
)
(complete 70)

; instalace korektoru
(if
 (askbool
  (prompt instalace-korektor)
  (help @askbool-help)
  (choices "Ano" "Preskocit")
  (default 1)
 )
 (
 (askdisk
  (prompt vlozte-KOREKTOR)
  (help @askdisk-help)
  (dest korektor-name)
 )
 (copyfiles
  (source korektor-dir)
  (help @copyfiles-help)
  (dest dstbde)
  (pattern "#?SLOVNIK#?")
 )
; vytvoreni casti user-startup
 (startup "BD Editor"
  (prompt korektor-assign)
  (help @startup-help)
  (command ("Assign KOREKTOR: %s" dstbde))
 )
 )
)
(complete 100)

; konec instalacniho programu
(exit end-mess)