; Installer script for Stopper
; Cerber / Appendix
; 11.04.1997

(complete 0)

(message 
  "\nStopper 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 Stopper A drawer will be created there.")
    (help (cat @askdir-help)
    )
    (default "Work:")
  )
)

(complete 10)

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

(copyfiles (dest #DEST) (source "Stopper"))
(copyfiles (dest #DEST) (source "Stopper.info"))
(copyfiles (dest #DEST) (source "Stopper.guide"))
(copyfiles (dest #DEST) (source "Stopper.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 Stopper."
;        @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 Stopper."
        @copylib-help
      )
    )
  )
)

(complete 100)

; Finished
