; Installer script for UNIT v1
; By Andrew Edmonds
; July '97

(complete 0)

(message 
  "\nUltimate New Internet Tool v1 - This is Freeware!"
  "\n"  
  "\nSee the doc for more info.\n"
  "\nWritten By Andrew Edmonds"
  "\n"  
  "\n"
  "\nVersion For Amiga Format CD"
)

(complete 3)

(set #DEST0
  (askdir
    (prompt "Where do you want to install UNIT? A drawer will be created there.")
    (help (cat @askdir-help)
    )
    (default "Work:")
  )
)

(complete 10)

(set #DEST (tackon #DEST0 "UNIT"))
(makedir #DEST (infos))
(makeassign "UNIT" #DEST)
(copyfiles (dest #DEST) (source "Deckrunner"))
(copyfiles (dest #DEST) (source "Install"))
(copyfiles (dest #DEST) (source "Install.info"))
(copyfiles (dest #DEST) (source "UNIT"))
(copyfiles (dest #DEST) (source "UNIT.info"))
(copyfiles (dest #DEST) (source "UNIT.prg"))
(makedir "UNIT:Images")
(copyfiles (dest "UNIT:Images/") (source "Images")
(all))
(makedir "UNIT:Docs")
(copyfiles (dest #DEST) (source "Docs.info"))
(copyfiles (dest "UNIT:Docs/") (source "Docs/UNIT_Readme"))
(copyfiles (dest "UNIT:Docs/") (source "Docs/UNIT_Readme.info"))
(copyfiles (dest "UNIT:Docs/") (source "Docs/UNIT_Guide")) 
(copyfiles (dest "UNIT:Docs/") (source "Docs/UNIT_Guide.info"))
; Cando library

(complete 60)

(if (= (exists "LIBS:cando.library") 0)
  (copylib
    (source "Libs/cando.library")
    (dest "LIBS:")
    (confirm)
    (prompt "\n\nInstall Cando.library?\n")
    (help
     (cat
        "Cando.library is required to run UNIT! "
        @copylib-help
      )
    )
  )
)

; Candogfx.library

(complete 80)

(if (= (exists "LIBS:Candogfx.library") 0)
  (copylib
    (source "Libs/Candogfx.library")
    (dest "LIBS:")
    (confirm)
    (prompt "\n\nInstall CandoGfx library?\n")
    (help
      (cat
        "CandoGfx.library is required to run UNIT! "
        @copylib-help
      )
    )
  )
)

(complete 100)
(run "assign UNIT: Remove")
; Finished