; InfoBoot Installation Script v1.07
; Written By Edward Farrow (Part Of The InfoBoot v1.24 Package)
(complete 0)
(user 3)
(onerror
(IF (> @ioerr 0)
(Message ("\n\nThe Follow Dos Error Has Occured: %ld" @ioerr)
 "\n\n\nPlease Consult Your Workbench Manual For Details\n"
 "Or Type \"Fault <number>\" In Shell/CLI For Information"))
)
(Message "\n\nInfoBoot v1.24\n\n\n"
         "Display System Information At Startup\n\n\n"
         "InfoBoot Copyright 1996/7 Edward Farrow\n"
         "All Rights Reserved."
)

(complete 25)
(set exedest
   (askdir
      (prompt "Where do you wish to install InfoBoot?")
   (help @askdir-help)
      (default "SYS:Utilities/")
   )
)
(copyfiles
   (prompt "Copying InfoBoot...")
   (source "InfoBoot")
   (dest exedest)
)

(set #askoptions-help
   "You may select as many of the options as you wish to install."
)
(complete 50)
(set docdest
   (askdir
      (prompt "Where do you wish to install the documentation?")
      (help @askdir-help)
      (default "SYS:")
   )
)

(complete 75)
(set installdoc
   (askoptions
      (prompt "Which documentation would you like to install?")
      (help #askoptions-help)
      (choices
         " AmigaGuide  (English)"
         "Standard Text (English)"
       )
   )
)

(if (in installdoc 0)
   (copyfiles
      (prompt "Copying Documentation...")
      (source "Docs/English/InfoBoot.guide")
      (infos)
      (dest docdest)
   ))
(if (in installdoc 1)
   (copyfiles
      (prompt "Copying Documentation...")
      (source "Docs/English/InfoBoot.doc")
      (infos)
      (dest docdest)
   ))

(complete 90)

(message "\n\nI shall now create the directory\n"
         " `S:InfoBoot/' and install `DATA' to it..")

(complete 95)
   (makedir "S:InfoBoot")
   (copyfiles
      (prompt "Copying DATA Module...")
         (source "IB/DATA")
         (dest "S:InfoBoot/")
   )
(complete 100)
(message "\n\nInfoBoot is now installed!"
         "\n\nRead the documentation for further details!")

