home *** CD-ROM | disk | FTP | other *** search
- (set __version "1.17")
- (set __date "28.11.99")
-
- (complete 0)
- (message "\n\n"
- "Attemping to install ReqAttackPrefs " __version "...\n\n"
- "I need +-300kb of free disk space!"
- )
- (set ins
- (askoptions (prompt "What do you want to install?")
- (choices "Main program" "Documentation" "Locale support files")
- (help (cat @askoptions-help)) (default 3)
- )
- )
- (set DEST-DIR
- (askdir (prompt "Where do you with to install ReqAttackPrefs?\nDefault path is Sys:Tools/ReqAttack. No directory will be created.")
- (help (cat @askdir-help))(default "Sys:Tools/ReqAttack")
- )
- )
- (if (<> 0 (bitand 1 ins))
- (copyfiles (prompt "Copying main binary...")
- (source "ReqAttackPrefs")
- (dest DEST-DIR)
- (infos)
- (help (cat @copyfiles-help))
- )
- )
- (complete 33)
- (if (<> 0 (bitand 2 ins))
- (copyfiles (prompt "Copying documentation...")
- (source "ReqAttackPrefs.guide")
- (dest (tackon DEST-DIR "Docs"))
- (help (cat @copyfiles-help))
- )
- )
- (complete 80)
- (set cats 0)
- (if (<> 0 (bitand 4 ins))
- (set cats
- (askoptions (prompt "What do you want to install?")
- (choices "polish .catalog" ".cd file")
- (help (cat @askoptions-help)) (default 2)
- ))
- )
- (complete 90)
- (if (<> 0 (bitand 1 cats))
- (copyfiles (prompt "Copying polish catalog...")
- (source "polski/reqattackprefs.catalog")
- (dest (tackon "LOCALE:catalogs" "polski"))
- (help (cat @copyfiles-help))
- )
- )
- (complete 95)
- (if (<> 0 (bitand 2 cats))
- (copyfiles (prompt "Copying .cd file...")
- (source "reqattackprefs.cd")
- (dest DEST-DIR)
- (help (cat @copyfiles-help))
- )
- )
- (complete 100)
- (message "\n\n"
- "Thank you for installing ReqAttackPrefs " __version "\n\n"
- "This piece of software is ©1999 by Jaca/Dreamolers-CAPS\n"
- "Installer script by Jaca/D-CAPS (" __date ")\n\n"
- "ReqAttackPrefs can be found in " DEST-DIR " directory.\n"
- )
- (exit (QUIET))
-