; ** 
; **  MagnifiCAD installation scipt.
; **
; **  v1.1, (C)1995-96 Anders Granli.
; **  
; **  23.01.95

(welcome "Welcome to the MagnifiCAD installation")


(message ("\nWelcome to MagnifiCAD!\n\nYou need about 650KB of free space on your\n hard drive for this installation.") )

; **
; ** Check kickstart version
; **

(set version (/ (getversion) 65536))

(if(< version 37)
(Exit "\nYou need at least Workbench 2.0\nto run MagnifiCAD.\n" ) 
)

(if (< version 39)
   (set cont 
      (askbool 
         (prompt (cat "\nYou have kickstart 2.0.\n\n "
            "MagnifiCAD will work under 2.0,\n "
            "but may have some slight problems.\n "
            "Proceed to Install?\n " ))
         (help (cat "\nIf you don't have Kickstart 3.0 or\n"
                    "higher, some things just won't work." ))
      )
   )
)

; ** 
; ** Check processor
; ** 

(
   (set proc (database "cpu"))
)

; ** 
; ** Ask where to install the program
; **

(set @default-dest "Work:")

(set Destination
   (askdir
      (prompt (cat "\nSelect the drawer where you would like\n"
              "the drawer containing\nMagnifiCAD to be installed.\n") )
      (help   (cat "\nA drawer named MagnifiCAD will be created in the\n"
              "drawer you select, and the program and all the files\n"
              "will be copied into this new drawer.") ) 
      (default @default-dest)
   )
)

;(if(<>(exists Destination) 2)
;   (makedir Destination (infos)))

(set @default-dest Destination)

(complete 10)

(set @default-dest 
   (tackon Destination "MagnifiCAD")
)

(makedir @default-dest
   (prompt "Creating MagnifiCAD drawer.")
   (infos)
)

(complete 20)

; ** 
; ** Assign
; **
    
(makeassign "MagnifiCAD" @default-dest)
(complete 30)

; **
; ** Fonts
; **

(set installfont
   (askbool 
      (prompt (cat "\nMagnifiCAD needs the newtopaz.font\n\n "
         "Shall I install the font in your FONTS: drawer?" ))
      (help "This copies the font to FONTS:")
   )
)

(if installfont 
   (copyfiles
      (prompt "Copying newtopaz.font to Fonts: directory")
      (help @copyfiles-help)
      (source "Fonts")
      (all)
      (dest "Fonts:")
      (fonts)
   )
)
(complete 50)      

; **
; **  Install program
; **

(if (< proc 68020)
   (copyfiles
      (prompt "Copying MagnifiCAD program...\n\n(68000 version)")
      (source "magnifiCAD.000")
      (dest "MagnifiCAD:")
      (newname "magnifiCAD")
      (infos)
      (help @copyfiles-help)
   )
   (copyfiles
      (prompt "Copying MagnifiCAD program...\n\n(68020 version)")
      (source "magnifiCAD")
      (dest "MagnifiCAD:")
      (infos)
      (help @copyfiles-help)
   )
)

(copyfiles
   (prompt "Copying MagnifiCAD files to DEST:")
   (help @copyfiles-help)
   (choices "ReadMe"
            "Drawings"
            "Symbols"
            "Prefs"
            "Docs"
   )
   (infos)
   (source "")
   (dest "MagnifiCAD:")
)

(copyfiles
   (choices "Icons")
   (source "")
   (dest "MagnifiCAD:")
)


(copyfiles
   (choices "Registration")
   (infos)
   (source "")
   (dest "MagnifiCAD:Docs")
)
(complete 80)

(copyfiles 
   (prompt "Copying Drawings & Symbols")
   (source "Drawings/")
   (pattern "#?")
   (dest "MagnifiCAD:Drawings/")
   (infos)
)

(copyfiles 
   (source "Symbols/") 
   (all)
   (dest "MagnifiCAD:Symbols/") 
   (infos)
)

(copyfiles 
   (source "Prefs/") 
   (pattern "#?")
   (dest "MagnifiCAD:Prefs") 
   (infos)
)

(copyfiles 
   (source "Docs/") 
   (pattern "#?")
   (dest "MagnifiCAD:Docs") 
   (infos)
)

(copyfiles 
   (source "Icons/") 
   (pattern "#?")
   (dest "MagnifiCAD:Icons") 
)
(complete 90)

; AREXX
;(set rexxdir
;   (askdir
;      (prompt "Where shall I put the ARexx scripts?")
;      (default "REXX:")
;      (newpath)
;   )
;)

;(copyfiles
;   (prompt "Copying ARexx scripts...")
;   (pattern "#?.rexx")
;   (source "ARexx/")
;   (dest rexxdir)
;)

(complete 100)