;;
;; Install_Istar - Istar installation script for Installer
;;
;; Copyright © Andrew Basden, June 1996
;;
;;     Installer and Installer project icon
;;     (c) Copyright 1991-93 Commodore-Amiga, Inc.  All Rights Reserved.
;;     Reproduced and distributed under license from Commodore.
;;
;;     INSTALLER SOFTWARE IS PROVIDED "AS-IS" AND SUBJECT TO CHANGE;
;;     NO WARRANTIES ARE MADE.  ALL USE IS AT YOUR OWN RISK.  NO LIABILITY
;;     OR RESPONSIBILITY IS ASSUMED.
;;

(set @path
	(askdir 
 		(default "work:")
 		(prompt "Where do you want to install Istar (a new Istar diretory will be created here) ?")
		(help @makedir-help)
	)
)

(set @dest (tackon @path "Istar"))

(if (NOT (exists @dest)))
  (makedir @dest 
  	(infos)
  )

(set @dest1 (tackon @dest "KBs"))

(if (NOT (exists @dest1)))
  (makedir @dest1 
  	(infos)
  )


(set @dest1 (tackon @dest "Screens"))

(if (NOT (exists @dest1)))
  (makedir @dest1 
  	(infos)
  )

(set @dest1 (tackon @dest "Dump"))

(if (NOT (exists @dest1)))
  (makedir @dest1 
  	(infos)
  )

(if (NOT (exists "fonts:topaz")))
  (makedir "fonts:topaz" 
	(infos)
  )

(copylib
	(prompt "Install iff library?")
	(help @copyfiles-help)
	(source "iff.library")
	(dest "libs:")
	(confirm)
)


(copyfiles
	(prompt "Install Istar fonts?")
	(help @copyfiles-help)
	(source "fonts")
	(dest "fonts:")
	(pattern "#?")
        (files)
	(confirm)
)


(if (NOT (exists "fonts:topaz")))
  (makedir "fonts:topaz" 
	(infos)
  )

(copyfiles
	(source "fonts/topaz")
	(dest "fonts:topaz")
	(pattern "#?")
        (files)
)

(copyfiles
	(help @copyfiles-help)
	(source "")
	(dest @dest)
        (pattern "Istar#?")
	(files)
        (infos)
	(confirm)
)

(copyfiles
	(help @copyfiles-help)
	(source "docs")
	(dest @dest)
        (pattern "#?")
	(files)
        (infos)
	(confirm)
)


(set @kbt-assign (cat "assign KBTools: " @dest))


(startup "Istar"
	(prompt "KBTools assign needs to be added to the \"S:user-startup\".")
	(help "Not strictly necessary, but avoids annoying requester.")
	(command @kbt-assign)

)