; Installer script for DWaRFx
;
; By Gareth Murfin aka Gaz 97
;


; *** Introduction ***
(complete 0)

(message
  "\n\nWelcome to DWaRFx Install!\n\nDWaRFx by Gareth Murfin & David Newton."
  "\n\nThis installer was made By Gareth Murfin."
  "\n\nhttp://www.users.globalnet.co.uk/~gazy/."
  "\n\ngazy@globalnet.co.uk"
  "\n\nSpryNet.Us.GalaxyNet.Org 6668 #AmIRC"
)

; *** Enter Path to copy DWaRFx files to ***
(complete 10)

(set #DEST0
  (askdir
    (prompt "DWaRFx will be installed to AmIRC:Rexx/DWaRFx/ ok?")
    (help (cat @askdir-help))
    (default "AMIRC:Rexx/DWaRFx/")
 )
)

; *** Copy all DWaRF scripts to given path ***
(complete 20)

(copyfiles (dest #DEST0) (source "DWaRFALiAS.amirx"))
(copyfiles (dest #DEST0) (source "DWaRFANNoY.amirx"))
(copyfiles (dest #DEST0) (source "DWaRFAWaY.amirx"))
(copyfiles (dest #DEST0) (source "DWaRFBaR.amirx"))
(copyfiles (dest #DEST0) (source "DWaRFBoMB.amirx"))
(copyfiles (dest #DEST0) (source "DWaRFCoPY.amirx"))
(copyfiles (dest #DEST0) (source "DWaRFiNFO"))
(copyfiles (dest #DEST0) (source "DWaRFiNSULT.amirx"))
(copyfiles (dest #DEST0) (source "DWaRFiNSULT.txt"))
(copyfiles (dest #DEST0) (source "DWaRFKiCK.amirx"))
(copyfiles (dest #DEST0) (source "DWaRFKiLL.amirx"))
(copyfiles (dest #DEST0) (source "DWaRFLoG.amirx"))
(copyfiles (dest #DEST0) (source "DWaRFMBaN.amirx"))
(copyfiles (dest #DEST0) (source "DWaRFMDEoP.amirx"))
(copyfiles (dest #DEST0) (source "DWaRFMeNU"))
(copyfiles (dest #DEST0) (source "DWaRFMHiDE.amirx"))
(copyfiles (dest #DEST0) (source "DWaRFMINViTE.amirx"))
(copyfiles (dest #DEST0) (source "DWaRFMINViTE2.amirx"))
(copyfiles (dest #DEST0) (source "DWaRFMKBaN.amirx"))
(copyfiles (dest #DEST0) (source "DWaRFMKiCK.amirx"))
(copyfiles (dest #DEST0) (source "DWaRFMMSg.amirx"))
(copyfiles (dest #DEST0) (source "DWaRFMoP.amirx"))
(copyfiles (dest #DEST0) (source "DWaRFMuNVOiCE.amirx"))
(copyfiles (dest #DEST0) (source "DWaRFMVOiCE.amirx"))
(copyfiles (dest #DEST0) (source "DWaRFQUiT.amirx"))
(copyfiles (dest #DEST0) (source "DWaRFRAWaY.amirx"))
(copyfiles (dest #DEST0) (source "DWaRFREPLy.amirx"))
(copyfiles (dest #DEST0) (source "DWaRFSCaLE.amirx"))
(copyfiles (dest #DEST0) (source "DWaRFTaLK.amirx"))
(copyfiles (dest #DEST0) (source "DWaRFConfig.dat"))
(copyfiles (dest #DEST0) (source "DWaRFData.Rexx"))
(copyfiles (dest #DEST0) (source "DWaRFEncode.AmIRX"))
(copyfiles (dest #DEST0) (source "DWaRFSound.AmIRX"))
(copyfiles (dest #DEST0) (source "DWaRFx.AmIRX"))
(copyfiles (dest #DEST0) (source "DWaRFQUOTe.AmIRX"))
(copyfiles (dest #DEST0) (source "SexyTale.txt"))
(copyfiles (dest #DEST0) (source "DWaRFDef.AmIRX"))
(copyfiles (dest #DEST0) (source "DWaRFFriends.AmIRX"))
(copyfiles (dest #DEST0) (source "MCF.Encrypt"))
(copyfiles (dest #DEST0) (source "Readme.dfx"))

; *** Enter Path to copy Doc to ***
(complete 30)

(set #DEST1
  (askdir
    (prompt "Where should the DWaRFx Docs be installed?.")
    (help (cat @askdir-help))
    (default "AMIRC:Docs")
  )
)

; *** Which docs ? ***
(complete 40)

(set #DOC
 (askoptions
  (prompt "Select type of documentation")
   (help (cat @askoptions-help))
    (default 2)
    (choices "MUI GUI Version Docs" "Command Driven Version Docs")
  )
)

; *** Copy Doc(s) to given path ***
(if (IN #DOC 0) (copyfiles (source "") (dest #DEST1) (pattern "readme#?")))
(if (IN #DOC 1) (copyfiles (source "") (dest #DEST1) (pattern "DWaRFx.doc#?")))

(complete 50)
; *** Copy DWaRFx innitiation file to AmIRC:rexx ***
(message
"Copying DWaRFx Innitiation file to AmIRC:Rexx\n"
"Copying Other DWaRFx Related files to RAM:\n"
)
(copyfiles (pattern "Connected.AmIRX")
 (source ""
  (dest "AmIRC:Rexx/"
    (prompt
     (cat
       "Copying some hilariously funny DWaRFx files to their places"

        )
      )
    )
  )
)

(complete 60)
; *** Copy DWaRFx.default to ENV: ***

(copyfiles (pattern "DWaRFx.default")
 (source ""
  (dest "ENV:"
    (prompt
     (cat
       "Copying some ridiculously funny DWaRFx files to their places "

        )
      )
    )
  )
)
(complete 70)
; *** Copy DWaRFx.amirx to RAM: ***

(copyfiles (pattern "DWaRFx.amirx")
 (source ""
  (dest "RAM:"
    (prompt
     (cat
       "Copying some unbelievably funny DWaRFx files to their places"

        )
      )
    )
  )
)

(complete 80)
; *** Last Message ***
(message
"This is DWaRFx v2.4  - By Gareth Murfin & David Newton.\n\n"
"Dont Forget to print off the list of commands.\n"
"Visit #AmIRC on GalaxyNet for full support!\n"
"If DWaRFx fails to work (hehe Not a chance!) email gazy@globalnet.co.uk.\n\n"
"Have fun with DWaRFx and send us some WhippedCream (see Docs)\n\n"
)
(complete 90)
; *** Final Message ***
(message
"\n\n NOW ALL BACKDOORS HAVE BEEN REMOVED.........\n\n"
"\n\n EVEN THE AUTHORS ARE NOW VUNERABLE TO DWaRFx ;-)    \n\n"
"\n\n Now Go and terrorise some users with DWaRFx! ;)                \n\n"
)
(complete 100)