home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 27 / amigaformatcd27.iso / -screenplay- / shareware / stratego / strategoprefs / install < prev    next >
Text File  |  1998-03-30  |  9KB  |  234 lines
  1. ;   ________________      ________________          ______  ____  ______
  2. ; .-\         \    /      \    /         /----------\___  \/  _ \/ ____/-.
  3. ; |  \______   \  /        \  /  _______/            |  |  \  _  \____ \ |
  4. ; |         \   \ \   /\   / /       /               |_____/__|__/_____/ |
  5. ; |          \   \ \_/  \_/ /  _____/                                    |
  6. ; |           \   \        /    /       This code is (c) copyright 1997  |
  7. ; |           /____\__/\__/____/               Christopher Page          '
  8. ; |                                            The World Foundry        /
  9. ; |                                        Digital Anarchy Software    .
  10. ; |                                                                    |
  11. ; |                                             All Rights Reserved    |
  12. ; |                                                                    |
  13. ; |                               .------------------------------------'
  14. ; |                              /
  15. ; `-----------------------------'
  16. ;
  17. ; Install script for StrategoPrefs and it's associated files
  18. ;
  19.  
  20.  
  21. (set #txt_welcome1              "This script installs StrategoPrefs V")
  22. (set #txt_welcome2              (cat "\n\nThis is a configuration utility for Stratego"
  23.                                      "\nYou must have Stratego installed on your system for"
  24.                                      "\nthis this editor to be the slightest use to you!"
  25.                                 ))
  26.  
  27.  
  28. (set #prompt_install_location   (cat "Select the directory where you want StrategoPrefs to be installed,"
  29.                                       "\nFor correct operation of the Stratego <-> StrategoPrefs interface"
  30.                                       " you should install StrategoPrefs in the same directory as Stratego"
  31.                                 ))
  32. (set #help_install_location     (cat "When you installed Stratego you created a directory, normally"
  33.                                      "called Stratego, in which the Stratego executable was placed."
  34.                                      " In order for Stratego to successfully call the prefs editor (ie:"
  35.                                      "when the user selects 'Prefs' from the game menu) you must "
  36.                                      "install StrategoPrefs in the same directory as Stratego\n\n"
  37.                                      @askdir-help
  38.                                 ))
  39.  
  40.  
  41. (set #stat_copybinary           "Copying the StrategoPrefs program")
  42. (set #prompt_copybinary         "Copying the StrategoPrefs program to")
  43.  
  44. (set #stat_copyicon             "Copying the StrategoPrefs default icon")
  45. (set #prompt_copyicon           "Copying the StrategoPrefs default icon to")
  46.  
  47.  
  48. (set #stat_copydocs             "Copying StrategoPrefs documentation")
  49. (set #prompt_askifcopydocs      "Would you like to install the StrategoPrefs documentation?")
  50. (set #help_askifcopydocs        (cat "The documents for StrategoPrefs consist of two parts:"
  51.                                      "\nthe documentation itself and a couple of example pictures"
  52.                                      "\nThey can be placed anywhere (a subdir is created for the "
  53.                                      "pictures if you install them) but I recommend that you put "
  54.                                      "them in the same place as the Stratego docs            \n\n"
  55.                                 ))
  56. (set #prompt_docdestination     "Where would you like to install the docs?\n(A directory 'PrefsDocs' will be created there)")
  57. (set #prompt_copydocs           "Copying StrategoPrefs docs to ")
  58.  
  59.  
  60.  
  61.  
  62. (set #stat_copypresets          "Copying StrategoPrefs preset files")
  63. (set #prompt_askifcopypresets   "Would you like to install the example Presets?")
  64. (set #help_askifcopypresets     (cat "The example presets are a selection of .prefs files "
  65.                                      "which can be loaded into StrategoPrefs via the menu "
  66.                                 ))
  67. (set #prompt_presetdestination  "Where would you like the presets to be installed?\n(A directory 'Presets' will be created there)")
  68. (set #prompt_copypresets        "Copying presets to ")
  69.  
  70.  
  71.  
  72. (set #exit_byebyetxt            (cat "Installation Complete"
  73.                                    "\n\nNow read StrategoPrefs.guide before you do anything else!"
  74.                                 ))
  75.  
  76.  
  77. ;-------------------------- Get new version number -------------------------
  78. (set #newModuleVersion (getversion "StrategoPrefs"))
  79. (set #newVer (/ #newModuleVersion 65536))
  80. (set #newRev (- #newModuleVersion (* #newVer 65536)))
  81.  
  82.  
  83. ;----------------------------- welcome the user -----------------------------
  84. (welcome)
  85.  
  86. (message #txt_welcome1 ("%ld.%ld" #newVer #newRev) #txt_welcome2)
  87.  
  88.  
  89. ;--------------------------  Select binary directory  ------------------------
  90. (set #binary-dest "WORK:Stratego")
  91. (set #binary-dest
  92.     (askdir
  93.         (prompt #prompt_install_location)
  94.         (help #help_install_location)
  95.         (default #binary-dest)
  96.     )
  97. )
  98.  
  99. ;----------------------------  Copy binary + icon  --------------------------
  100. (set #sourcefile "StrategoPrefs")
  101. (working #stat_copybinary)
  102. (copyfiles
  103.     (prompt #promp_copybinary
  104.             #binary-dest
  105.     )
  106.     (help @copyfiles-help)
  107.     (source #sourcefile)
  108.     (dest #binary-dest)
  109.     (newname "StrategoPrefs")
  110.     (confirm)
  111.     (files)
  112.     (infos)
  113.     (noposition)
  114. )
  115.  
  116. ;----------------------------  Copy Default Icon  --------------------------
  117. (working #stat_copyicon)
  118. (copyfiles
  119.     (prompt #prompt_copyicon #binary-dest)
  120.     (help @copyfiles-help)
  121.     (source "Graphics.info")
  122.     (dest #binary-dest)
  123.     (noposition)
  124. )
  125. (set #binary-dest (tackon #binary-dest "Graphics"))
  126.  
  127. (copyfiles
  128.     (prompt #prompt_copyicon #binary-dest)
  129.     (help @copyfiles-help)
  130.     (source "Graphics/def_Stratego.info")
  131.     (dest #binary-dest)
  132.     (noposition)
  133. )
  134.  
  135.  
  136.  
  137. ;----------------------------  Copy documentation  --------------------------
  138. (working #stat_copydocs)
  139. (if (askbool
  140.         (prompt #prompt_askifcopydocs)
  141.         (default 1)
  142.         (help #help_askifcopydocs)
  143.     )
  144.     (
  145.         (set #doc-dest "Work:Stratego")
  146.         (set #doc-dest
  147.             (askdir
  148.                 (prompt #prompt_docdestination)
  149.                 (help #help_askifcopydocs @askdir-help)
  150.                 (default #doc-dest)
  151.             )
  152.         )
  153.         (copyfiles
  154.             (prompt #prompt_copydocs #doc-dest)
  155.             (help @copyfiles-help)
  156.             (source "PrefsDocs.info")
  157.             (dest #doc-dest)
  158.             (noposition)
  159.         )
  160.         (set #doc-dest (tackon #doc-dest "PrefsDocs"))
  161.         
  162.         (copyfiles
  163.             (prompt #prompt_copydocs #doc-dest)
  164.             (help @copyfiles-help)
  165.             (source "PrefsDocs/")
  166.             (choices "StrategoPrefs.guide")
  167.             (dest #doc-dest)
  168.             (if (> @user-level 1) (confirm))
  169.             (infos)
  170.             (noposition)
  171.         )
  172.         (set #doc-dest (tackon #doc-dest "DocData"))
  173.         (copyfiles
  174.             (prompt #prompt_copydocs #doc-dest)
  175.             (help @copyfiles-help)
  176.             (source "PrefsDocs/DocData/")
  177.             (choices "Stratego_Setup.iff"
  178.                      "TCP_Setup.iff")
  179.             (dest #doc-dest)
  180.             (if (> @user-level 1) (confirm))
  181.             (infos)
  182.             (noposition)
  183.         )
  184.     )
  185. )
  186.  
  187. ;----------------------------  Copy Preset Files  --------------------------
  188. (working #stat_copypresets)
  189. (if (askbool
  190.         (prompt #prompt_askifcopypresets)
  191.         (default 1)
  192.         (help #help_askifcopypresets)
  193.     )
  194.     (
  195.         (set #preset-dest "Work:Stratego")
  196.         (set #preset-dest
  197.             (askdir
  198.                 (prompt #prompt_presetdestination)
  199.                 (help #help_askifcopypresets @askdir-help)
  200.                 (default #preset-dest)
  201.             )
  202.         )
  203.         (copyfiles
  204.             (prompt #prompt_copypresets #preset-dest)
  205.             (help @copyfiles-help)
  206.             (source "Presets.info")
  207.             (dest #preset-dest)
  208.             (noposition)
  209.         )
  210.         (set #preset-dest (tackon #preset-dest "Presets"))
  211.         
  212.         (copyfiles
  213.             (prompt #prompt_copypresets #preset-dest)
  214.             (help @copyfiles-help)
  215.             (source "Presets/")
  216.             (choices "Defaults.prefs"
  217.                      "All_Rules.prefs"
  218.                      "WB_ECS.prefs"
  219.                      "WB_RTG.prefs")
  220.             (dest #preset-dest)
  221.             (if (> @user-level 1) (confirm))
  222.             (infos)
  223.             (noposition)
  224.         )
  225.     )
  226. )
  227.  
  228.  
  229. ;------------------------------------ end -----------------------------------
  230. (complete 100)
  231. (exit #exit_byebyetxt)
  232.  
  233.  
  234.