(set @my-dest "SYS:Tools/")

(set #begin (cat "\nVirtualFloppy ist ©96-97 von Holger Kasten.\n\n"))
(set #Pfad  (cat "Wählen Sie bitte das Zielverzeichnis für VirtualFloppy\n"))
(set #Hilfe-Pfad (cat "\nHier können Sie das Zielverzeichnis für VirtualFloppy angeben.\n\n"
                     "    Default ist SYS:Tools/\n\n"
                     @askdir-help))
(set #ende (cat "\nViel Spaß mit VirtualFloppy."))
(set #buffer (cat "Wie groß soll der Puffer für die simulierten Disketten sein?"))
(set #mount1 (cat "Was für Disketten möchten Sie auf Seite 1 (von 4) simulieren?"))
(set #mount2 (cat "Was für Disketten möchten Sie auf Seite 2 (von 4) simulieren?"))
(set #mount3 (cat "Was für Disketten möchten Sie auf Seite 3 (von 4) simulieren?"))
(set #mount4 (cat "Was für Disketten möchten Sie auf Seite 4 (von 4) simulieren?"))

(message #begin)
(complete 0)

(set target (askdir (prompt (cat #Pfad))
                    (help   (cat #Hilfe-Pfad))
                    (default @my-dest)
            )
)

(set @my-dest target)
(makedir (tackon @my-dest "VirtualFloppy") (infos))
(set @my-dest (tackon @my-dest "VirtualFloppy"))

(complete 20)

(copyfiles (source "VirtualFloppy")
           (dest (tackon @my-dest "")) (infos)
)


(complete 40)

(copylib
            (source "devs/fmsdisk.device")
            (dest "devs:")
)

(copylib
            (source "libs/reqtools.library")
            (dest "libs:")
)

(copyfiles (source "Extras/VF-AutoMount.info")
           (dest (tackon "SYS:WBStartup" ""))
)

(complete 60)

(makedir (tackon "devs:" "VFX-DISKS"))

(set buffer (askchoice
    (help "")
    (prompt #buffer)
    (DEFAULT 2)
    (choices
        "Sehr klein"
        "Klein"
        "Normal"
        "Groß"
        "Sehr Groß")
))

(set page1 (askchoice
    (help "")
    (prompt #mount1)
    (DEFAULT 0)
    (choices
        "Amiga DD (880 KB) Disks"
        "Amiga HD (1760 KB) Disks"
        "PC DD (720 KB) Disks"
        "PC HD (1440 KB) Disks")
))

(set page2 (askchoice
    (help "")
    (prompt #mount2)
    (DEFAULT 1)
    (choices
        "Amiga DD (880 KB) Disks"
        "Amiga HD (1760 KB) Disks"
        "PC DD (720 KB) Disks"
        "PC HD (1440 KB) Disks")
))

(complete 70)

(set page3 (askchoice
    (help "")
    (prompt #mount3)
    (DEFAULT 2)
    (choices
        "Amiga DD (880 KB) Disks"
        "Amiga HD (1760 KB) Disks"
        "PC DD (720 KB) Disks"
        "PC HD (1440 KB) Disks")
))

(set page4 (askchoice
    (help "")
    (prompt #mount4)
    (DEFAULT 3)
    (choices
        "Amiga DD (880 KB) Disks"
        "Amiga HD (1760 KB) Disks"
        "PC DD (720 KB) Disks"
        "PC HD (1440 KB) Disks")
))

(run (cat "MLWriter >DEVS:VFX-mountlist PAGE1="page1" PAGE2="page2" PAGE3="page3" PAGE4="page4" BUF="buffer" PACK=0"))

(complete 80)

(copyfiles (source "Prefs")
           (dest (tackon @my-dest "")) (infos)
)

(copyfiles
                     (source "RegiTool")
                     (dest (tackon @my-dest "") (infos))
)

(copyfiles
                     (source "RegiTool.cfg")
                     (dest (tackon @my-dest "") (infos))
)

(copyfiles
                     (source "Anleitung")
                     (dest (tackon @my-dest "") (infos))
)

(message #ende)
(complete 100)