home *** CD-ROM | disk | FTP | other *** search
/ Aminet 10 / aminetcdnumber101996.iso / Aminet / util / arc / DMSII_V1_0.lha / Install next >
Text File  |  1993-07-19  |  3KB  |  96 lines
  1. ;*****************************************************
  2. ;  Script to install DMS Intuition Interface
  3. ;  Made in 1993 by Newtec
  4. ;*****************************************************
  5.  
  6. (set DMSIIflag        1)
  7. (set DMSMDocflag    2)
  8. (set DMSNDocflag    4)
  9. (set DMS11flag        8)
  10. (set FDCHKFlag        16)
  11. (set RTFlag        32)
  12.  
  13. ;*****************************************************
  14. ;* Check kickstart version
  15. ;*****************************************************
  16.  
  17. (set version (/ (getversion) 65536))
  18.  
  19. (if (< version 37)
  20. (Exit "You don't even have kickstart 2.0!!\nIt's impossible to live without it. Buy it.\nHowever, if you REALLY want an 1.3 version,\nyou better beg me to make it, coz else I won't..\n")
  21. )
  22. (if (< version 39)
  23. (Exit "Gulp.. The current version of DMS Intuition interface\ncontains a small bug which makes it unable to run unless\nyou have kickstart 3.0 or higher... Sorry... I'm trying\nto fix it... In the meantime, you'd better run softkick 3.0!\n")
  24. )
  25.  
  26. ;*****************************************************
  27. ;* Set Default installing directory if it exists
  28. ;*****************************************************
  29.  
  30. (if (exists ("dh0:Util/Packers"))
  31. (set @default-dest "dh0:Util/Packers")
  32. )
  33.  
  34. ;*****************************************************
  35. ;* Ask where to install the main program
  36. ;*****************************************************
  37.  
  38. (
  39.     (set Destination
  40.         (askdir
  41.             (prompt    "Select the drawer where you would like\n "
  42.                 "DMS Intuition Interface to be installed.\n")
  43.             (help    "Just specify where you want DMSII to be\n"
  44.                 "installed!  Is it that hard ?")
  45.             (default @default-dest)
  46.         )
  47.     )
  48.     (set Destination (tackon Destination ""))
  49. )
  50. (if (<> (exists Destination) 2) (makedir Destination (infos)))
  51. (set @default-dest Destination)
  52.  
  53.  
  54. ;*****************************************************
  55. ;* Ask what to install
  56. ;*****************************************************
  57.  
  58. (set install_opts
  59.     (askoptions
  60.         (prompt    "DMS Intuition Interface Harddisk Installation\n\n"
  61.             "Please select which programs and/or data you wish to install "
  62.             "now to your hard drive.")
  63.         (choices "DMS Intuition Interface"
  64.              "The Multiview documentation"
  65.              "The ASCII documentation"
  66.              "DMS V1.11"
  67.              "FDCHK V2.4 Custom DMS Tester"
  68.              "Reqtools.library")
  69.         (default -1)
  70.         (help    "No help available. C'mon! Just install everything!\n"
  71.         )
  72.     )
  73. )
  74.  
  75. ;*****************************************************
  76. ;* Begin the installation...
  77. ;*****************************************************
  78.  
  79. (working "\n\nInstalling\n\nto\n\n" Destination)
  80.  
  81. (if (AND install_opts DMSIIFlag)     (copyfiles (source ":DMSII/DMSII")           (dest Destination)))
  82. (if (AND install_opts DMSIIFlag)     (copyfiles (source ":DMSII/DMSII.info")       (dest Destination)))
  83.  
  84. (if (AND install_opts DMSMDocFlag)   (copyfiles (source ":DMSII/DMSII.Guide")       (dest Destination)))
  85. (if (AND install_opts DMSMDocFlag)   (copyfiles (source ":DMSII/DMSII.Guide.info") (dest Destination)))
  86.  
  87. (if (AND install_opts DMSNDocFlag)   (copyfiles (source ":DMSII/DMSII.Doc")       (dest Destination)))
  88. (if (AND install_opts DMSNDocFlag)   (copyfiles (source ":DMSII/DMSII.Doc.info")   (dest Destination)))
  89.  
  90. (if (AND install_opts DMS11Flag)     (copyfiles (source ":DMSII/c/DMS")           (dest "c:")))
  91.  
  92. (if (AND install_opts FDCHKflag)     (copyfiles (source ":DMSII/c/FdChk")       (dest "c:")))
  93.  
  94. (if (AND install_opts RTFlag)         (copyfiles (source ":DMSII/libs/reqtools.library") (dest "libs:")))
  95.  
  96.