home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaDemoCD2.iso / DEMOS / S96-DAM5.LHA / demo / ami / plumb / Install < prev    next >
Encoding:
Text File  |  1995-09-04  |  1.5 KB  |  66 lines
  1. ;  *** Plumb! installation scipt ***
  2.  
  3. (set #ask-plumb1
  4. (cat "\n\nPlease insert Plumb installation disk #1 in any drive."))
  5.  
  6. (set #ask-plumb2
  7. (cat "\n\nPlease insert Plumb installation disk #2 in any drive."))
  8.  
  9.  
  10. (set #install-msg (cat  "\n\nPlumb by Session.\n"
  11.             "\n"
  12.                         "This script installs Plumb to your HD.\n\n"
  13.                         "Plumb is our contribution to the\n"
  14.                         "SYMPOSIUM '96\n"
  15.                         "held from the 5th till the 8th of April.\n\n"
  16.                         "\n"
  17.                         "Infant/Session^New Age")
  18. )
  19.  
  20. (message #install-msg)
  21.  
  22. (welcome "Welcome to the Plumb installation!")
  23.  
  24. (set mydest (askdir (prompt "Where shall I install the demo ?\n(No drawer will be created)")
  25.                     (help @askdir-help)
  26.                     (default "Work:")
  27.                     (disk)
  28.           )
  29. )
  30.  
  31. ((copyfiles
  32.     (prompt "Copying (de)archiver to RAM:")
  33.     (source "Plumb_1:LZX")
  34.     (dest    "RAM:")
  35.     (safe)))
  36.  
  37. (askdisk
  38.     (prompt #ask-plumb1)
  39.     (help @askdisk-help)
  40.     (dest "Plumb_1"))
  41.  
  42. (message "\nUnpacking data to " mydest)
  43.  
  44. (makeassign "Plumb" (cat "" mydest))
  45.  
  46. (RUN "RAM:LZX x Plumb_1:ssn-plumb1 Plumb:")
  47.  
  48. (makeassign "Plumb")
  49.  
  50. (askdisk
  51.     (prompt #ask-plumb2)
  52.     (help @askdisk-help)
  53.     (dest "Plumb_2"))
  54.  
  55. (message "\nUnpacking more data to " mydest)
  56.  
  57. (makeassign "Plumb" (cat "" mydest))
  58.  
  59. (RUN "RAM:LZX x Plumb_2:ssn-plumb2 Plumb:")
  60.  
  61. (makeassign "Plumb")
  62.  
  63. (message "\nRemoving (de)archiver from RAM")
  64.  
  65. (delete "RAM:LZX")
  66.