home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format 93 / af093a.adf / archives / af1.lzx / Install-OctaMED < prev    next >
Text File  |  1978-01-13  |  25KB  |  801 lines
  1. ;/*
  2. ;**
  3. ;**        © 1995 RBF Software
  4. ;**          Authors: Teijo Kinnunen - Ray Burt-Frost - Jason Sheldon
  5. ;**  PROGRAMNAME:
  6. ;**      Install-OctaMED
  7. ;**
  8. ;**  FUNCTION:
  9. ;**      Installs Octamed 6
  10. ;**
  11. ;**  $HISTORY:
  12. ;**
  13. ;**  24 May 1995 : 001.006 :  Added more wb2 compatible checking
  14. ;**  24 May 1995 : 001.005 :  USERLEVEL MUST be EXPERT for version checking!
  15. ;**  24 May 1995 : 001.004 :  Added checks so that KS2 users don't get errors
  16. ;**                           when trying to copy KS3 specific stuff.
  17. ;**
  18. ;**  24 May 1995 : 001.003 :  Added version checking to LIBS: Installers
  19. ;**                           (HD Only)
  20. ;**
  21. ;**              : 001.002 :  initial release
  22. ;*/
  23.  
  24.  
  25. ;char version = "$VER: Octamed6_Installer 001.006 (24 May 1995)"
  26.  
  27.  
  28. (set @execute-dir "RAM:")
  29. (set insttype
  30.     (askchoice
  31.     (prompt "Please choose the type of installation:")
  32.     (choices "Bootable floppy" "Non-bootable floppy" "Hard disk")
  33.     (help   "You are asked for the type of installation you wish to perform. "
  34.         "\"Bootable floppy\" creates a bootable floppy disk which contains "
  35.         "everything you need to run OctaMED. \"Non-bootable floppy\" creates "
  36.         "a work disk, which contains all OctaMED files, but you can't boot "
  37.         "from it. Finally, if you have a hard disk, you should choose \"Hard "
  38.         "disk\" to install OctaMED there."
  39.         "Note: If HD installing, select EXPERT USERLEVEL."
  40.     )
  41.     )
  42. )
  43.  
  44. (if (= insttype 2) (set tohd 1) (set todisk 1))
  45. (if (= insttype 0) (set toboot 1))
  46. (if (= insttype 1) (set nonboot 1))
  47.  
  48. (if todisk (
  49.     (message    "For disk installation, you need a blank disk for OctaMED. "
  50.         "This installation program will format it, so it need not be "
  51.         "already formatted. Please make sure that you have a disk "
  52.         "handy before proceeding with installation."
  53.     )
  54.     (message    "I will need some files from your Workbench disk to perform "
  55.         "the installation. Please insert your Workbench disk in drive "
  56.         "DF0: and click Proceed."
  57.     )
  58.     (makedir "RAM:OM_Inst")
  59.     (makedir "RAM:OM_Inst/Rexx")
  60.     (copyfiles
  61.     (source "DF0:System/Format")
  62.     (dest "RAM:OM_Inst")
  63.     )
  64.     (copyfiles
  65.     (source "DF0:C/Delete")
  66.     (dest "RAM:")
  67.     )
  68.     (if (>= (getversion "DF0:Libs/asl.library") 38) (set aslok 1))
  69.     (if toboot (
  70. ; ************************* LIBS:
  71.     (if aslok (
  72.         (copyfiles
  73.         (source "DF0:Libs/asl.library")
  74.         (dest "RAM:OM_Inst/Libs")
  75.         )
  76.     ))
  77.     (if (exists "DF0:Libs/amigaguide.library") (
  78.         (copyfiles
  79.         (source "DF0:Libs/amigaguide.library")
  80.         (dest "RAM:OM_Inst/Libs")
  81.         )
  82.         (set noag 0)
  83.         )
  84.         (set noag 1)
  85.     )
  86.     (if (exists "DF0:Libs/datatypes.library") (
  87.         (copyfiles
  88.         (source "DF0:Libs/datatypes.library")
  89.         (dest "RAM:OM_Inst/Libs")
  90.         )
  91.     ))
  92.     (if (exists "df0:libs/diskfont.library") (
  93.     (copyfiles
  94.         (source "DF0:Libs/diskfont.library")
  95.         (dest "RAM:OM_Inst/Libs")
  96.         )
  97.     ))
  98.     (if (exists "df0:libs/iffparse.library") (
  99.     (copyfiles
  100.         (source "DF0:Libs/iffparse.library")
  101.         (dest "RAM:OM_Inst/Libs")
  102.         )
  103.     ))
  104.     (if (exists "df0:libs/locale.library") (
  105.     (copyfiles
  106.         (source "DF0:Libs/locale.library")
  107.         (dest "RAM:OM_Inst/Libs")
  108.         )
  109.     ))
  110.     (if (exists "df0:libs/mathieeedoubbas.library") (
  111.     (copyfiles
  112.         (source "DF0:Libs/mathieeedoubbas.library")
  113.         (dest "RAM:OM_Inst/Libs")
  114.         )
  115.     ))
  116.     (if (exists "DF0:Libs/rexxsyslib.library") (
  117.         (copyfiles
  118.         (source "DF0:Libs/rexxsyslib.library")
  119.         (dest "RAM:OM_Inst/Libs")
  120.         )
  121.     ))
  122.  
  123.     (makedir "RAM:OM_Inst/Prefs")
  124.     (makedir "RAM:OM_Inst/Prefs/Env-Archive")
  125.     (makedir "RAM:OM_Inst/Prefs/Env-Archive/Sys")
  126.     (if (exists "DF0:Prefs/Env-Archive/Sys/icontrol.prefs") (
  127.         (copyfiles
  128.         (source "DF0:Prefs/Env-Archive/Sys/icontrol.prefs")
  129.         (dest "RAM:OM_Inst/Prefs/Env-Archive/Sys")
  130.         )
  131.     ))
  132.     (if (exists "DF0:Prefs/Env-Archive/Sys/locale.prefs") (
  133.         (copyfiles
  134.         (source "DF0:Prefs/Env-Archive/Sys/locale.prefs")
  135.         (dest "RAM:OM_Inst/Prefs/Env-Archive/Sys")
  136.         )
  137.     ))
  138.     (if (exists "DF0:Prefs/Env-Archive/Sys/overscan.prefs") (
  139.         (copyfiles
  140.         (source "DF0:Prefs/Env-Archive/Sys/overscan.prefs")
  141.         (dest "RAM:OM_Inst/Prefs/Env-Archive/Sys")
  142.         )
  143.     ))
  144.     (if (exists "DF0:Prefs/Env-Archive/Sys/input.prefs") (
  145.         (copyfiles
  146.         (source "DF0:Prefs/Env-Archive/Sys/input.prefs")
  147.         (dest "RAM:OM_Inst/Prefs/Env-Archive/Sys")
  148.         )
  149.     ))
  150.     (if (exists "DF0:Prefs/Env-Archive/Sys/Palette.prefs") (
  151.         (copyfiles
  152.         (source "DF0:Prefs/Env-Archive/Sys/Palette.prefs")
  153.         (dest "RAM:OM_Inst/Prefs/Env-Archive/Sys")
  154.         )
  155.     ))
  156.     (if (exists "DF0:Prefs/Env-Archive/Sys/wbconfig.prefs") (
  157.         (copyfiles
  158.         (source "DF0:Prefs/Env-Archive/Sys/wbconfig.prefs")
  159.         (dest "RAM:OM_Inst/Prefs/Env-Archive/Sys")
  160.         )
  161.     ))
  162. ; ************************* C:
  163.     (if (exists "DF0:C/AddDataTypes") (
  164.         (copyfiles
  165.         (source "DF0:C/AddDataTypes")
  166.         (dest "RAM:OM_Inst/C")
  167.         )
  168.     ))
  169.     (copyfiles
  170.         (source "DF0:C/Assign")
  171.         (dest "RAM:OM_Inst/C")
  172.     )
  173.     (copyfiles
  174.         (source "DF0:C/Copy")
  175.         (dest "RAM:OM_Inst/C")
  176.     )
  177.     (copyfiles
  178.         (source "DF0:C/Ed")
  179.         (dest "RAM:OM_Inst/C")
  180.     )
  181.     (if (exists "DF0:S/Ed-Startup") (
  182.         (copyfiles
  183.         (source "DF0:S/Ed-Startup")
  184.         (dest "RAM:OM_Inst/S")
  185.         )
  186.     ))
  187.     (copyfiles
  188.         (source "DF0:C/Execute")
  189.         (dest "RAM:OM_Inst/C")
  190.     )
  191.     (copyfiles
  192.         (source "DF0:C/Install")
  193.         (dest "RAM:OM_Inst")
  194.     )
  195.     (copyfiles
  196.         (source "DF0:C/IPrefs")
  197.         (dest "RAM:OM_Inst/C")
  198.     )
  199.     (copyfiles
  200.         (source "DF0:C/LoadWB")
  201.         (dest "RAM:OM_Inst/C")
  202.     )
  203.     (copyfiles
  204.         (source "DF0:C/MakeDir")
  205.         (dest "RAM:OM_Inst/C")
  206.     )
  207.     (if (exists "DF0:C/SetPatch") (
  208.         (copyfiles
  209.         (source "DF0:C/SetPatch")
  210.         (dest "RAM:OM_Inst/C")
  211.         )
  212.     ))
  213.     (makedir "RAM:OM_Inst/Devs")
  214. ; ************************* DataTypes stuff...
  215.     (if (exists "DF0:Classes/DataTypes/amigaguide.datatype") (
  216.         (makedir "RAM:OM_Inst/Classes")
  217.         (makedir "RAM:OM_Inst/Classes/DataTypes")
  218.         (copyfiles
  219.         (source "DF0:Classes/DataTypes/amigaguide.datatype")
  220.         (dest "RAM:OM_Inst/Classes/DataTypes")
  221.         )
  222.     ))
  223.     (if (exists "DF0:Devs/DataTypes/AmigaGuide") (
  224.         (makedir "RAM:OM_Inst/Devs/DataTypes")
  225.         (copyfiles
  226.         (source "DF0:Devs/DataTypes/AmigaGuide")
  227.         (dest "RAM:OM_Inst/Devs/DataTypes")
  228.         )
  229.     ))
  230. ; ************************* Keymaps
  231.     (makedir "RAM:OM_Inst/Devs/Keymaps")
  232.     (if (exists "DF0:Devs/Keymaps/#?") (
  233.         (copyfiles
  234.         (source "DF0:Devs/Keymaps")
  235.         (dest "RAM:OM_Inst/Devs/Keymaps")
  236.         )
  237.     ))
  238. ; ************************* System
  239.     (if (exists "df0:system/rexxmast") (
  240.     (copyfiles
  241.         (source "DF0:System/RexxMast")
  242.         (dest "RAM:OM_Inst/System")
  243.     )
  244.     ))
  245. ; ************************* Rexxc
  246.     (if (exists "DF0:Rexxc") (
  247.         (copyfiles
  248.         (source "DF0:Rexxc/RX")
  249.         (dest "RAM:OM_Inst/Rexxc")
  250.         )
  251.         (copyfiles
  252.         (source "DF0:Rexxc/HI")
  253.         (dest "RAM:OM_Inst/Rexxc")
  254.         )
  255.     ))
  256.     ))
  257.     (if nonboot (
  258. ; ******* Non-bootable disk... get Guide viewer.
  259.     (if (exists "DF0:Utilities/Multiview") (
  260.         (copyfiles
  261.         (source "DF0:Utilities/Multiview")
  262.         (dest "RAM:OM_Inst/C")
  263.         )
  264.     )(
  265.         (if (exists "DF0:Utilities/AmigaGuide") (
  266.         (copyfiles
  267.             (source "DF0:Utilities/AmigaGuide")
  268.             (dest "RAM:OM_Inst/C")
  269.         )
  270.         ))
  271.     ))
  272.     (if (exists "DF0:Libs/amigaguide.library") (set noag 0) (set noag 1))
  273.     ))
  274.     (message    "I will now format the disk OctaMED will be installed on. "
  275.         "Please insert it in drive DF0: and click Proceed. From now on, "
  276.         "I will call the disk \"OctaMED Work Disk\".\n\n"
  277.         "WARNING: All data on that disk will be lost!"
  278.     )
  279.     (working "Formatting floppy. Please wait.")
  280.     (run "RAM:OM_Inst/Format >NIL: <NIL: DRIVE DF0: NAME OctaMED_6 FFS NOICONS")
  281.     (delete "RAM:OM_Inst/Format")
  282.     (working "Installing bootblock.")
  283.     (run "RAM:OM_Inst/Install DF0:")
  284.     (delete "RAM:OM_Inst/Install")
  285.     (askdisk
  286.     (prompt "insert OctaMED Installation Disk 2 in any Drive")
  287.     (dest "OctaMED_Disk_2")
  288.     (help @askdisk-help)
  289.     )
  290.     (copyfiles
  291.     (source "OctaMED_Disk_2:Files1")
  292.     (dest "RAM:OM_Inst")
  293.     (all)
  294.     (infos)
  295.     )
  296.  
  297.     (askdisk
  298.     (prompt "Insert OctaMED Installation Disk 1 in any Drive")
  299.     (dest "OctaMED_Disk_1")
  300.     (help @askdisk-help)
  301.     )
  302.  
  303.     (if (exists "RAM:OM_Inst/Libs/asl.library") (
  304.     (copyfiles
  305.         (source "OctaMED_Disk_1:Libs/asl.library")
  306.         (dest "RAM:OM_Inst/Libs")
  307.     )
  308.     ))
  309.     (if nonboot (
  310.     (copyfiles
  311.         (source "OctaMED_Disk_1:C/DecrunchPP")
  312.         (dest "RAM:")
  313.     )
  314.     (if (exists "RAM:OM_Inst/C/Multiview") (
  315.         (tooltype
  316.         (dest "RAM:OM_Inst/ReadMe.guide")
  317.         (setdefaulttool ":c/Multiview")
  318.         )
  319.         (tooltype
  320.         (dest "RAM:OM_Inst/OctaMED.guide")
  321.         (setdefaulttool ":c/Multiview")
  322.         )
  323.     )
  324.     (
  325.         (if (exists "RAM:OM_Inst/C/AmigaGuide") (
  326.         (tooltype
  327.             (dest "RAM:OM_Inst/ReadMe.guide")
  328.             (setdefaulttool ":c/AmigaGuide")
  329.         )
  330.         (tooltype
  331.             (dest "RAM:OM_Inst/OctaMED.guide")
  332.             (setdefaulttool ":c/AmigaGuide")
  333.         )
  334.         )
  335.         (   ; set XPKGuide
  336.         (copyfiles
  337.             (source "OctaMED_Disk_1:XPKGuide/XPKGuide")
  338.             (dest "RAM:OM_Inst/C")
  339.         )
  340.         (tooltype
  341.             (dest "RAM:OM_Inst/ReadMe.guide")
  342.             (setdefaulttool ":c/XPKGuide")
  343.         )
  344.         (tooltype
  345.             (dest "RAM:OM_Inst/OctaMED.guide")
  346.             (setdefaulttool ":c/XPKGuide")
  347.         )
  348.         ))
  349.     ))
  350.     ; Prefs and 'wb' not needed
  351.     (run "RAM:Delete >NIL: RAM:OM_Inst/Prefs all quiet")
  352.     (delete "RAM:OM_Inst/wb")
  353.     ))
  354.     (if toboot (
  355.     (copyfiles
  356.         (source "OctaMED_Disk_1:XPKGuide/XPKGuide")
  357.         (dest "RAM:OM_Inst/C")
  358.     )
  359.     ))
  360. ; *********** Set Default Tool for OctaMED.guide and ReadMe.guide
  361.     (if toboot (
  362.     (tooltype
  363.         (dest "RAM:OM_Inst/ReadMe.guide")
  364.         (setdefaulttool ":c/XPKGuide")
  365.     )
  366.     (tooltype
  367.         (dest "RAM:OM_Inst/OctaMED.guide")
  368.         (setdefaulttool ":c/XPKGuide")
  369.     )
  370.     ))
  371.     (if noag (
  372.     (copyfiles
  373.         (source "OctaMED_Disk_1:Libs/amigaguide.library")
  374.         (dest "RAM:OM_Inst/Libs")
  375.     )
  376.     ))
  377.     (askdisk
  378.     (prompt "Please insert the OctaMED Work Disk in DF0:")
  379.     (dest "OctaMED_6")
  380.     (help @askdisk-help)
  381.     )
  382.     (working)
  383.     (if nonboot (   ; non-bootable -> decrunch OctaMED.guide
  384.     (run "RAM:DecrunchPP >NIL: RAM:OM_Inst/OctaMED.guide OctaMED_6:OctaMED.guide")
  385.     (delete "RAM:OM_Inst/OctaMED.guide")
  386.     ))
  387.     (if toboot (    ; bootable -> no need for Install_Libs
  388.     (delete "RAM:OM_Inst/Install_Libs")
  389.     (delete "RAM:OM_Inst/Install_Libs.info")
  390.     ))
  391.     (copyfiles
  392.     (source "RAM:OM_Inst")
  393.     (dest "OctaMED_6:")
  394.     (all)
  395.     (infos)
  396.     )
  397.     (run "RAM:delete >NIL: RAM:OM_Inst all quiet")
  398.     (if toboot (
  399.     (makedir "OctaMED_6:Locale")
  400.     (makedir "OctaMED_6:S")
  401.     (textfile
  402.         (dest "OctaMED_6:S/Startup-Sequence")
  403.         (append "SetPatch <NIL: >NIL:\n")
  404.         (append "Copy >NIL: ENVARC: RAM:ENV ALL NOREQ\n")
  405.         (append "Makedir RAM:T\n")
  406.         (append "Assign >NIL: ENV: RAM:ENV\n")
  407.         (append "Assign >NIL: REXX: SYS:Rexx\n")
  408.         (append "Assign >NIL: KEYMAPS: DEVS:Keymaps\n")
  409.         (append (if (exists "OctaMED_6:Classes") "Assign >NIL: LIBS: SYS:Classes ADD\n" ""))
  410.         (append "Assign >NIL: HELP: SYS:\n")
  411.         (append "Assign >NIL: Locale: SYS:Locale\n")
  412.         (append "Assign >NIL: T: RAM:T\n")
  413.         (append "Path C: SYS:Rexxc ADD\n")
  414.         (append (if (exists "OctaMED_6:C/AddDataTypes") "AddDataTypes REFRESH QUIET\n" ""))
  415.         (append "IPrefs\n")
  416.         (append ":System/RexxMast >NIL:\n")
  417.         (append "echo \"*n########################################################\"\n")
  418.         (append "echo \"# Note: This disk contains Copyrighted material which  #\"\n")
  419.         (append "echo \"# is © 1995 to Teijo Kinnunen and Ray Burt-Frost.      #\"\n")
  420.         (append "echo \"# Distribution of this disk is illegal and prohibited. #\"\n")
  421.         (append "echo \"# It has been encoded with your name and address.      #\"\n")
  422.         (append "echo \"# Type 'XPKGuide ReadMe.guide' at the Shell prompt to  #\"\n")
  423.         (append "echo \"# view the full copyright notice.                      #\"\n")
  424.         (append "echo \"#                                                      #\"\n")
  425.         (append "echo \"#                OctaMED is now loading                #\"\n")
  426.         (append "echo \"# If you exit the program Type 'wb' to load Workbench. #\"\n")
  427.         (append "echo \"########################################################*n\"\n")
  428.         (append "OctaMED\n")
  429.     )
  430.     ))
  431.     (askdisk
  432.     (prompt "Insert OctaMED Installation Disk 1 in any Drive")
  433.     (dest "OctaMED_Disk_1")
  434.     (help @askdisk-help)
  435.     )
  436.     (copyfiles
  437.     (source "OctaMED_Disk_1:Files2")
  438.     (dest "RAM:OM_Inst")
  439.     (all)
  440.     )
  441.     (if nonboot (   ; non-bootable -> decrunch player code files
  442.     (run "RAM:DecrunchPP >NIL: RAM:OM_Inst/Player_std.code RAM:OM_Inst/Player_std.code")
  443.     (run "RAM:DecrunchPP >NIL: RAM:OM_Inst/Player_8.code RAM:OM_Inst/Player_8.code")
  444.     (run "RAM:DecrunchPP >NIL: RAM:OM_Inst/Player_midi.code RAM:OM_Inst/Player_midi.code")
  445.     (delete "RAM:DecrunchPP")
  446.     ))
  447.     (askdisk
  448.     (prompt "Please insert the OctaMED Work Disk in any drive.")
  449.     (dest "OctaMED_6")
  450.     (help @askdisk-help)
  451.     )
  452.     (copyfiles
  453.     (source "RAM:OM_Inst")
  454.     (dest "OctaMED_6:")
  455.     (all)
  456.     )
  457.     (if nonboot (   ; non-bootable -> install Extras stuff
  458.     (run "RAM:delete >NIL: RAM:OM_Inst/#? all quiet")
  459.     (askdisk
  460.         (prompt "Insert OctaMED Installation Disk 2 in any Drive")
  461.         (dest "OctaMED_Disk_2")
  462.         (help @askdisk-help)
  463.     )
  464.     (copyfiles
  465.         (source "OctaMED_Disk_2:Extras/Keyboard")
  466.         (dest "RAM:OM_Inst/Keyboard")
  467.         (all)
  468.     )
  469.     (copyfiles
  470.         (source "OctaMED_Disk_2:Extras/Rexx")
  471.         (dest "RAM:OM_Inst/Rexx")
  472.         (all)
  473.     )
  474.     (askdisk
  475.         (prompt "Please insert the OctaMED Work Disk in any drive.")
  476.         (dest "OctaMED_6")
  477.         (help @askdisk-help)
  478.     )
  479.     (makedir "OctaMED_6:Keyboard")
  480.     (copyfiles
  481.         (source "RAM:OM_Inst/Keyboard")
  482.         (dest "OctaMED_6:Keyboard")
  483.         (all)
  484.     )
  485.     (copyfiles
  486.         (source "RAM:OM_Inst/Rexx")
  487.         (dest "OctaMED_6:Rexx")
  488.         (all)
  489.     )
  490.     ))
  491.     (run "RAM:delete >NIL: RAM:OM_Inst all quiet")
  492.     (delete "RAM:Delete")
  493.     (set @default-dest "")
  494.     (if nonboot (
  495.     (if (= aslok 0) (
  496.         (if (askbool
  497.         (prompt "Your Workbench disk contains asl.library version 2.0. "
  498.             "OctaMED requires version 2.1 or later. Do you want to "
  499.             "install asl.library 2.1 on your Workbench disk?")
  500.         (help   @askbool-help))
  501.         (
  502.         (copyfiles
  503.             (source "OctaMED_Disk_1:Libs/asl.library")
  504.             (dest "RAM:")
  505.         )
  506.         (message "Please insert your Workbench disk in drive DF0: and "
  507.             "click Proceed. (Remember to remove write protection.) ")
  508.         (copylib
  509.             (prompt "Installing \"asl.library\" to LIBS:")
  510.             (confirm)
  511.             (help "asl.library is used for improved font and file\n"
  512.               "requesters.")
  513.             (source "RAM:asl.library")
  514.             (dest "DF0:Libs")
  515.         )
  516.         (delete "RAM:asl.library")
  517.         ))
  518.     ))
  519.     (message    "Non-bootable floppy installation is now complete. "
  520.         "In order to utilize all features of OctaMED, you "
  521.         "should have the following libraries installed on your "
  522.         "boot disk: amigaguide.library, powerpacker.library, "
  523.         "lh.library. The work disk contains a script \"Install_Libs\", "
  524.         "which copies these libraries onto your boot disk LIBS drawer. "
  525.         "Note that a standard Workbench disk (especially WB 2.x) may "
  526.         "not have enough disk space to accommodate all these libraries "
  527.         "by default. In that case, you will have to delete files "
  528.         "manually from your boot disk."
  529.     )
  530.     ))
  531.     (exit)
  532. )
  533. ; *************' Hard Disk Installation
  534. (
  535.     (set inst_dir (askdir (prompt "Please select the destination directory")
  536.     (default @default-dest)
  537.     (help   "You must select the directory where OctaMED will be installed to. "
  538.         "I will create a drawer called 'OctaMED6' and install OctaMED there."
  539.     )))
  540.     (set inst_dest (tackon inst_dir "OctaMED6"))
  541.     (makedir inst_dest)
  542.     (copyfiles
  543.     (source "OctaMED_Disk_1:Files2/OctaMED")
  544.     (dest inst_dest)
  545.     )
  546.     (run ("OctaMED_Disk_1:C/DecrunchPP OctaMED_Disk_1:Files2/Player_std.code %s/Player_std.code" inst_dest))
  547.     (run ("OctaMED_Disk_1:C/DecrunchPP OctaMED_Disk_1:Files2/Player_8.code %s/Player_8.code" inst_dest))
  548.     (run ("OctaMED_Disk_1:C/DecrunchPP OctaMED_Disk_1:Files2/Player_midi.code %s/Player_midi.code" inst_dest))
  549.     (copyfiles
  550.     (source "OctaMED_Disk_1:HD_Icons/OctaMED6.info")
  551.     (dest inst_dir)
  552.     )
  553.     (copyfiles
  554.     (source "OctaMED_Disk_1:HD_Icons/OctaMED.info")
  555.     (dest inst_dest)
  556.     )
  557.     (copyfiles
  558.     (source "OctaMED_Disk_1:HD_Icons/OctaMED.guide.info")
  559.     (dest inst_dest)
  560.     )
  561.     (copyfiles
  562.     (source "OctaMED_Disk_1:HD_Icons/ReadMe.guide.info")
  563.     (dest inst_dest)
  564.     )
  565.     (copyfiles
  566.     (source "OctaMED_Disk_1:HD_Icons/Icons.info")
  567.     (dest inst_dest)
  568.     )
  569.     (if (= (exists "SYS:Utilities/Multiview") 0) ;if Multiview's there, do nothing
  570.     (   (if (exists "SYS:Utilities/AmigaGuide") (
  571.         ; AG exists, modify tooltypes
  572.         (tooltype
  573.             (dest ("%s/ReadMe.guide" inst_dest))
  574.             (setdefaulttool "SYS:Utilities/AmigaGuide")
  575.         )
  576.         (tooltype
  577.             (dest ("%s/OctaMED.guide" inst_dest))
  578.             (setdefaulttool "SYS:Utilities/AmigaGuide")
  579.         )
  580.         )
  581.         ; No Multiview or AmigaGuide, copy XPKGuide to OctaMED drawer
  582.         (
  583.         (copyfiles
  584.             (source "OctaMED_Disk_1:XPKGuide/XPKGuide")
  585.             (dest inst_dest)
  586.         )
  587.         (tooltype
  588.             (dest ("%s/ReadMe.guide" inst_dest))
  589.             (setdefaulttool "XPKGuide")
  590.         )
  591.         (tooltype
  592.             (dest ("%s/OctaMED.guide" inst_dest))
  593.             (setdefaulttool "XPKGuide")
  594.         )
  595.         ))
  596.     )
  597.     )
  598.  
  599.     (askdisk
  600.     (prompt "Insert OctaMED Installation Disk 2 in any Drive")
  601.     (dest "OctaMED_Disk_2")
  602.     (help @askdisk-help)
  603.     )
  604.  
  605.  
  606.     (run ("OctaMED_Disk_2:C/DecrunchPP OctaMED_Disk_2:Files1/OctaMED.guide %s/OctaMED.guide" inst_dest))
  607.     (set n 0)
  608.     (while (set f_name (select n "ReadMe.guide" "OctaMEDPro.defkeyboard" ""))
  609.     (   (set n (+ n 1))
  610.         (copyfiles
  611.         (source ("OctaMED_Disk_2:Files1/%s" f_name))
  612.         (dest inst_dest)
  613.         )
  614.     )
  615.     )
  616.     (copyfiles
  617.     (source "OctaMED_Disk_2:Files1/Icons")
  618.     (dest ("%s/Icons" inst_dest))
  619.     (all)
  620.     )
  621.  
  622.     (askdisk
  623.     (prompt "Insert OctaMED Installation Disk 1 in any Drive")
  624.     (dest "OctaMED_Disk_2")
  625.     (help @askdisk-help)
  626.     )
  627.  
  628.  
  629.     (copylib
  630.     (prompt "Installing \"powerpacker.library\" by Nico Francois")
  631.     (confirm)
  632.     (help "\"PowerPacker.library\" is written by Nico Francois.\n"
  633.           "You can save and load \"PowerPacked\" samples and modules\n"
  634.           "into Octamed Pro 6.  This will enable you to save valuable\n"
  635.           "disk space")
  636.     (source "OctaMED_Disk_1:Libs/powerpacker.library")
  637.     (dest "LIBS:")
  638.     )
  639.     (copylib
  640.     (prompt "Installing \"lh.library\" by Holger P. Krekel and \n"
  641.         "                               Olaf `Olsen' Barthel")
  642.     (confirm)
  643.     (help "\"lh.library\" was written by Holger P. Krekel\n"
  644.           "& Olaf `Olsen' Barthel.\n"
  645.           "It uses highly optimized assembly language versions\n"
  646.           "of LhArc data decompression routines, for a fast and\n"
  647.           "massive storage saving.")
  648.     (source "OctaMED_Disk_1:Libs/lh.library")
  649.     (dest "LIBS:")
  650.     )
  651.     (copylib
  652.     (prompt "Installing Commodore's \"amigaguide.library\"")
  653.     (confirm)
  654.     (help "\"amigaguide.library\" has been shipped as standard\n"
  655.           "with Amiga's since version 2.1 of Workbench.\n\n"
  656.           "If you are using 3.0 or above, installation of this\n"
  657.           "library is NOT recommended, as you should have a\n"
  658.           "newer version of the library.")
  659.     (source "OctaMED_Disk_1:Libs/amigaguide.library")
  660.     (dest "LIBS:")
  661.     )
  662.     (copylib
  663.     (Prompt "Installing Commodore's \"asl.library\"")
  664.     (confirm)
  665.     (help "\"asl.library\" is part of the Amiga system software\n"
  666.           "since version 2.xx.  It vastly improves the File and\n"
  667.           "font requesters.\n\n"
  668.           "Kickstart 3.0+ users (A1200/4000) should not install this\n"
  669.           "library, as you should already have the latest version\n"
  670.           "installed in your LIBS: drawer.")
  671.     (source "OctaMED_Disk_1:Libs/asl.library")
  672.     (dest "LIBS:")
  673.     )
  674.     (set inst_parts (askoptions
  675.     (prompt "Which parts of OctaMED support files would you "
  676.         "like to install on your hard disk?")
  677.     (choices "OctaMEDPlayer" "Player libraries" "Player source" "Demo songs" "Widetop font" "Extras")
  678.     (help   "OctaMEDPlayer is an external player program for "
  679.         "playing OctaMED songs.\n\n"
  680.         "Player libraries (medplayer.library and octaplayer.library) "
  681.         "may be used by some external programs. These libraries will "
  682.         "be installed to your LIBS: drawer.\n\n"
  683.         "Player sources are required only by programmers who intend "
  684.         "to use OctaMED songs in their own programs.\n\n"
  685.         "Demo songs are for your listening pleasure, and for demonstrating "
  686.         "some of OctaMED's capabilities.\n\n"
  687.         "Widetop is a Topaz-like font for OctaMED's editor display. It's "
  688.         "especially suitable for medium resolution screens.\n\n"
  689.         "Extras contains OctaMED's ARexx documentation, ARexx examples and additional "
  690.         "keyboard shortcut files you may find useful.\n\n"
  691.         "- Note: These files are available on Disk 2. If you don't want "
  692.         "to install them now, you can install them later by hand or load "
  693.         "them directly from Disk 2."
  694.     )
  695.     ))
  696.     ))
  697.     ; ******* OctaMEDPlayer icons
  698.     (if (IN inst_parts 0) (
  699.     (copyfiles
  700.         (source "OctaMED_Disk_1:HD_Icons/OctaMEDPlayer.info")
  701.         (dest inst_dest)
  702.     )
  703.     (copyfiles
  704.         (source "OctaMED_Disk_1:HD_Icons/OctaMEDPlayer")
  705.         (dest ("%s/OctaMEDPlayer" inst_dest))
  706.         (all)
  707.     )
  708.     (if (= (exists "SYS:Utilities/Multiview") 0) ( ;if Multiview's there, do nothing
  709.         (   (if (exists "SYS:Utilities/AmigaGuide") (
  710.         ; AG exists, modify tooltype
  711.             (tooltype
  712.             (dest ("%s/OctaMEDPlayer/OctaMEDPlayer.guide" inst_dest))
  713.             (setdefaulttool "SYS:Utilities/AmigaGuide")
  714.             )
  715.         ))
  716.         )
  717.         ; use XPKGuide then...
  718.         (
  719.         (tooltype
  720.             (dest ("%s/OctaMEDPlayer/OctaMEDPlayer.guide" inst_dest))
  721.             (setdefaulttool "/XPKGuide")
  722.         )
  723.         )
  724.     ))
  725.     ))
  726.     ; ******* Demos drawer icon
  727.     (if (IN inst_parts 3) (
  728.     (copyfiles
  729.         (source "OctaMED_Disk_1:HD_Icons/Demos.info")
  730.         (dest inst_dest)
  731.     )
  732.     ))
  733.     ; ******* Programmers drawer icon
  734.     (if (IN inst_parts 2) (
  735.     (copyfiles
  736.         (source "OctaMED_Disk_1:HD_Icons/Programmers.info")
  737.         (dest inst_dest)
  738.     )
  739.     ))
  740.     (if (IN inst_parts 0 1 2 3 5) (
  741.     (askdisk
  742.         (prompt "Please insert OctaMED Disk 2 in any drive")
  743.         (dest "OctaMED_Disk_2")
  744.         (help @askdisk-help)
  745.     )
  746.  
  747.     ; ******* Widetop font
  748.     (if (IN inst_parts 0) (
  749.     (copyfiles
  750.         (source "OctaMED_Disk_2:Files1/Fonts")
  751.         (dest "FONTS:")
  752.         (all)
  753.     )
  754.  
  755.     ; ******* OctaMEDPlayer
  756.     (if (IN inst_parts 1) (
  757.         (copyfiles
  758.         (source "OctaMED_Disk_2:OctaMEDPlayer")
  759.         (dest ("%s/OctaMEDPlayer" inst_dest))
  760.         (pattern "~(#?.info)")
  761.         )
  762.     ))
  763.     ; ******* Player libraries
  764.     (if (IN inst_parts 2) (
  765.         (copyfiles
  766.         (prompt "About to install libraries needed by Octamed")
  767.         (confirm)
  768.         (help "Just testing!!!")
  769.         (source "OctaMED_Disk_2:files1/Libs")
  770.         (dest "LIBS:")
  771.         (all)
  772.         )
  773.     ))
  774.     ; ******* Player source
  775.     (if (IN inst_parts 3) (
  776.         (copyfiles
  777.         (source "OctaMED_Disk_2:Programmers")
  778.         (dest ("%s/Programmers" inst_dest))
  779.         (all)
  780.         )
  781.     ))
  782.     ; ******* Demo songs
  783.     (if (IN inst_parts 4) (
  784.         (copyfiles
  785.         (source "OctaMED_Disk_2:Demos")
  786.         (dest ("%s/Demos" inst_dest))
  787.         (all)
  788.         )
  789.     ))
  790.     ; ******* Extras
  791.     (if (IN inst_parts 5) (
  792.         (copyfiles
  793.         (source "OctaMED_Disk_2:Extras")
  794.         (dest inst_dest)
  795.         (all)
  796.         )
  797.     ))
  798.     ))
  799.     (set @default-dest inst_dest)
  800.     (exit)
  801. ))