home *** CD-ROM | disk | FTP | other *** search
/ Amiga ACS 1997 #4 / amigaacscoverdisc1997-041997.iso / games / installers / chaoshdpack / chaos-install next >
Text File  |  1997-06-13  |  4KB  |  216 lines
  1.  
  2.  
  3.  
  4.  
  5. ;----------------------------
  6.  
  7. ;try to figure out a place where the user usually installs his games
  8. (if (exists "Games:" (noreq) )
  9.     (set @default-dest "Games:")
  10.     (if (exists "SYS:Games" (noreq) )
  11.         (set @default-dest "SYS:Games")
  12.         (if (exists "Work:Games" (noreq) )
  13.             (set @default-dest "Work:Games")
  14.             (if (exists "JEUX:" (noreq) )
  15.                (set @default-dest "JEUX:")
  16.                (set @default-dest "SYS:")
  17.             )
  18.         )
  19.     )
  20. )
  21.  
  22. (set #game_ver
  23.     (askchoice
  24.         (prompt "Which version of Chaos Engine\ndo you want to install")
  25.         (help    @askoptions-help)
  26.         (choices
  27.            "Chaos Engine II ECS"
  28.            "Chaos Engine II AGA"
  29.            "Chaos Engine I  ECS"
  30.            "Chaos Engine I  AGA"
  31.         )
  32.     )
  33. )
  34.  
  35. (set #CI_unit
  36.     (askchoice
  37.         (prompt "From which disk unit do you want\nto install the game")
  38.         (help    @askoptions-help)
  39.         (choices
  40.            "DF0:"
  41.            "DF1:"
  42.            "DF2:"
  43.            "DF3:"
  44.         )
  45.     )
  46. )
  47.  
  48. (set #CI_drive ("DF%ld:" #CI_unit))
  49.  
  50.  
  51. (if (= #game_ver 0)
  52.     (set #app-name "ChaosEngine2-ECS")
  53.     (set #loader-name "Chaos2HD")
  54. )
  55.  
  56. (if (= #game_ver 1)
  57.     (set #app-name "ChaosEngine2-AA")
  58.     (set #loader-name "Chaos2HD")
  59. )
  60.  
  61. (if (= #game_ver 2)
  62.     (set #app-name "ChaosEngineECS")
  63.     (set #loader-name "ChaosHD")
  64. )
  65.  
  66. (if (= #game_ver 3)
  67.     (set #app-name "ChaosEngineAGA")
  68.     (set #loader-name "ChaosAGAHD")
  69. )
  70.  
  71. (set @default-dest
  72. (askdir
  73.     (prompt ("Where should I install the game ?\nA drawer \"%s\" will automatically created." #app-name))
  74.     (help @askdir-help)
  75.     (default @default-dest)
  76.     (disk)
  77. )
  78. )
  79.  
  80. (set #dest (tackon @default-dest #app-name))
  81.  
  82.  
  83. (makedir #dest
  84.     (help @makedir-help)
  85.     (infos)
  86. )
  87.  
  88. ;----------------------------
  89.  
  90.  
  91. (copyfiles
  92.     (help @copyfiles-help)
  93.     (source "chaos2hd.readme")
  94.     (dest #dest)
  95.     (infos)
  96. )
  97.  
  98.  
  99. (if (< #game_ver 2)
  100. (
  101. (copyfiles
  102.     (help @copyfiles-help)
  103.     (source "Chaos2HD")
  104.     (dest #dest)
  105.     (infos)
  106. )
  107.  
  108.  
  109. (message ("\nInsert %s disk 1 into drive %s !" #app-name #CI_drive))
  110.     (if
  111.         (= 0 (run ("disk2file_ %ld \"%s/chaos2.d1\" SKIPROB >con:///1000//CLOSE/WAIT" #CI_unit #dest )))
  112.         ("")
  113.         (abort "\"disk2file\" must be in your PATH !")
  114.     )
  115.  
  116. (message ("\nInsert %s disk 2 into drive %s !" #app-name #CI_drive))
  117.     (if
  118.         (= 0 (run ("disk2file %ld \"%s/chaos2.d2\" SKIPROB >con:///1000//CLOSE/WAIT" #CI_unit #dest )))
  119.         ("")
  120.         (abort "\"disk2file\" must be in your PATH !")
  121.     )
  122.  
  123. (message ("\nInsert %s disk 3 into drive %s !" #app-name #CI_drive))
  124.     (if
  125.         (= 0 (run ("disk2file %ld \"%s/chaos2.d3\" SKIPROB >con:///1000//CLOSE/WAIT" #CI_unit #dest )))
  126.         ("")
  127.         (abort "\"disk2file\" must be in your PATH !")
  128.     )
  129.  
  130.  
  131. (exit)
  132.  
  133. )
  134. )
  135.  
  136. (if (= #game_ver 1)
  137. (
  138. (copyfiles
  139.     (help @copyfiles-help)
  140.     (source "ChaosHD")
  141.     (dest #dest)
  142.     (infos)
  143. )
  144.  
  145. (copyfiles
  146.     (help @copyfiles-help)
  147.     (source "ChaosHD.readme")
  148.     (dest #dest)
  149.     (infos)
  150. )
  151.  
  152.  
  153. (message ("\nInsert %s disk 1 into drive %s !" #app-name #CI_drive))
  154.     (if
  155.         (= 0 (run ("disk2file %ld \"%s/chaos.d1\" >con:///1000//CLOSE/WAIT" #CI_unit #dest )))
  156.         ("")
  157.         (abort "\"disk2file\" must be in your PATH !")
  158.     )
  159.  
  160. (message ("\nInsert %s disk 2 into drive %s !" #app-name #CI_drive))
  161.     (if
  162.         (= 0 (run ("disk2file %ld \"%s/chaos.d2\" SKIPROB >con:///1000//CLOSE/WAIT" #CI_unit #dest )))
  163.         ("")
  164.         (abort "\"disk2file\" must be in your PATH !")
  165.     )
  166.  
  167. (exit)
  168. )
  169. )
  170.  
  171. (if (= #game_ver 2)
  172. (
  173. (copyfiles
  174.     (help @copyfiles-help)
  175.     (source "ChaosAGA_HD")
  176.     (dest #dest)
  177.     (infos)
  178. )
  179.  
  180. (copyfiles
  181.     (help @copyfiles-help)
  182.     (source "ChaosAGA_HD.readme")
  183.     (dest #dest)
  184.     (infos)
  185. )
  186.  
  187. (message ("\nInsert %s disk 1 into drive %s !" #app-name #CI_drive))
  188.  
  189.     (if
  190.         (= 0 (run ("chaosboot %ld \"%s/ChaosAGA.b1\"" #CI_unit #dest )))
  191.         ("")
  192.         (abort "\"chaosboot\" must be in your PATH !")
  193.     )
  194.  
  195.  
  196.     (if
  197.         (= 0 (run ("rob2file %ld \"%s/ChaosAGA.d1\" 15 149 F674AE7A >con:///1000//CLOSE/WAIT" #CI_unit #dest )))
  198.         ("")
  199.         (abort "\"rob2file\" must be in your PATH !")
  200.     )
  201.  
  202.  
  203. (message ("\nInsert %s disk 2 into drive %s !" #app-name #CI_drive))
  204.     (if
  205.         (= 0 (run ("rob2file %ld \"%s/ChaosAGA.d2\" 15 149 F674AE7A >con:///1000//CLOSE/WAIT" #CI_unit #dest )))
  206.         ("")
  207.         (abort "\"rob2file\" must be in your PATH !")
  208.     )
  209.  
  210. )
  211. )
  212.  
  213.  
  214. (exit)
  215.  
  216.