home *** CD-ROM | disk | FTP | other *** search
- ; 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
-