home *** CD-ROM | disk | FTP | other *** search
/ Amiga ACS 1997 #4 / amigaacscoverdisc1997-041997.iso / games / installers / rtinstall / install_r-type next >
Text File  |  1997-05-21  |  3KB  |  162 lines
  1. ;
  2. ;$VER: R-Type HD Installer script v1.00 (c) 1996 John Girvin
  3. ;
  4.  
  5. (welcome "Welcome to the R-Type Hard Drive Installer")
  6. (set @app-name "R-Type HD")
  7. (set #RTROOTDIR "DH0:")
  8. (set #RTDESTDIR #RTDESTDIR)
  9.  
  10. (set #RTSRCDRIVE 0)
  11. (set #RTUSEGUI 0)
  12. (set #RTDEFTRAINERS 0)
  13.  
  14. (if
  15.     (<> @user-level 2)
  16.     (abort "You must select 'Expert' user level")
  17. )
  18.  
  19. (message "\n\nWelcome to the R-Type Hard Drive Installer\n"
  20.          "(c) 1996-1997 John Girvin\n\n"
  21.          "Please read the documentation thoroughly before"
  22.          " attempting to use this installer!\n\n"
  23.          "This is version 1.00\n\n"
  24.          "Click 'Proceed' to begin."
  25. )
  26.  
  27. (set #RTROOTDIR
  28.     (askdir
  29.         (prompt "Where would you like R-Type installed?\n"
  30.                 "(a new drawer called 'R-Type' will be created here)"
  31.         )
  32.         (help @askdir-help)
  33.         (default "DH0:")
  34.     )
  35. )
  36. (set #RTDESTDIR (tackon #RTROOTDIR "R-Type/"))
  37. (set @default-dest #RTDESTDIR)
  38. (set #RTDATFILE (tackon #RTDESTDIR "R-Type.dat"))
  39.  
  40. (set #RTSRCDRIVE
  41.     (askchoice
  42.         (prompt "Which drive do you wish to install from?")
  43.         (help @askchoice-help)
  44.         (choices "DF0:" "DF1:" "DF2:" "DF3:")
  45.         (default #RTSRCDRIVE)
  46.     )
  47. )
  48.  
  49. (set #RTUSEGUI
  50.     (askchoice
  51.         (prompt "Do you want the cheat GUI to appear every time you load R-Type_HD?\n"
  52.                 "(this may be changed later by editing the tooltypes of R-Type_HD)"
  53.         )
  54.         (help @askchoice-help)
  55.         (choices "Yes" "No")
  56.         (default #RTUSEGUI)
  57.     )
  58. )
  59.  
  60. (set #RTDEFTRAINERS
  61.     (askoptions
  62.         (prompt "Please select the default trainers to use:\n"
  63.                 "(these may be changed later by either\n"
  64.                 "editing the tooltypes of R-Type_HD\n"
  65.                 "or using the cheat GUI)"
  66.         )
  67.         (help @askoptions-help)
  68.         (choices "Infinite lives"
  69.                  "Invulnerability"
  70.         )
  71.         (default #RTDEFTRAINERS)
  72.     )
  73. )
  74.  
  75. (makedir #RTDESTDIR
  76.     (prompt "I will now create the directory '" #RTDESTDIR "'")
  77.     (help @makedir-help)
  78.     (infos)
  79.     (confirm)
  80. )
  81.  
  82. (message "\n\n\nPlease insert your R-Type game disk in drive DF"
  83.            #RTSRCDRIVE
  84.          ":\n\n"
  85.          "Click 'Proceed' when disk has been inserted and"
  86.          " disk activity has stopped."
  87. )
  88.  
  89. (working "Creating disk image in '" #RTDATFILE "'")
  90. (set #RTVERSION  (run (cat "RTMakeDat " #RTSRCDRIVE " " #RTDATFILE)))
  91.  
  92. (if (>= #RTVERSION 100)
  93.     (abort (cat "Could not create disk image!\n\nError: " #RTVERSION))
  94. )
  95.  
  96. (set #RTBOOTNAME "RTBoot")
  97.  
  98. (copyfiles
  99.     (prompt "Copying HD drawer icon")
  100.     (help @copyfiles-help)
  101.     (source "R-Type_icon")
  102.     (newname "R-Type.info")
  103.     (dest #RTROOTDIR)
  104.     (nogauge)
  105.     (optional fail force)
  106. )
  107.  
  108. (copyfiles
  109.     (prompt "Copying trainer program")
  110.     (help @copyfiles-help)
  111.     (source "R-Type_HD")
  112.     (dest #RTDESTDIR)
  113.     (nogauge)
  114.     (noposition)
  115.     (optional fail force)
  116. )
  117.  
  118. (copyfiles
  119.     (prompt "Copying trainer program icon")
  120.     (help @copyfiles-help)
  121.     (source "R-Type_HD_icon")
  122.     (newname "R-Type_HD.info")
  123.     (dest #RTDESTDIR)
  124.     (nogauge)
  125.     (optional fail force)
  126. )
  127.  
  128. (if (= #RTUSEGUI 1)
  129.     (tooltype
  130.         (prompt "Setting trainer program icon tooltypes")
  131.         (dest (cat #RTDESTDIR "R-Type_HD"))
  132.         (settooltype "NOGUI" "")
  133.     )
  134. )
  135.  
  136. (if (<> 0 (IN #RTDEFTRAINERS 0))
  137.     (tooltype
  138.         (prompt "Setting trainer program icon tooltypes")
  139.         (dest (cat #RTDESTDIR "R-Type_HD"))
  140.         (settooltype "INF_LIVES" "")
  141.     )
  142. )
  143.  
  144. (if (<> 0 (IN #RTDEFTRAINERS 1))
  145.     (tooltype
  146.         (prompt "Setting trainer program icon tooltypes")
  147.         (dest (cat #RTDESTDIR "R-Type_HD"))
  148.         (settooltype "INVULNERABLE" "")
  149.     )
  150. )
  151.  
  152. (copyfiles
  153.     (prompt "Copying HD loader")
  154.     (help @copyfiles-help)
  155.     (source #RTBOOTNAME)
  156.     (newname "RTBoot")
  157.     (dest #RTDESTDIR)
  158.     (nogauge)
  159.     (noposition)
  160.     (optional fail force)
  161. )
  162.