home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format 103 / af103b.adf / archives / arace1.lzx / AR.Install < prev    next >
Text File  |  1997-08-18  |  4KB  |  211 lines
  1. ; Script to install Aerial Racers to Floppy Disk or Hard Disk.
  2. ;
  3.  
  4.  
  5. (complete 0)
  6.  
  7. (set mode (askchoice
  8.             (help @askchoice-help)
  9.             (prompt "Please select between installing Aerial Racers "
  10.                     "from floppy disk to hard disk or from hard disk "
  11.                     "to floppy disk.")
  12.             (choices "Install to floppy"
  13.                      "Install to hard disk")
  14.             (default 0)
  15.           )
  16. )
  17.  
  18. (complete 10)
  19.  
  20. (if (= mode 0)
  21.   (
  22.     (message "The Aerial Racers floppy disk installation requires "
  23.               "three blank floppy disks labeled:\n"
  24.               "\nAerialRacers1\nAerialRacers2\nAerialRacers3\n\n"
  25.               "The following libraries will be copied from your "
  26.               "Libs: directory to AerialRacers1:\n\n"
  27.               "diskfont.library\nmathtrans.library\n\n"
  28.               "Make sure you have these disks ready..."
  29.     )
  30.  
  31.     (askdisk
  32.       (dest "AerialRacers1")
  33.       (help @askdisk-help)
  34.       (prompt "\nPlease insert the blank disk labeled AerialRacers1 into DF0:...")
  35.     )
  36.  
  37.     (run "install df0:")
  38.  
  39.     (copylib
  40.       (source "libs:diskfont.library")
  41.       (dest "AerialRacers1:libs")
  42.     )
  43.  
  44.     (copylib
  45.       (source "libs:mathtrans.library")
  46.       (dest "AerialRacers1:libs")
  47.     )
  48.  
  49.     (copyfiles
  50.       (source "AerialData")
  51.       (dest "AerialRacers1:AerialData")
  52.       (all)
  53.     )
  54.  
  55.     (copyfiles
  56.       (source "CommonData")
  57.       (dest "AerialRacers1:CommonData")
  58.       (all)
  59.     )
  60.  
  61.     (copyfiles
  62.       (source "s")
  63.       (dest "AerialRacers1:s")
  64.       (all)
  65.     )
  66.  
  67.     (copyfiles
  68.       (source "Tracks")
  69.       (dest "AerialRacers1:Tracks")
  70.       (all)
  71.     )
  72.  
  73.     (copyfiles
  74.       (source "AerialRacers")
  75.       (dest "AerialRacers1:")
  76.       (infos)
  77.     )
  78.  
  79.     (copyfiles
  80.       (source "AR.Guide")
  81.       (dest "AerialRacers1:")
  82.       (infos)
  83.     )
  84.     
  85.     (copyfiles
  86.       (source "AR.Install")
  87.       (dest "AerialRacers1:")
  88.       (infos)
  89.     )
  90.     
  91.     (copyfiles
  92.       (source "Disk1")
  93.       (dest "AerialRacers1:")
  94.     )
  95.     
  96.     (complete 40)
  97.     
  98.     (askdisk
  99.       (dest "AerialRacers2")
  100.       (help @askdisk-help)
  101.       (prompt "\nPlease insert the blank disk labeled AerialRacers2 into any drive...")
  102.     )
  103.     
  104.     (copyfiles
  105.       (source "SceneryData")
  106.       (dest "AerialRacers2:SceneryData")
  107.       (all)
  108.     )
  109.     
  110.     (copyfiles
  111.       (source "Disk2")
  112.       (dest "AerialRacers2:")
  113.     )
  114.     
  115.     (complete 70)
  116.     
  117.     (askdisk
  118.       (dest "AerialRacers3")
  119.       (help @askdisk-help)
  120.       (prompt "\nPlease insert the blank disk labeled AerialRacers3 into any drive...")
  121.     )
  122.     
  123.     (copyfiles
  124.       (source "AerialCars")
  125.       (dest "AerialRacers3:AerialCars")
  126.       (all)
  127.     )
  128.     
  129.     (copyfiles
  130.       (source "CommonData")
  131.       (dest "AerialRacers3:CommonData")
  132.       (all)
  133.     )
  134.  
  135.     (copyfiles
  136.       (source "Disk3")
  137.       (dest "AerialRacers3:")
  138.     )
  139.  
  140.     (set @default-dest "AerialRacers1:")
  141.   )
  142.  
  143.   (
  144.     (set dest_dir
  145.       (tackon (askdir
  146.                 (prompt "Where do you want to install Aerial Racers?\n"
  147.                         "A drawer called AerialRacers will be created.")
  148.                 (help @askdir-help)
  149.                 (default "Work:")
  150.                 (disk)
  151.               )
  152.               "AerialRacers"
  153.       )
  154.     )
  155.  
  156.     (makedir dest_dir (infos))
  157.  
  158.     (askdisk
  159.       (dest "AerialRacers1")
  160.       (help @askdisk-help)
  161.       (prompt "\nPlease insert AerialRacers1 into any drive...")
  162.     )
  163.  
  164.     (copyfiles
  165.       (source "AerialRacers1:")
  166.       (dest dest_dir)
  167.       (all)
  168.       (infos)
  169.     )
  170.  
  171.     (complete 40)
  172.  
  173.     (askdisk
  174.       (dest "AerialRacers2")
  175.       (help @askdisk-help)
  176.       (prompt "\nPlease insert AerialRacers2 into any drive...")
  177.     )
  178.  
  179.     (copyfiles
  180.       (source "AerialRacers2:")
  181.       (dest dest_dir)
  182.       (all)
  183.       (infos)
  184.     )
  185.  
  186.     (complete 70)
  187.  
  188.     (askdisk
  189.       (dest "AerialRacers3")
  190.       (help @askdisk-help)
  191.       (prompt "\nPlease insert AerialRacers3 into any drive...")
  192.     )
  193.  
  194.     (copyfiles
  195.       (source "AerialRacers3:")
  196.       (dest dest_dir)
  197.       (all)
  198.       (infos)
  199.     )
  200.  
  201.     (set @default-dest dest_dir)
  202.  
  203.   )
  204.  
  205. )
  206.  
  207. (complete 100)
  208.  
  209. (exit)
  210.  
  211.