home *** CD-ROM | disk | FTP | other *** search
/ Dream 52 / Amiga_Dream_52.iso / Amiga / Internet / Irc / DwarfxNW.lha / DWaRFx-TNG / InstallDFX < prev    next >
Text File  |  1998-05-08  |  10KB  |  353 lines
  1. ;
  2. ;
  3. ; |DWaRFx-TNG| - v2.5 Install Script
  4. ;              - By Gareth 'Gaz' Murfin
  5. ;              - Created 23rd December 1997
  6. ;              - (26th December 1997 - DWaRFx's 1st ANNIVERSARY!)
  7. ;
  8. ;
  9. ;Program name & by Gareth Murfin Scrolling.
  10. (procedure WAITX (set X 1) ( (while (< X 100)  (set X (+ X 1)) )  ) )
  11. (working "\n\n\n\n\n\n\n\n\n\n\n\n\n|DWaRFx-TNG| v2.5") (WAITX)
  12. (complete 0)
  13. (working "\n\n\n\n\n\n\n\n\n\n\n\n|DWaRFx-TNG| v2.5") (WAITX)
  14. (complete 1)
  15. (working "\n\n\n\n\n\n\n\n\n\n\n|DWaRFx-TNG| v2.5") (WAITX)
  16. (complete 2)
  17. (working "\n\n\n\n\n\n\n\n\n\n|DWaRFx-TNG| v2.5") (WAITX)
  18. (complete 3)
  19. (working "\n\n\n\n\n\n\n\n\n|DWaRFx-TNG| v2.5") (WAITX)
  20. (complete 4)
  21. (working "\n\n\n\n\n\n\n\n|DWaRFx-TNG| v2.5") (WAITX)
  22. (complete 5)
  23. (working "\n\n\n\n\n\n\n|DWaRFx-TNG| v2.5") (WAITX)
  24. (complete 6)
  25. (working "\n\n\n\n\n\n|DWaRFx-TNG| v2.5") (WAITX)
  26. (complete 7)
  27. (working "\n\n\n\n\n|DWaRFx-TNG| v2.5") (WAITX)
  28. (complete 8)
  29. (working "\n\n\n\n|DWaRFx-TNG| v2.5") (WAITX)
  30. (complete 9)
  31. (working "\n\n\n|DWaRFx-TNG| v2.5") (WAITX)
  32. (complete 10)
  33. (working "\n\n|DWaRFx-TNG| v2.5") (WAITX)
  34. (complete 11)
  35. (working "\n\n|DWaRFx-TNG| v2.5") (WAITX)
  36. (complete 12)
  37. (working "\n|DWaRFx-TNG| v2.5") (WAITX)
  38. (complete 13)
  39. (working "\n|DWaRFx-TNG| v2.5") (WAITX)
  40. (complete 14)
  41. (working "\n|DWaRFx-TNG| v2.5\n\n\n\n\n\n\n\n\n\n\n\nby") (WAITX)
  42. (complete 15)
  43. (working "\n|DWaRFx-TNG| v2.5\n\n\n\n\n\n\n\n\n\n\nby") (WAITX)
  44. (complete 16)
  45. (working "\n|DWaRFx-TNG| v2.5\n\n\n\n\n\n\n\n\n\nby") (WAITX)
  46. (complete 17)
  47. (working "\n|DWaRFx-TNG| v2.5\n\n\n\n\n\n\n\n\nby") (WAITX)
  48. (complete 18)
  49. (working "\n|DWaRFx-TNG| v2.5\n\n\n\n\n\n\n\nby") (WAITX)
  50. (complete 19)
  51. (working "\n|DWaRFx-TNG| v2.5\n\n\n\n\n\n\nby") (WAITX)
  52. (complete 20)
  53. (working "\n|DWaRFx-TNG| v2.5\n\n\n\n\n\nby") (WAITX)
  54. (complete 21)
  55. (working "\n|DWaRFx-TNG| v2.5\n\n\n\n\nby") (WAITX)
  56. (complete 22)
  57. (working "\n|DWaRFx-TNG| v2.5\n\n\n\nby") (WAITX)
  58. (complete 22)
  59. (working "\n|DWaRFx-TNG| v2.5\n\n\nby") (WAITX)
  60. (complete 23)
  61. (working "\n|DWaRFx-TNG| v2.5\n\n\nby") (WAITX)
  62. (complete 24)
  63. (working "\n|DWaRFx-TNG| v2.5\n\n\nby\n\n\n\n\n\n\n\n\nGareth Murfin & David Newton") (WAITX)
  64. (complete 25)
  65. (working "\n|DWaRFx-TNG| v2.5\n\n\nby\n\n\n\n\n\n\n\nGareth Murfin & David Newton") (WAITX)
  66. (complete 26)
  67. (working "\n|DWaRFx-TNG| v2.5\n\n\nby\n\n\n\n\n\n\nGareth Murfin & David Newton") (WAITX)
  68. (complete 27)
  69. (working "\n|DWaRFx-TNG| v2.5\n\n\nby\n\n\n\n\n\nGareth Murfin & David Newton") (WAITX)
  70. (complete 28)
  71. (working "\n|DWaRFx-TNG| v2.5\n\n\nby\n\n\n\n\nGareth Murfin & David Newton") (WAITX)
  72. (complete 29)
  73. (working "\n|DWaRFx-TNG| v2.5\n\n\nby\n\n\n\nGareth Murfin & David Newton") (WAITX)
  74. (complete 30)
  75. (working "\n|DWaRFx-TNG| v2.5\n\n\nby\n\n\nGareth Murfin & David Newton") (WAITX)
  76. (message "\n\n\n|DWaRFx-TNG| v2.5\n\n\nby\n\n\nGareth Murfin & David Newton") (WAITX)
  77. (run "c/play16 <>nil: DWaRFx/pollip.wav")
  78. (welcome)
  79. (complete 31)
  80. (complete 32)
  81. (complete 33)
  82. (complete 34)
  83. (complete 35)
  84. ;End of Introduction.
  85. ;
  86. (message
  87.   "\n\nWelcome to |DWaRFx-TNG|\nBy Gareth Murfin & David Newton."
  88.   "\n\nThis installer will setup DWaRFx so that it will run"
  89.   "\nautomatically each time you load up AmIRC."
  90.   "\n\n\neMail.........................gazy@globalnet.co.uk"
  91.   "\nURL........http://www.users.globalnet.co.uk/~gazy/"
  92.   "\nIRC................SpryNet.US.GalaxyNet.Org #AmIRC"
  93. )
  94. (complete 40)
  95. ;
  96. ;Backup old pref's if they exist..
  97.  
  98. (run "c/execute c/prefsback")
  99.  
  100. ;A bit messy but for some lame reason I couldn't get the below code to work.
  101. ;mail me if you can fix it. Not essential but certainly neater etc..
  102.  
  103. ; (if (= (exists "AmIRC:Rexx/DWaRFx/DWaRFConfig.dat"))
  104. ;  (copyfiles (dest "AmIRC:Rexx/DWaRFx/dfxprefs.bak") (source "AmIRC:Rexx/DWaRFx/DWaRFConfig.dat"))
  105. ; )
  106.  
  107. ;
  108. ;
  109. (set AmIRC-dest
  110.     (askdir
  111.       (prompt "Where is your AmIRC: Directory?")
  112.       (help
  113.     "AmIRC: Directory:\n"
  114.     "DWaRFx requires that you show it where the AmIRC: directory "
  115.     "is so that it can copy vital innitiation files into it. The "
  116.     "file Connected.AmIRX will be copied so that DWaRFx loads "
  117.     "automatically each time you load AmIRC. This file is also "
  118.     "responsible for 100% Compatibility with Kuang╣╣\n"
  119.     "\n"
  120.       @askdir-help)
  121.       (default "AmIRC:")
  122.   )
  123. )
  124. ;
  125. ;
  126. ;
  127. (copyfiles (dest AmIRC-dest) (source "DWaRFx.Guide"))
  128. (copyfiles (dest AmIRC-dest) (source "DWaRFx.Guide.info"))
  129. ;(copyfiles (dest AmIRC-dest) (source "DWaRFx/MiniDrop"))             ; works
  130. ;(copyfiles (dest AmIRC-dest) (source "DWaRFx/MiniDrop.guide"))       ; from
  131. ;(copyfiles (dest AmIRC-dest) (source "DWaRFx/MiniDrop.guide.info"))  ; dwarfx
  132. ;(copyfiles (dest AmIRC-dest) (source "DWaRFx/MiniDrop.hosts"))       ; dir
  133. ;(copyfiles (dest AmIRC-dest) (source "DWaRFx/MiniDrop.info"))        ; now
  134. ;(copyfiles (dest AmIRC-dest) (source "DWaRFx/MiniDropreadme.txt"))   ; :-)
  135. ;
  136. ;
  137. ;
  138. (complete 45)
  139. ;
  140. (set DWaRFx-dest
  141.  (set Connect-dest
  142.   (tackon
  143.     (askdir
  144.       (prompt "Where is your AmIRC/Rexx Directory?")
  145.       (help
  146.     "AmIRC/Rexx Directory:\n"
  147.     "DWaRFx requires that you show it where the AmIRC/Rexx directory "
  148.     "is so that it can copy vital files into a new directory called "
  149.     "DWaRFx which will have the path name AmIRC/Rexx/DWaRFx/. If it "
  150.     "does not have this then DWaRFx will not work.\n"
  151.     "\n"
  152.       @askdir-help)
  153.       (default "AmIRC:Rexx/")
  154.     )
  155.     "DWaRFx"
  156.   )
  157.  )
  158. )
  159. (set @default-dest DWaRFx-dest)
  160. ;
  161. ;
  162. (complete 45)
  163. ;---------------------
  164. ;---------------------
  165. (copyfiles
  166.   (source "DWaRFx")
  167.   (dest DWaRFx-dest)
  168.   (all)
  169. )
  170. (complete 46)
  171. ;---------------------
  172. ;
  173. ;---------------------         ;
  174. ;(copyfiles                    ;
  175. ;  (source "c/Pollip.wav")     ;   No need to
  176. ;  (dest DWaRFx-dest)          ;   copy these
  177. ;  (all)                       ;   files anymore
  178. ;)                             ;   they're in
  179. ;(complete 46)                 ;   the DWaRFx dir.
  180. ;---------------------         ;
  181. ;                              ;
  182. ;---------------------         ;
  183. ;(copyfiles                    ;
  184. ;  (source "c/Rimmer.wav")     ;
  185. ;  (dest DWaRFx-dest)          ;
  186. ;  (all)                       ;
  187. ;)                             ;
  188. ;(complete 46)                 ;
  189. ;---------------------         ;
  190. ;
  191. ;
  192. ;
  193. ;
  194. ;---------------------
  195. (message
  196. "\n |DWaRFx-TNG| has special 'speech' facilities"
  197. "\n which require certain libraries and files."
  198. "\n\n\nThese special files will be installed now."
  199. "\n (and used in all 'speech' apps from now on)"
  200. "\n\n\n\n URL......http://www.users.globalnet.co.uk/~gazy/"
  201. "\n eMail.......................gazy@globalnet.co.uk"
  202. "\n IRC..............SpryNet.Us.GalaxyNet.Org #AmIRC"
  203. )
  204. ;
  205. ;---------------------
  206. (copyfiles
  207.   (source "c/DWaRFx.txt")
  208.   (dest "SYS:S/")
  209.   (all)
  210. )
  211. ;---------------------
  212. ;---------------------
  213. (complete 80)
  214. (copyfiles
  215.   (source "c/say")
  216.   (dest "C:")
  217.   (all)
  218. )
  219. ;---------------------
  220. ;
  221. ;---------------------
  222. (complete 85)
  223. (copyfiles
  224.   (source "devs/narrator.device")
  225.   (dest "DEVS:")
  226.   (all)
  227. )
  228. ;---------------------
  229. ;
  230. ;---------------------
  231. (complete 90)
  232.  
  233. (copyfiles
  234.   (source "libs/translator.library")
  235.   (dest "LIBS:")
  236.   (all)
  237. )
  238. ;---------------------
  239. ;
  240. ;---------------------
  241. (copyfiles
  242.   (source "c/MultiView")
  243.   (dest "C:")
  244.   (all)
  245. )
  246. ;---------------------
  247. ;
  248. ;---------------------
  249. ;;(copyfiles                      ;
  250. ;;  (source "c/Pollip.wav")       ;
  251. ;;  (dest "RAM:")                 ; Taken out
  252. ;;  (all)                         ; because
  253. ;;)                               ; JaiMz
  254. (complete 91)                     ; complained
  255. ;---------------------            ; it was
  256. ;                                 ; wasting
  257. ;---------------------            ; his Ram.
  258. ;;(copyfiles                      ;
  259. ;;  (source "c/Rimmer.wav")       ;
  260. ;;  (dest "RAM:")                 ;
  261. ;;  (all)                         ;
  262. ;;)
  263. (complete 92)
  264. ;---------------------
  265. ;---------------------
  266. (copyfiles
  267.   (source "c/Play16")
  268.   (dest "C:")
  269.   (all)
  270. )
  271. (complete 93)
  272. ;---------------------
  273. ;---------------------
  274. (copyfiles
  275.   (source "c/VT")
  276.   (dest "C:")
  277.   (all)
  278. )
  279. (complete 94)
  280. ;---------------------
  281. ;
  282. ;---------------------
  283. (copyfiles
  284.   (source "c/AmiClock")
  285.   (dest "C:")
  286.   (all)
  287. )
  288. (complete 95)
  289. ;---------------------
  290. ;
  291. ;---------------------
  292. (copyfiles
  293.   (source "c/AmiClock.info")
  294.   (dest "C:")
  295.   (all)
  296. )
  297. (complete 96)
  298. ;---------------------
  299. ;---------------------
  300. (set AmIRC-config
  301.     (askfile
  302.       (prompt "Select your file Default.AmIRCfg please.")
  303.       (help
  304.     "Default.AmIRCfg file:\n"
  305.     "DWaRFx requires that you show it where the AmIRC config "
  306.     "file is  so that it can copy vital information into it. "
  307.     "Your other preferences will not be affected.\n"
  308.     "\n"
  309.       @askdir-help)
  310.       (default "AmIRC:Default.AmIRCCFg")
  311.   )
  312. )
  313. ;
  314. ;
  315. (copyfiles (dest "RAM:") (source AmIRC-config))
  316. (run "c/execute c/InstallHelper")
  317. (copyfiles (dest AmIRC-dest) (source "RAM:Default.AmIRCfg"))
  318. ;
  319. ;
  320. ;
  321. (set Loader-dest
  322.     (askdir
  323.       (prompt "Where is your AmIRC/Rexx Directory?")
  324.        (help
  325.     "AmIRC/Rexx Directory:\n"
  326.     "DWaRFx requires that you show it where the AmIRC/Rexx directory "
  327.     "is so that it can copy vital files into a new directory called "
  328.     "DWaRFx which will have the path name AmIRC/Rexx/DWaRFx/. If it "
  329.     "does not have this then DWaRFx will not work.\n"
  330.     "\n"
  331.       @askdir-help)
  332.       (default "AmIRC:Rexx/")
  333.   )
  334. )
  335. ;
  336. (copyfiles (dest Loader-dest) (source "C/Connected.AmIRX"))
  337. (copyfiles (dest Loader-dest) (source "C/VERSION"))
  338. ;
  339. ;
  340. (complete 97)
  341. (message
  342. "\n\n |DWaRFx-TNG| v2.5 was installed successfully!"
  343. "\n Now load AmIRC & DWaRFx will run automatically"
  344. "\n\n\n** |DWaRFx-TNG| - Contact details **"
  345. "\n URL......http://www.users.globalnet.co.uk/~gazy/"
  346. "\n eMail.......................gazy@globalnet.co.uk"
  347. "\n IRC..............SpryNet.Us.GalaxyNet.Org #AmIRC"
  348. "\n\n Enjoy |DWaRFx-TNG| v2.5..."
  349. )
  350. (run "c/vt <>nil: c/tell.iff")
  351. (run "c/play16 <>nil: DWaRFx/rimmer.wav")
  352. (complete 100)
  353.