; QBox installation script
; copyright 1995 T.L.Bullock

; Report 0% complete
(complete 0)       

; Request QBox prog destination
(set qb-dest        
  (askdir
    (prompt "Where do you want the QBox program installed?")
    (help @askdir-help)
    (default @default-dest)
  )
)

; Assign selection to default
(set @default-dest qb-dest)

; Report 20% complete
(complete 20)

; Copy QBox and QBox.info
(
(working "Installing QBox program...")
  (copyfiles
    (prompt "")
    (help @copyfiles-help)
    (source "QBox-v1.14e")
    (dest @default-dest)
    (infos)
  )
)

; Report 40% complete
(complete 40)

; Copy QBox.guide to Locale:help/english/QBox.guide
(copyfiles
  (prompt "Installing QBox.guide to Locale:help/english/")
  (help @copyfiles-help)
  (source "QBox.guide")
  (dest "Locale:help/english/")
  (confirm)
)

; Report 60% complete
(complete 60)

; Copy libs/explode.library to Libs:
(working "Installing libraries required")
(copylib
  (prompt "Installing Explode.library to Libs:")
  (help @copylib-help)
  (source "libs/Explode.library")
  (dest "Libs:")
  (confirm)
)

; Report 80% complete
(complete 80)

; Copy fonts/ to Fonts:
(copyfiles
  (prompt "Installing fonts required to Fonts:")
  (help @copyfiles-help)
  (source "fonts")
  (dest "Fonts:")
  (fonts)
  (all)
  (confirm)
)

;Report 90% complete
(complete 90)

; Copy S/ to S:
(copyfiles
  (prompt "Installing example scripts to S:")
  (help @copyfiles-help)
  (source "s")
  (dest "S:")
  (all)
  (confirm)
)

; Report 100% complete
(complete 100)

; T-t-t-thats all folks!!!
(exit)