; Installation script for PubScr 1.0
; (c)1994 by Codex Design.
; uses the Commodore Installer
; ---------------------------------------------------
; (w)6.2.1994 by Hans Bühler

; --------------------
; hallo und proceed...

(SET			KickVersion	(/ (GETVERSION) 65536))

(IF (< KickVersion 37)
(
  (MESSAGE		"Sorry, PubScr1.0 requires Kickstart 2.04 (V37)\n"
  			"or higher. Update soon !")
  (EXIT			"Bye" (QUIET))
))

(MESSAGE		"\n\n"
			"·C·O·D·E·X· ·D·E·S·I·G·N· ·S·O·F·T·W·A·R·E·\n"
			"presents:\n"
			"\n"
			"PubScr1.0\n"
			"* create a public screen of your own *\n"
			"\n"
			"PubScr allows to open a fully user-defined public\n"
			"screen for alien visitor windows.\n"
			"Refer to the documents for further information.\n"
			"(c)1994 Codex Design Software")

; ---------------------
; ziel directory wählen

(SET @default-dest (ASKDIR	(PROMPT		"Please select destination\ndirectory for the executable:")
				(HELP		@askdir-help)
				(DEFAULT	@default-dest)	))

(SET Target @default-dest)

; --------------------------
; kopiere pubscr & info file

(COPYFILES			(SOURCE		"PubScr")
				(DEST		@default-dest)
				(INFOS)
				(OPTIONAL	"fail" "force")	)

(COMPLETE 10)

(SET a1 (TACKON Target "PubScr"))

(TOOLTYPE			(DEST		a1)
				(SETTOOLTYPE	"STDSET" "NONE")
				(NOPOSITION)			)

(COMPLETE 15)

; --------------------
; kopiere default icon

(IF (= 0 (EXISTS		"ENVARC:PubScr"))
(
  (MAKEDIR			"ENVARC:PubScr")
  (COMPLETE 20)
))

(COPYFILES			(SOURCE		"icons/DefPubScr_project.info")
				(DEST		"ENVARC:PubScr"))

(COMPLETE 25)

; -------------------------------------
; locate & copy amigaguide, set dos var

(IF (ASKBOOL			(PROMPT		"\n\n"
						"Do you want me to copy the\n"
						"amigaguide documents to your system, too ?")
				(HELP		@askbool-help)
				(DEFAULT	1)		)
(
  (SET AGDir (ASKDIR		(PROMPT		"Please select a directory where\nyou want me to place\nthe amigaguide docs:")
  				(HELP		@askdir-help)
				(DEFAULT	@default-dest)	))

  (COPYFILES			(SOURCE		"PubScr.guide")
				(INFOS)
				(DEST		AGDir)		)

  (COMPLETE 30)

  (TEXTFILE			(DEST		"ENVARC:PubScr/HelpFile")
				(APPEND		(TACKON AGDir "PubScr.guide") ) )
))

(COMPLETE 35)

; --------------------------
; copy all libraries to disk

(SET LibName "diskfont.library")

(IF (= 0 (EXISTS (TACKON "LIBS:" LibName)))
  (COPYFILEs			(SOURCE		(TACKON "libs/" LibName))
				(DEST		"LIBS:")
				(OPTIONAL	"fail" "force")	)
)
(COMPLETE 60)


(SET LibName "amigaguide.library")

(IF (= 0 (EXISTS (TACKON "LIBS:" LibName)))
  (COPYFILEs			(SOURCE		(TACKON "libs/" LibName))
				(DEST		"LIBS:")
				(OPTIONAL	"fail" "force")	)
)
(COMPLETE 75)


(SET LibName "gadtoolsbox.library")

(IF (= 0 (EXISTS (TACKON "LIBS:" LibName)))
  (COPYFILEs			(SOURCE		(TACKON "libs/" LibName))
				(DEST		"LIBS:")
				(OPTIONAL	"fail" "force")	)
)
(COMPLETE 90)


(SET LibName "reqtools.library")

(IF (= 0 (EXISTS (TACKON "LIBS:" LibName)))
  (COPYFILEs			(SOURCE		(TACKON "libs/" LibName))
				(DEST		"LIBS:")
				(OPTIONAL	"fail" "force")	)
)
(COMPLETE 100)


; ------------
; Over and out

(EXIT	"\n"
	"I hope that you will use and enjoy this\n"
	"little program.\n"
	"If you have problems, contact me !\n"
	"\n"
	"Codex Design Software, Amiga")