home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Dream 52
/
Amiga_Dream_52.iso
/
Amiga
/
Internet
/
Irc
/
DwarfxNW.lha
/
DWaRFx-TNG
/
InstallDFX
< prev
next >
Wrap
Text File
|
1998-05-08
|
10KB
|
353 lines
;
;
; |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)