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

(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))

(rename "Allocator.Eng" "Allocator")
(rename "Allocator.Eng.info" "Allocator.info")
(rename "Allocator.guide.eng" "Allocator.guide")
(rename "Allocator.guide.eng.info" "Allocator.guide.info")

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

(rename "Allocator" "Allocator.Eng")
(rename "Allocator.info" "Allocator.Eng.info")
(rename "Allocator.guide" "Allocator.guide.eng")
(rename "Allocator.guide.info" "Allocator.guide.eng.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