home *** CD-ROM | disk | FTP | other *** search
/ The Amiga Game Guide / AmigaGameGuide_CD.iso / Amiga / Game-Installer / Normale-Installer / Civilization / Civilization_to_HD next >
Text File  |  1977-12-31  |  10KB  |  343 lines
  1.  
  2.  
  3. ;===========================================
  4. ; Civilization installer by Scott Gray, 1998
  5. ;===========================================
  6.  
  7. ; Welcome to my version of the Civilization HD installer. If you have
  8. ; had to suffer the original version supplied with the game, then
  9. ; you will know why I have taken the time to write my own.
  10. ;
  11. ; Anyway, I hope this installer works a treat for you as it does
  12. ; for me! Enjoy,
  13. ;
  14. ; Scott.
  15.  
  16. ;===========================================
  17. ; Version number and creation date variables
  18. ;===========================================
  19.  
  20. (set SCRIPT_DATE       "25 July 1998")
  21. (set SCRIPT_VER        "1.02")
  22.  
  23. ;========================
  24. ; Opening welcome message
  25. ;========================
  26.  
  27. (set GOINGIN
  28.    (cat     "\nWelcome to the Civilization HD installer."
  29.             "\n\nCivilization ©1992 Microprose Ltd."
  30.             "\n\nThis program will require 2.27Mb HD space"
  31.             "\nfor the main program and 30,168 bytes"
  32.             "\nfor the Civilization fonts."
  33.             "\n\nThis installer written by Scott Gray."
  34.             "\nwww - http://www.sledge.demon.co.uk"
  35.             "\n\nCreated: " SCRIPT_DATE "\nVersion: " SCRIPT_VER
  36.    )
  37. )
  38.  
  39. ;===============
  40. ; Assign message
  41. ;===============
  42.  
  43. (set ASSIGN
  44.     (cat "\nAssign Notice"
  45.          "\n\nCivilization requires that an assign"
  46.          "\nis made in order to work properly."
  47.          "\n\nThe file \"s:user-startup\""
  48.          "\nwill need to be modified by the installer"
  49.          "\nto include that assign."
  50.          "\n\nTo do so, simply press \"Proceed\"."
  51.     )
  52. )
  53.  
  54. (set ADDENDUM
  55.     (cat "\n\n\nPlease reset your Amiga before attempting to play"
  56.          "\nCivilization, so that the assigns can take effect."
  57.          "\n\nHave Fun!!!"
  58.          "\n\nScott ©1998."
  59.     )
  60. )
  61.  
  62. ;==========================
  63. ; Set minimum install space
  64. ;==========================
  65.  
  66. (set INSTALL_SPACE          2274000)  ; 2.27M required to install
  67. (set FONT_SPACE               30168)  ; 30k needed for fonts
  68.  
  69. ;=====================
  70. ; Set name for Program
  71. ;=====================
  72.  
  73. (set PROG_NAME              "Civilization")
  74.  
  75. ;======================
  76. ; Set install variables
  77. ;======================
  78.  
  79. (set CHOOSE_NEW_VOL         ("Please choose a volume on which to install\n"))
  80.  
  81. ;==============================
  82. ; Ok, time to begin, kiddies :)
  83. ;==============================
  84.  
  85. (complete 0)
  86.  
  87. (message GOINGIN)
  88.  
  89. ;================================
  90. ; Pop up a requester asking for a
  91. ; destination for the files to be
  92. ; copied to.
  93. ;================================
  94.  
  95. (set @default-dest
  96.     (askdir
  97.          (prompt CHOOSE_NEW_VOL PROG_NAME)
  98.          (help @askdir-help)
  99.          (default @default-dest)
  100.          (disk)
  101.     )
  102. )
  103.  
  104. ;================================================
  105. ; If there is insufficient space on target drive,
  106. ; warn user. Otherwise continue.
  107. ;================================================
  108.  
  109. (while (>= INSTALL_SPACE (getdiskspace @default-dest))
  110.        ((if (NOT @user-level)
  111.             (abort (cat "\nNot enough space to install\n\n" PROG_NAME
  112.                         " to " @default-dest
  113.                         "\n\nPlease free "
  114.                         (- INSTALL_SPACE (getdiskspace @default-dest))
  115.                         " bytes before installing again."
  116.                         "\n\n(There are only "
  117.                         (getdiskspace @default-dest))
  118.                         " bytes available on device "
  119.                         (getdevice @default-dest) ":)")
  120.        )
  121.           (message (cat "\n\n\nNot enough space to install\n\n" PROG_NAME
  122.                         " to " @default-dest
  123.                         "\n\nPlease free "
  124.                         (- INSTALL_SPACE (getdiskspace @default-dest))
  125.                         " bytes before proceeding."
  126.                         "\n\n(There are only "
  127.                      (getdiskspace @default-dest)
  128.                      " bytes available on device "
  129.                      (getdevice @default-dest)) ":)")
  130.        )
  131. )
  132.  
  133. ;======================================
  134. ; Verify enough space for fonts in SYS:
  135. ;======================================
  136.  
  137. (while (>= FONT_SPACE (getdiskspace "SYS:"))
  138.        ((if (NOT @user-level)
  139.             (abort (cat "\n\n\Not enough space to install"
  140.                         "\nthe " PROG_NAME " fonts to \""
  141.                         (getdevice "SYS:")
  142.                         ":Fonts\""
  143.                         "\n\nPlease free "
  144.                         (- FONT_SPACE (getdiskspace "SYS:"))
  145.                         " bytes before installing again."
  146.                         "\n\n(There are only "
  147.                         (getdiskspace "SYS:"))
  148.                         " bytes available on device "
  149.                         (getdevice "SYS:") ":)")
  150.             )
  151.             (message (cat "\n\n\n\nNot enough space to install"
  152.                           "\nthe " PROG_NAME " fonts to \""
  153.                           (getdevice "SYS:")
  154.                           ":Fonts\""
  155.                           "\n\nPlease free "
  156.                           (- FONT_SPACE (getdiskspace "SYS:"))
  157.                           " bytes before proceeding."
  158.                           "\n\n(There are only "
  159.                           (getdiskspace "SYS:"))
  160.                           " bytes available on device "
  161.                           (getdevice "SYS:") ":)")
  162.             )
  163. )
  164.  
  165. ;================================================
  166. ; Time to give the user the happy news that there
  167. ; is indeed enough space to complete the install
  168. ; procedure on their chosen device.
  169. ;================================================
  170.  
  171. (message
  172.       (cat "\n\n\n\nThis installer has verified that there is enough"
  173.            "\ndrive space to successfully complete the install"
  174.            "\nprocedure to the \"" @default-dest "\" drawer."
  175.            "\n\nThe \"SYS:Fonts\" drawer has also been examined"
  176.            "\nand can accomodate the " PROG_NAME " fonts."
  177.       )
  178. )
  179.  
  180. ;=============================================
  181. ; If a previous installation of "Civilization"
  182. ; exists in the target path, warn user.
  183. ; Otherwise continue.
  184. ;=============================================
  185.  
  186. (set Civ_exists (tackon @default-dest PROG_NAME))
  187.  
  188. (if (exists Civ_exists)
  189.     (message "\n\nWARNING"
  190.              "\n\nA previous installation of \"" PROG_NAME "\""
  191.              "\nhas been detected in the drawer"
  192.              "\n\n\"" @default-dest "\""
  193.              "\n\n\"Proceed\" will overwrite the previous installation, or"
  194.              "\n\"Abort Install\" will cancel the install procedure."
  195.     )
  196. )
  197.  
  198. ;================================================
  199. ; Time to tack on the "Civilization" drawer name,
  200. ; and create the drawer.
  201. ;================================================
  202.  
  203. (set @default-dest (tackon @default-dest PROG_NAME))
  204.  
  205. (makedir @default-dest
  206.      (help @makedir-help)
  207.      (infos)
  208. )
  209.  
  210. ;=======
  211. ; Disk 1
  212. ;=======
  213.  
  214. (complete 1)
  215.  
  216. (askdisk
  217.    (prompt ("\nPlease insert %s\nDisk A in any drive." PROG_NAME))
  218.    (help @askdisk-help)
  219.    (dest "CIV1")
  220. )
  221.  
  222. (copyfiles
  223.    (help @copyfiles-help)
  224.    (source "CIV1:Fonts")
  225.    (dest "SYS:Fonts")
  226.    (all)
  227. )
  228.  
  229. (copyfiles
  230.    (help @copyfiles-help)
  231.    (source "CIV1:")
  232.    (dest @default-dest)
  233.    (pattern "(#?.doc|#?.pix|#?.pal|#?.map|#?.txt|#?.SVE|#?.dta|evoltn|sadorch|sword|title|game)")
  234.    (infos)
  235. )
  236.  
  237. ;=======
  238. ; Disk 2
  239. ;=======
  240.  
  241. (complete 25)
  242.  
  243. (askdisk
  244.    (prompt ("\nPlease insert %s\nDisk B in any drive." PROG_NAME))
  245.    (help @askdisk-help)
  246.    (dest "CIV2")
  247. )
  248.  
  249. (copyfiles
  250.    (help @copyfiles-help)
  251.    (source "CIV2:")
  252.    (dest @default-dest)
  253.    (pattern "(#?.bbm|#?.pal|#?.pix|#?.txt|#?.map|#?.SVE|alexander|building|ceasar|cele2|elizabeth|explode|frederic|ghandi|ghengis|lincoln|mao|monty|napoleon|ramses|saladin|shaka|stalin|title|war)")
  254. )
  255.  
  256. ;=======
  257. ; Disk 3
  258. ;=======
  259.  
  260. (complete 50)
  261.  
  262. (askdisk
  263.    (prompt ("\nPlease insert %s\nDisk C in any drive." PROG_NAME))
  264.    (help @askdisk-help)
  265.    (dest "CIV3")
  266. )
  267.  
  268. (copyfiles
  269.    (help @copyfiles-help)
  270.    (source "CIV3:")
  271.    (dest @default-dest)
  272.    (pattern "(#?.pix|#?.pal|#?.txt|#?.SVE|#?.bbm|#?.map|hamarabi|nuke|winspace)")
  273. )
  274.  
  275. ;=======
  276. ; Disk 4
  277. ;=======
  278.  
  279. (complete 75)
  280.  
  281. (askdisk
  282.    (prompt ("\nPlease insert %s\nDisk D in any drive." PROG_NAME))
  283.    (help @askdisk-help)
  284.    (dest "CIV4")
  285. )
  286.  
  287. (copyfiles
  288.    (help @copyfiles-help)
  289.    (source "CIV4:")
  290.    (dest @default-dest)
  291.    (pattern "(#?.pal|#?.pix|#?.txt|#?.bbm|#?.map|#?.SVE|#?.dta)")
  292. )
  293.  
  294. (complete 96)
  295.  
  296. ;========================================
  297. ; Now to add two new icons to replace the
  298. ; old crappy A500 style ones.
  299. ;========================================
  300.  
  301. (if (= (exists "Icons/Civilization.info"))
  302.     (run (cat "copy \"Icons/Civilization.info\"" " \"" @default-dest ".info\"")))
  303.  
  304. (set README_exists (tackon @default-dest "readme.doc.info"))
  305.  
  306. (if (exists README_exists)
  307.   (if (= (exists "Icons/readme.doc.info"))
  308.     (run (cat "copy \"Icons/readme.doc.info\"" " \"" @default-dest "/readme.doc.info\"")
  309.     )
  310.   )
  311. )
  312.  
  313. ;================================
  314. ; Time to inform the user that an
  315. ; assign needs to be made in
  316. ; s:user-startup.
  317. ;================================
  318.  
  319. (complete 98)
  320.  
  321. (message ASSIGN
  322.     (help @startup-help)
  323. )
  324.  
  325. (complete 99)
  326.  
  327. (startup "Civilization"
  328.     (prompt ASSIGN)
  329.     (help @startup-help)
  330.     (command "if exists \"" @default-dest "\"\n")
  331.     (command "Assign CIV1: \"" @default-dest "\"\n")
  332.     (command "Assign CIV2: \"" @default-dest "\"\n")
  333.     (command "Assign CIV3: \"" @default-dest "\"\n")
  334.     (command "Assign CIV4: \"" @default-dest "\"\n")
  335.     (command ";next line required to fix ghost disk problem.\n")
  336.     (command "Assign CIV8: \"" @default-dest "\"\n")
  337.     (command "endIF")
  338. )
  339.  
  340. (complete 100)
  341.  
  342. (exit ADDENDUM)
  343.