home *** CD-ROM | disk | FTP | other *** search
- (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)
-