home *** CD-ROM | disk | FTP | other *** search
- ; Installer script for cP!_ShowConfig
- ; Written by mr_W
- ; $VER: Prayer2.0-Install 1.0 (18.06.98)
- ;
- (set msg_welcome "\n\nPrayer2.0 is ShareWare.\n\nPlease consider registering !\n\nSee the doc for more info.")
- (set msg_destdirprompt "Where do you want to install Prayer2.0?\nA new drawer named Prayer2.0 will be created !")
-
- (complete 0)
- (message msg_welcome (ALL))
- (complete 5)
-
- (set @default-dest "Sys:")
- (set DestDir
- (askdir
- (prompt msg_destdirprompt)
- (help @askdir-help)
- (default @default-dest)
- )
- )
-
- (set DestDir (tackon DestDir "Prayer2.0"))
-
- (makedir DestDir)
-
- (complete 10)
- (working "Copying Prayer2.0 ...")
-
- (copyfiles (source "Prayer2") (dest DestDir) (infos) (noposition))
- (complete 20)
-
- (working "Copying Robe files ...")
- (copyfiles (source "Robes") (dest (tackon DestDir "Robes")) (all))
- (complete 30)
-
- (working "Copying Plugins ...")
- (copyfiles (source "Plugins") (dest (tackon DestDir "Plugins")) (all))
- (complete 40)
-
- (working "Copying documentation ...")
- (copyfiles (source "Docs") (dest (tackon DestDir "Docs")) (infos) (noposition) (all))
- (complete 50)
-
- (working "Checking for popupmenu.library (will be installed if not available)")
- (copylib (source "Contrib/Libs/popupmenu.library") (dest "Libs:"))
- (complete 60)
-
- (if
- (askbool
- (prompt "Would you like to install popupmenu.library preferences editor ?\n(popupmenu.library is (c) by Henrik Isaksson)")
- (help @askbool-help)
- )
- (
- (copylib (source "Contrib/Prefs/PopupMenu_MUI") (dest "Sys:Prefs"))
- )
- )
- (complete 70)
-
- (working "Checking for triton.library (will be installed if not available)")
- (copylib (source "Contrib/Libs/triton.library") (dest "Libs:"))
- (complete 80)
- (if
- (askbool
- (prompt "Would you like to install triton.library preferences editor ?\n(triton.library is Copyright (C) 1993-1998 Stefan Zeiger)")
- (help @askbool-help)
- )
- (
- (copylib (source "Contrib/Prefs/Triton") (dest "Sys:Prefs"))
- )
- )
-
- (complete 90)
-
- (set @default-dest DestDir)
- (complete 100)
-