; Workbench dla poczâtkujâcych V1.0 - skrypt instalacyjny (HD)

(set #DepacMsg "Rozpakowujë dane, proszë czekaê...")
(set #AskDirMsg "W jakim katalogu zainstalowaê WORKBENCH DLA POCZÂTKUJÂCYCH ?")
(set #InstalEnd
   (cat "Koniec instalacji, zresetuj komputer i ponownie \n"
        "wystartuj Workbencha, a potem dwukrotnie kliknij\n"
        "ikonë 'Podrëcznik_HD', znajdujâcâ sië w katalogu,\n"
        "do ktorego zainstalowaîeô podrëcznik"
        )
)

(working #DepacMsg)
(run ("c/lhex -qw=T: x WB:D1.lha"))

(set @default-dest (askdir
                       (prompt #AskDirMsg)
                       (help @askdir-help)
                       (default @default-dest)
                   )
)

(run ("delete >NIL: ram:t/Podrëcznik_Dyskietka"))
(run ("delete >NIL: ram:t/Podrëcznik_Dyskietka.info"))

(copyfiles
        (prompt #CopyMsg)
        (help @copyfiles-help)
        (source "Ram:T/")
        (dest @default-dest)
        (infos)
	(all)
)

(run ("delete >NIL: ram:t/ all"))

(working #DepacMsg)
(run ("c/lhex -qw=T: x WB:D2.lha"))

(copyfiles
        (prompt #CopyMsg)
        (help @copyfiles-help)
        (source "Ram:T/")
        (dest @default-dest)
        (infos)
	(all)
)

(run ("delete >NIL: ram:t/ all"))

(startup "Workbench dla poczâtkujâcych"
	(prompt 'Dodajë niezbëdne linie do pliku: user-startup')
	(help @startup-help)
	(command ("Assign Dysk1: %s\n"@default-dest)
		 ("Assign Dysk2: %s"@default-dest)
	)
)

(makeassign "Dysk1" @default-dest (safe))
(makeassign "Dysk2" @default-dest (safe))

(run ("copy >NIL Dysk1:fonts/ fonts: all"))
(run ("delete >NIL: Dysk1:Fonts all"))

(message #InstalEnd)