;Install script for Floppy.device

(user 2)
(set @default-dest "")
(set mountpath "Sys:Storage/DosDrivers/")
(set mfspath0 "Devs:DosDrivers/DF0/")
(set mfspath1 "Devs:DosDrivers/DF1/")

(set mfs
   (= 0
     (askchoice
           (prompt "\nDo you want to use Floppy.device\n"
                   "together MultiFileSystem ?\n")
           (help
               "\nIf you choice 'Yes' you must have MFS.\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n"
               @askchoice-help
               )
           (choices "Yes" "No")
           (default 0)
           )
      )
)

(copyfiles
	(source "floppy.device")
	(dest "Devs:")
	(safe)
)

(copyfiles
	(source "")
        (dest mountpath)
        (pattern "FS#?")
	(safe)
)

(delete (tackon mfspath0 "FS0") (infos))
(delete (tackon mfspath1 "FS1") (infos))

(if mfs (
        (rename (tackon mountpath "FS0")
                (tackon mfspath0  "FS0"))

        (rename (tackon mountpath "FS0.info")
                (tackon mfspath0  "FS0.info"))

        (rename (tackon mountpath "FS1") 
                (tackon mfspath1  "FS1"))

        (rename (tackon mountpath "FS1.info")
                (tackon mfspath1  "FS1.info"))
))