; Installer script for Stopper
; Cerber / Appendix
; 11.04.1997

(complete 0)

(message 
  "\nStopper to program Public Domain.\n\n Rozprowadzaj go gdziekowiek chcesz.\n\n"
  "\nPiotr Kazmierczak\nCerber of Appendix\ne-mail: cerber@kaszub.ternet.pl\nhttp://www.kaszub.ternet.pl/~cerber"
  "\nRadioactive BBS\n+48-058-216107\n 22.00 - 08.00"
  (ALL)
)

(complete 3)

(set #DEST0
  (askdir
    (prompt "Gdzie chcesz zainstalowa program Stopper? Katalog zostanie stworzony automatycznie.")
    (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\nZainstalowa reqtools.library?\nTa biblioteka jest potrzebna do poprawnej pracy Stoppera, ale nie jest niezbdna.")
    (help
     (cat
        "Reqtools.library jest potrzebna do wywietlenia informacji o autorze programu."
        @copylib-help
      )
    )
  )
)

; Fonts 'XenPL.font'
;  ???

(complete 80)

(if (= (exists "FONTS:XenPL.font") 0)
  (copylib
    (source "Fonts/XenPL.font")
    (dest "FONTS:")
    (confirm)
    (prompt "\n\nZainstalowa fonty XenPL?\nFonty s potrzebne do prawidowej pracy programu.")
    (help
      (cat
        "Fonty te s potrzebne do prawidowej pracy programu. Bez nich program sie nie uruchomi."
        @copylib-help
      )
    )
  )
)

(complete 100)

; Finished
