home *** CD-ROM | disk | FTP | other *** search
- ; $VER: GuardAmy-Install 1.0 (23.10.1999) by Dx0
-
- (complete 0)
-
- (set InstallDir
- (askdir
- (prompt "Where do you want to install GuardAmy ?"
- " (a drawer called 'GuardAmy' will be created there)")
- (help @askdir-help)
- (default "Work:")
- )
- )
-
- (Set DestDir
- (tackon InstallDir "GuardAmy")
- )
-
- (complete 5)
-
- (set @default-dest
- DestDir
- )
-
- (makedir
- DestDir
- (infos)
- )
-
- (complete 10)
-
- (copyfiles
- (source "guardamy")
- (dest DestDir)
- (infos)
- )
-
- (complete 20)
-
- (copyfiles
- (source "GuardAmy_Eng.Guide")
- (dest DestDir)
- (newname "GuardAmy.Guide")
- (infos)
- )
-
- (complete 25)
-
- (copyfiles
- (source "guardamy.readme")
- (dest DestDir)
- (infos)
- )
-
- (complete 30)
-
- (copyfiles
- (source "icons/GuardAmy.info")
- (dest InstallDir)
- )
-
- (complete 35)
-
- (if (exists "MUI")
- (
- (if (<> (getassign "mui") "")
- (
- (if (> (exists "mui:libs/mui") 0)
- (
- (working "Updating MUI classes if needed")
- (foreach "mui" "#?mcp"
- (
- copylib (source (tackon "mui" @each-name) )
- (dest "mui:libs/mui")
- (optional "nofail")
- )
- )
- (foreach "mui" "#?mcc"
- (
- copylib (source (tackon "mui" @each-name) )
- (dest "mui:libs/mui")
- (optional "nofail")
- )
- )
- )
-
- (message ("This program requires MUI 3.8 or higher"))
- )
- )
- )
- )
- )
-
- (complete 40)
-
- (copyfiles
- (source "")
- (dest DestDir)
- (pattern "Catalogs")
- )
-
-
- (complete 55)
-
- (copyfiles
- (source "Grab.png")
- (dest DestDir)
- (infos)
- )
-
-
- (complete 65)
-
- (copyfiles
- (source "readme.mui")
- (dest DestDir)
- (infos)
- )
-
- (complete 70)
-
-
- (complete 75)
-
- (copyfiles
- (source "")
- (dest DestDir)
- (pattern "images")
- )
-
- (complete 80)
-
- (copyfiles
- (source "GuardAmy.iff")
- (dest DestDir)
- )
-
- (complete 85)
-
- (copyfiles
- (source "")
- (dest DestDir)
- (pattern "rexx")
- )
-
- (complete 100)
-