; Installer script for Allocator
; Cerber / Appendix & Squeezers
; 25.10.1996

(complete 0)

(message 
  "\nAllocator is full Public Domain util.\n\nSupport it if You can."
  "\nSee the doc for more info.\n"
  "\nPiotr Kazmierczak\nCerber of Appendix\ne-mail: cerber@kaszub.ternet.pl\nhttp://www.kaszub.ternet.pl/~cerber"
  "\nRadioactive BBS\n+48-058-216107\nopen: 22.00 - 07.00"
  (ALL)
)

(complete 3)

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

(complete 10)

(set #DEST (tackon #DEST0 "Allocator"))
(makedir #DEST (infos))

(copyfiles (dest #DEST) (source "Allocator"))
(copyfiles (dest #DEST) (source "Allocator.info"))
(copyfiles (dest #DEST) (source "Allocator.guide"))
(copyfiles (dest #DEST) (source "Allocator.guide.info"))

; Reqtools.library
; © Nico

(complete 60)

(if (= (exists "LIBS:reqtools.library") 0)
  (copylib
    (source "Libs/reqtools.library")
    (dest "LIBS:")
    (confirm)
    (prompt "\n\nInstall reqtools.library?\nOnly do so if you already don't have it installed!")
    (help
      (cat
        "Reqtools.library is needed for requesters in Allocator."
        @copylib-help
      )
    )
  )
)

; Fonts 'XenPL.font'
; © ???

(complete 80)

(if (= (exists "FONTS:XenPL.font") 0)
  (copylib
    (source "Fonts/XenPL.font")
    (dest "FONTS:")
    (confirm)
    (prompt "\n\nInstall XenPL.font?\nOnly do so if you already don't have it installed!")
    (help
      (cat
        "XenPL.font is needed for all texts in Allocator."
        @copylib-help
      )
    )
  )
)

(complete 100)

; Finished