home *** CD-ROM | disk | FTP | other *** search
/ A.C.E. 1 / ACE CD 1.iso / files / docs / swsoccd.lha / SensibleWorldOfSoccerHDIn1.lha / Install / SWOS Install < prev   
Encoding:
Text File  |  1994-12-09  |  3.9 KB  |  149 lines
  1. ; $VER: SWOS HD Install-Script V1.0 (20.12.94) by Roland for Sentinel
  2.  
  3. (set GameDir "SWOS")
  4. (set TotalDisks 2)
  5. (set CurrentDisk 0)
  6. (set Percent 20)
  7. (set DiskPercent (/ (- 100 Percent) TotalDisks))
  8. (set keuze 0)
  9.  
  10. ;try to figure out a place where the user usually installs his games
  11. (if (exists "Games:" (noreq) )
  12.     (set @default-dest "Games:")
  13.     (if (exists "SYS:Games" (noreq) )
  14.         (set @default-dest "SYS:Games")
  15.         (if (exists "Work:Games" (noreq) )
  16.             (set @default-dest "Work:Games")
  17.             (set @default-dest "SYS:")
  18.         )
  19.     )
  20. )
  21.  
  22. ;ask the user to select a directory to install the game into
  23. (set default-dest
  24.      (tackon (askdir (prompt "Where would you like " @app-name " installed?\n"
  25.                              "A drawer called " GameDir " will be created.")
  26.                      (help @askdir-help)
  27.                      (default @default-dest)
  28.                      (newpath)
  29.              )
  30.      GameDir
  31.      )
  32. )
  33. (set @default-dest default-dest)
  34. (complete 5)
  35.  
  36. ;create the selected directory and a subdirectory called Data
  37. (makedir @default-dest
  38.          (infos)
  39. )
  40. (makedir (tackon @default-dest "data")
  41. )
  42. (makedir (tackon @default-dest "grafs")
  43. )
  44. (makedir (tackon @default-dest "sound")
  45. )
  46. (complete 10)
  47.  
  48. ;copy all extra files to this directory
  49. ;(set keuze
  50. ;     (askchoice (prompt "Which HD-version do you wish to install?\n\n"
  51. ;                        "If you have 4MB or more RAM you can install "
  52. ;                        "the 4MB version which doesn't load during "
  53. ;                        "the game.")
  54. ;                (help @askchoice-help)
  55. ;                (choices "2MB Version" "4MB Version (RAM)")
  56. ;     )
  57. ;)
  58. ;(if (= keuze 0)
  59. ; copy the extra files for the 2mb version
  60. ;    ( (copylib (prompt "Copying hd.library to LIBS:...")
  61. ;               (help @copylib-help)
  62. ;               (source "hdgame.library")
  63. ;               (dest "LIBS:")
  64. ;               (confirm)
  65. ;      )
  66. ;      (copyfiles (source "Sensible World of Soccer")
  67. ;                 (dest @default-dest)
  68. ;      )
  69. ;      (copyfiles (source "Sensible World of Soccer.icon")
  70. ;                 (dest @default-dest)
  71. ;                 (newname "Sensible World of Soccer.info")
  72. ;      )
  73. ;      (copyfiles (source "Mountlist")
  74. ;                 (dest @default-dest)
  75. ;      )
  76. ;      (copyfiles (source "Boot")
  77. ;                 (dest @default-dest)
  78. ;      )
  79. ;      (copyfiles (source "Reboot")
  80. ;                 (dest @default-dest)
  81. ;      )
  82. ;    )
  83. ; install the extra files for the 4MB-version:
  84.     (
  85.       (copyfiles (source "Sensible World of Soccer")
  86.                  (dest @default-dest)
  87.       )
  88.       (copyfiles (source "Sensible World of Soccer.icon")
  89.                  (dest @default-dest)
  90.                  (newname "Sensible World of Soccer.info")
  91.       )
  92.       (copyfiles (source "ssboot.4mb")
  93.                  (dest @default-dest)
  94.                  (newname "ssboot")
  95.       )
  96.     )
  97. ;)
  98. (complete 20)
  99.  
  100. (askdisk (prompt "Please insert SWOS disk 1 in any drive.")
  101.          (help @askdisk-help)
  102.          (dest "SWOS")
  103. ;         (assigns)
  104. )
  105.  
  106. (copyfiles (source "SWOS:swos")
  107.            (dest @default-dest)
  108. )
  109. (copyfiles (source "SWOS:swos.rel")
  110.            (dest @default-dest)
  111. )
  112. (copyfiles (source "SWOS:swos2")
  113.            (dest @default-dest)
  114. )
  115. (copyfiles (source "SWOS:swos2.rel")
  116.            (dest @default-dest)
  117. )
  118. (copyfiles (source "SWOS:grafs")
  119.            (dest (tackon @default-dest "grafs"))
  120.            (all)
  121. )
  122. (copyfiles (source "SWOS:sound")
  123.            (dest (tackon @default-dest "sound"))
  124.            (all)
  125. )
  126.  
  127. (complete 60)
  128.  
  129. (askdisk (prompt "Please insert SWOS disk 2 in any drive.")
  130.          (help @askdisk-help)
  131.          (dest "SWOS2")
  132. ;         (assigns)
  133. )
  134.  
  135. (copyfiles (source "SWOS2:data")
  136.            (dest (tackon @default-dest "data"))
  137.            (all)
  138. )
  139. (copyfiles (source "SWOS2:grafs")
  140.            (dest (tackon @default-dest "grafs"))
  141.            (all)
  142. )
  143. (copyfiles (source "SWOS2:sound")
  144.            (dest (tackon @default-dest "sound"))
  145.            (all)
  146. )
  147.  
  148. (complete 100)
  149.