home *** CD-ROM | disk | FTP | other *** search
/ MACD 7 / MACD7.iso / www / gloom / files / gdtrainer.lha / GDTrainer / Install_GDTrainer < prev   
Encoding:
Text File  |  1997-05-21  |  3.1 KB  |  150 lines
  1. ;
  2. ;$VER: GDTrainer Installer script v2.00 (c) 1997 John Girvin
  3. ;
  4.  
  5. (welcome "Welcome to the Gloom Trainer Installer v2.00")
  6. (set @app-name "GDTrainer")
  7. (set #GDESTDIR "DH0:")
  8.  
  9. (set #GUSEGUI 0)
  10. (set #GDEFTRAINERS 0)
  11.  
  12. (if
  13.     (<> @user-level 2)
  14.     (abort "You must select 'Expert' user level")
  15. )
  16.  
  17. (message "\n\nWelcome to the GDTrainer Installer\n"
  18.          "(c) 1997 John Girvin\n\n"
  19.          "Please read the documentation thoroughly before"
  20.          " attempting to use this installer!\n\n"
  21.          "This is version 2.00\n\n"
  22.          "Click 'Proceed' to begin."
  23. )
  24.  
  25. (set #GDESTDIR
  26.     (askdir
  27.         (prompt "Where do you have Gloom Deluxe installed?\n"
  28.                 "(select the directory containing the 'playgloom' program)"
  29.         )
  30.         (help @askdir-help)
  31.         (default #GDESTDIR)
  32.     )
  33. )
  34. (set @default-dest #GDESTDIR)
  35.  
  36. (set #GUSEGUI
  37.     (askchoice
  38.         (prompt "Do you want the cheat GUI to appear every time you load GDTrainer?\n"
  39.                 "(this may be changed later by editing the tooltypes of GDTrainer)"
  40.         )
  41.         (help @askchoice-help)
  42.         (choices "Yes" "No")
  43.         (default #GUSEGUI)
  44.     )
  45. )
  46.  
  47. (set #GDEFTRAINERS
  48.     (askoptions
  49.         (prompt "Please select the default trainers to use:\n"
  50.                 "(these may be changed later by either\n"
  51.                 "editing the tooltypes of GDTrainer\n"
  52.                 "or using the cheat GUI)"
  53.         )
  54.         (help @askoptions-help)
  55.         (choices "Infinite lives"
  56.                  "Maximum gun power"
  57.                  "Infinite invisibility"
  58.                  "Infinite thermo glasses"
  59.                  "Infinite bouncy bullets"
  60.                  "Super gun boosts"
  61.         )
  62.         (default #GDEFTRAINERS)
  63.     )
  64. )
  65.  
  66. (copyfiles
  67.     (prompt "Copying trainer program")
  68.     (help @copyfiles-help)
  69.     (source "GDTrainer")
  70.     (dest #GDESTDIR)
  71.     (nogauge)
  72.     (noposition)
  73.     (optional fail force)
  74. )
  75.  
  76. (copyfiles
  77.     (prompt "Copying trainer program icon")
  78.     (help @copyfiles-help)
  79.     (source "GDTrainer_icon")
  80.     (newname "GDTrainer.info")
  81.     (dest #GDESTDIR)
  82.     (nogauge)
  83.     (optional fail force)
  84. )
  85.  
  86. (if (= #GUSEGUI 1)
  87.     (tooltype
  88.         (prompt "Setting trainer program icon tooltypes")
  89.         (dest (tackon #GDESTDIR "GDTrainer"))
  90.         (settooltype "NOGUI" "")
  91.     )
  92. )
  93.  
  94. (if (<> 0 (IN #GDEFTRAINERS 0))
  95.     (tooltype
  96.         (prompt "Setting trainer program icon tooltypes")
  97.         (dest (tackon #GDESTDIR "GDTrainer"))
  98.         (settooltype "INF_LIVES" "")
  99.     )
  100. )
  101.  
  102. (if (<> 0 (IN #GDEFTRAINERS 1))
  103.     (tooltype
  104.         (prompt "Setting trainer program icon tooltypes")
  105.         (dest (tackon #GDESTDIR "GDTrainer"))
  106.         (settooltype "INF_BIGGUN" "")
  107.     )
  108. )
  109.  
  110. (if (<> 0 (IN #GDEFTRAINERS 2))
  111.     (tooltype
  112.         (prompt "Setting trainer program icon tooltypes")
  113.         (dest (tackon #GDESTDIR "GDTrainer"))
  114.         (settooltype "INF_INVIS" "")
  115.     )
  116. )
  117.  
  118. (if (<> 0 (IN #GDEFTRAINERS 3))
  119.     (tooltype
  120.         (prompt "Setting trainer program icon tooltypes")
  121.         (dest (tackon #GDESTDIR "GDTrainer"))
  122.         (settooltype "INF_THERMO" "")
  123.     )
  124. )
  125.  
  126. (if (<> 0 (IN #GDEFTRAINERS 4))
  127.     (tooltype
  128.         (prompt "Setting trainer program icon tooltypes")
  129.         (dest (tackon #GDESTDIR "GDTrainer"))
  130.         (settooltype "INF_BOUNCY" "")
  131.     )
  132. )
  133.  
  134. (if (<> 0 (IN #GDEFTRAINERS 5))
  135.     (tooltype
  136.         (prompt "Setting trainer program icon tooltypes")
  137.         (dest (tackon #GDESTDIR "GDTrainer"))
  138.         (settooltype "MAXBOOSTS" "")
  139.     )
  140. )
  141.  
  142. (copyfiles
  143.     (prompt (cat "Copying trainer loader"))
  144.     (help @copyfiles-help)
  145.     (source "CGTBoot")
  146.     (dest #GDESTDIR)
  147.     (nogauge)
  148.     (optional fail force)
  149. )
  150.