home *** CD-ROM | disk | FTP | other *** search
/ EuroCD 3 / EuroCD 3.iso / Games / ECS / Whools / Install < prev    next >
Encoding:
Text File  |  1998-06-24  |  6.4 KB  |  279 lines
  1. ; $VER: Whools-Installer Version 1.4 by Philip Steffan (8.6.97)
  2. ; -------------------------------------------------------------
  3.  
  4. (if (= @language "deutsch")
  5.  
  6. (
  7. (set #introduction
  8. (cat "\n\nDieses Skript installiert\nW·H·O·O·L·S\n auf Ihrer Festplatte. "
  9.      "\n\n\nWhools © 1996/97 by Pointed Ear Software Design."
  10.      ))
  11.  
  12. (set #askdir-help
  13. (cat "Wählen Sie das Verzeichnis, in dem Whools installiert werden soll. "
  14.      "\nEin Unterverzeichnis namens \"Whools\" wird automatisch erstellt. "
  15.      ))
  16.  
  17. (set #icon-help
  18. (cat "Wenn Sie MagicWorkbench (© Martin Huttenloher) benutzen, installieren "
  19.      "Sie bitte die mitgelieferten achtfarbigen Piktogramme für die Anleitung "
  20.      "und das Whools-Hauptprogramm. "
  21.      "\nAußerdem sind Piktogramme im NewIcons-Stil mitgeliefert. Um diese zu "
  22.      "nutzen, müssen sie aber den NewIcons-Patch installiert haben."
  23.      ))
  24.  
  25. (set #wohin
  26. (cat "Wo soll das \"Whools\"-Verzeichnis erstellt werden ?"
  27.      ))
  28.  
  29. (set #iconstyle
  30. (cat "Wählen Sie Ihren bevorzugten Piktogramm-Stil."
  31.      ))
  32.  
  33. (set #wannasource
  34. (cat "Wollen Sie die Quelltextdateien kopieren? (Aus Platzmangel nicht in diesem Archiv)"
  35.      ))
  36.  
  37. (set #asklibs
  38. (cat "Die benötigte \"ptreplay.library\" wird nach LIBS: kopiert."
  39.      ))
  40.  
  41. (set #libs-help
  42. (cat "\"Whools\" benutzt die \"ptreplay.library\" für das Abspielen der Musik. "
  43.      "Installieren Sie die mitgelieferte Version nur, wenn Sie keine neuere "
  44.      "Version besitzen. "
  45.      "Bitte lesen Sie die Textdatei \"ptreplay.readme\" für weitere Informationen."
  46.      ))
  47.  
  48. (set #source-help
  49. (cat "Die mitgelieferten Quelltextdateien sind für Assembler-Programmierer "
  50.      "gedacht, die an programminternen Funktionen interessiert sind. Für "
  51.      "das eigentliche Spiel werden diese Dateien nicht benötigt."
  52.      ))
  53.  
  54. (set #endmsg1
  55. (cat "\"Whools\" wurde erfolgreich installiert und befindet sich im Verzeichnis\n\n "
  56.      ))
  57.  
  58. (set #endmsg2
  59. (cat "\n\nWollen Sie jetzt die Anleitung lesen ?"
  60.      ))
  61.  
  62. (set #nomultiview
  63. (cat "\nMultiview konnte nicht gefunden werden."
  64.      ))
  65. )
  66. ; if not deutsch then use english (locale texts welcome!)
  67. (
  68.  
  69. (set #introduction
  70. (cat "\n\nThis script will install\nW·H·O·O·L·S\n on your harddisk. "
  71.      "\n\n\nWhools © 1996/97 by Pointed Ear Software Design."
  72.      ))
  73.  
  74. (set #askdir-help
  75. (cat "Choose the directory you want Whools to be installed in. "
  76.      "\nA subdirectory called \"Whools\" will be created automatically. "
  77.      ))
  78.  
  79. (set #icon-help
  80. (cat "If you use MagicWorkbench (© Martin Huttenloher), please install the "
  81.      "supplied 8-color icons for the Whools guide and executable files. "
  82.      "\nThis package also contains NewIcons-style icons. Please note "
  83.      "that you have to have the NewIcons patch installed to use them. "
  84.      ))
  85.  
  86. (set #wohin
  87. (cat "Where do you want the \"Whools\" drawer to be created  ?"
  88.      ))
  89.  
  90. (set #iconstyle
  91. (cat "Select your preferred icon style."
  92.      ))
  93.  
  94. (set #wannasource
  95. (cat "Do you want to copy the source code files? (Not included due to lack of space)"
  96.      ))
  97.  
  98. (set #asklibs
  99. (cat "Copying the needed \"ptreplay.library\" to LIBS:."
  100.      ))
  101.  
  102. (set #libs-help
  103. (cat "\"Whools\" uses the \"ptreplay.library\" to play its game music. "
  104.      "Please install the included version only if you do not have a newer "
  105.      "version installed. "
  106.      "Have a look at the text file \"ptreplay.readme\" for further information."
  107.      ))
  108.  
  109. (set #source-help
  110. (cat "The included source code files are intended to help assembler "
  111.      "programmers who are interested in internal program functions. "
  112.      "They are not needed for playing the game itself. "
  113.      ))
  114.  
  115. (set #endmsg1
  116. (cat "\"Whools\" has been successfully installed to \n\n "
  117.      ))
  118.  
  119. (set #endmsg2
  120. (cat "\n\nDo you want to read the guide file now?"
  121.      ))
  122.  
  123. (set #nomultiview
  124. (cat "\nMultiview was not found."
  125.      ))
  126.  
  127. )
  128. )
  129.  
  130. ;---------------------------
  131. ; the fun has just begun...
  132.  
  133. (message #introduction)
  134. (welcome)
  135.  
  136. (complete 0)
  137.  
  138.  
  139. ; now let´s set the dir...
  140.  
  141. (set #zieldir
  142.    (askdir
  143.       (prompt #wohin)
  144.       (help #askdir-help)
  145.       (default "Ram:")
  146.    )
  147. )
  148.  
  149. (set #root #zieldir)
  150. (set #zieldir (tackon #zieldir "Whools"))
  151. (set #quelle "")
  152. (set #guide (tackon #zieldir "Whools.guide"))
  153.  
  154. ; which icons would you like with the hors d´oevre, madame ?
  155.  
  156. (set @auswahl
  157.   (askchoice
  158.     (prompt #iconstyle)
  159.     (help #icon-help)
  160.     (choices "Workbench-Standard" "MagicWorkbench" "NewIcons")
  161.     (default 1)
  162.   )
  163. )
  164.  
  165.  
  166. ; getting tough now: The source files or not the source files!!!
  167.  
  168. (set #scfiles
  169.   (askbool
  170.     (prompt #wannasource)
  171.     (help #source-help)
  172.   )
  173. )
  174.  
  175. ; first of all copy the library
  176.  
  177. ;(if
  178. ;   (exists "LIBS:")
  179. ;   (copylib (prompt #asklibs)
  180. ;            (help #libs-help)
  181. ;            (source (tackon #quelle "libs/ptreplay.library"))
  182. ;            (dest "LIBS:") 
  183. ;            (confirm)
  184. ;   )
  185. ;)
  186.  
  187. ; go on make the dir if it had not existed before (f... the tempus rules)
  188.  
  189. (if
  190.    (= (exists #zieldir) 0)
  191.    (makedir #zieldir)
  192. )
  193.  
  194. (complete 15)
  195.  
  196.  
  197. ; now copy all the junk
  198.  
  199. (
  200.    (set #pattern "Whools#?")
  201.    (copyfiles (source #quelle) (dest #zieldir) (pattern #pattern))
  202. )
  203.  
  204. (complete 25)
  205.  
  206. (
  207.    (set #pattern "data")
  208.    (copyfiles (source #quelle) (dest #zieldir) (pattern #pattern))
  209. )
  210.  
  211. (complete 85)
  212.  
  213. (if (= #scfiles 1) ; The user said yip!
  214.   
  215.  ((set #pattern "Sour#?")
  216.   (copyfiles (source #quelle) (dest #zieldir) (pattern #pattern))
  217. ))
  218.  
  219. (complete 95)
  220.  
  221.  
  222. ; Now copy the icons ... and here she goes!
  223.  
  224. (if (= @auswahl 0) ;i.e. Standard :-<
  225.  
  226.  ((set #icon "Standard.info")
  227.   (set #quelle (tackon #quelle "icons"))
  228.   (copyfiles (source #quelle) (dest #root) (choices #icon))
  229.   (rename (tackon #root "Standard.info") (tackon #root "Whools.info"))
  230.  
  231.   (set #pattern "Whoo#?")
  232.   (copyfiles (source #quelle) (dest #zieldir) (pattern #pattern))
  233.  )
  234. )
  235.  
  236.  
  237. (if (= @auswahl 1) ;i.e. MagicWB :->
  238.  
  239.  ((set #icon "Icons.info")
  240.   (copyfiles (source #quelle) (dest #root) (choices #icon))
  241.   (rename (tackon #root "Icons.info") (tackon #root "Whools.info"))
  242.  )
  243. )
  244.  
  245.  
  246. (if (= @auswahl 2) ;i.e. NewIcons :-|
  247.  
  248.  ((set #icon "NewIcons.info")
  249.   (set #quelle (tackon #quelle "icons"))
  250.   (copyfiles (source #quelle) (dest #root) (choices #icon))
  251.   (rename (tackon #root "NewIcons.info") (tackon #root "Whools.info"))
  252.  
  253.   (set #pattern "Whoo#?")
  254.   (copyfiles (source #quelle) (dest #zieldir) (pattern #pattern))
  255.  
  256.  )
  257. )
  258.  
  259.  
  260. (complete 100)
  261.  
  262.  
  263. (set #readguide
  264.  (askbool
  265.   (prompt (cat #endmsg1 #zieldir #endmsg2))
  266.   (help #endmsg2)
  267.  )
  268. )
  269.  
  270. (if (= #readguide 1)
  271.     (if (exists "SYS:UTILITIES/MULTIVIEW")
  272.     (run "run SYS:UTILITIES/MULTIVIEW" #guide)
  273.     (message #nomultiview)
  274.     )
  275. )
  276.  
  277.  
  278. (exit (quiet))
  279.