;
;
; |DWaRFx-TNG| - v2.5 Install Script
;              - By Gareth 'Gaz' Murfin
;              - Created 23rd December 1997
;              - (26th December 1997 - DWaRFx's 1st ANNIVERSARY!)
;
;
;Program name & by Gareth Murfin Scrolling.
(procedure WAITX (set X 1) ( (while (< X 100)  (set X (+ X 1)) )  ) )
(working "\n\n\n\n\n\n\n\n\n\n\n\n\n|DWaRFx-TNG| v2.5") (WAITX)
(complete 0)
(working "\n\n\n\n\n\n\n\n\n\n\n\n|DWaRFx-TNG| v2.5") (WAITX)
(complete 1)
(working "\n\n\n\n\n\n\n\n\n\n\n|DWaRFx-TNG| v2.5") (WAITX)
(complete 2)
(working "\n\n\n\n\n\n\n\n\n\n|DWaRFx-TNG| v2.5") (WAITX)
(complete 3)
(working "\n\n\n\n\n\n\n\n\n|DWaRFx-TNG| v2.5") (WAITX)
(complete 4)
(working "\n\n\n\n\n\n\n\n|DWaRFx-TNG| v2.5") (WAITX)
(complete 5)
(working "\n\n\n\n\n\n\n|DWaRFx-TNG| v2.5") (WAITX)
(complete 6)
(working "\n\n\n\n\n\n|DWaRFx-TNG| v2.5") (WAITX)
(complete 7)
(working "\n\n\n\n\n|DWaRFx-TNG| v2.5") (WAITX)
(complete 8)
(working "\n\n\n\n|DWaRFx-TNG| v2.5") (WAITX)
(complete 9)
(working "\n\n\n|DWaRFx-TNG| v2.5") (WAITX)
(complete 10)
(working "\n\n|DWaRFx-TNG| v2.5") (WAITX)
(complete 11)
(working "\n\n|DWaRFx-TNG| v2.5") (WAITX)
(complete 12)
(working "\n|DWaRFx-TNG| v2.5") (WAITX)
(complete 13)
(working "\n|DWaRFx-TNG| v2.5") (WAITX)
(complete 14)
(working "\n|DWaRFx-TNG| v2.5\n\n\n\n\n\n\n\n\n\n\n\nby") (WAITX)
(complete 15)
(working "\n|DWaRFx-TNG| v2.5\n\n\n\n\n\n\n\n\n\n\nby") (WAITX)
(complete 16)
(working "\n|DWaRFx-TNG| v2.5\n\n\n\n\n\n\n\n\n\nby") (WAITX)
(complete 17)
(working "\n|DWaRFx-TNG| v2.5\n\n\n\n\n\n\n\n\nby") (WAITX)
(complete 18)
(working "\n|DWaRFx-TNG| v2.5\n\n\n\n\n\n\n\nby") (WAITX)
(complete 19)
(working "\n|DWaRFx-TNG| v2.5\n\n\n\n\n\n\nby") (WAITX)
(complete 20)
(working "\n|DWaRFx-TNG| v2.5\n\n\n\n\n\nby") (WAITX)
(complete 21)
(working "\n|DWaRFx-TNG| v2.5\n\n\n\n\nby") (WAITX)
(complete 22)
(working "\n|DWaRFx-TNG| v2.5\n\n\n\nby") (WAITX)
(complete 22)
(working "\n|DWaRFx-TNG| v2.5\n\n\nby") (WAITX)
(complete 23)
(working "\n|DWaRFx-TNG| v2.5\n\n\nby") (WAITX)
(complete 24)
(working "\n|DWaRFx-TNG| v2.5\n\n\nby\n\n\n\n\n\n\n\n\nGareth Murfin & David Newton") (WAITX)
(complete 25)
(working "\n|DWaRFx-TNG| v2.5\n\n\nby\n\n\n\n\n\n\n\nGareth Murfin & David Newton") (WAITX)
(complete 26)
(working "\n|DWaRFx-TNG| v2.5\n\n\nby\n\n\n\n\n\n\nGareth Murfin & David Newton") (WAITX)
(complete 27)
(working "\n|DWaRFx-TNG| v2.5\n\n\nby\n\n\n\n\n\nGareth Murfin & David Newton") (WAITX)
(complete 28)
(working "\n|DWaRFx-TNG| v2.5\n\n\nby\n\n\n\n\nGareth Murfin & David Newton") (WAITX)
(complete 29)
(working "\n|DWaRFx-TNG| v2.5\n\n\nby\n\n\n\nGareth Murfin & David Newton") (WAITX)
(complete 30)
(working "\n|DWaRFx-TNG| v2.5\n\n\nby\n\n\nGareth Murfin & David Newton") (WAITX)
(message "\n\n\n|DWaRFx-TNG| v2.5\n\n\nby\n\n\nGareth Murfin & David Newton") (WAITX)
(run "c/play16 <>nil: DWaRFx/pollip.wav")
(welcome)
(complete 31)
(complete 32)
(complete 33)
(complete 34)
(complete 35)
;End of Introduction.
;
(message
  "\n\nWelcome to |DWaRFx-TNG|\nBy Gareth Murfin & David Newton."
  "\n\nThis installer will setup DWaRFx so that it will run"
  "\nautomatically each time you load up AmIRC."
  "\n\n\neMail.........................gazy@globalnet.co.uk"
  "\nURL........http://www.users.globalnet.co.uk/~gazy/"
  "\nIRC................SpryNet.US.GalaxyNet.Org #AmIRC"
)
(complete 40)
;
;Backup old pref's if they exist..

(run "c/execute c/prefsback")

;A bit messy but for some lame reason I couldn't get the below code to work.
;mail me if you can fix it. Not essential but certainly neater etc..

; (if (= (exists "AmIRC:Rexx/DWaRFx/DWaRFConfig.dat"))
;  (copyfiles (dest "AmIRC:Rexx/DWaRFx/dfxprefs.bak") (source "AmIRC:Rexx/DWaRFx/DWaRFConfig.dat"))
; )

;
;
(set AmIRC-dest
    (askdir
      (prompt "Where is your AmIRC: Directory?")
      (help
    "AmIRC: Directory:\n"
    "DWaRFx requires that you show it where the AmIRC: directory "
    "is so that it can copy vital innitiation files into it. The "
    "file Connected.AmIRX will be copied so that DWaRFx loads "
    "automatically each time you load AmIRC. This file is also "
    "responsible for 100% Compatibility with Kuangıı\n"
    "\n"
      @askdir-help)
      (default "AmIRC:")
  )
)
;
;
;
(copyfiles (dest AmIRC-dest) (source "DWaRFx.Guide"))
(copyfiles (dest AmIRC-dest) (source "DWaRFx.Guide.info"))
;(copyfiles (dest AmIRC-dest) (source "DWaRFx/MiniDrop"))             ; works
;(copyfiles (dest AmIRC-dest) (source "DWaRFx/MiniDrop.guide"))       ; from
;(copyfiles (dest AmIRC-dest) (source "DWaRFx/MiniDrop.guide.info"))  ; dwarfx
;(copyfiles (dest AmIRC-dest) (source "DWaRFx/MiniDrop.hosts"))       ; dir
;(copyfiles (dest AmIRC-dest) (source "DWaRFx/MiniDrop.info"))        ; now
;(copyfiles (dest AmIRC-dest) (source "DWaRFx/MiniDropreadme.txt"))   ; :-)
;
;
;
(complete 45)
;
(set DWaRFx-dest
 (set Connect-dest
  (tackon
    (askdir
      (prompt "Where is your AmIRC/Rexx Directory?")
      (help
    "AmIRC/Rexx Directory:\n"
    "DWaRFx requires that you show it where the AmIRC/Rexx directory "
    "is so that it can copy vital files into a new directory called "
    "DWaRFx which will have the path name AmIRC/Rexx/DWaRFx/. If it "
    "does not have this then DWaRFx will not work.\n"
    "\n"
      @askdir-help)
      (default "AmIRC:Rexx/")
    )
    "DWaRFx"
  )
 )
)
(set @default-dest DWaRFx-dest)
;
;
(complete 45)
;---------------------
;---------------------
(copyfiles
  (source "DWaRFx")
  (dest DWaRFx-dest)
  (all)
)
(complete 46)
;---------------------
;
;---------------------         ;
;(copyfiles                    ;
;  (source "c/Pollip.wav")     ;   No need to
;  (dest DWaRFx-dest)          ;   copy these
;  (all)                       ;   files anymore
;)                             ;   they're in
;(complete 46)                 ;   the DWaRFx dir.
;---------------------         ;
;                              ;
;---------------------         ;
;(copyfiles                    ;
;  (source "c/Rimmer.wav")     ;
;  (dest DWaRFx-dest)          ;
;  (all)                       ;
;)                             ;
;(complete 46)                 ;
;---------------------         ;
;
;
;
;
;---------------------
(message
"\n |DWaRFx-TNG| has special 'speech' facilities"
"\n which require certain libraries and files."
"\n\n\nThese special files will be installed now."
"\n (and used in all 'speech' apps from now on)"
"\n\n\n\n URL......http://www.users.globalnet.co.uk/~gazy/"
"\n eMail.......................gazy@globalnet.co.uk"
"\n IRC..............SpryNet.Us.GalaxyNet.Org #AmIRC"
)
;
;---------------------
(copyfiles
  (source "c/DWaRFx.txt")
  (dest "SYS:S/")
  (all)
)
;---------------------
;---------------------
(complete 80)
(copyfiles
  (source "c/say")
  (dest "C:")
  (all)
)
;---------------------
;
;---------------------
(complete 85)
(copyfiles
  (source "devs/narrator.device")
  (dest "DEVS:")
  (all)
)
;---------------------
;
;---------------------
(complete 90)

(copyfiles
  (source "libs/translator.library")
  (dest "LIBS:")
  (all)
)
;---------------------
;
;---------------------
(copyfiles
  (source "c/MultiView")
  (dest "C:")
  (all)
)
;---------------------
;
;---------------------
;;(copyfiles                      ;
;;  (source "c/Pollip.wav")       ;
;;  (dest "RAM:")                 ; Taken out
;;  (all)                         ; because
;;)                               ; JaiMz
(complete 91)                     ; complained
;---------------------            ; it was
;                                 ; wasting
;---------------------            ; his Ram.
;;(copyfiles                      ;
;;  (source "c/Rimmer.wav")       ;
;;  (dest "RAM:")                 ;
;;  (all)                         ;
;;)
(complete 92)
;---------------------
;---------------------
(copyfiles
  (source "c/Play16")
  (dest "C:")
  (all)
)
(complete 93)
;---------------------
;---------------------
(copyfiles
  (source "c/VT")
  (dest "C:")
  (all)
)
(complete 94)
;---------------------
;
;---------------------
(copyfiles
  (source "c/AmiClock")
  (dest "C:")
  (all)
)
(complete 95)
;---------------------
;
;---------------------
(copyfiles
  (source "c/AmiClock.info")
  (dest "C:")
  (all)
)
(complete 96)
;---------------------
;---------------------
(set AmIRC-config
    (askfile
      (prompt "Select your file Default.AmIRCfg please.")
      (help
    "Default.AmIRCfg file:\n"
    "DWaRFx requires that you show it where the AmIRC config "
    "file is  so that it can copy vital information into it. "
    "Your other preferences will not be affected.\n"
    "\n"
      @askdir-help)
      (default "AmIRC:Default.AmIRCCFg")
  )
)
;
;
(copyfiles (dest "RAM:") (source AmIRC-config))
(run "c/execute c/InstallHelper")
(copyfiles (dest AmIRC-dest) (source "RAM:Default.AmIRCfg"))
;
;
;
(set Loader-dest
    (askdir
      (prompt "Where is your AmIRC/Rexx Directory?")
       (help
    "AmIRC/Rexx Directory:\n"
    "DWaRFx requires that you show it where the AmIRC/Rexx directory "
    "is so that it can copy vital files into a new directory called "
    "DWaRFx which will have the path name AmIRC/Rexx/DWaRFx/. If it "
    "does not have this then DWaRFx will not work.\n"
    "\n"
      @askdir-help)
      (default "AmIRC:Rexx/")
  )
)
;
(copyfiles (dest Loader-dest) (source "C/Connected.AmIRX"))
(copyfiles (dest Loader-dest) (source "C/VERSION"))
;
;
(complete 97)
(message
"\n\n |DWaRFx-TNG| v2.5 was installed successfully!"
"\n Now load AmIRC & DWaRFx will run automatically"
"\n\n\n** |DWaRFx-TNG| - Contact details **"
"\n URL......http://www.users.globalnet.co.uk/~gazy/"
"\n eMail.......................gazy@globalnet.co.uk"
"\n IRC..............SpryNet.Us.GalaxyNet.Org #AmIRC"
"\n\n Enjoy |DWaRFx-TNG| v2.5..."
)
(run "c/vt <>nil: c/tell.iff")
(run "c/play16 <>nil: DWaRFx/rimmer.wav")
(complete 100)