home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 28 / amigaformatcd28.iso / -readerstuff- / richard_burke / scripts / filldisk < prev    next >
Encoding:
Text File  |  1998-05-02  |  2.2 KB  |  114 lines
  1. resident >nil: c:requestchoice pure
  2. resident >nil: c:requestfile pure
  3. resident >nil: c:which pure
  4.  
  5. ; $VER: FillDisk v1.0 (20.4.97) Richard Burke
  6.  
  7. lab beg
  8. if exists env:src
  9.         delete >nil: env:src
  10. endif
  11.  
  12. if exists env:src1
  13.         delete >nil: env:src1
  14. endif
  15.  
  16. if exists env:dest
  17.         delete >nil: env:dest
  18. endif
  19.  
  20. if exists env:dest1
  21.         delete >nil: env:dest1
  22. endif
  23.  
  24. if exists env:yn
  25.         delete >nil: env:yn
  26. endif
  27.  
  28. if exists env:dop
  29.         delete >nil: env:dop
  30. endif
  31.  
  32. if exists env:wld
  33.         delete >nil: env:wld
  34. endif
  35.  
  36. if exists env:fill
  37.         delete >nil: env:fill
  38. endif
  39.  
  40. if exists env:mo
  41.         delete >nil: env:mo
  42. endif
  43.  
  44. which fill all >env:fill
  45. if warn
  46.         requestchoice "FillDisk Error Message" "Can't find 'Fill' tool! *nSee docs for details!" "Quit"
  47.         quit
  48. endif
  49.  
  50. requestchoice >env:dop "Drawer or pattern?" "Use ALL files in source drawer*nor use wildcard pattern?" "All" "Wildcard"
  51. if $dop EQ 1
  52.         skip sc
  53. else
  54.         skip wld
  55. endif
  56.  
  57. lab sc
  58. requestfile >env:src TITLE "Choose drawer to fit" POSITIVE Okay DRAWERSONLY
  59. if warn
  60.         skip end
  61. endif
  62.  
  63. if not exists $src
  64.         echo "Source does not exist! Choose again!"
  65.         delete >nil: env:src
  66.         skip sc back
  67. endif
  68.  
  69. if exists env:src
  70.         skip dst
  71. endif
  72.  
  73. lab wld
  74. requestfile >env:src TITLE "Choose pattern to fit" POSITIVE Okay
  75. if warn
  76.         skip end
  77. endif
  78.  
  79. lab dst
  80. requestfile >env:dest TITLE "Choose destination" POSITIVE Fit DRAWERSONLY DRAWER df0:
  81. if warn
  82.         skip end
  83. endif
  84.  
  85. if not exists $dest
  86.         echo "Destination does not exist! Choose again!"
  87.         delete >nil: env:dest
  88.         skip dst back
  89. endif
  90.  
  91. echo >env:src1 $src
  92. echo >env:dest1 $dest
  93.  
  94. requestchoice >env:yn "Delete?" "Should I delete original files?*n*nSource:        $src1*nDestination:   $dest1" "Yes" "No"
  95. if $yn EQ "1"
  96.         Fill $src $dest move clone multi
  97. else
  98.         Fill $src $dest clone multi
  99. endif
  100.  
  101. requestchoice >env:mo "More?" "More drawers to fit?" "Yes" "No"
  102. if $mo EQ "1"
  103.         echo "*e[1;1H*e[J"
  104.         skip beg back
  105. endif
  106.  
  107. lab end
  108. echo "*e[1;1H*e[J"
  109. echo ""
  110. echo ""
  111. echo ""
  112. echo "                       *e[1;32m  Thank you for using"
  113. echo "                              *e[0;1m Fill*e[0m*e[33mDisk"
  114. quit