home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Misc / ACAUG2.DMS / in.adf / multiExtract < prev    next >
Encoding:
Text File  |  1996-06-05  |  3.7 KB  |  97 lines
  1. ; crummy multiArchive extractor : By Neil Mohr for Amiga Computing
  2. ; $VER: crummy multilzx extractor v1.0b (15:08 28 Jan 1996)
  3.  
  4. ;all specified archives must be in the same directory, with lzx
  5. ;start with file1, file2 .. don't intersperse entries
  6.  
  7. (complete 0)
  8. (welcome)
  9.  
  10. (if (OR (= (getDevice @icon) "DF0") (= (getDevice @icon) "DF1") (= (getDevice @icon) "DF2"))
  11.     (set originalDisc (getAssign (getDevice @icon) "d")) )
  12. (set @default-dest "")
  13. (set @app-name "")
  14. (set counter 0)
  15. (foreach "" "#?.lzx" (set counter (+ counter 1)) )
  16. (set completeVal (+ counter 1))
  17. (set destPrompt "Where do you want the archives extracting?")
  18.  
  19. (user 2)
  20. (message "\n\n\nTo use this installer properly you need\na hard drive, or at "
  21.          "least, plenty of free memory.\n\n\nAlso this icon should be in the same "
  22.          "directory as the archives, otherwise it will not work!")
  23.  
  24. (set file1  "AREXXBeginners.lzx")
  25. (set file2  "Confont.lzx")
  26. (set file3  "PrintManager_2.lzx")
  27. (set file4  "EasyPrint.lzx")
  28. (set file5  "CmEd.lzx")
  29. (set file6  "EasyLink1_12.lzx")
  30. (set file7  "ATAPI.lzx")
  31. (set file8  "ScreenTab.lzx")
  32. (set file9  "FlushMem.lzx")
  33.  
  34. (while (OR (= (getAssign (getDevice @default-dest) "d") originalDisc )
  35.            (= originalDisc "") )
  36.   (set destination
  37.     (askdir (help @askdir-help) (prompt destPrompt)
  38.     (newpath)
  39.     (default "RAM:")
  40.   ))
  41. (set destPrompt "Where do you want the archives extracting?\nBut please don't pick the coverdisc!")
  42. (set @default-dest destination)
  43. )
  44.  
  45.  
  46. (if (NOT (= (substr @default-dest (- (strlen @default-dest) 1) 1) ":")) (set @default-dest (cat @default-dest "/")))
  47.  
  48. (if (= (getDevice @default-dest) "RAM")
  49.   (if (< (+(dataBase "total-mem")) 1000000) (message "\n\n\nYou may not have enough memory.\n\nPress proceed to try anyway."))
  50.   (if (< (getDiskSpace @default-dest)) 1000000 (message "\n\n\nYou may not have enough disc space.\n\nPress proceed to try anyway."))
  51. )
  52.  
  53. (set response (askoptions (prompt "Pick which archives to extract.") (help @askoptions-help) (choices
  54.  
  55. file1
  56. file2
  57. file3
  58. file4
  59. file5
  60. file6
  61. file7
  62. file8
  63. file9
  64.  
  65. )) )
  66.  
  67. (set counter (- counter 1))
  68.  
  69. (until (= counter -1)
  70.  
  71.   (if (IN response counter) ((set @app-name file9)  (set response (- response 256)) ))
  72.   (if (IN response counter) ((set @app-name file8)  (set response (- response 128)) ))
  73.   (if (IN response counter) ((set @app-name file7)  (set response (- response 64)) ))
  74.   (if (IN response counter) ((set @app-name file6)  (set response (- response 32)) ))
  75.   (if (IN response counter) ((set @app-name file5)  (set response (- response 16)) ))
  76.   (if (IN response counter) ((set @app-name file4)  (set response (- response 8)) ))
  77.   (if (IN response counter) ((set @app-name file3)  (set response (- response 4)) ))
  78.   (if (IN response counter) ((set @app-name file2)  (set response (- response 2)) ))
  79.   (if (IN response counter) ((set @app-name file1)  (set response (- response 1)) ))
  80.  
  81.   (if (NOT (= @app-name ""))
  82.     ( (complete (* (- completeVal counter ) (/ 100 completeVal)) )
  83.       (working "\n\n\nI am now extracting " @app-name " to " @default-dest ".\n\nPlease Wait.")
  84.       (set unArc (cat "c:lzx x -m -x \"" @app-name "\" \"" @default-dest "\""))
  85.       (if (> (run unArc) 0)  (message "lzx reported an error when extracting\n" @app-name " to the destination path " @default-dest ".\n\nThis could either be a problem with how\nyour computer is setup or with the disk itself.\nTry running the HD-Setup Icon, and make sure you are running MultiExtract from the cover disk, it may be the destination " @default-dest " does not have enought room.\n\nIf problems persist ring 01625 878888 and ask for Amiga Computing Technical Help.\n\nPress Proceed To Continue." ))
  86.     )
  87.   )
  88.  
  89.   (set counter (- counter 1))
  90.   (set @app-name "")
  91.  
  92. )
  93.  
  94. (complete 100)
  95. (exit "\n\nHopefully all your chosen files\nhave been extracted correctly!")
  96.  
  97.