;******************************************************************************
;
; $VER: 68060_Installer 1.03L (September-3-1997) 
; Installer by Robert C. Reiswig ©1996, 1997
; A4060 CyberStorm MKII 68060 by:
;   Amiga Technology Australia
;   17 Thompson Circuit
;   Mill Park Vic 3082
;   Australia
;
; This Installer is for the A4060 Accelerator Board for Amiga 3000/4000(T) 
; 
; Changes, suggestions or problems:
; AmigaTek@icplus.net.au
;******************************************************************************


;********************************************************************
; English Strings
;********************************************************************
(set #about "\n\n\n\nWelcome to Amiga Tech Aust - A4060\n\n\n68060 Accelerator Board\n\n\nFor The Amiga Computer")
(set #oktodelete040 "Ok to delete the older 040 lib that has been backed-up?")
(set #whereC "Where do you wish to install the 68060 system commands. 'C:' is the default.")
(set #whereCT "Where do you wish to install the CyberTools. A directory called 'CyberTools' will be created there.")
(set #byebye1 "\n\n\nThe 68060 Software Has Been Installed.")
(set #byebye2 "\n\n\nThank You For Purchasing The A4060 68060 Accelerator, Please Remove The Install Disk And Reboot The Amiga.")
(set #noenforcer "\n\nNOTE:\n\nEnforcer MUST NOT Be Used With A4060 060 Libs Because Of Incompatibilties. You Can Use CyberGuard To Replace It.")

;********************************************************************
; German Strings
;********************************************************************
(if (= @language "deutsch")
( 
 (set #FrankORamma "Hi")
)
)


;********************************************************************
; Hello
;********************************************************************
(message #about)
(welcome) 


;********************************************************************
; Check to see if 68040 libs is there, if so ask to backup
;********************************************************************
(if (> (exists "libs:68040.library") 0)
  (
   (set vernum1 (getversion "libs:68040.library"))
   (set ver1 (/ vernum1 65536)) (set rev1 (- vernum1 (* ver1 65536) ) )
   (set old_lib (cat ver1 "." rev1))
   
   (copyfiles (source "libs:68040.library")
              (dest "libs:") 
              (infos)
              (newname (cat "68040.library." old_lib))
   )

   (delete "libs:68040.library" (prompt #oktodelete040) (help #oktodelete040) (confirm) (infos))

  )
)

;********************************************************************
; Copy new libs
;********************************************************************
(foreach "Libs" "#?.library"
   (copylib (source (tackon "Libs" @each-name)) (dest "libs:") (optional "nofail") ) 
)


;********************************************************************
; Ask where to put The C commands
;********************************************************************
(set whereC    (askdir (prompt #whereC)
		        (help    #whereC)
     		        (default "C:")
               )  
)

(copyfiles (source "C/Cpu060") (dest whereC) (optional "nofail") (infos)) 
(copyfiles (source "C/Rom2Fast") (dest whereC) (optional "nofail") (infos)) 

;********************************************************************
; Ask where to put The CyberTools Dir
;********************************************************************
(set whereCT   (askdir (prompt #whereCT)
		        (help    #whereCT)
     		        (default "SYS:")
               )  
)

(if (< (exists (tackon whereCT "CyberTools")) 2) (makedir (tackon whereCT "CyberTools") (infos)) )
(copyfiles (source "CyberTools") (dest (tackon whereCT "CyberTools")) (optional "nofail") (infos) (all)) 

(if (> (exists "Barfly") 0)
 (
  (if (< (exists (tackon whereCT "Barfly")) 2) (makedir (tackon whereCT "Barfly") (infos)) )
  (copyfiles (source "Barfly.info") (dest whereCT) (optional "nofail") ) 
  (copyfiles (source "Barfly") (dest (tackon whereCT "Barfly")) (optional "nofail") (infos) (all)) 
 )
)
;********************************************************************
; End Bye 
;********************************************************************
(if (> (exists ("c:multiview")) 0) (set #mpath "c:") )
(if (> (exists ("sys:Utilities/multiview")) 0) (set #mpath "sys:Utilities") )

(run (cat "run " #mpath "/multiview 68060.txt") )

(set @default-dest "sys:")

(message #noenforcer)

(message #byebye1)

(exit #byebye2)