home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Misc / ACAUG1.DMS / in.adf / multiExtract < prev    next >
Encoding:
Text File  |  1996-06-05  |  3.4 KB  |  88 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  "DataBase.lzx")
  25. (set file2  "AmigaGuide.lzx")
  26. (set file3  "PhotoAlbum.lzx")
  27. (set file4  "SoundBox.lzx")
  28. (set file5  "XDVE2.lzx")
  29. (set file6  "TinyMeter.lzx")
  30.  
  31. (while (OR (= (getAssign (getDevice @default-dest) "d") originalDisc )
  32.            (= originalDisc "") )
  33.   (set destination
  34.     (askdir (help @askdir-help) (prompt destPrompt)
  35.     (newpath)
  36.     (default "RAM:")
  37.   ))
  38. (set destPrompt "Where do you want the archives extracting?\nBut please don't pick the coverdisc!")
  39. (set @default-dest destination)
  40. )
  41.  
  42.  
  43. (if (NOT (= (substr @default-dest (- (strlen @default-dest) 1) 1) ":")) (set @default-dest (cat @default-dest "/")))
  44.  
  45. (if (= (getDevice @default-dest) "RAM")
  46.   (if (< (+(dataBase "total-mem")) 1000000) (message "\n\n\nYou may not have enough memory.\n\nPress proceed to try anyway."))
  47.   (if (< (getDiskSpace @default-dest)) 1000000 (message "\n\n\nYou may not have enough disc space.\n\nPress proceed to try anyway."))
  48. )
  49.  
  50. (set response (askoptions (prompt "Pick which archives to extract.") (help @askoptions-help) (choices
  51.  
  52. file1
  53. file2
  54. file3
  55. file4
  56. file5
  57. file6
  58.  
  59. )) )
  60.  
  61. (set counter (- counter 1))
  62.  
  63. (until (= counter -1)
  64.  
  65.   (if (IN response counter) ((set @app-name file6)  (set response (- response 32)) ))
  66.   (if (IN response counter) ((set @app-name file5)  (set response (- response 16)) ))
  67.   (if (IN response counter) ((set @app-name file4)  (set response (- response 8)) ))
  68.   (if (IN response counter) ((set @app-name file3)  (set response (- response 4)) ))
  69.   (if (IN response counter) ((set @app-name file2)  (set response (- response 2)) ))
  70.   (if (IN response counter) ((set @app-name file1)  (set response (- response 1)) ))
  71.  
  72.   (if (NOT (= @app-name ""))
  73.     ( (complete (* (- completeVal counter ) (/ 100 completeVal)) )
  74.       (working "\n\n\nI am now extracting " @app-name " to " @default-dest ".\n\nPlease Wait.")
  75.       (set unArc (cat "c:lzx x -m -x \"" @app-name "\" \"" @default-dest "\""))
  76.       (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." ))
  77.     )
  78.   )
  79.  
  80.   (set counter (- counter 1))
  81.   (set @app-name "")
  82.  
  83. )
  84.  
  85. (complete 100)
  86. (exit "\n\nHopefully all your chosen files\nhave been extracted correctly!")
  87.  
  88.