home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 27 / amigaformatcd27.iso / -coverdisks- / f1gp / install_f1gp < prev   
Encoding:
Text File  |  1998-04-16  |  4.3 KB  |  166 lines
  1. ; Formula One Grand Prix / World Circuit replacement installer
  2. ; $VER: AFCD_Install_F1GP 1.0 (15.4.98)
  3. ; (Modified for AFCD17 from Install_F1GP)
  4. ;
  5. ; Copyright © 1995-1998 Oliver Roberts
  6. ;
  7. ; French translation by Daniel Grenson
  8.  
  9. (if (= (exists "Env:Language") 1)
  10.     (set @language (getenv "Language"))
  11. )
  12.  
  13. ;*****************
  14. ; English strings
  15. ;
  16. (set #str-info (cat
  17.     "This Installer script will attempt to install MicroProse's "
  18.     "Formula One Grand Prix (or World Circuit) game to your hard "
  19.     "drive in a friendly manner (unlike the official installer "
  20.     "supplied with the game itself!).  If you already have the "
  21.     "game installed on your hard drive you shouldn't need to use "
  22.     "this script!\n\n"
  23.     "Make sure you have booted from your hard drive, before "
  24.     "continuing with this installation!\n\nDo you want to continue?"
  25. ))
  26. (set #str-clickicon "What would you you like to happen when you click on the game icon?")
  27. (set #str-runintro "Run the intro (as if booting from disk 1)")
  28. (set #str-skipintro "Skip the intro (as if booting from disk 2)")
  29. (set #str-selectdrawer "Select a drawer in which to install the game (no separate drawer will be created)")
  30. (set #str-addassigns "Adding F1GP disk assigns to user-startup")
  31. (set #str-reboot "You must now reboot your Amiga before attempting to load the game.")
  32.  
  33. ;****************
  34. ; French strings
  35. ;
  36. (if (= @language "français") (
  37.  (set #str-info (cat
  38.     "Ce script d'installation essayera d'installer le jeu MicroProse's "
  39.     "Formula One Grand Prix (ou World Circuit) sur votre disque dur "
  40.     "d'une manière conviviale (à la différence de l'installeur officiel "
  41.     "fourni avec le jeu lui-même!).  Si vous avez déja installé le jeu "
  42.     "sur votre disque dur, vous ne devriez pas avoir besoin d'utilisergame "
  43.     "ce script!\n\n"
  44.     "Assurez-vous d'avoir lancé votre machine au départ de votre disque "
  45.     "dur avant de continuer installation!\n\nVoulez-vous continuer?"
  46.  ))
  47.  (set #str-clickicon "Que souhaitez-vous qu'il se passe lorsque vous cliquez sur l'icone de jeu?")
  48.  (set #str-runintro "Voir l'intro du jeu (comme si vous le lanciez de la disquette 1)")
  49.  (set #str-skipintro "Faire l'impasse sur l'intro (comme si vous le lanciez de la disquette 2)")
  50.  (set #str-selectdrawer "Sélectionnez le tiroir dans lequel vous voulez installer le jeu (aucun tiroir séparé ne sera créé)")
  51.  (set #str-addassigns "Ajout des assigns de disquette F1GP sur votre user-startup")
  52.  (set #str-reboot "Vous devez relancer votre Amiga avant d'essayer de charger le jeu.")
  53. ))
  54.  
  55. ;*************
  56. ; Here we go!
  57. ;
  58. (if (NOT (askbool
  59.         (prompt    #str-info)
  60.         (default 0)
  61.         (help "")
  62.     ))
  63.     (exit (quiet))
  64. )
  65.       
  66. (welcome "")
  67.  
  68. (set #f1gpver 0)
  69.  
  70. (set #disk1pat "~(system#?|.info|Disk#?)")
  71. (set #disk2pat "~(system#?|.info|remove#?|Disk#?)")
  72. (set #disk2patintroA "~(system#?|.info|remove#?|Disk#?|formula#?)")
  73. (set #disk2patintroB "~(system#?|.info|remove#?|Disk#?|world#?)")
  74. (set #disk3pat "#?")
  75. (set #disk4pat "~(read#?|install#?|Disk#?|more)")
  76. (set #gamename "Formula One Grand Prix")
  77.  
  78. (if (= #f1gpver 0)
  79.     (set #disk2patintro #disk2patintroA)
  80. )
  81.  
  82. (if (= 0 (askchoice
  83.     (prompt #str-clickicon)
  84.     (help @askchoice-help)
  85.     (default 1)
  86.     (choices #str-runintro #str-skipintro)))
  87.     (set #disk2pat #disk2patintro)
  88. )
  89.  
  90. (set #destdir
  91.     (askdir
  92.         (prompt #str-selectdrawer)
  93.         (help @askdir-help)
  94.         (default @default-dest)
  95.     )
  96. )
  97.  
  98. (set @default-dest #destdir)
  99.  
  100. (complete 0)
  101.  
  102. (copyfiles
  103.     (source "disk1")
  104.     (dest @default-dest)
  105.     (pattern #disk1pat)
  106.     (files)
  107.     (infos)
  108.     (optional "oknodelete" "force")
  109.     (help @copyfiles-help)
  110. )
  111.  
  112. (complete 20)
  113.  
  114. (copyfiles
  115.     (source "disk2")
  116.     (dest @default-dest)
  117.     (pattern #disk2pat)
  118.     (files)
  119.     (infos)
  120.     (optional "oknodelete" "force")
  121.     (help @copyfiles-help)
  122. )
  123.  
  124. (complete 60)
  125.  
  126. (copyfiles
  127.     (source "disk3")
  128.     (dest @default-dest)
  129.     (pattern #disk3pat)
  130.     (files)
  131.     (infos)
  132.     (optional "oknodelete" "force")
  133.     (help @copyfiles-help)
  134. )
  135.  
  136. (complete 80)
  137.  
  138. (copyfiles
  139.     (source "disk4")
  140.     (dest @default-dest)
  141.     (pattern #disk4pat)
  142.     (files)
  143.     (infos)
  144.     (optional "oknodelete" "force")
  145.     (help @copyfiles-help)
  146. )
  147.  
  148. (complete 95)
  149.  
  150. (startup "Formula One Grand Prix"
  151.     (prompt #str-addassigns)
  152.     (command 
  153.         ("Assign f1gp_disk_#1: %s\n" @default-dest)
  154.         ("Assign f1gp_disk_#2: %s\n" @default-dest)
  155.         ("Assign f1gp_disk_#3: %s\n" @default-dest)
  156.         ("Assign f1gp_disk_#4: %s\n" @default-dest)
  157.     )
  158.     (help @startup-help)
  159. )
  160.  
  161. (complete 100)
  162.  
  163. (exit
  164.     (cat #str-reboot "\n\nOliver Roberts (Oliver@POBoxes.com)\nhttp://www.nanunanu.org/~oliver/")
  165. )
  166.