;===============================================================================
; EasyACDDA ©2002 by Alessandro Marinuzzi [Alecos] - EasyACDDA is EuroWare
; EasyACDDA-Install ©2002 by Alessandro Marinuzzi [Alecos]
; $VER: EasyACDDA-Install 1.1 - (14/10/2002) by Alecos
;===============================================================================

(COMPLETE 0)
 
(welcome "\nThis installer script will install EasyACDDA and all related files on your HD.\nEasyACDDA is EuroWare - EasyACDDA ©2002 by Alessandro Marinuzzi [Alecos]\nEMail: alecos@ltsnet.it")

;===============================================================================
; Procedure which will install the program EasyACDDA into your favorite drawer
;===============================================================================
 
(set @default-dest
 (askdir
  (prompt "Where do you want to install EasyACDDA ?\nThe EasyACDDA drawer will be created if you want.")
  (help @askdir-help)
  (default "Sys:Utilities/")
 )
)

(COMPLETE 10)

(set easydir
 (askbool
  (prompt "Do you want a drawer for EasyACDDA ?")
  (help @askbool-help)
  (default 1)
  (choices "Yes" "No")
 )
)

(COMPLETE 20)

(if (= easydir 1)
 (makedir (tackon @default-dest "EasyACDDA") (infos))
)

(if (= easydir 1)
 (set @default-dest (tackon @default-dest "EasyACDDA"))
)

(COMPLETE 30)

(copyfiles
 (source "EasyACDDA")
 (dest @default-dest)
 (help @copyfiles-help)
 (infos)
 (noposition)
)

(COMPLETE 40)
 
;===============================================================================
; Procedure which will install the right background image for EasyACDDA
;===============================================================================

(set easyimage
 (askchoice
  (prompt "Which type of background image do you want to install ?")
  (help @askchoice-help)
  (choices "24 Bit image for Amiga with a Graphic Board" "5 Bit image for Amiga with AGA")
  (default 0)
 )
)

(COMPLETE 50)

(if (= easyimage 0)
 (copyfiles
  (source "Images/EasyACDDA.24bit")
  (dest @default-dest)
  (help @copyfiles-help)
  (newname "EasyACDDA.bkg")
 )
)
 
(if (= easyimage 1)
 (copyfiles
  (source "Images/EasyACDDA.5bit")
  (dest @default-dest)
  (help @copyfiles-help)
  (newname "EasyACDDA.bkg")
 )
)
 
(COMPLETE 60)
 
;===============================================================================
; Procedure which will install all docs related to EasyACDDA (EasyACDDA.readme)
;===============================================================================
 
(copyfiles
 (source "EasyACDDA.readme")
 (dest @default-dest)
 (help @copyfiles-help)
 (infos)
 (noposition)
)

(COMPLETE 70)
 
;===============================================================================
; Procedure which will install all executable files supplied with EasyACDDA
;===============================================================================
 
(copyfiles
 (source "C/")
 (dest "C:")
 (help @copyfiles-help)
 (all)
)

(COMPLETE 80)
 
;===============================================================================
; Procedure which will install all docs for the files supplied with EasyACDDA
;===============================================================================
 
(set easydoc
 (askbool
  (prompt "Copy the docs for the files supplied with EasyACDDA ?")
  (help @askbool-help)
  (default 1)
  (choices "Yes" "No")
 )
)

(COMPLETE 90)

(if (= easydoc 1)
 (copyfiles
  (source "Docs")
  (dest (tackon @default-dest "Docs"))
  (help @copyfiles-help)
  (all)
 )
)

;===============================================================================
; Procedure which will quit the installation - EasyACDDA installation completed
;===============================================================================
 
(COMPLETE 100)

(exit "NOTE:\n\nThe users who own a graphic board have to add the task \"Gui4Cli\" to the\npreferences of PicDT (PictureDatatypePrefs) before launching EasyACDDA !")