;# Irritator Installation Script
;# By G. Griffiths (26-08-99)

(complete 0)
(message "This utility will install Irritator\n"
         "on your system. Press Proceed to continue."
)
(set #dest
  (askdir
    (prompt "Where should I put the Irritator executables? NO directory will be created!")
    (help "Choose where the Irritator programs should be installed to."
          "IrritatorPrefs HAS to be installed to C:"
    )
    (default "C:")
  )
)
(working "Copying executables to "#dest"...")
(copyfiles
  (source "Irritator")
  (dest #dest)
  (infos)
)
(copyfiles
  (source "IrritatorPrefs")
  (dest "C:")
  (infos)
)
(makedir "ENVARC:Irritator"
  (help "This NEEDS to be created, else it won't work!")
  (infos)
) 
(complete 50)
(working "Copying requester texts to ENVARC:Irritator")
(copyfiles
  (prompt "Copy requester texts to ENVARC:Irritator ?")
  (source "Irritator.txts")
  (dest "ENVARC:Irritator")
)
(complete 75)
(working "Copying commands to ENVARC:Irritator")
(copyfiles
  (prompt "Copy commands to ENVARC:Irritator ?")
  (source "Irritator.cmds")
  (dest "ENVARC:Irritator")
)
(complete 100)
(exit)