(transcript "Installation von DosControl V6.0")(user 1)(welcome)(run("delete t:dc#? ALL QUIET FORCE"))(set answare0(askchoice(prompt "Was kann ich für Sie heute tun?")(choices "DosControl installieren" "DosControl updaten" "DosControl patchen")(help "Diese Entscheidung müssen Sie wohl ganz alleine treffen ;-)")(default 0)))(if(= answare0 0)((set dc_text("t:DC_DIR_6.0"))(set answare1(askchoice(prompt "Wo möchten Sie DosControl v6.0 installieren?")(choices "Festplatte" "Bootfähige Diskette DF0:")(help "Eine Installtion auf eine Festplatte ist nur möglich,""wenn Sie nicht mit der DosDontrol-Diskette gebootet haben.")(default 0)))(if(= answare1 0)((set dc_dir("sys:"))(set dc_cdir("c:"))(set dc_sdir("s:"))(set dc_libs("libs:"))(set dc_devs("devs:"))(set instpfad(askdir(prompt "Wohin soll DosControl_6.0\ninstalliert werden?")(help "DosControl wird in das Angebende Verzeichnis installiert.")(default dc_dir))))((user 1)(message "Bitte legen Sie eine leere Diskette in Laufwerk DF0:!")(user 0)(working "Installiere Standart Bootblock...")(run("Install DF0:"))(set instpfad("DF0:"))(set dc_dir("DF0:"))(set dc_cdir("DF0:c"))(set dc_sdir("DF0:s"))(set dc_devs("DF0:devs"))(set dc_libs("DF0:libs"))(copyfiles(prompt "Kopiere Disk-Icon")(help @copyfiles-help)(source "disk.info")(dest instpfad))))(complete 0)(if(exists dc_cdir))(makedir dc_cdir)(if(exists dc_devs))(makedir dc_devs)(if(exists dc_libs))(makedir dc_libs)(if(exists dc_sdir))(makedir dc_sdir)(copyfiles(prompt "Kopiere DosControl_6.0")(help @copyfiles-help)(source "DosControl")(dest instpfad)(infos)(confirm))(if(exists (tackon instpfad ".info"))((Delete (tackon instpfad ".info"))))(complete 10)(if(= answare1 0)((set dc_c_dir(tackon instpfad "DC_6.0")))((set dc_c_dir(tackon dc_sdir "DC_6.0"))(copyfiles(prompt "Kopiere StartUp-Sequence")(help @copyfiles-help)(source "s/StartUp-Sequence")(dest dc_sdir))(copyfiles(prompt "Kopiere System-Configuration")(help @copyfiles-help)(source "System-Configuration")(dest dc_devs))))(set inst_pfad(askdir(prompt "Wohin sollen die von DosControl_6.0\nbenötigten Daten kopiert werden?")(help "DosControl benötigt ein Verzeichnis, wo die Konfig-Datein abgelegt werden können.")(newpath)(default dc_c_dir)))(textfile(prompt "Pfad wird Generiert.")(help "Keine Hilfe verfügbar.")(dest dc_text)(append inst_pfad"\n"))(complete 15)(if (askbool(default 1)(choices "Lokal" "Global")(help "Global sollten Sie für eine Standart-Konfig verwenden.\nUnd die Lokale für ganze Spezielle Konfigurationen.\n""Wird von DosControl keine Lokale Konfig gefunden, wird die Globale verwendet.")(prompt "Wie sollen die von DosControl_6.0 benötigten Daten gesichert werden?"))((copyfiles(prompt "Lokaler Pfad wird gesichert.")(help @copyfiles-help)(source dc_text)(dest instpfad)))((copyfiles(prompt "Globaler Pfad wird gesichert.")(help @copyfiles-help)(source dc_text)(dest dc_sdir))))(working "Bitte etwas Geduld\nextrahiere Dateien aus Archiv...")(run(cat "s/UnXZL x s/DCKonfig.xzl -p DC_6.0* -o "'\"' inst_pfad '\"'))(copyfiles(prompt "Kopiere DosControl-Konfig")(help @copyfiles-help)(source "s/DC_6.0")(dest inst_pfad)(pattern "#?")(confirm))(complete 20)(run "s/UnXZL x s/DCKonfig.xzl -p dc/* -o t:")(complete 25)(set answare2(askchoice(prompt "Welches Icon-System soll DosControl benutzen?")(choices "Kein Iconsystem" "Standart OS2.0" "MagicWB" "NewIcon" "GlowIcon OS3.5")(help "DosControl kann auch Icons erstellen. Hiermit können Sie sich das Icon-System aussuchen.")(default 1)))(if(= answare2 1)((copyfiles(prompt "Kopiere Standart Icons...")(help @copyfiles-help)(source "t:DC/WBIcon")(dest inst_pfad)(pattern "#?")(confirm))(copyfiles(prompt "Kopiere Standart Icons...")(help @copyfiles-help)(source "t:DC/WBIcon/DC_6.0.AppIcon.info")(dest instpfad)(newname "DosControl.info")(confirm))))(if(= answare2 2)((copyfiles(prompt "Kopiere MagicWB Icons...")(help @copyfiles-help)(source "t:DC/MagicWB")(dest inst_pfad)(pattern "#?")(confirm))(copyfiles(prompt "Kopiere Standart Icons...")(help @copyfiles-help)(source "t:DC/MagicWB/DC_6.0.AppIcon.info")(dest instpfad)(newname "DosControl.info")(confirm))))(if(= answare2 3)((copyfiles(prompt "Kopiere NewIcon Icons...")(help @copyfiles-help)(source "t:DC/NewIcon")(dest inst_pfad)(pattern "#?")(confirm))(copyfiles(prompt "Kopiere Standart Icons...")(help @copyfiles-help)(source "t:DC/NewIcon/DC_6.0.AppIcon.info")(dest instpfad)(newname "DosControl.info")(confirm))))(if(= answare2 4)((copyfiles(prompt "Kopiere GlowIcon Icons...")(help @copyfiles-help)(source "t:DC/GlowIcon")(dest inst_pfad)(pattern "#?")(confirm))(copyfiles(prompt "Kopiere Standart Icons...")(help @copyfiles-help)(source "t:DC/GlowIcon/DC_6.0.AppIcon.info")(dest instpfad)(newname "DosControl.info")(confirm))))(complete 30)(if (askbool(default 1)(help "Für DosControl gibt zusätzlich zum Handbuch noch eine ""Amiga-Guide Anleitung, wo Sie das Wichtigste Nachschlagen können.")(prompt "Möchten Sie Anleitung mit installieren?"))((copyfiles(prompt "Kopiere die Anleitung...")(help @copyfiles-help)(source "")(dest instpfad)(pattern "(Bit#?|Dok#?)")(confirm))(complete 40)(if(= answare1 0)((working "Bitte etwas Geduld\nextrahiere Dateien aus Archiv...")(run(cat "s/UnXZL x s/Anleitung.xzl -o "'\"' (tackon instpfad "Dokumentation") '\"'))(if(exists "sys:utilities/multiview")((tooltype(prompt "Setze Multiview als Standart AmigaGuide-Reader!")(help "Standart AmigaGuide-Reader für DosControl ist z.Z. PowerGuide.")(dest (tackon instpfad "Dokumentation/DosControl.guide"))(setdefaulttool "sys:utilities/multiview")(confirm))))))))(complete 45)(working "Bitte etwas Geduld\nextrahiere Dateien aus Archiv...")(run "s/UnXZL x s/System.xzl -o t:")(if (= answare1 1)((copyfiles(prompt "Kopiere LoadWB")(help @copyfiles-help)(source "t:dc/c/LoadWB")(dest dc_cdir))(copyfiles(prompt "Kopiere Assign")(help @copyfiles-help)(source "t:dc/c/Assign")(dest dc_cdir))(copylib(prompt "Kopiere iffparse.library")(help @copyfiles-help)(source "t:dc/libs/iffparse.library")(dest dc_libs))))(complete 50)(if (askbool(default 1)(help "Um alle Funktionen von DosControl nutzen zu können werden einige Libraries benötigt.")(prompt "Sollen die Libraries für DosControl installiert werden?"))((copylib(prompt "Kopiere Powerpacker.library")(help "Keine Hilfe verfügbar.")(source "t:dc/libs/powerpacker.library")(dest dc_libs)(confirm))(complete 55)(copylib(prompt "Kopiere MedPlayer.library")(help "Keine Hilfe verfügbar.")(source "t:dc/libs/medplayer.library")(dest dc_libs)(confirm))(complete 60)(copylib(prompt "Kopiere Reqtools.library")(help "Keine Hilfe verfügbar.")(source "t:dc/libs/reqtools.library")(dest dc_libs)(confirm))))(complete 65)(if (askbool(default 1)(help "Um sich DMS-Files ansehen zu können, benötigen Sie einige Dateien.")(prompt "Soll die DMS-Unterstützung installiert werden?"))((copyfiles(prompt "Kopiere c/chdir")(help @copyfiles-help)(source "t:dc/c/chdir")(dest dc_cdir)(confirm))(complete 70)(if(not(exists(tackon dc_cdir "Mount")))((copyfiles(prompt "Kopiere c/Mount")(help @copyfiles-help)(source "t:dc/c/Mount")(dest dc_cdir)(confirm))))(complete 75)(copyfiles(prompt "Kopiere devs/dms.device")(help @copyfiles-help)(source "t:dc/devs")(dest dc_devs)(pattern "dms#?")(confirm))))(complete 80)(if (askbool(default 0)(help "Mit den Tools können Sie DosControl Patchen, Konfigurieren, Updaten und vieles mehr.")(prompt "Möchten Sie spezielle DosControl-Tools Installieren?"))((set insta_pfad(askdir(prompt "Wohin sollen die speziellen Tools kopiert werden?")(help "Bitte wählen Sie ein Verzeichnis, wo die Tools installiert werden sollen.")(newpath)(default (tackon instpfad "Tools"))))(working "Bitte etwas Geduld\nextrahiere Dateien aus Archiv...")(run(cat "s/UnXZL x s/Tools.xzl -o "'\"' insta_pfad '\"'))(if(exists (tackon instpfad "Tools"))((copyfiles(prompt "Kopiere die speziellen DosControl-Tools...")(help @copyfiles-help)(source (tackon insta_pfad "Tools.info"))(dest instpfad)(confirm))))(Delete (tackon insta_pfad "Tools.info"))))(complete 85)(if (askbool(default 0)(help "Genauere Infomationen erhalten Sie in der DC60_Config.guide Datei.")(prompt "Möchten Sie den Konfig-Vorschlag von Martin Kayser benutzen?"))((working "Bitte etwas Geduld\nextrahiere Dateien aus Archiv...")(run "s/UnXZL x s/Tools.xzl -p DC60_config/DC_6/* -o t:dc")(copyfiles(prompt "Kopiere die DosControl-Konfig...")(help @copyfiles-help)(source "t:dc/DC60_config/DC_6")(dest inst_pfad)(pattern "#?")(confirm))))(complete 90)(if (askbool(default 1)(help "DCPatch enthält einige kleine Erweiterungen und ein paar Bug-Fixes.\n""Genauere Infomationen erhalten Sie in der DCPatch-Anleitung.")(prompt "Möchten Sie DosControl mit DCPatch von Michael Engelke patchen?"))((working "Bitte etwas Geduld\nextrahiere Dateien aus Archiv...")(run "s/UnXZL x s/Tools.xzl -p DCPatch/DCPatch* -o t:dc")(working "Patche DosControl...")(run(cat "t:DC/DCPatch/DCPatch "'\"'(tackon instpfad "DosControl")'\"'))(tooltype(prompt "Setze spezielle ToolTypes für DosControl (Inactiv)")(help "Keine Hilfe verfügbar.")(dest (tackon instpfad "DosControl"))(settooltype "(MULTISTART" "YES|NO|POPUP|ASK)")(settooltype "(SMARTSELECT" "LMOUSE|MMOUSE)")(settooltype "(SEPARATOR" "KILO|MEGA|GIGA)")(settooltype "(PROGRESSCOPY)" "")(settooltype "(FILEPROTECT)" "")(confirm))))(complete 99)))(if(= answare0 1)((complete 0)(set upd_doscontrol(askfile(prompt "Bitte wählen Sie das DosControl-Programm, welches Sie updaten möchten")(help "Zum Update wird das Original-DosControl benötigt.")(default "sys:DosControl")))(set upd_update(askfile(prompt "Bitte wählen Sie das Update-File, mit dem Sie DosControl updaten möchten")(help "Zum Update wird eine .upd Datei benötigt.")(default upd_doscontrol)))(complete 33)(working "Bitte etwas Geduld\nextrahiere Dateien aus Archiv...")(run("s/UnXZL x s/Tools.xzl -p updater* -o t:dc"))(complete 66)(copyfiles(prompt "Kopiere DosControl")(help @copyfiles-help)(source upd_doscontrol)(dest "t:dc")(newname "DosControl"))(copyfiles(prompt "Kopiere Update")(help @copyfiles-help)(source upd_update)(dest "t:dc")(newname "DosControl.upd"))(run("t:dc/updater t:dc/DosControl"))(if(exists "t:dc/DosControl.new")((copyfiles(prompt "Kopiere DosControl")(help @copyfiles-help)(source "t:dc/DosControl.new")(dest (pathonly upd_doscontrol))(newname "DosControl")(confirm)))((run("delete t:dc#? ALL QUIET FORCE"))(abort "Beim Updaten ist etwas schief gegangen!\n""DosControl wurde nicht verändert.")))))(if(= answare0 2)((complete 0)(set upd_doscontrol(askfile(prompt "Bitte wählen Sie das DosControl-Programm, welches Sie Patchen bzw. wieder herstellen möchten.")(help "Für diesen Vorgang wird das DosControl-Programm benötigt.")(default "sys:DosControl")))(set dcp_aktion(askchoice(prompt "Möchten Sie")(choices "DCPatch in DosControl installieren?" "DCPatch aus DosControl entfernen?")(help "Diese Entscheidung müssen Sie wohl ganz alleine treffen ;-)")(default 0)))(complete 33)(working "Bitte etwas Geduld\nextrahiere Dateien aus Archiv...")(run("s/UnXZL x s/Tools.xzl -p dcpatch/dcpatch* -o t:dc"))(complete 66)(if(= dcp_aktion 0)((working "Installiere DCPatch...")(run(cat "t:dc/dcpatch/dcpatch "'\"' upd_doscontrol '\"'" install remove")))((working "Entferne DCPatch...")(run(cat "t:dc/dcpatch/dcpatch "'\"' upd_doscontrol '\"'" remove"))))))(run("delete t:dc#? ALL QUIET FORCE"))(complete 100)
