(complete 0)

;Check kickver
(if (< (/ (getversion) 65536) 37)
   (abort ("\nYou must have kickstart 2.04+ to run Black Book")
   )
)

(set sdir (pathonly @icon))
(set @default-dest "SYS:Tools")
(set #install-msg
(cat "IMPORTANT NOTE\n"
	"The following items are required to run Black Book\n\n"
	"Reqtools © 1991-1994 Nico Françis\n"
	"              1995-1996 Magnus Holmgren\n\n"
	"All rights Reserved\n"
	"\nPlease refer to the Amigaguide© file for futher info."
))
(set ID_dest (askdir
      (prompt "Where should Black Book be installed?")
      (help "Select a drawer where you want to install Black Book")
      (default @default-dest)
   )
)
(set ans (askbool 
   (
      (prompt "\nDo you want to make a new drawer called Black_Book?  "
               "(Please note that the documentation is the only other "
               "file, and it may be placed elsewhere if you wish)")
         (help "")
      )
   )
)
(if (= 1 ans)
   (
      (makedir (tackon ID_dest "Black_Book") (infos))
      (set ID_dest (tackon ID_dest "Black_Book"))
   )
)

(set @default-dest ID_dest)

(working ("Copying Black Book"))
(copyfiles
   (source (tackon sdir "Black_Book"))
   (dest ID_dest)
   (help @copyfiles-help)
   (infos)
)
(complete 70)
(set Doc_dest (askdir
      (prompt "Where should Black Book's documentation be installed?")
      (help "Select a drawer where you want to install the docs")
      (default @default-dest)
   )
)
(copyfiles
   (source (tackon sdir "Black_Book.guide"))
   (dest Doc_dest)
   (help @copyfiles-help)
   (infos)
)
(complete 100)
(message #install-msg)
(exit)