home *** CD-ROM | disk | FTP | other *** search
/ 17 Bit Software 4: Phase Four / 17Bit_Phase_Four.iso / files / 3147a.dms / 3147a.adf / CyberTech-Install < prev    next >
Encoding:
Text File  |  1994-02-10  |  2.3 KB  |  98 lines
  1. ; []----------------------------------------------------------------------[]
  2. ; |               CyberTech Corp. © 1993, 1994 Tim Caldwell                |
  3. ; |                   All rights reserved.                            |
  4. ; |                                                                        |
  5. ; |             AMIGA 1200/4000 Hard Drive Installation Script             |
  6. ; []----------------------------------------------------------------------[]
  7.  
  8.  
  9. ; Check to see what version of Workbench we are running under. As the game
  10. ; is AGA only, a minimum version of 3.0 is required.
  11. ;
  12. (set osversion (/ (getversion) 65536))
  13. (if (< osversion 39)
  14.   (abort "CyberTech Corp. requires a minimum of Workbench 3.0")
  15. )
  16.  
  17.  
  18. ; Ask the user which directory they would like the game installed to, then
  19. ; create the directories we need.
  20. ;
  21. (set @default-dest
  22.   (askdir
  23.     (prompt  "Please select the directory to install the\n"
  24.          "game to. If you do not create a new directory\n"
  25.          "then the game will be installed to the one shown.\n"
  26.     )
  27.     (help    "You must select the directory that the game\n"
  28.          "is to be installed to. Once a directory has\n"
  29.          "been selected, the main game file will be\n"
  30.          "copied there; all other files will be copied\n"
  31.          "to a subdirectory called Data which will be\n"
  32.          "automatically created for you.\n"
  33.     )
  34.     (default "Work:Games")
  35.   )
  36. )
  37.  
  38. (set datadir (tackon @default-dest "Data"))
  39. (if
  40.   (= (exists datadir) 0)
  41.   (makedir datadir)
  42. )
  43.  
  44.  
  45. ; Now that we have the basic directory structure we can start copying the
  46. ; files across.
  47. ;
  48. (copyfiles
  49.   (prompt "")
  50.   (help   "")
  51.   (source "CTBoot:CyberTech")
  52.   (dest @default-dest)
  53.   (infos)
  54. )
  55. (copyfiles
  56.   (prompt "")
  57.   (help   "")
  58.   (source "CTBoot:Data")
  59.   (dest datadir)
  60.   (pattern "#?")
  61.   (infos)
  62. )
  63.  
  64. (askdisk
  65.   (prompt "Please insert the disk labeled\n"
  66.       "\"CyberTech Data Disk\"")
  67.   (help   "")
  68.   (dest   "CTData")
  69. )
  70. (copyfiles
  71.   (prompt "")
  72.   (help   "")
  73.   (source "CTData:")
  74.   (dest datadir)
  75.   (pattern "#?")
  76.   (infos)
  77. )
  78.  
  79.  
  80. ; Finally, modify the User-Startup sequence by inserting an assign to the
  81. ; game directory (providing the user allows us to !)
  82. ;
  83. (if
  84.   (= (exists "S:User-Startup") 1)
  85.     (
  86.       (startup "CTBoot"
  87.       (prompt  "")
  88.       (help    "")
  89.       (command ("Assign CTBoot: %s" @default-dest))
  90.     )
  91.   )
  92. )
  93. (makeassign "CTBoot" @default-dest)
  94.  
  95.  
  96. ; All done !
  97. (exit)
  98.