home *** CD-ROM | disk | FTP | other *** search
/ Magazyn Exec 1 / CD_Magazyn_EXEC_nr_1.iso / Gry / www.ian.avfc.com / dice / pinillusions_4.dms / pinillusions_4.adf / HD_Install < prev    next >
Text File  |  1995-01-17  |  3KB  |  149 lines
  1. ;;
  2. ;;  Pinball Illusions
  3. ;;  HDInstall, v1.1, 1995-01-06, 17:49:00
  4. ;;
  5.  
  6. (complete 0)
  7.  
  8. (set P3_dest
  9.     (askdir
  10.         (prompt
  11.             "In which disk or drawer should the Pinball Illusions "
  12.             "drawer be created?"
  13.         )
  14.         (help
  15.             "The installation utility will create a drawer named"
  16.             " \"Pinball3\" in this directory.  All Pinball Illusions\" "
  17.             "files will be placed inside that directory.\n\n"
  18.             "The selected directory must have about 3.5Mb free storage"
  19.             "left.\n\n"
  20.         )
  21.         (default @default-dest)
  22.     )
  23. )
  24.  
  25. (makedir (tackon P3_dest "Pinball3") (infos))
  26. (set P3_dest (tackon P3_dest "Pinball3"))
  27. (set @default-dest P3_dest)
  28. (set disk_space (getdiskspace P3_dest))
  29.  
  30. (askdisk
  31.     (prompt "Please insert the disk labeled \"Disk 1\"")
  32.     (help    "Disk 1 contains Pinball Illusions main program, intro and menu.")
  33.     (dest "Pin3001" )
  34. )
  35.  
  36. (set @execute-dir P3_dest)
  37.  
  38. (working "Installing Pinball Illusions from Disk 1.")
  39.     (copyfiles
  40.     (source "Pin3001:")
  41.     (dest P3_dest)
  42.     (pattern "(pinball#?|#?.(bin|mnu))")
  43. )
  44.  
  45. (complete 20)
  46.  
  47. (copylib
  48.     (prompt "Updating lowlevel.library...")
  49.     (help
  50.         "This action will update the \"lowlevel.library\" to a version"
  51.         " that Pinball Illusions needs to function."
  52.     )
  53.     (source "Pin3001:Libs/lowlevel.library")
  54.     (dest "Libs:")
  55.     (confirm)
  56. )
  57.  
  58. (copylib
  59.     (prompt "Updating nonvolatile.library...")
  60.     (help
  61.         "This action will update the \"nonvolatile.library\" to a version"
  62.         " that Pinball Illusions needs to function."
  63.     )
  64.     (source "Pin3001:Libs/nonvolatile.library")
  65.     (dest "Libs:")
  66.     (confirm)
  67. )
  68.  
  69. (set a 0)
  70. (set nv_dir "ENVARC:Highscores")
  71. (if (> 1 @user-level)
  72.     (if (= a (exists "Envarc:Sys/nv_location" (noreq)))
  73.         (set nv_dir
  74.             (askdir
  75.                 (prompt
  76.                     "Where would you like your highscores to be saved?"
  77.                 )
  78.                 (help
  79.                     "In order to get the highscores saved properly we need to"
  80.                     " create the file \"nv_location\" in your \"ENVARC:Sys/\""
  81.                     " directory. All applications utilizing the nonvolatile.library"
  82.                     " for saving data will use this path. This is as substitue to"
  83.                     " the battery backed up game-memory you will find on an CD32."
  84.                 )
  85.                 (default "ENVARC:Highscores")
  86.             )
  87.         )
  88.     )
  89. )
  90.  
  91. (makedir nv_dir)
  92. (set nv_dir (cat "Echo >ENVARC:Sys/nv_location " nv_dir))
  93. (run nv_dir)
  94. (set ifile (cat "Echo >" (cat p3_Dest "/HD")))
  95. (run ifile)
  96.  
  97. (complete 25)
  98.  
  99. (askdisk
  100.     (prompt "Please insert the disk labeled \"Disk 2\"" )
  101.     (help    "Disk 2 contains the Law & Justice Table.")
  102.     (dest "Pin3002" )
  103. )
  104.  
  105. (set @execute-dir P3_dest)
  106.  
  107. (working "Installing Law & Justice from Disk 2.")
  108. (copyfiles
  109.     (source "Pin3002:")
  110.     (dest P3_dest)
  111.     (all)
  112. )
  113.  
  114. (complete 50)
  115.  
  116. (askdisk
  117.     (prompt "Please insert the disk labeled \"Disk 3\"" )
  118.     (help    "Disk 3 contains the Babewatch table.")
  119.     (dest "Pin3003" )
  120. )
  121.  
  122. (set @execute-dir P3_dest)
  123.  
  124. (working "Installing Babewatch from Disk 3.")
  125. (copyfiles
  126.     (source "Pin3003:")
  127.     (dest P3_dest)
  128.     (all)
  129. )
  130.  
  131. (complete 75)
  132.  
  133. (askdisk
  134.     (prompt "Please insert the disk labeled \"Disk 4\"" )
  135.     (help    "Disk 4 contains the Extreme Sports table.")
  136.     (dest "Pin3004" )
  137. )
  138.  
  139. (set @execute-dir P3_dest)
  140.  
  141. (working "Installing Extreme Sports from Disk 4.")
  142. (copyfiles
  143.     (source "Pin3004:")
  144.     (dest P3_dest)
  145.     (pattern "#?.(bin|opt)")
  146. )
  147.  
  148. (complete 100)
  149.