home *** CD-ROM | disk | FTP | other *** search
/ Dream 52 / Amiga_Dream_52.iso / Amiga / Workbench / Archivers / DMS2HD1_1.lha / dms2hd1.1 / Install < prev    next >
Text File  |  1998-04-12  |  2KB  |  101 lines
  1. ;
  2. ; DMS2HD installer Script - by Software Failure/Airsoft
  3. ;
  4. ; if there are any problems, email me: Andreas.Falkenhahn@mail.regio.net
  5. ;
  6.  
  7. (message (cat "\n\nDMS2HD V1.1 \n\n(c) 1997-98 by Andreas Falkenhahn\n\n\n"
  8.               "This script installs DMS2HD to your\n"
  9.               "harddisk and adds an assign to your\n"
  10.               "S:User-startup. All operations can be\n"
  11.               "skipped!"
  12.          )
  13. )
  14.  
  15. (welcome)
  16.  
  17. (set #assign "An assign needs to be inserted in your S:User-Startup. Please proceed!")
  18. (set #whereinstall "Copying file DMS2HD to C:")
  19. (set #whereinstall1 "Where to create the directory DMS2HD?")
  20. (set #whereinstall2 "Select destination for the documentation") 
  21.  
  22. (set #whereinstall_help "No help available")
  23.  
  24. (if (not (exists "C:DMS"))
  25.    (abort "Cannot find C:DMS. Please copy your DMS executable to C:. Path can be specified by the user in later versions! Please be patient!")
  26. )
  27.    
  28. (set name
  29.     (askdir 
  30.            (prompt #whereinstall1)
  31.            (help "Please select a valid path where the datafiles can be copied to!")
  32.            (default "SYS:")
  33.     )
  34. )
  35.  
  36. (copyfiles
  37.    (source "/DMS2HD.info")
  38.    (dest   name)
  39.    (nogauge)
  40. )
  41.  
  42. (makeassign "aj" name)
  43.  
  44. (makedir "aj:DMS2HD")
  45.  
  46. (makeassign "ag" "aj:DMS2HD")
  47.  
  48. (makedir "ag:dat")
  49.  
  50. (working "\n\nCopying datafiles...")
  51.  
  52. (copyfiles
  53.    (source "dat/")
  54.    (dest "ag:dat")
  55.    (all)
  56.    (nogauge)
  57. )
  58.  
  59. (copyfiles
  60.   (prompt #whereinstall)
  61.   (help "Select path where to install the main executable. Recommend is C:")
  62.   (source "DMS2HD")
  63.   (dest "C:")
  64.   (confirm)
  65. )
  66.  
  67. (working "\n\nPlease wait...")
  68.  
  69. (set dest2
  70.      (askdir
  71.            (prompt #whereinstall2)
  72.            (help "Select a path where to copy the documentation. Recommend is HELP:")
  73.            (default "Help:")
  74.      )
  75. )
  76.  
  77. (MakeAssign "airsoft2" dest2)
  78.  
  79. (copyfiles (source "DMS2HD.guide") (dest "airsoft2:"))
  80. (copyfiles (source "DMS2HD.guide.info") (dest "airsoft2:"))
  81.  
  82. (set sstr (substr name (- (strlen name) 1) 1))
  83. (if (or (= sstr "/") (= sstr ":")) (set dname (cat name "DMS2HD")) (set dname (cat name "/DMS2HD")))
  84.  
  85. (set sstr (substr dname (- (strlen dname) 1) 1))
  86. (if (or (= sstr "/") (= sstr ":")) (set diname (cat dname "dat")) (set diname (cat dname "/dat")))
  87.  
  88. (startup (prompt #assign) (help "No help")
  89.  
  90.           "DMS2HD"
  91.           (command (cat
  92.               "Assign DDAT: " diname
  93.           )
  94. ))
  95.  
  96. (message (cat "\n\nDMS2HD was successfully installed!\n\n"
  97.               "Enjoy the program and register!"
  98. ))
  99.  
  100. (exit (quiet))
  101.