home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format 101 / af101sub.adf / vfloppy.LZX / VirtualFloppy_V1.4 / English / Install < prev    next >
Encoding:
Text File  |  1997-06-26  |  2.6 KB  |  126 lines
  1. (set @my-dest "SYS:Tools/")
  2.  
  3. (set #begin (cat "\nVirtualFloppy is ©96-97 by Holger Kasten.\n\n"))
  4. (set #Pfad  (cat "Please choose target dir.\n"))
  5. (set #ende (cat "\nHave fun using VirtualFloppy."))
  6.  
  7. (set #buffer (cat "How big should the disk buffer be?"))
  8. (set #mount1 (cat "Please choose options for Page 1 (of 4)?"))
  9. (set #mount2 (cat "Please choose options for Page 2 (of 4)?"))
  10. (set #mount3 (cat "Please choose options for Page 3 (of 4)?"))
  11. (set #mount4 (cat "Please choose options for Page 4 (of 4)?"))
  12.  
  13. (message #begin)
  14. (complete 0)
  15.  
  16. (set target (askdir (prompt (cat #Pfad))
  17.                     (help   (cat #Hilfe-Pfad))
  18.                     (default @my-dest)
  19.             )
  20. )
  21.  
  22. (set @my-dest target)
  23. (makedir (tackon @my-dest "VirtualFloppy") (infos))
  24. (set @my-dest (tackon @my-dest "VirtualFloppy"))
  25.  
  26. (complete 20)
  27.  
  28. (copyfiles (source "VirtualFloppy")
  29.            (dest (tackon @my-dest "")) (infos)
  30. )
  31.  
  32.  
  33. (complete 40)
  34.  
  35. (copylib
  36.             (source "devs/fmsdisk.device")
  37.             (dest "devs:")
  38. )
  39.  
  40. (copylib
  41.             (source "libs/reqtools.library")
  42.             (dest "libs:")
  43. )
  44.  
  45. (copyfiles (source "Extras/VF-AutoMount.info")
  46.            (dest (tackon "SYS:WBStartup" ""))
  47. )
  48.  
  49. (complete 60)
  50.  
  51. (makedir (tackon "devs:" "VFX-DISKS"))
  52.  
  53. (set buffer (askchoice
  54.     (help "")
  55.     (prompt #buffer)
  56.     (DEFAULT 2)
  57.     (choices
  58.         "Very small"
  59.         "Small"
  60.         "Normal"
  61.         "Big"
  62.         "Very big")
  63. ))
  64.  
  65. (set page1 (askchoice
  66.     (help "")
  67.     (prompt #mount1)
  68.     (DEFAULT 0)
  69.     (choices
  70.         "Amiga DD (880 KB) Disks"
  71.         "Amiga HD (1760 KB) Disks"
  72.         "PC DD (720 KB) Disks"
  73.         "PC HD (1440 KB) Disks")
  74. ))
  75.  
  76. (set page2 (askchoice
  77.     (help "")
  78.     (prompt #mount2)
  79.     (DEFAULT 1)
  80.     (choices
  81.         "Amiga DD (880 KB) Disks"
  82.         "Amiga HD (1760 KB) Disks"
  83.         "PC DD (720 KB) Disks"
  84.         "PC HD (1440 KB) Disks")
  85. ))
  86.  
  87. (complete 70)
  88.  
  89. (set page3 (askchoice
  90.     (help "")
  91.     (prompt #mount3)
  92.     (DEFAULT 2)
  93.     (choices
  94.         "Amiga DD (880 KB) Disks"
  95.         "Amiga HD (1760 KB) Disks"
  96.         "PC DD (720 KB) Disks"
  97.         "PC HD (1440 KB) Disks")
  98. ))
  99.  
  100. (set page4 (askchoice
  101.     (help "")
  102.     (prompt #mount4)
  103.     (DEFAULT 3)
  104.     (choices
  105.         "Amiga DD (880 KB) Disks"
  106.         "Amiga HD (1760 KB) Disks"
  107.         "PC DD (720 KB) Disks"
  108.         "PC HD (1440 KB) Disks")
  109. ))
  110.  
  111. (run (cat "MLWriter >DEVS:VFX-mountlist PAGE1="page1" PAGE2="page2" PAGE3="page3" PAGE4="page4" BUF="buffer" PACK=0"))
  112.  
  113. (complete 80)
  114.  
  115. (copyfiles (source "Prefs")
  116.            (dest (tackon @my-dest "")) (infos)
  117. )
  118.  
  119. (copyfiles
  120.                      (source "Manual")
  121.                      (dest (tackon @my-dest "") (infos))
  122. )
  123.  
  124. (message #ende)
  125. (complete 100)
  126.