home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Misc / GameSmith1-Hisoft-System.DMS / in.adf / GDS_Install2.0+ < prev    next >
Encoding:
Text File  |  1995-04-23  |  6.1 KB  |  225 lines
  1. (set vernum (getversion))
  2. (set ver (/ vernum 65536))
  3. (set rev (- vernum (* ver 65536) ) )
  4.  
  5. (if (< ver 36)
  6.    (
  7.    (message
  8.       "Due to restrictions with Installer and Workbench 1.3, "
  9.       "you will need to execute the script \"GDS_Install1.3\" "
  10.       "in order to install GameSmith.  This script is located "
  11.       "on the \"GDS System:\" diskette.\n\n"
  12.       "Before executing this script, make sure you first assign "
  13.       "\"GameSmith:\" to the directory where you would "
  14.       "like the GameSmith Development System installed."
  15.    )
  16.    (exit (quiet))
  17.    )
  18. )
  19.  
  20. (copyfiles
  21.     (source "GDS_System:lha")
  22.     (dest "t:")
  23. )
  24.  
  25. (copyfiles
  26.     (source "GDS_System:Devpac_GS.lha")
  27.     (dest "t:")
  28. )
  29.  
  30.  
  31. (set @execute-dir "t:")
  32.  
  33. (until continue
  34.     (set GDS_path
  35.         (askdir
  36.         (prompt "Where should the GameSmith system be installed?")
  37.             (help "The installation utility will create a new directory called "
  38.                 "\"GameSmith\" under the specified device or directory.  All GameSmith "
  39.                 "files will be copied to this new directory.\n\n")
  40.             (default @default-dest)
  41.         )
  42.     )
  43.     (set continue
  44.         (askbool
  45.             (prompt"The GameSmith Development System will be installed to\n\n"
  46.             (tackon GDS_path "GameSmith")"\n\n"
  47.             "The install process may take some time to unpack the GameSmith "
  48.             "archives.  Please be patient.")
  49.             (help "All GameSmith files will be copied to " (tackon GDS_path "GameSmith")
  50.             ". If the directory does not exist, it will be created.\n\n"
  51.             "To change your directory selection, click on NO.  To proceed "
  52.             "with the installation, select OK.")
  53.             (choices "OK, let's install." "NO!  Go back!")
  54.         )
  55.     )
  56. )
  57.  
  58. (set GDS_dir (tackon GDS_path "GameSmith"))
  59.  
  60. (if (NOT (exists GDS_dir))
  61.     (makedir GDS_dir (infos))
  62. )
  63.  
  64. (set @default-dest GDS_dir)
  65.  
  66. (if (NOT @pretend)
  67.    (
  68.     (makeassign "GameSmith" GDS_dir)
  69.    (working "Unpacking System Files...")
  70.     (run "lha x -q \"GDS_System:GDS_System.lha\" GameSmith:")
  71.    )
  72. )
  73.  
  74. (set @execute-dir "t:")
  75.  
  76. (set tut (askbool
  77.     (prompt
  78.     "Do you want to install the GameSmith Tutorial "
  79.     "and Examples contained on Disk 2?")
  80.     (help " ")
  81.     (choices "Yes" "No")
  82. ))
  83. (if tut
  84.     (     
  85.         (askdisk
  86.             (dest "GDS_Tutorial")
  87.             (prompt "Please Insert the Disk Labeled \"GDS_Tutorial\" Into Any Drive.")
  88.             (help " ")
  89.         )
  90.     
  91.            (if (NOT @pretend)
  92.               (
  93.                   (working "Unpacking GDS Tutorial Disk...")
  94.                    (run "lha x -q \"GDS_Tutorial:GDS_tutorial.lha\" GameSmith:")
  95.               )
  96.            )
  97.     )
  98. )
  99.  
  100. (set dice (askbool
  101.     (prompt
  102.     "DICE GS is a special version of the DICE C Compiler and development "
  103.     "system from Obvious Implementations INC. provided for GameSmith owners. "
  104.     "Full installation will require additional steps detailed within the DICE GS " 
  105.     "documentation\n\n"
  106.     "Do you want to install DICE GS?")
  107.     (help "DICE GS is a special version of the DICE C Compiler and development "
  108.     "system from Obvious Implementations INC. provided for GameSmith owners. "
  109.     "A special price on the full commercial verison is available to GameSmith owners. "
  110.     "Please contact Obvious Implementations for more information")
  111.     (choices "Yes" "No")
  112. ))
  113. (if dice
  114.     (     
  115.         (askdisk
  116.             (dest "GDS_Tutorial")
  117.             (prompt "Please Insert the Disk Labeled \"GDS_Tutorial\" Into Any Drive.")
  118.             (help " ")
  119.         )
  120.            (if (NOT @pretend)
  121.               (
  122.                   (working "Unpacking DICE GS...")
  123.                    (run "lha x -q \"GDS_Tutorial:DICE_GS.lha\" GameSmith:")
  124.               )
  125.            )
  126.     )
  127. )
  128.     
  129.  
  130. (set dpgs (askbool
  131.     (prompt
  132.     "Devpac GS is a special version of the Devpac 3 680x0 Assembly language "
  133.     "development system from HiSoft and Oregon Research provided for GameSmith owners.\n\n"
  134.     "Do you want to install Devpac GS?")
  135.     (help "Devpac GS is a limited version of the commercial assembler Devpac 3.  Special discounts "
  136.     "are available on the full version for GameSmith owners.  Contact Oregon Research or HiSoft "
  137.     "more information.")
  138.     (choices "Yes" "No")
  139. ))
  140.  
  141. (if dpgs
  142.     (     
  143.           (if (NOT @pretend)
  144.               (
  145.                   (working "Unpacking Devpac GS...")
  146.                    (run "lha x -q \"t:Devpac_GS.lha\" GameSmith:")
  147.               )
  148.            )
  149.     )
  150. )
  151.     
  152.  
  153. (set exampl (askbool
  154.     (prompt
  155.     "Do you want to install the GameSmith Examples "
  156.     "contained on Disk 3?")
  157.     (help " ")
  158.     (choices "Yes" "No")
  159. ))
  160. (if exampl
  161.     (     
  162.         (askdisk
  163.             (dest "GDS_Examples")
  164.             (prompt "Please Insert the Disk Labeled \"GDS_Examples\" Into Any Drive.")
  165.             (help " ")
  166.         )
  167.            (if (NOT @pretend)
  168.               (
  169.                   (working "Unpacking GDS Examples Disk...")
  170.                    (run "lha x -q \"GDS_Examples:GDS_examples.lha\" GameSmith:")
  171.               )
  172.            )
  173.     )
  174. )        
  175.     
  176.  
  177.     
  178. (delete "t:lha")
  179. (delete "t:Devpac_GS.lha")
  180.  
  181. (startup "GameSmith"
  182.     (prompt
  183.         "The \"GameSmith:\" device assignment needs to be added to your "
  184.         "startup sequence.  If you choose not to automatically add the assignment now, "
  185.         "then you must manually add the line:\n\n"
  186.         "   assign GameSmith: " GDS_dir"\n\n"
  187.         "somewhere in your startup scripts.\n\n"
  188.         "Do you want to automatically add the assignment to your \"S:user-startup\ file?")
  189.     (help "Both CITAS and the include files expect the logical device \"GameSmith:\" "
  190.     "to be assigned.  If it is not assigned to the directory in which your GameSmith "
  191.     "system resides, CITAS will not run, and the include files will cause a compilation "
  192.     "error.")
  193.     (command "assign GameSmith: " GDS_dir"\n")
  194. )
  195.  
  196.  
  197. (set sas65 (askbool
  198.     (prompt "One of the GameSmith include files needs to be customized in order "
  199.     "to work properly with SAS C version 6.5 or higher.\n\n"
  200.     "Will you be using SAS C version 6.5 or higher to compile "
  201.     "GameSmith programs?")
  202.     (help "Refer Should you purchase SAS C version 6.5 or higher at a "
  203.     "later date, you will need to use the file libptrsSAS65.h instead "
  204.     "of libptrs.h as it is currently set up now.  Selecting YES here "
  205.     "will rename libptrs.h to libptrs.h.old, and replace it with "
  206.     "libptrsSAS65.h.  These files can be found in the subdirectory "
  207.     "GameSmith:include/libraries, and may be manually modified at any "
  208.     "time.")
  209.     (choices "Yes" "No")
  210.     )
  211. )
  212.  
  213. (if sas65
  214.    (
  215.     (rename "GameSmith:include/libraries/libptrs.h" "GameSmith:include/libraries/libptrs.h.old")
  216.     (rename "GameSmith:include/libraries/libptrsSAS65.h" "GameSmith:include/libraries/libptrs.h")
  217.    )
  218. )
  219.  
  220.  
  221. (if (AND (> ver 38) (exists "sys:utilities/MultiView"))
  222.    (run "sys:utilities/MultiView GameSmith:ReadMe.Now")
  223.    (run "more GameSmith:ReadMe.Now")
  224. )
  225.