home *** CD-ROM | disk | FTP | other *** search
/ World of A1200 / World_Of_A1200.iso / programs / disk / directory / ro / install / ro-install < prev    next >
Text File  |  1995-02-27  |  3KB  |  165 lines
  1. ; $VER: RO-Install 0.81 (3.9.94)
  2. ; RO Installer script by Juergen Schubert <juergen@desert.sub.org>
  3. ; Modified by Oliver Rummeyer, inspired by MagicCX-Install ©1994 Kai Iske.
  4.  
  5. ;========================================================
  6. ; Set Strings
  7.  
  8. (set #nokick
  9. (cat "You must be using Kickstart 2.04 to use RO. Aborting!"
  10. ))
  11.  
  12. (set #nomui
  13. (cat "Can`t find \"MUI:\". You need version 2.2 of MUI or better. Aborting!"
  14. ))
  15.  
  16. (set #startmsg
  17. (cat "\n\RO installation script.\n"
  18.      "This script installs RO on your Amiga.\n\n"
  19.      "Read the Documentation files for\n"
  20.      "more information on the distribution.\n"
  21.      "RO © 1994 Oliver Rummeyer\n"
  22.      "All rights reserved."
  23. ))
  24.  
  25. (set #icons "Which type of icons would you like to install")
  26. (set #magicwbicons "MagicWB-Style Icons; 8 colors")
  27. (set #classicicons "Classic-WB-Style Icons; 4 colors")
  28. (set #noicons "No Icons")
  29.  
  30. (set #install "\n\nInstalling RO to\n\n")
  31.  
  32. (set #drawer
  33. (cat "In which disk or drawer should RO be installed?\n"
  34.      "(A drawer \"RO\" will be created there)"
  35. ))
  36.  
  37. (set #update
  38. (cat "A drawer \"RO\" already exists in the specified disk "
  39.      "or drawer. You should make a backup of your prefs "
  40.      "file before you continue the installation procedure.\n\n"
  41.      "Should I continue the installation procedure?"
  42. ))
  43.  
  44. (set #install-doc "Would you like to install RO`s online documentation?")
  45. (set #doc "Which documentation formats would you like to install?")
  46.  
  47. (set #exitmsg "Have fun using RO!\nAnd don`t forget to register...")
  48.  
  49. ;========================================================
  50.  
  51. (if (< (/ (getversion) 65536) 37)
  52. (
  53.     (abort #nokick)
  54. ))
  55.  
  56. (if (= (exists "MUI:" (noreq)) 0)
  57. (
  58.     (abort #nomui)
  59. ))
  60.  
  61. ;=========================================================
  62.  
  63. (message #startmsg)
  64.  
  65. (complete 0)
  66.  
  67. ;=========================================================
  68.  
  69. (set IconType
  70.         (askchoice
  71.             (prompt #icons)
  72.             (help @askchoice-help)
  73.             (choices
  74.                 #magicwbicons
  75.                 #classicicons
  76.                 #noicons
  77.             )
  78.             (default 0)
  79.         )
  80. )
  81.  
  82. (complete 25)
  83.  
  84. ;=========================================================
  85.  
  86. (set DestDir
  87.         (askdir
  88.             (prompt #drawer)
  89.             (default "SYS:Tools")
  90.             (help @askdir-help)
  91.         )
  92. )
  93.  
  94. (set DestDir (tackon DestDir "RO"))
  95. (set @default-dest DestDir)
  96.  
  97. (if (= (exists DestDir) 2)
  98.    (message #update)
  99. )
  100.  
  101. (complete 50)
  102.  
  103. ;=========================================================
  104.  
  105. (makedir DestDir
  106.     (prompt #install DestDir)
  107.     (infos)
  108. )
  109.  
  110. (if (= IconType 0)
  111.     (copyfiles
  112.         (source "")
  113.         (choices "/Icons/8col/RO.info" "/Icons/8col/RO.guide.info")
  114.         (dest DestDir)
  115.     )
  116. )
  117.  
  118. (if (= IconType 1)
  119.     (copyfiles
  120.         (source "")
  121.         (choices "/Icons/4col/RO.info" "/Icons/4col/RO.guide.info")
  122.         (dest DestDir)
  123.     )
  124. )
  125.  
  126. (copyfiles
  127.         (help @copyfiles-help)
  128.         (source "")
  129.         (choices "/Binary/RO" "/Binary/RO.prefs" )
  130.         (dest DestDir)
  131.         (files)
  132. )
  133.  
  134. (complete 75)
  135.  
  136. ;=========================================================
  137.  
  138. (set doctype
  139.     (askoptions
  140.         (prompt #doc)
  141.         (help @askoptions-help)
  142.         (choices "AmigaGuide ® V39")
  143.         (default 1)
  144.     )
  145. )
  146.  
  147. (if (= doctype 1)
  148.     (copyfiles
  149.         (source "")
  150.         (choices "/Docs/RO.guide")
  151.         (dest DestDir)
  152.     )
  153. )
  154.  
  155. (if (= doctype 0)
  156.     (run "Delete "
  157.         (tackon DestDir "RO.guide.info")
  158.     )
  159. )
  160.  
  161. (complete 100)
  162.  
  163. ;==========================================================
  164. (exit #exitmsg)
  165.