home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
World of A1200
/
World_Of_A1200.iso
/
programs
/
workbench
/
mia
/
installer
/
install-mia
next >
Wrap
Text File
|
1995-02-27
|
3KB
|
162 lines
; This installs Commodore's Installer and AmigaGuide as well as MIA
; "$VER:Install-MIA 1.0 (05/12/94)"
; Setup Installer variables
( Set @app-name "Mass Icon Alter")
( Copylib
( Prompt "Updating your system's \"Installer\" program")
( Help "\"Installer\" is Commodore's program that helps developers write "
"installation programs. The version of \"Installer\" that comes "
"with MIA will be copied to your system drive if it is newer than "
"the version you already have or if the file does not exist on "
"your drive. This will allow other products to use the latest "
"version of \"Installer\" from your drive.\n\nIt is NOT a "
"necessity to copy this file to your drive."
)
( Source "Installer/Installer")
( Dest "SYS:Utilities")
( Optional "nofail" "force" "askuser")
( Confirm)
)
; Install AmigaGuide
( Copylib
( Source "AmigaGuide/amigaguide.library")
( Dest "LIBS:")
( Optional "force")
)
( Copylib
( Source "AmigaGuide/WDisplay")
( Dest "SYS:Utilities")
( Infos)
( Optional "force")
)
( Copylib
( Source "AmigaGuide/AmigaGuide")
( Dest "SYS:Utilities")
( Infos)
( Optional "force")
)
( Copylib
( Source "AmigaGuide/help.guide")
( Dest "S:")
( Infos)
( Optional "force")
)
; Install MIA
( Set DEST_DIR "Work:")
( Set DEST_DIR
( askdir
( prompt "Where would you like the MIA drawer created?")
( default DEST_DIR)
( disk)
( help "Choose the place where you want the MIA drawer created. "
"This drawer will contain the MIA program and help guide."
)
( Newpath)
( Disk)
)
)
( Set DEST_DIR ( Tackon DEST_DIR "MIA"))
( Message @app-name " will be installed to \"" DEST_DIR "\"." )
( Set @default-dest DEST_DIR)
( Makedir DEST_DIR)
; Copy MIA, MIA.guide, and their .info files to destination directory
( Copyfiles
( Source "MIA")
( Dest DEST_DIR)
( All)
( Infos)
( Optional "force")
)
( ToolType
( Dest ( Tackon DEST_DIR "MIA"))
( NoPosition)
)
( ToolType
( Dest ( Tackon DEST_DIR "MIA.guide"))
( NoPosition)
)
; Copy MIA's environment variables to ENVARC:MIA
( Makedir "ENVARC:MIA")
( Copyfiles
( Source "MIA/MIA.info")
( Dest "ENVARC:MIA")
( Newname "def_AppIcon.info")
( Optional "force")
)
( ToolType
( Dest "ENVARC:MIA/def_AppIcon")
( NoPosition)
)
( Copyfiles
( Source "MIA/MIA.info")
( Dest "ENVARC:MIA")
( Optional "force")
)
( ToolType
( Dest "ENVARC:MIA/MIA")
( NoPosition)
)
; Copy MIA's environment variables to ENV:MIA
( Copyfiles
( Source "ENVARC:MIA")
( Dest "ENV:MIA")
( All)
( Infos)
)
; Append to User-Startup
( Startup "MIA"
( Prompt "The following AmigaDOS commands will be added to your "
"\"S:user-startup\" file:\n\n\n"
"assign MIA: \"" DEST_DIR "\"\n"
"path MIA: add"
)
( Command "assign MIA: \"" DEST_DIR "\"\n")
( Command "path MIA: add")
( Help @startup-help)
)
; >DO< what we just appended to User-Startup so user can use MIA >NOW<
( MakeAssign "MIA" DEST_DIR)