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

(if (<> "deutsch" @language)
(
(set #begin (cat "\nVirtualFloppy is ©1996 by Holger Kasten.\n\n")
)
(set #Pfad  (cat "Select the target directory for VirtualFloppy."))
(set #Hilfe-Pfad (cat "\nThis section lets you choose the target directory to install VirtualFloppy in.\n\n"
                      "Default is SYS:Tools/\n\n"
                      @askdir-help))
(set #ende (cat "\nHave fun with VirtualFloppy."))
(set #mount (cat "Diskformat"))
)
(
(set #begin (cat "\nVirtualFloppy ist ©1996 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 #mount (cat "Was für Disketten möchten Sie 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:")
)

(complete 60)

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

(set vi_mount (askchoice
    (help "")
    (prompt #mount)
    (choices
        "30 Amiga (880 KB) Disks"
        "30 PC (720 KB) Disks"
        "15 Amiga (880 KB) Disks & 15 PC (720 KB) Disks")
))


(IF (= 0 vi_mount)
  (copyfiles
                       (source "devs/Amiga/VFX-mountlist")
                       (dest (tackon "devs:" ""))
  )
)

(IF (= 1 vi_mount)
  (copyfiles
                       (source "devs/PC/VFX-mountlist")
                       (dest (tackon "devs:" ""))
  )
)

(IF (= 2 vi_mount)
  (copyfiles
                       (source "devs/Amiga&PC/VFX-mountlist")
                       (dest (tackon "devs:" ""))
  )
)



(complete 80)

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

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

(message #ende)
(complete 100)