home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Format 93
/
af093a.adf
/
archives
/
af1.lzx
/
Install-OctaMED
< prev
next >
Wrap
Text File
|
1978-01-13
|
25KB
|
801 lines
;/*
;**
;** © 1995 RBF Software
;** Authors: Teijo Kinnunen - Ray Burt-Frost - Jason Sheldon
;** PROGRAMNAME:
;** Install-OctaMED
;**
;** FUNCTION:
;** Installs Octamed 6
;**
;** $HISTORY:
;**
;** 24 May 1995 : 001.006 : Added more wb2 compatible checking
;** 24 May 1995 : 001.005 : USERLEVEL MUST be EXPERT for version checking!
;** 24 May 1995 : 001.004 : Added checks so that KS2 users don't get errors
;** when trying to copy KS3 specific stuff.
;**
;** 24 May 1995 : 001.003 : Added version checking to LIBS: Installers
;** (HD Only)
;**
;** : 001.002 : initial release
;*/
;char version = "$VER: Octamed6_Installer 001.006 (24 May 1995)"
(set @execute-dir "RAM:")
(set insttype
(askchoice
(prompt "Please choose the type of installation:")
(choices "Bootable floppy" "Non-bootable floppy" "Hard disk")
(help "You are asked for the type of installation you wish to perform. "
"\"Bootable floppy\" creates a bootable floppy disk which contains "
"everything you need to run OctaMED. \"Non-bootable floppy\" creates "
"a work disk, which contains all OctaMED files, but you can't boot "
"from it. Finally, if you have a hard disk, you should choose \"Hard "
"disk\" to install OctaMED there."
"Note: If HD installing, select EXPERT USERLEVEL."
)
)
)
(if (= insttype 2) (set tohd 1) (set todisk 1))
(if (= insttype 0) (set toboot 1))
(if (= insttype 1) (set nonboot 1))
(if todisk (
(message "For disk installation, you need a blank disk for OctaMED. "
"This installation program will format it, so it need not be "
"already formatted. Please make sure that you have a disk "
"handy before proceeding with installation."
)
(message "I will need some files from your Workbench disk to perform "
"the installation. Please insert your Workbench disk in drive "
"DF0: and click Proceed."
)
(makedir "RAM:OM_Inst")
(makedir "RAM:OM_Inst/Rexx")
(copyfiles
(source "DF0:System/Format")
(dest "RAM:OM_Inst")
)
(copyfiles
(source "DF0:C/Delete")
(dest "RAM:")
)
(if (>= (getversion "DF0:Libs/asl.library") 38) (set aslok 1))
(if toboot (
; ************************* LIBS:
(if aslok (
(copyfiles
(source "DF0:Libs/asl.library")
(dest "RAM:OM_Inst/Libs")
)
))
(if (exists "DF0:Libs/amigaguide.library") (
(copyfiles
(source "DF0:Libs/amigaguide.library")
(dest "RAM:OM_Inst/Libs")
)
(set noag 0)
)
(set noag 1)
)
(if (exists "DF0:Libs/datatypes.library") (
(copyfiles
(source "DF0:Libs/datatypes.library")
(dest "RAM:OM_Inst/Libs")
)
))
(if (exists "df0:libs/diskfont.library") (
(copyfiles
(source "DF0:Libs/diskfont.library")
(dest "RAM:OM_Inst/Libs")
)
))
(if (exists "df0:libs/iffparse.library") (
(copyfiles
(source "DF0:Libs/iffparse.library")
(dest "RAM:OM_Inst/Libs")
)
))
(if (exists "df0:libs/locale.library") (
(copyfiles
(source "DF0:Libs/locale.library")
(dest "RAM:OM_Inst/Libs")
)
))
(if (exists "df0:libs/mathieeedoubbas.library") (
(copyfiles
(source "DF0:Libs/mathieeedoubbas.library")
(dest "RAM:OM_Inst/Libs")
)
))
(if (exists "DF0:Libs/rexxsyslib.library") (
(copyfiles
(source "DF0:Libs/rexxsyslib.library")
(dest "RAM:OM_Inst/Libs")
)
))
(makedir "RAM:OM_Inst/Prefs")
(makedir "RAM:OM_Inst/Prefs/Env-Archive")
(makedir "RAM:OM_Inst/Prefs/Env-Archive/Sys")
(if (exists "DF0:Prefs/Env-Archive/Sys/icontrol.prefs") (
(copyfiles
(source "DF0:Prefs/Env-Archive/Sys/icontrol.prefs")
(dest "RAM:OM_Inst/Prefs/Env-Archive/Sys")
)
))
(if (exists "DF0:Prefs/Env-Archive/Sys/locale.prefs") (
(copyfiles
(source "DF0:Prefs/Env-Archive/Sys/locale.prefs")
(dest "RAM:OM_Inst/Prefs/Env-Archive/Sys")
)
))
(if (exists "DF0:Prefs/Env-Archive/Sys/overscan.prefs") (
(copyfiles
(source "DF0:Prefs/Env-Archive/Sys/overscan.prefs")
(dest "RAM:OM_Inst/Prefs/Env-Archive/Sys")
)
))
(if (exists "DF0:Prefs/Env-Archive/Sys/input.prefs") (
(copyfiles
(source "DF0:Prefs/Env-Archive/Sys/input.prefs")
(dest "RAM:OM_Inst/Prefs/Env-Archive/Sys")
)
))
(if (exists "DF0:Prefs/Env-Archive/Sys/Palette.prefs") (
(copyfiles
(source "DF0:Prefs/Env-Archive/Sys/Palette.prefs")
(dest "RAM:OM_Inst/Prefs/Env-Archive/Sys")
)
))
(if (exists "DF0:Prefs/Env-Archive/Sys/wbconfig.prefs") (
(copyfiles
(source "DF0:Prefs/Env-Archive/Sys/wbconfig.prefs")
(dest "RAM:OM_Inst/Prefs/Env-Archive/Sys")
)
))
; ************************* C:
(if (exists "DF0:C/AddDataTypes") (
(copyfiles
(source "DF0:C/AddDataTypes")
(dest "RAM:OM_Inst/C")
)
))
(copyfiles
(source "DF0:C/Assign")
(dest "RAM:OM_Inst/C")
)
(copyfiles
(source "DF0:C/Copy")
(dest "RAM:OM_Inst/C")
)
(copyfiles
(source "DF0:C/Ed")
(dest "RAM:OM_Inst/C")
)
(if (exists "DF0:S/Ed-Startup") (
(copyfiles
(source "DF0:S/Ed-Startup")
(dest "RAM:OM_Inst/S")
)
))
(copyfiles
(source "DF0:C/Execute")
(dest "RAM:OM_Inst/C")
)
(copyfiles
(source "DF0:C/Install")
(dest "RAM:OM_Inst")
)
(copyfiles
(source "DF0:C/IPrefs")
(dest "RAM:OM_Inst/C")
)
(copyfiles
(source "DF0:C/LoadWB")
(dest "RAM:OM_Inst/C")
)
(copyfiles
(source "DF0:C/MakeDir")
(dest "RAM:OM_Inst/C")
)
(if (exists "DF0:C/SetPatch") (
(copyfiles
(source "DF0:C/SetPatch")
(dest "RAM:OM_Inst/C")
)
))
(makedir "RAM:OM_Inst/Devs")
; ************************* DataTypes stuff...
(if (exists "DF0:Classes/DataTypes/amigaguide.datatype") (
(makedir "RAM:OM_Inst/Classes")
(makedir "RAM:OM_Inst/Classes/DataTypes")
(copyfiles
(source "DF0:Classes/DataTypes/amigaguide.datatype")
(dest "RAM:OM_Inst/Classes/DataTypes")
)
))
(if (exists "DF0:Devs/DataTypes/AmigaGuide") (
(makedir "RAM:OM_Inst/Devs/DataTypes")
(copyfiles
(source "DF0:Devs/DataTypes/AmigaGuide")
(dest "RAM:OM_Inst/Devs/DataTypes")
)
))
; ************************* Keymaps
(makedir "RAM:OM_Inst/Devs/Keymaps")
(if (exists "DF0:Devs/Keymaps/#?") (
(copyfiles
(source "DF0:Devs/Keymaps")
(dest "RAM:OM_Inst/Devs/Keymaps")
)
))
; ************************* System
(if (exists "df0:system/rexxmast") (
(copyfiles
(source "DF0:System/RexxMast")
(dest "RAM:OM_Inst/System")
)
))
; ************************* Rexxc
(if (exists "DF0:Rexxc") (
(copyfiles
(source "DF0:Rexxc/RX")
(dest "RAM:OM_Inst/Rexxc")
)
(copyfiles
(source "DF0:Rexxc/HI")
(dest "RAM:OM_Inst/Rexxc")
)
))
))
(if nonboot (
; ******* Non-bootable disk... get Guide viewer.
(if (exists "DF0:Utilities/Multiview") (
(copyfiles
(source "DF0:Utilities/Multiview")
(dest "RAM:OM_Inst/C")
)
)(
(if (exists "DF0:Utilities/AmigaGuide") (
(copyfiles
(source "DF0:Utilities/AmigaGuide")
(dest "RAM:OM_Inst/C")
)
))
))
(if (exists "DF0:Libs/amigaguide.library") (set noag 0) (set noag 1))
))
(message "I will now format the disk OctaMED will be installed on. "
"Please insert it in drive DF0: and click Proceed. From now on, "
"I will call the disk \"OctaMED Work Disk\".\n\n"
"WARNING: All data on that disk will be lost!"
)
(working "Formatting floppy. Please wait.")
(run "RAM:OM_Inst/Format >NIL: <NIL: DRIVE DF0: NAME OctaMED_6 FFS NOICONS")
(delete "RAM:OM_Inst/Format")
(working "Installing bootblock.")
(run "RAM:OM_Inst/Install DF0:")
(delete "RAM:OM_Inst/Install")
(askdisk
(prompt "insert OctaMED Installation Disk 2 in any Drive")
(dest "OctaMED_Disk_2")
(help @askdisk-help)
)
(copyfiles
(source "OctaMED_Disk_2:Files1")
(dest "RAM:OM_Inst")
(all)
(infos)
)
(askdisk
(prompt "Insert OctaMED Installation Disk 1 in any Drive")
(dest "OctaMED_Disk_1")
(help @askdisk-help)
)
(if (exists "RAM:OM_Inst/Libs/asl.library") (
(copyfiles
(source "OctaMED_Disk_1:Libs/asl.library")
(dest "RAM:OM_Inst/Libs")
)
))
(if nonboot (
(copyfiles
(source "OctaMED_Disk_1:C/DecrunchPP")
(dest "RAM:")
)
(if (exists "RAM:OM_Inst/C/Multiview") (
(tooltype
(dest "RAM:OM_Inst/ReadMe.guide")
(setdefaulttool ":c/Multiview")
)
(tooltype
(dest "RAM:OM_Inst/OctaMED.guide")
(setdefaulttool ":c/Multiview")
)
)
(
(if (exists "RAM:OM_Inst/C/AmigaGuide") (
(tooltype
(dest "RAM:OM_Inst/ReadMe.guide")
(setdefaulttool ":c/AmigaGuide")
)
(tooltype
(dest "RAM:OM_Inst/OctaMED.guide")
(setdefaulttool ":c/AmigaGuide")
)
)
( ; set XPKGuide
(copyfiles
(source "OctaMED_Disk_1:XPKGuide/XPKGuide")
(dest "RAM:OM_Inst/C")
)
(tooltype
(dest "RAM:OM_Inst/ReadMe.guide")
(setdefaulttool ":c/XPKGuide")
)
(tooltype
(dest "RAM:OM_Inst/OctaMED.guide")
(setdefaulttool ":c/XPKGuide")
)
))
))
; Prefs and 'wb' not needed
(run "RAM:Delete >NIL: RAM:OM_Inst/Prefs all quiet")
(delete "RAM:OM_Inst/wb")
))
(if toboot (
(copyfiles
(source "OctaMED_Disk_1:XPKGuide/XPKGuide")
(dest "RAM:OM_Inst/C")
)
))
; *********** Set Default Tool for OctaMED.guide and ReadMe.guide
(if toboot (
(tooltype
(dest "RAM:OM_Inst/ReadMe.guide")
(setdefaulttool ":c/XPKGuide")
)
(tooltype
(dest "RAM:OM_Inst/OctaMED.guide")
(setdefaulttool ":c/XPKGuide")
)
))
(if noag (
(copyfiles
(source "OctaMED_Disk_1:Libs/amigaguide.library")
(dest "RAM:OM_Inst/Libs")
)
))
(askdisk
(prompt "Please insert the OctaMED Work Disk in DF0:")
(dest "OctaMED_6")
(help @askdisk-help)
)
(working)
(if nonboot ( ; non-bootable -> decrunch OctaMED.guide
(run "RAM:DecrunchPP >NIL: RAM:OM_Inst/OctaMED.guide OctaMED_6:OctaMED.guide")
(delete "RAM:OM_Inst/OctaMED.guide")
))
(if toboot ( ; bootable -> no need for Install_Libs
(delete "RAM:OM_Inst/Install_Libs")
(delete "RAM:OM_Inst/Install_Libs.info")
))
(copyfiles
(source "RAM:OM_Inst")
(dest "OctaMED_6:")
(all)
(infos)
)
(run "RAM:delete >NIL: RAM:OM_Inst all quiet")
(if toboot (
(makedir "OctaMED_6:Locale")
(makedir "OctaMED_6:S")
(textfile
(dest "OctaMED_6:S/Startup-Sequence")
(append "SetPatch <NIL: >NIL:\n")
(append "Copy >NIL: ENVARC: RAM:ENV ALL NOREQ\n")
(append "Makedir RAM:T\n")
(append "Assign >NIL: ENV: RAM:ENV\n")
(append "Assign >NIL: REXX: SYS:Rexx\n")
(append "Assign >NIL: KEYMAPS: DEVS:Keymaps\n")
(append (if (exists "OctaMED_6:Classes") "Assign >NIL: LIBS: SYS:Classes ADD\n" ""))
(append "Assign >NIL: HELP: SYS:\n")
(append "Assign >NIL: Locale: SYS:Locale\n")
(append "Assign >NIL: T: RAM:T\n")
(append "Path C: SYS:Rexxc ADD\n")
(append (if (exists "OctaMED_6:C/AddDataTypes") "AddDataTypes REFRESH QUIET\n" ""))
(append "IPrefs\n")
(append ":System/RexxMast >NIL:\n")
(append "echo \"*n########################################################\"\n")
(append "echo \"# Note: This disk contains Copyrighted material which #\"\n")
(append "echo \"# is © 1995 to Teijo Kinnunen and Ray Burt-Frost. #\"\n")
(append "echo \"# Distribution of this disk is illegal and prohibited. #\"\n")
(append "echo \"# It has been encoded with your name and address. #\"\n")
(append "echo \"# Type 'XPKGuide ReadMe.guide' at the Shell prompt to #\"\n")
(append "echo \"# view the full copyright notice. #\"\n")
(append "echo \"# #\"\n")
(append "echo \"# OctaMED is now loading #\"\n")
(append "echo \"# If you exit the program Type 'wb' to load Workbench. #\"\n")
(append "echo \"########################################################*n\"\n")
(append "OctaMED\n")
)
))
(askdisk
(prompt "Insert OctaMED Installation Disk 1 in any Drive")
(dest "OctaMED_Disk_1")
(help @askdisk-help)
)
(copyfiles
(source "OctaMED_Disk_1:Files2")
(dest "RAM:OM_Inst")
(all)
)
(if nonboot ( ; non-bootable -> decrunch player code files
(run "RAM:DecrunchPP >NIL: RAM:OM_Inst/Player_std.code RAM:OM_Inst/Player_std.code")
(run "RAM:DecrunchPP >NIL: RAM:OM_Inst/Player_8.code RAM:OM_Inst/Player_8.code")
(run "RAM:DecrunchPP >NIL: RAM:OM_Inst/Player_midi.code RAM:OM_Inst/Player_midi.code")
(delete "RAM:DecrunchPP")
))
(askdisk
(prompt "Please insert the OctaMED Work Disk in any drive.")
(dest "OctaMED_6")
(help @askdisk-help)
)
(copyfiles
(source "RAM:OM_Inst")
(dest "OctaMED_6:")
(all)
)
(if nonboot ( ; non-bootable -> install Extras stuff
(run "RAM:delete >NIL: RAM:OM_Inst/#? all quiet")
(askdisk
(prompt "Insert OctaMED Installation Disk 2 in any Drive")
(dest "OctaMED_Disk_2")
(help @askdisk-help)
)
(copyfiles
(source "OctaMED_Disk_2:Extras/Keyboard")
(dest "RAM:OM_Inst/Keyboard")
(all)
)
(copyfiles
(source "OctaMED_Disk_2:Extras/Rexx")
(dest "RAM:OM_Inst/Rexx")
(all)
)
(askdisk
(prompt "Please insert the OctaMED Work Disk in any drive.")
(dest "OctaMED_6")
(help @askdisk-help)
)
(makedir "OctaMED_6:Keyboard")
(copyfiles
(source "RAM:OM_Inst/Keyboard")
(dest "OctaMED_6:Keyboard")
(all)
)
(copyfiles
(source "RAM:OM_Inst/Rexx")
(dest "OctaMED_6:Rexx")
(all)
)
))
(run "RAM:delete >NIL: RAM:OM_Inst all quiet")
(delete "RAM:Delete")
(set @default-dest "")
(if nonboot (
(if (= aslok 0) (
(if (askbool
(prompt "Your Workbench disk contains asl.library version 2.0. "
"OctaMED requires version 2.1 or later. Do you want to "
"install asl.library 2.1 on your Workbench disk?")
(help @askbool-help))
(
(copyfiles
(source "OctaMED_Disk_1:Libs/asl.library")
(dest "RAM:")
)
(message "Please insert your Workbench disk in drive DF0: and "
"click Proceed. (Remember to remove write protection.) ")
(copylib
(prompt "Installing \"asl.library\" to LIBS:")
(confirm)
(help "asl.library is used for improved font and file\n"
"requesters.")
(source "RAM:asl.library")
(dest "DF0:Libs")
)
(delete "RAM:asl.library")
))
))
(message "Non-bootable floppy installation is now complete. "
"In order to utilize all features of OctaMED, you "
"should have the following libraries installed on your "
"boot disk: amigaguide.library, powerpacker.library, "
"lh.library. The work disk contains a script \"Install_Libs\", "
"which copies these libraries onto your boot disk LIBS drawer. "
"Note that a standard Workbench disk (especially WB 2.x) may "
"not have enough disk space to accommodate all these libraries "
"by default. In that case, you will have to delete files "
"manually from your boot disk."
)
))
(exit)
)
; *************' Hard Disk Installation
(
(set inst_dir (askdir (prompt "Please select the destination directory")
(default @default-dest)
(help "You must select the directory where OctaMED will be installed to. "
"I will create a drawer called 'OctaMED6' and install OctaMED there."
)))
(set inst_dest (tackon inst_dir "OctaMED6"))
(makedir inst_dest)
(copyfiles
(source "OctaMED_Disk_1:Files2/OctaMED")
(dest inst_dest)
)
(run ("OctaMED_Disk_1:C/DecrunchPP OctaMED_Disk_1:Files2/Player_std.code %s/Player_std.code" inst_dest))
(run ("OctaMED_Disk_1:C/DecrunchPP OctaMED_Disk_1:Files2/Player_8.code %s/Player_8.code" inst_dest))
(run ("OctaMED_Disk_1:C/DecrunchPP OctaMED_Disk_1:Files2/Player_midi.code %s/Player_midi.code" inst_dest))
(copyfiles
(source "OctaMED_Disk_1:HD_Icons/OctaMED6.info")
(dest inst_dir)
)
(copyfiles
(source "OctaMED_Disk_1:HD_Icons/OctaMED.info")
(dest inst_dest)
)
(copyfiles
(source "OctaMED_Disk_1:HD_Icons/OctaMED.guide.info")
(dest inst_dest)
)
(copyfiles
(source "OctaMED_Disk_1:HD_Icons/ReadMe.guide.info")
(dest inst_dest)
)
(copyfiles
(source "OctaMED_Disk_1:HD_Icons/Icons.info")
(dest inst_dest)
)
(if (= (exists "SYS:Utilities/Multiview") 0) ;if Multiview's there, do nothing
( (if (exists "SYS:Utilities/AmigaGuide") (
; AG exists, modify tooltypes
(tooltype
(dest ("%s/ReadMe.guide" inst_dest))
(setdefaulttool "SYS:Utilities/AmigaGuide")
)
(tooltype
(dest ("%s/OctaMED.guide" inst_dest))
(setdefaulttool "SYS:Utilities/AmigaGuide")
)
)
; No Multiview or AmigaGuide, copy XPKGuide to OctaMED drawer
(
(copyfiles
(source "OctaMED_Disk_1:XPKGuide/XPKGuide")
(dest inst_dest)
)
(tooltype
(dest ("%s/ReadMe.guide" inst_dest))
(setdefaulttool "XPKGuide")
)
(tooltype
(dest ("%s/OctaMED.guide" inst_dest))
(setdefaulttool "XPKGuide")
)
))
)
)
(askdisk
(prompt "Insert OctaMED Installation Disk 2 in any Drive")
(dest "OctaMED_Disk_2")
(help @askdisk-help)
)
(run ("OctaMED_Disk_2:C/DecrunchPP OctaMED_Disk_2:Files1/OctaMED.guide %s/OctaMED.guide" inst_dest))
(set n 0)
(while (set f_name (select n "ReadMe.guide" "OctaMEDPro.defkeyboard" ""))
( (set n (+ n 1))
(copyfiles
(source ("OctaMED_Disk_2:Files1/%s" f_name))
(dest inst_dest)
)
)
)
(copyfiles
(source "OctaMED_Disk_2:Files1/Icons")
(dest ("%s/Icons" inst_dest))
(all)
)
(askdisk
(prompt "Insert OctaMED Installation Disk 1 in any Drive")
(dest "OctaMED_Disk_2")
(help @askdisk-help)
)
(copylib
(prompt "Installing \"powerpacker.library\" by Nico Francois")
(confirm)
(help "\"PowerPacker.library\" is written by Nico Francois.\n"
"You can save and load \"PowerPacked\" samples and modules\n"
"into Octamed Pro 6. This will enable you to save valuable\n"
"disk space")
(source "OctaMED_Disk_1:Libs/powerpacker.library")
(dest "LIBS:")
)
(copylib
(prompt "Installing \"lh.library\" by Holger P. Krekel and \n"
" Olaf `Olsen' Barthel")
(confirm)
(help "\"lh.library\" was written by Holger P. Krekel\n"
"& Olaf `Olsen' Barthel.\n"
"It uses highly optimized assembly language versions\n"
"of LhArc data decompression routines, for a fast and\n"
"massive storage saving.")
(source "OctaMED_Disk_1:Libs/lh.library")
(dest "LIBS:")
)
(copylib
(prompt "Installing Commodore's \"amigaguide.library\"")
(confirm)
(help "\"amigaguide.library\" has been shipped as standard\n"
"with Amiga's since version 2.1 of Workbench.\n\n"
"If you are using 3.0 or above, installation of this\n"
"library is NOT recommended, as you should have a\n"
"newer version of the library.")
(source "OctaMED_Disk_1:Libs/amigaguide.library")
(dest "LIBS:")
)
(copylib
(Prompt "Installing Commodore's \"asl.library\"")
(confirm)
(help "\"asl.library\" is part of the Amiga system software\n"
"since version 2.xx. It vastly improves the File and\n"
"font requesters.\n\n"
"Kickstart 3.0+ users (A1200/4000) should not install this\n"
"library, as you should already have the latest version\n"
"installed in your LIBS: drawer.")
(source "OctaMED_Disk_1:Libs/asl.library")
(dest "LIBS:")
)
(set inst_parts (askoptions
(prompt "Which parts of OctaMED support files would you "
"like to install on your hard disk?")
(choices "OctaMEDPlayer" "Player libraries" "Player source" "Demo songs" "Widetop font" "Extras")
(help "OctaMEDPlayer is an external player program for "
"playing OctaMED songs.\n\n"
"Player libraries (medplayer.library and octaplayer.library) "
"may be used by some external programs. These libraries will "
"be installed to your LIBS: drawer.\n\n"
"Player sources are required only by programmers who intend "
"to use OctaMED songs in their own programs.\n\n"
"Demo songs are for your listening pleasure, and for demonstrating "
"some of OctaMED's capabilities.\n\n"
"Widetop is a Topaz-like font for OctaMED's editor display. It's "
"especially suitable for medium resolution screens.\n\n"
"Extras contains OctaMED's ARexx documentation, ARexx examples and additional "
"keyboard shortcut files you may find useful.\n\n"
"- Note: These files are available on Disk 2. If you don't want "
"to install them now, you can install them later by hand or load "
"them directly from Disk 2."
)
))
))
; ******* OctaMEDPlayer icons
(if (IN inst_parts 0) (
(copyfiles
(source "OctaMED_Disk_1:HD_Icons/OctaMEDPlayer.info")
(dest inst_dest)
)
(copyfiles
(source "OctaMED_Disk_1:HD_Icons/OctaMEDPlayer")
(dest ("%s/OctaMEDPlayer" inst_dest))
(all)
)
(if (= (exists "SYS:Utilities/Multiview") 0) ( ;if Multiview's there, do nothing
( (if (exists "SYS:Utilities/AmigaGuide") (
; AG exists, modify tooltype
(tooltype
(dest ("%s/OctaMEDPlayer/OctaMEDPlayer.guide" inst_dest))
(setdefaulttool "SYS:Utilities/AmigaGuide")
)
))
)
; use XPKGuide then...
(
(tooltype
(dest ("%s/OctaMEDPlayer/OctaMEDPlayer.guide" inst_dest))
(setdefaulttool "/XPKGuide")
)
)
))
))
; ******* Demos drawer icon
(if (IN inst_parts 3) (
(copyfiles
(source "OctaMED_Disk_1:HD_Icons/Demos.info")
(dest inst_dest)
)
))
; ******* Programmers drawer icon
(if (IN inst_parts 2) (
(copyfiles
(source "OctaMED_Disk_1:HD_Icons/Programmers.info")
(dest inst_dest)
)
))
(if (IN inst_parts 0 1 2 3 5) (
(askdisk
(prompt "Please insert OctaMED Disk 2 in any drive")
(dest "OctaMED_Disk_2")
(help @askdisk-help)
)
; ******* Widetop font
(if (IN inst_parts 0) (
(copyfiles
(source "OctaMED_Disk_2:Files1/Fonts")
(dest "FONTS:")
(all)
)
; ******* OctaMEDPlayer
(if (IN inst_parts 1) (
(copyfiles
(source "OctaMED_Disk_2:OctaMEDPlayer")
(dest ("%s/OctaMEDPlayer" inst_dest))
(pattern "~(#?.info)")
)
))
; ******* Player libraries
(if (IN inst_parts 2) (
(copyfiles
(prompt "About to install libraries needed by Octamed")
(confirm)
(help "Just testing!!!")
(source "OctaMED_Disk_2:files1/Libs")
(dest "LIBS:")
(all)
)
))
; ******* Player source
(if (IN inst_parts 3) (
(copyfiles
(source "OctaMED_Disk_2:Programmers")
(dest ("%s/Programmers" inst_dest))
(all)
)
))
; ******* Demo songs
(if (IN inst_parts 4) (
(copyfiles
(source "OctaMED_Disk_2:Demos")
(dest ("%s/Demos" inst_dest))
(all)
)
))
; ******* Extras
(if (IN inst_parts 5) (
(copyfiles
(source "OctaMED_Disk_2:Extras")
(dest inst_dest)
(all)
)
))
))
(set @default-dest inst_dest)
(exit)
))