;
; $VER: Install-EasyADF 1.0 (01/07/06) Leaman Computing 
;
; Copyright (C) 2006 Leaman Computing and may not be distributed without written prior consent
; 
(complete 0)

(set #installertitle "EASYADF INSTALLER v1.0\n")

(onerror
(USER 2)
(IF (> @ioerr 0)
(Message ("\n\nA Dos Error %ld has occured" @ioerr)
"\n\n\n\nPlease consult your Workbench manual"
(" for further details, or type Fault %ld from a shell." @ioerr))
)
)
(User 2)
;
;*****components*******
(message #installertitle
" \n-Thank you for supporting AmigaKit.com-\n\n"
"This installer will copy EasyADF, LHA and TransADF\n to your hard disk drive"
)
(PROCEDURE RESELECT
(SET components
(askoptions
(Prompt "Which files do you wish to install?")
(help (cat 
"\n"
@askoptions-help))
(choices
"TransADF & LHA"
"EasyADF"
)
(default -1)
)
)
)

(RESELECT)
(while (= components 0)
(RESELECT)
)

(IF (IN Components 0)
(
       (copyfiles
           (prompt "\nInstalling file TransADF into SYS:C/ directory\n")
           (help )
           (source "C/TransADF")
           (confirm)
           (infos)
           (dest "SYS:C/")
        )
        (complete 30)  
       (copyfiles
           (prompt "\nInstalling file LHA into SYS:C/ directory\n")
           (help )
           (source "C/LHA")
           (confirm)
           (infos)
           (dest "SYS:C/")
        )
        (complete 40)  
    )
)

(IF (IN Components 0)
(
(set #EasyADFDir
    (askdir
        (prompt "\nWhere do you wish to install EasyADF?\n(a new directory will be created)\n" )
        (help "This directory will specify where the EasyADF drawer will be placed.")
        (default @default-dest)
        (newpath)
    )
)

(set @default-dest #EasyADFDir)

(makedir (tackon #EasyADFDir "EasyADF") (infos) )

(makeassign "EasyADF" (tackon #EasyADFDir "EasyADF") (safe))

   (copyfiles
           (prompt "\nInstalling EasyADF\n\n\n")
           (help )
           (source "EasyADF")
           (infos)
           (all)
           (dest "EasyADF:")
    )    

))


(complete 100)

(Message "\nINSTALLATION COMPLETE\n"
   "EasyADF © 2006 Leaman Computing\n\n"
   "EasyADF Install © 2006 Leaman Computing\n\n")