home *** CD-ROM | disk | FTP | other *** search
/ Merciful 3 / Merciful_Release_3.bin / software / f / f1_gp / f1gpedv3.23.lha / f1gp-ed / extras / Install_F1GP < prev    next >
Text File  |  1996-12-01  |  4KB  |  185 lines
  1. ; Formula One Grand Prix / World Circuit replacement installer
  2. ; $VER: Install_F1GP 1.3 (26.4.96)
  3. ;
  4. ; Copyright © 1995-1996 Oliver Roberts
  5.  
  6. (complete 0)
  7.  
  8. (if (NOT (askbool
  9.         (prompt    "This Installer script will attempt to install MicroProse's "
  10.             "Formula One Grand Prix (or World Circuit) game to your hard "
  11.             "drive in a friendly manner (unlike the official installer "
  12.             "supplied with the game itself!).  If you already have the "
  13.             "game installed on your hard drive you shouldn't need to use "
  14.             "this script!\n\n"
  15.             "Make sure you have booted from your hard drive, before "
  16.             "continuing with this installation!\n\nDo you want to continue?"
  17.         )
  18.         (default 0)
  19.         (help "")
  20.     ))
  21.     (exit (quiet))
  22. )
  23.       
  24. (welcome "")
  25.  
  26. (set #f1gpver
  27.     (askchoice
  28.         (prompt "What version of the game you have?")
  29.         (help @askchoice-help)
  30.         (choices "(A) Formula One Grand Prix (4 disk version)"
  31.             "(B) World Circuit"
  32.             "(C) Formula One Grand Prix (3 disk version)"
  33.         )
  34.     )
  35. )
  36.  
  37. (set #disk1pat "~(system#?|.info|Disk#?)")
  38. (set #disk2pat "~(system#?|.info|remove#?|Disk#?)")
  39. (set #disk2patintroA "~(system#?|.info|remove#?|Disk#?|formula#?)")
  40. (set #disk2patintroB "~(system#?|.info|remove#?|Disk#?|world#?)")
  41. (set #disk3pat "#?")
  42. (set #disk4pat "~(read#?|install#?|Disk#?|more)")
  43. (set #disktext "\n\nPlease insert\n\n")
  44.  
  45. (if (= #f1gpver 0)
  46.     (
  47.         (set #disktext (cat #disktext "Formula One Grand Prix disk "))
  48.         (set #disk2patintro #disk2patintroA)
  49.     )
  50. )
  51.  
  52. (if (= #f1gpver 1)
  53.     (
  54.         (set #disktext (cat #disktext "World Circuit disk "))
  55.         (set #disk2patintro #disk2patintroB)
  56.     )
  57. )
  58.  
  59. (if (= #f1gpver 2)
  60.     (
  61.         (set #disktext (cat #disktext "Formula One Grand Prix disk "))
  62.         (set #numdisks 3)
  63.         (set #disk1pat #disk2pat)
  64.         (set #disk2pat #disk3pat)
  65.         (set #disk3pat #disk4pat)
  66.     )
  67.     (
  68.         (set #numdisks 4)
  69.         (if (= 0 (askchoice
  70.             (prompt "What would you you like to happen when you click on the game icon?")
  71.             (help @askchoice-help)
  72.             (default 1)
  73.             (choices "Run the intro (as if booting from disk 1)"
  74.                 "Skip the intro (as if booting from disk 2)")
  75.             ))
  76.             (set #disk2pat #disk2patintro)
  77.         )
  78.     )
  79. )
  80.  
  81. (set #destdir
  82.     (askdir
  83.         (prompt "Select a drawer in which to install the game (no separate drawer is created)")
  84.         (help @askdir-help)
  85.         (default @default-dest)
  86.     )
  87. )
  88.  
  89. (set @default-dest #destdir)
  90.  
  91. (askdisk
  92.     (prompt (cat #disktext "1"))
  93.     (dest "f1gp_disk_#1")
  94.     (help @askdisk-help)
  95. )
  96.  
  97. (copyfiles
  98.     (source "f1gp_disk_#1:")
  99.     (dest @default-dest)
  100.     (pattern #disk1pat)
  101.     (files)
  102.     (infos)
  103.     (optional "oknodelete" "force")
  104.     (help @copyfiles-help)
  105. )
  106.  
  107. (complete 20)
  108.  
  109. (askdisk
  110.     (prompt (cat #disktext "2"))
  111.     (dest "f1gp_disk_#2")
  112.     (help @askdisk-help)
  113. )
  114.  
  115. (copyfiles
  116.     (source "f1gp_disk_#2:")
  117.     (dest @default-dest)
  118.     (pattern #disk2pat)
  119.     (files)
  120.     (infos)
  121.     (optional "oknodelete" "force")
  122.     (help @copyfiles-help)
  123. )
  124.  
  125. (complete 60)
  126.  
  127. (askdisk
  128.     (prompt (cat #disktext "3"))
  129.     (dest "f1gp_disk_#3")
  130.     (help @askdisk-help)
  131. )
  132.  
  133. (copyfiles
  134.     (source "f1gp_disk_#3:")
  135.     (dest @default-dest)
  136.     (pattern #disk3pat)
  137.     (files)
  138.     (infos)
  139.     (optional "oknodelete" "force")
  140.     (help @copyfiles-help)
  141. )
  142.  
  143. (complete 80)
  144.  
  145. (if (= #numdisks 4)
  146.     (
  147.         (askdisk
  148.             (prompt (cat #disktext "4"))
  149.             (dest "f1gp_disk_#4")
  150.             (help @askdisk-help)
  151.         )
  152.         (copyfiles
  153.             (source "f1gp_disk_#4:")
  154.             (dest @default-dest)
  155.             (pattern #disk4pat)
  156.             (files)
  157.             (infos)
  158.             (optional "oknodelete" "force")
  159.             (help @copyfiles-help)
  160.         )
  161.     )
  162. )
  163.  
  164. (complete 95)
  165.  
  166. (startup "Formula One Grand Prix"
  167.     (prompt "Adding F1GP disk assigns to user-startup")
  168.     (command 
  169.         ("Assign f1gp_disk_#1: %s\n" @default-dest)
  170.         ("Assign f1gp_disk_#2: %s\n" @default-dest)
  171.         ("Assign f1gp_disk_#3: %s\n" @default-dest)
  172.         (if (= #numdisks 4) ("Assign f1gp_disk_#4: %s\n" @default-dest))
  173.     )
  174.     (help @startup-help)
  175. )
  176.  
  177. (complete 100)
  178.  
  179. (exit
  180.     "You must now reboot your Amiga before attempting to load "
  181.     "the game.\n\n"
  182.     "Oliver Roberts (Oliver@POBoxes.com)\n"
  183.     "http://www.nanunanu.org/~oliver/"
  184. )
  185.