home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 29 / amigaformatcd29.iso / -readerstuff- / andrew_edmonds / install < prev    next >
Encoding:
Text File  |  1998-05-28  |  2.7 KB  |  95 lines
  1. (if (= x 1) (welcome))
  2.  
  3. (complete 0)
  4.  
  5.  
  6. (run "C/Play16 >nil: InstallSnd")
  7.  
  8. (message 
  9.   "\n\nWelcome to the UNIT installation utility"
  10.   "\n\nUNIT ® 1998 Andrew Edmonds"
  11.     
  12.  
  13.   "\n\nUNIT v2 is Freeware!"
  14.  
  15. ;  (ALL)
  16. )
  17.  
  18. (message
  19.   "\nPlease note that during the installation of UNIT any old UNIT prefs will be deleted "
  20.   "due to incompatibility problems with the new version"
  21. ;  (ALL)
  22. )
  23. (set #DEST0
  24.   (askdir
  25.     (prompt "Where do you want to install UNIT? A drawer will be created there.")
  26.     (help (cat @askdir-help)
  27.     )
  28.     (default "Sys:")
  29.   )
  30. )
  31.  
  32.  
  33.  
  34. (message
  35.   "\n\nThe installer will now copy the main UNIT files to the selected "
  36.   "directory and the default settings to ENVARC:"
  37. ;  (ALL)
  38. )
  39. (set #DEST (tackon #DEST0 "UNIT"))
  40. (set @default-dest (tackon #DEST0 "UNIT"))
  41. (makedir #DEST (infos))
  42.  
  43. (copyfiles (dest #DEST) (source "UNITv2"))
  44. (copyfiles (dest #DEST) (source "UNIT"))
  45. (copyfiles (dest #DEST) (source "UNIT.info"))
  46. (copyfiles (dest #DEST) (source "Online"))
  47. (copyfiles (dest #DEST) (source "Offline"))
  48. (copyfiles (dest #DEST) (source "US1"))
  49. (copyfiles (dest #DEST) (source "US2"))
  50. (set #DESTD (tackon #DEST "Docs"))
  51. (makedir #DESTD)
  52. (copyfiles (dest #DEST) (source "Docs.info"))
  53. (copyfiles (dest #DESTD) (source "Docs/UNIT_Readme"))
  54. (copyfiles (dest #DESTD) (source "Docs/UNIT_Readme.info"))
  55. (copyfiles (dest #DESTD) (source "Docs/Latest_News!"))
  56. (copyfiles (dest #DESTD) (source "Docs/Latest_News!.info"))
  57. (copyfiles (dest #DESTD) (source "Docs/Want_Source_Code?"))
  58. (copyfiles (dest #DESTD) (source "Docs/Want_Source_Code?.info"))
  59. (set #DESTC (tackon #DEST "HTML"))
  60. (makedir #DESTC)
  61. (set #DESTE (tackon #DEST "C"))
  62. (makedir #DESTE)
  63. (set #DESTB (tackon #DEST "HTML"))
  64. (copyfiles (dest #DESTB) (source "html/UNITRem.html"))
  65. (copyfiles (dest #DESTB) (source "html/UNIT.html"))
  66. (copyfiles (dest #DESTB) (source "html/Warning.gif"))
  67. (run "c:delete >nil: ENVARC:UNIT ALL")
  68. (run "c:makedir >nil: ENVARC:UNIT")
  69. (copyfiles (dest "ENVARC:UNIT") (Source "Defaults/OPR"))
  70. (copyfiles (dest "ENVARC:UNIT") (Source "Defaults/WER"))
  71. (copyfiles (dest "ENVARC:UNIT") (Source "Defaults/PR"))
  72.  
  73. (message
  74.  
  75.   "\nThe Play16 and WBRun commands are required for UNIT to fully operate."
  76.   "  These commands are copied to the destination that you selected for the installation"
  77.   " and placed in a directory called C.  They do not need to be placed in C:"
  78.   "\n\nThe installer will now copy these files to the correct location for you."
  79.  
  80. )
  81. (copyfiles (dest #DESTE) (source "C/Play16"))
  82. (copyfiles (dest #DESTE) (source "C/Play16.doc"))
  83. (copyfiles (dest #DESTE) (source "C/WBRun"))
  84. (copyfiles (dest #DESTE) (source "C/WBRun.doc"))
  85.  
  86. (message
  87.   "\nBug Reports/Suggestions should go to:"
  88.   "\n"  
  89.   "\nArgonauts@sea.abel.co.uk"
  90.   "\n\n"
  91.   "\n- Unit v2.4 May 1998 -"
  92.  
  93.   "\n\n\nThank you for installing UNIT, Enjoy!"
  94. )
  95.