home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / utilities / boot / magicscrip.lha / MagicScripts / Install-Scripts < prev    next >
Encoding:
Text File  |  1995-01-15  |  3.5 KB  |  168 lines
  1. ; $VER: MagicScripts-Install 1.0 (15.12.95)
  2. ; Install script for MagicScripts by Jonathan Benson
  3.  
  4. (set app_name "MagicScripts")
  5.  
  6. (set version "1.0")
  7.  
  8. (set vers_name (cat app_name " v" version))
  9.  
  10. (set bad-kick "You must be using Kickstart 2.04+ to install MagicScripts")
  11.  
  12. (set install-msg
  13.   (cat
  14.     "\n\nWelcome to the MagicScripts installation utility.\n\n"
  15.     "This program lets you install\n the scripts to your Amiga.\n\n"
  16.     "Please read the documentation\n before using the scripts.\n\n"
  17.   )
  18. )
  19.  
  20. (set exit_msg
  21.   (cat
  22.     "Well it's most likely not in the above drawer, but give me a break.  "
  23.     "I can't figure out how to use this Installer any better without "
  24.     "documentation.\n\n"
  25.     "Don't forget to read the documentation for MagicScripts!"
  26.     "\n\nAnd let me know if you enjoy the scripts..."
  27.   )
  28. )
  29.  
  30. (set copying "Copying ")
  31.  
  32. (set where-scripts "Where would you like to install the Scripts?")
  33.  
  34. (set help-where-scripts "The scripts should be placed in CSH: if you wish to use the provided MagicScripts.dock.  Otherwise, you can put them wherever you want.")
  35.  
  36. (set where-ReqAsk "Where would you like to install ReqAsk?")
  37.  
  38. (set help-where-ReqAsk "ReqAsk must be placed somewhere in your path, eg. c:")
  39.  
  40. (set where-docs "Where would you like to install the Docs?")
  41.  
  42. (set help-where-docs
  43.   (cat
  44.     "    MagicScripts.guide is the documentation for MagicScripts in the "
  45.     "special AmigaGuide® hypertext format. You need a program like "
  46.     "AmigaGuide or MultiView to view it properly."
  47.     "  ReqAsk.doc is a plain text file and the documentation for "
  48.     "ReqAsk by Magnus Holmgren."
  49.   )
  50. )
  51.  
  52. (set where-dock "Where would you like to install MagicScripts.dock?")
  53.  
  54. (set help-where-dock
  55.   (cat
  56.     "    The MagicScripts.dock file is a file for you to append to your "
  57.     "existing ToolManager.prefs file (using ToolManager >2.1).  It "
  58.     "should be copied to somewhere temporarily, until you do this. "
  59.     "Eg. RAM:"
  60.   )
  61. )
  62. (transcript (cat "Installing " vers_name " ..."))
  63.  
  64. ; Check Kickstart version. Exit if not at least 2.0
  65.  
  66. (if (< (/ (getversion) 65536) 37)
  67.   (abort bad-kick)
  68. )
  69.  
  70. (message install-msg)
  71.  
  72. (complete 0)
  73.  
  74. ; Copy MagicScripts
  75.  
  76. (set destination
  77.   (askdir
  78.     (prompt  where-scripts)
  79.     (help    (cat help-where-scripts "\n\n" @askdir-help))
  80.     (default "CSH:")
  81.   )
  82. )
  83.  
  84. (set @default-dest destination)
  85.  
  86. (copyfiles
  87.   (prompt "Copying Scripts...")
  88.   (confirm)
  89.   (source ""
  90.   (pattern "#?.sh"))
  91.   (dest destination)
  92.   (help @copyfiles-help)
  93. )
  94.  
  95. (set temp destination)
  96.  
  97. (complete 50)
  98.  
  99. ; Copy ReqAsk
  100.  
  101. (set destination
  102.   (askdir
  103.     (prompt where-ReqAsk)
  104.     (help (cat help-where-ReqAsk "\n\n" @askdir-help))
  105.     (default "C:")
  106.   )
  107. )
  108.  
  109. (set @default-dest destination)
  110.  
  111. (copyfiles
  112.   (prompt "Copying ReqAsk...")
  113.   (confirm)
  114.   (source "ReqAsk")
  115.   (dest destination)
  116.   (help @copyfiles-help)
  117. )
  118.  
  119. (complete 60)
  120.  
  121. ; Copy Documentation
  122.  
  123. (set destination
  124.   (askdir
  125.     (prompt  where-docs)
  126.     (help    (cat help-where-docs "\n\n" @askdir-help))
  127.     (default "Docs:")
  128.   )
  129. )
  130.  
  131. (set @default-dest destination)
  132.  
  133. (copyfiles
  134.   (prompt "Copying Documentation...")
  135.   (confirm)
  136.   (source "Documentation/"
  137.   (pattern "#?"))
  138.   (dest destination)
  139.   (help @copyfiles-help)
  140. )
  141.  
  142. (complete 90)
  143.  
  144. ; Copy MagicScripts.dock
  145. (set destination
  146.   (askdir
  147.     (prompt  where-dock)
  148.     (help    (cat help-where-dock "\n\n" @askdir-help))
  149.     (default "RAM:")
  150.   )
  151. )
  152.  
  153. (set @default-dest destination)
  154.  
  155. (copyfiles
  156.   (prompt "Copying MagicScripts.dock...")
  157.   (confirm)
  158.   (source "MagicScripts.dock")
  159.   (dest destination)
  160.   (help @copyfiles-help)
  161. )
  162.  
  163. (complete 100)
  164.  
  165. (exit exit_msg)
  166.  
  167. ; End of Installer script
  168.