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

; deklarace nekterych hlaseni pro uzivatele

(set delete-install (cat
"\n\nV teto casti instalace se budou mazat "
"vsechny soubory tykajici se instalace (nejsou treba pro "
"beh editoru). Tim se uvolni na diskete s editorem asi "
"70 KB mista. Pak ovsem nebude jiz mozne provadet instalaci fontu "
"a instalaci ovladace tiskarny "
"pomoci instalacniho programu (lze si je vsak rucne okopirovat).\n"
"Ujistete se, ze pracujete s kopiemi!\n\n"
"Chcete ji provest?")
)

(set delete-locale (cat
"\n\nV teto casti instalace se budou mazat "
"vsechny soubory tykajici se lokalizace operacniho systemu. "
"Lokalizace neni pro beh editoru nutna (bude nadale komunikovat "
"cestine), ale hlaseni systemu, requestery apod. jiz ceske nebudou. "
"Tim se uvolni na diskete s editorem asi 50 KB mista a pri spousteni "
"editoru z teto diskety take 40 KB pameti RAM.\n"
"Ujistete se, ze pracujete s kopiemi!\n\n"
"Chcete ji provest?")
)

(set delete-help (cat
"\n\nV teto casti instalace se bude mazat soubor s napovedou "
"k BD Editoru ve formatu AmigaGuide. Po smazani tohoto souboru jiz "
"nebude mozne vyvolavat interaktivni napovedu primo z editoru. "
"Na diskete se uvolni asi 50 KB mista.\n"
"Ujistete se, ze pracujete s kopiemi!\n\n"
"Chcete ji provest?")
)

(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:"
     @default-dest "BD_Editor:")

(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 diskety")
)

(welcome)

(complete 0)

; instalace hlavniho programu...

; nejprve se smaze vse, co se tyka instalace...

(if (askbool
     (prompt delete-install)
     (help @askbool-help)
     (choices "Ano" "Preskocit")
     (default 1)
    )
(
(delete "BD_Editor:C/Installer")
(delete "BD_Editor:Instalace HD")
(delete "BD_Editor:Instalace HD.info")
(delete "BD_Editor:Instalace FD")
(delete "BD_Editor:Instalace FD.info")
(delete "BD_Editor:Instalace fontu")
(delete "BD_Editor:Instalace fontu.info")
(delete "BD_Editor:Instalace ovladace")
(delete "BD_Editor:Instalace ovladace.info")
(delete "BD_Editor:Ceske prostredi")
(delete "BD_Editor:Ceske prostredi.info")
)
)
(complete 30)

; smazani lokalizace...

(if (askbool
     (prompt delete-locale)
     (help @askbool-help)
     (choices "Ano" "Preskocit")
     (default 1)
    )
(
(delete "BD_Editor:Libs/locale.library")
(run "delete <NIL: >NIL: BD_Editor:Locale ALL")
)
)
(complete 60)

; smazani napovedy

(if (askbool
     (prompt delete-help)
     (help @askbool-help)
     (choices "Ano" "Preskocit")
     (default 1)
    )
(
(delete "BD_Editor:BDE/BDEditor.HELP")
(delete "BD_Editor:BDE/BDEditor.HELP.info")
)
)
(complete 100)

; konec instalacniho programu
(exit end-mess)