; Installer script for FontDT
; $VER: Install FontDT 39.2 (20.5.95)

(complete 0)

(set @l-dest "LIBS:DataTypes/")
(set @permanent-dest "DEVS:DataTypes/")
(set @default-dest "SYS:Storage/DataTypes/")

(set #dt "Libs/DataTypes/font.datatype")
(set #recog "Devs/DataTypes/")

; ***************************************************************************
; English strings

(set #bad-kick
	(cat "You must have AmigaDOS 3.0 or higher to use FontDT!"))

(set #welcome
	(cat "\nFontDT installation\n\n\n"
       "This script installs FontDT 1.1\n"
       "on your Amiga.\n\n\n\n"
       "FontDT is\n"
       "Copyright © 1995 Michael Letowski\n"
       "All rights reserved.\n\n"))

(set #where-driver
	(cat "Should FontDT be installed permanently?"))

(set #where-help
	(cat "\nDataTypes can be installed as permanently enabled"
	     " or manually selectable.\n"
       "Pemanently enabled means that the DataType is always"
       " ready for use.\n"
       "Manually Selectable means that the datatype has to be"
       " run before it can be used.\n"))

; ***************************************************************************
; Install FontDT

; Check AmigaDOS version
(set #version (/ (getversion) 65536))
(if (< #version 39)
	(
		(abort #bad-kick)
	)
)

(message #welcome)

(welcome)
(set old_level @user-level)

(user 2)
(set #perm
	(askbool
		(prompt #where-driver)
		(help #where-help)
		(default 0))
)
(if #perm
	(set @recog-dest @permanent-dest)
	(set @recog-dest @default-dest)
)

; Do copy
(user old_level)

; Copy library
(copylib
	(source #dt)
	(dest @l-dest)
)
(complete 50)

; Copy recog
(copyfiles
	(source #recog)
	(dest @recog-dest)
	(all)
)
(complete 100)

(set @default-dest "")
(exit)