;************************************************
;*   AnimatED install script v1.2a (26-Apr-97)   *
;************************************************

;*************
; Set strings
;*************

(set #where-prompt
(cat "Where should I install AnimatED? \n (No directory will be created!)"
))

;*************
; Ask dest dir
;*************

(set where (askdir (prompt #where-prompt)
                   (help @askdir-help)
                   (default @default-dest)
           )
)

(set @default-dest where)

;***********
; Copy font
;***********

(copyfiles (source "Fonts") (dest "SYS:Fonts") (all))
(complete 5)

;************
; Copy files
;************

(copyfiles (source "AnimatED") (dest where))
(complete 40)
(copyfiles (source "AnimatEDPlay") (dest where))
(complete 60)
(copyfiles (source "AnimatED.Guide") (dest where))
(complete 70)
(copyfiles (source "AED_OrderForm") (dest where))
(copyfiles (source "AED_OrderForm.info") (dest where))
(complete 75)
(copyfiles (source "ReadMe") (dest where))
(copyfiles (source "ReadMe.info") (dest where))
(copyfiles (source "AnimComp.txt") (dest where))
(copyfiles (source "AnimComp.txt.info") (dest where))
(complete 80)

;****************************
; Ask which and install icons
;****************************
(set #ICONS
	(askchoice
	(prompt "\nWhich type of icons do want to install?")
	(help "\nHi! Just select one of the icon types.")
 	(default 0)
	(choices
		"#1: MagicWB 8 colors"
		"#2: 4 colors (icons created by Brian Jones)"
		)
	)
)

(if (= #ICONS 0)
 (copyfiles (source "AnimatED.info") (dest where))
)
(if (= #ICONS 0)
 (copyfiles (source "AnimatEDPlay.info") (dest where))
)
(if (= #ICONS 0)
 (copyfiles (source "AnimatED.Guide.info") (dest where))
)

(if (= #ICONS 1)
 (copyfiles (source "icons/AnimatED.info") (dest where))
)
(if (= #ICONS 1)
 (copyfiles (source "icons/AnimatEDPlay.info") (dest where))
)
(if (= #ICONS 1)
 (copyfiles (source "icons/AnimatED.Guide.info") (dest where))
)

;**************************
; Copy keyfile if available
;**************************

(if (= (exists "AnimatED.key") 1)
 (copyfiles (source "AnimatED.key") (dest where))
)

;********************
; Ask and copy extras
;********************

(set name
 (askbool
 (prompt "\nDo you want to install the example?")
 (help "\nIt's up to YOU!")
 )
)

(if (= name 1)
  (copyfiles (source "Example") (dest (tackon where "Example")) (all))
)

(complete 100)

;****
;End
;****