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

(complete 0)

(message 
  "\nAllocator 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 Allocator? Katalog zostanie stworzony automatycznie.")
    (help (cat @askdir-help)
    )
    (default "Work:")
  )
)

(complete 10)

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

(rename "Allocator.Pol" "Allocator")
(rename "Allocator.Pol.info" "Allocator.info")
(rename "Allocator.guide.pol" "Allocator.guide")
(rename "Allocator.guide.pol.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.Pol")
(rename "Allocator.info" "Allocator.Pol.info")
(rename "Allocator.guide" "Allocator.guide.pol")
(rename "Allocator.guide.info" "Allocator.guide.pol.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 Allocatora, ale nie jest niezbėdna.")
    (help
     (cat
        "Reqtools.library jest potrzebna do wyōwietlenia 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 prawidīowej pracy programu.")
    (help
      (cat
        "Fonty te sā potrzebne do prawidīowej pracy programu. Bez nich program sie nie uruchomi."
        @copylib-help
      )
    )
  )
)

(complete 100)

; Finished