home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Misc / MEDIAPOINT1.DMS / in.adf / MediaPoint_Install < prev    next >
Encoding:
Text File  |  1993-10-19  |  22.1 KB  |  959 lines
  1. (set ProdName    "MediaPoint")
  2. (set ProdDirName "MediaPoint")
  3.  
  4. ; What? *******************************************************************
  5.  
  6. (procedure SetInstOpts
  7.     (if (> @user-level 0)
  8.         (set InstOpts
  9.             (askoptions
  10.  
  11.                 (prompt
  12.                     ("Select the parts of %s you want to install " ProdName)
  13.                     "on your system."
  14.                 )
  15.  
  16.                 (help
  17.                     "This part of the installation lets you select the "
  18.                     ("parts of %s you want to install on your system.\n\n" ProdName)
  19.                     "To use the tutorial scripts and pages you should install "
  20.                     "all options.\n\n"
  21.                     "The files will fill approx. 8MB on harddisk.\n\n"
  22.                     ("%s\n" ProdName)
  23.                     "This option let you install the main program, "
  24.                     "associated system files, fonts and Xapps.\n\n"
  25.                     "Fonts\n"
  26.                     "This option lets you install the provided fonts.\n\n"
  27.                     "Scripts\n"
  28.                     "This option lets you install the tutorial and example scripts."
  29.                     "In order to run these scripts, you need to install all other "
  30.             "files.\n\n"
  31.                     "Animations\n"
  32.                     "This option lets you install the provided example animations.\n\n"
  33.                     "ClipArt\n"
  34.                     "This option lets you install the provided example multi media clipart.\n\n"
  35.                     "Maps\n"
  36.                     "This option lets you install the provided example maps.\n\n"
  37.                     "Pictograms\n"
  38.                     "This option lets you install the provided example pictograms.\n\n"
  39.                     "Pictures\n"
  40.                     "This option lets you install the provided example pictures.\n\n"
  41.                     "Textures\n"
  42.                     "This option lets you install the provided example textures.\n\n"
  43.                     "Modules\n"
  44.                     "This option lets you install the provided music modules.\n\n"
  45.                     "Samples\n"
  46.                     "This option lets you install the provided digitized sound samples.\n\n"
  47.  
  48.                     @askoptions-help
  49.                 )
  50.                 (choices
  51.                     ("%s" ProdName)
  52.                     "Xapps"
  53.                     "Fonts"
  54.                     "Scripts"
  55.                     "Animations"
  56.                     "ClipArt"
  57.                     "Maps"
  58.                     "Pictograms"
  59.                     "Pictures"
  60.                     "Textures"
  61.                     "Modules"
  62.                     "Samples"
  63.             )
  64.             )
  65.         )
  66.     )
  67. )
  68.  
  69. ; Where? *******************************************************************
  70.  
  71. (procedure SetProdPlace
  72.  
  73. (set ProgDir "MediaPoint")
  74. (set DestDir (tackon @default-dest ProgDir))
  75. (transcript "Selecting target drawer.")
  76. (if (> @user-level 1) ; only ask the experts
  77.     (set DestDir          
  78.         (askdir
  79.             (prompt "In which drawer should MediaPoint be installed?")
  80.             (help @copyfiles-help
  81.             )
  82.             (default DestDir)
  83.         )
  84.     )
  85.       (makedir DestDir (infos))       
  86. )
  87.     (set @default-dest DestDir)   
  88. )
  89.  
  90. ; Lha and Delete  ********************************************************
  91.  
  92. (procedure Install_Requested
  93.  
  94.     (set DestDir "ram:")
  95.     (copyfiles
  96.         (prompt "I will now copy the install files to ram:.")
  97.         (help @copyfiles-help)
  98.         (source "MediaPoint1:utils")
  99.         (noposition) 
  100.         (all)
  101.         (infos)
  102.         (dest Destdir)
  103.     )
  104.  
  105. ;*********
  106. ;* DISK1 *
  107. ;*********
  108.  
  109. ; Directories setup ********************************************************
  110.  
  111.     (if (IN InstOpts 0)
  112.     (
  113.         (askdisk 
  114.             (prompt "\nPlease insert disk\n\nMediaPoint1\n\nin any drive")
  115.             (dest "MediaPoint1")
  116.             (help @askdisk-help)
  117.         )
  118.  
  119.         (set DestDir "RAM:Temp")
  120.         (copyfiles
  121.             (prompt ("Setting Up %s directories." ProdName))
  122.             (help @copyfiles-help)
  123.             (source "MediaPoint1:Directories.lha")
  124.             (dest DestDir)
  125.         )
  126.         (working "Now decrunching files to ram:")
  127.         (run ("ram:lha e ram:temp/Directories.lha ram:temp/"))
  128.         (delete "RAM:temp/Directories.lha")
  129.  
  130.         (set DestDir @default-dest)
  131.         (copyfiles
  132.             (prompt ("I will now copy the %s Directories and icons." ProdName))
  133.             (help @copyfiles-help)
  134.             (source "Ram:Temp")
  135.             (all)
  136.             (infos)
  137.             (noposition)
  138.             (dest DestDir)
  139.         )
  140.         (run ("ram:delete ram:temp/#? ALL"))
  141.     )
  142.     )
  143.  
  144. ; MediaPoint program ******************************************************
  145.  
  146.     (if (IN InstOpts 0)
  147.     (
  148.         (set DestDir "RAM:Temp")
  149.         (copyfiles
  150.             (prompt ("I will now copy the %s main program to RAM:." ProdName))
  151.             (help @copyfiles-help)
  152.             (source "MediaPoint1:MediaPoint.lha")
  153.             (dest DestDir)
  154.         )
  155.         (working "Now decrunching files to ram:")
  156.         (run ("ram:lha e ram:temp/MediaPoint.lha ram:temp/"))
  157.         (delete "RAM:temp/MediaPoint.lha")
  158.  
  159.         (set DestDir @default-dest)
  160.         (copyfiles
  161.             (prompt ("I will now copy the %s main program." ProdName))
  162.             (help @copyfiles-help)
  163.             (source "Ram:Temp")
  164.             (all)
  165.             (infos)
  166.             (dest DestDir)
  167.         )
  168.         (run ("ram:delete ram:temp/#? ALL"))
  169.     )
  170.     )
  171.  
  172. ; System files ************************************************************
  173.  
  174.     (if (IN InstOpts 0)
  175.     (
  176.         (set DestDir "RAM:Temp")
  177.         (copyfiles
  178.             (prompt ("I will now copy the %s system files to RAM:." ProdName))
  179.             (help @copyfiles-help)
  180.             (source "MediaPoint1:system.lha")
  181.             (dest DestDir)
  182.         )
  183.         (working "Now decrunching files to ram:")
  184.         (run ("ram:lha e ram:temp/system.lha ram:temp/"))
  185.         (delete "RAM:temp/system.lha")
  186.         (copyfiles
  187.             (prompt ("I will now copy %s system files." ProdName))
  188.             (help @copyfiles-help)
  189.             (source "Ram:Temp")
  190.             (all)
  191.             (infos)
  192.             (dest (tackon @default-dest "system"))
  193.         )
  194.         (run ("ram:delete ram:temp/#? ALL"))
  195.     )
  196.     )
  197.  
  198. ; System font *************************************************************
  199.  
  200.     (if (IN InstOpts 0)
  201.     (
  202.         (askdisk 
  203.             (prompt "\nPlease insert disk\n\nMediaPoint1\n\nin any drive")
  204.             (dest "MediaPoint1")
  205.             (help @askdisk-help)
  206.         )
  207.  
  208.         (set DestDir "RAM:Temp")
  209.         (copyfiles
  210.             (prompt ("I will now copy the %s system fonts to RAM:." ProdName))
  211.             (help @copyfiles-help)
  212.             (source "MediaPoint1:fonts.lha")
  213.             (dest DestDir)
  214.         )
  215.         (working "Now decrunching files to ram:")
  216.         (run ("ram:lha e ram:temp/fonts.lha ram:temp/"))
  217.         (delete "RAM:temp/fonts.lha")
  218.  
  219.         (set DestDir "Fonts:")
  220.         (copyfiles
  221.             (prompt ("I will now copy the %s system font." ProdName))
  222.             (help @copyfiles-help)
  223.             (source "Ram:Temp")
  224.             (all)
  225.             (dest DestDir)
  226.         )
  227.         (run ("ram:delete ram:temp/#? ALL"))
  228.     )
  229.     )
  230.  
  231. ; Assign ******************************************************************
  232.  
  233.     (if (>= osver 39)
  234.           (
  235.              (onerror
  236.                 (message
  237.                    "Didn't update startup sequence.  You will need to "
  238.                    "add the following commands manually: "
  239.                    "Assign MP: \"" @default-dest "\"\n"
  240.                 )
  241.              )
  242.  
  243.              (startup "MediaPoint"
  244.                 (prompt
  245.                    "Do you want to add an MP: assign to your startup sequence?"
  246.                 )
  247.                 (help @startup-help)
  248.                 (command
  249.                    "Assign MP: \"" @default-dest "\"\n"
  250.                 )
  251.              )
  252.           )
  253.           ;else
  254.           (
  255.              (onerror
  256.                 (message
  257.                    "Didn't update startup sequence.  You will need to "
  258.                    "add the following command manually: "
  259.                     "Assign MP: \"" @default-dest "\"\n"
  260.                 )
  261.              )
  262.  
  263.              (startup "MediaPoint"
  264.                 (prompt "Do you want to add an MP: assign to your Startup sequence?")
  265.                 (help @startup-help)
  266.                 (command "Assign MP: \"" @default-dest "\"")
  267.              )
  268.           )
  269.        )
  270.  
  271. ;*********
  272. ;* DISK2 *
  273. ;*********
  274.  
  275. ; Xapps ******************************************************************
  276.  
  277.     (set DestDir @default-dest)
  278.     (if (IN InstOpts 1)
  279.     (
  280.         (askdisk 
  281.             (prompt "\nPlease insert disk\n\nMediaPoint2\n\nin any drive")
  282.             (dest "MediaPoint2")
  283.             (help @askdisk-help)
  284.         )
  285.  
  286.         (set DestDir "RAM:Temp")
  287.         (copyfiles
  288.             (prompt ("I will now copy the %s Xapps to RAM:." ProdName))
  289.             (help @copyfiles-help)
  290.             (source "MediaPoint2:Xapps.lha")
  291.             (dest DestDir)
  292.         )
  293.         (working "Now decrunching files to ram:")
  294.         (run ("ram:lha e ram:temp/Xapps.lha ram:temp/"))
  295.         (delete "RAM:temp/Xapps.lha")
  296.  
  297.         (set DestDir (tackon @default-dest "Xapps"))
  298.  
  299.         (copyfiles
  300.             (prompt ("Select the Xapps you wish to install"))
  301.             (help @copyfiles-help)
  302.             (source "Ram:Temp")
  303.             (all)
  304.             (infos)
  305.             (confirm)
  306.             (noposition)
  307.             (dest DestDir)
  308.         )
  309.         (run ("ram:delete ram:temp/#? ALL"))
  310.     )
  311.     )
  312.  
  313.  
  314.  
  315. ; Player device if xapps copied ********************************************
  316.  
  317.     (set DestDir @default-dest)
  318.     (if (IN InstOpts 1)
  319.     (
  320.         (askdisk 
  321.             (prompt "\nPlease insert disk\n\nMediaPoint2\n\nin any drive")
  322.             (dest "MediaPoint2")
  323.             (help @askdisk-help)
  324.         )
  325.  
  326.         (set DestDir "RAM:Temp")
  327.         (copyfiles
  328.             (prompt ("I will now copy the %s LaserDisc players to RAM:." ProdName))
  329.             (help @copyfiles-help)
  330.             (source "MediaPoint2:Players.lha")
  331.             (dest DestDir)
  332.         )
  333.         (working "Now decrunching files to ram:")
  334.         (run ("ram:lha e ram:temp/Players.lha ram:temp/"))
  335.         (delete "RAM:temp/Players.lha")
  336.  
  337.         (set DestDir "Devs:")
  338.  
  339.         (copyfiles
  340.             (prompt ("Installing the LaserDisc drivers."))
  341.             (help @copyfiles-help)
  342.             (source "Ram:Temp")
  343.             (all)
  344.             (infos)
  345.             (noposition)
  346.             (dest DestDir)
  347.         )
  348.         (run ("ram:delete ram:temp/#? ALL"))
  349.     )
  350.     )
  351.  
  352. ; MIDI libs **************************************************************
  353.  
  354.     (set DestDir @default-dest)
  355.     (if (IN InstOpts 1)
  356.     (
  357.         (askdisk 
  358.             (prompt "\nPlease insert disk\n\nMediaPoint2\n\nin any drive")
  359.             (dest "MediaPoint2")
  360.             (help @askdisk-help)
  361.         )
  362.  
  363.         (set DestDir "RAM:Temp")
  364.         (copyfiles
  365.             (prompt ("I will now copy the %s libraries to RAM:." ProdName))
  366.             (help @copyfiles-help)
  367.             (source "MediaPoint2:libs.lha")
  368.             (dest DestDir)
  369.         )
  370.         (working "Now decrunching files to ram:")
  371.         (run ("ram:lha e ram:temp/libs.lha ram:temp/"))
  372.         (delete "RAM:temp/libs.lha")
  373.  
  374.         (set DestDir "Libs:")
  375.  
  376.         (copyfiles
  377.             (prompt ("Installing the libraries."))
  378.             (help @copyfiles-help)
  379.             (source "Ram:Temp")
  380.             (all)
  381.             (infos)
  382.             (noposition)
  383.             (dest DestDir)
  384.         )
  385.         (run ("ram:delete ram:temp/#? ALL"))
  386.     )
  387.     )
  388.  
  389. ; Fonts other than system font *********************************************
  390.  
  391.     (set DestDir @default-dest)
  392.     (if (IN InstOpts 2)
  393.     (
  394.         (askdisk 
  395.             (prompt "\nPlease insert disk\n\nMediaPoint2\n\nin any drive")
  396.             (dest "MediaPoint2")
  397.             (help @askdisk-help)
  398.         )
  399.  
  400.         (set DestDir "RAM:Temp")
  401.         (copyfiles
  402.             (prompt ("I will now copy the %s fonts to RAM:." ProdName))
  403.             (help @copyfiles-help)
  404.             (source "MediaPoint2:mpfonts.lha")
  405.             (dest DestDir)
  406.         )
  407.         (working "Now decrunching files to ram:")
  408.         (run ("ram:lha e ram:temp/mpfonts.lha ram:temp/"))
  409.         (delete "RAM:temp/mpfonts.lha")
  410.  
  411.         (set DestDir "Fonts:")
  412.         (copyfiles
  413.             (prompt ("I will now copy the %s system font." ProdName))
  414.             (help @copyfiles-help)
  415.             (source "Ram:Temp")
  416.             (all)
  417.             (fonts)
  418.             (confirm)
  419.             (dest DestDir)
  420.         )
  421.         (run ("ram:delete ram:temp/#? ALL"))
  422.     )
  423.     )
  424.  
  425.     ; ClipArt *************************************************
  426.  
  427.     (set DestDir @default-dest)
  428.     (if (IN InstOpts 5)
  429.     (
  430.         (askdisk 
  431.             (prompt "\nPlease insert disk\n\nMediaPoint2\n\nin any drive")
  432.             (dest "MediaPoint2")
  433.             (help @askdisk-help)
  434.         )
  435.  
  436.         (set DestDir "RAM:Temp")
  437.         (copyfiles
  438.             (prompt ("I will now copy the %s ClipArt to RAM:." ProdName))
  439.             (help @copyfiles-help)
  440.             (source "MediaPoint2:ClipArt.lha")
  441.             (dest DestDir)
  442.         )
  443.         (working "Now decrunching files to ram:")
  444.         (run ("ram:lha e ram:temp/ClipArt.lha ram:temp/"))
  445.         (delete "RAM:temp/ClipArt.lha")
  446.  
  447.         (set DestDir (tackon @default-dest "Graphics/Clipart"))
  448.         (copyfiles
  449.             (prompt ("I will now copy the %s ClipArt." ProdName))
  450.             (help @copyfiles-help)
  451.             (source "Ram:Temp")
  452.             (all)
  453.             (infos)
  454.             (noposition)
  455.             (dest DestDir)
  456.         )
  457.         (run ("ram:delete ram:temp/#? ALL"))
  458.     )
  459.     )
  460.  
  461.     ; Maps ************************************************************
  462.  
  463.     (set DestDir @default-dest)
  464.     (if (IN InstOpts 6)
  465.     (
  466.         (askdisk 
  467.             (prompt "\nPlease insert disk\n\nMediaPoint2\n\nin any drive")
  468.             (dest "MediaPoint2")
  469.             (help @askdisk-help)
  470.         )
  471.  
  472.         (set DestDir "RAM:Temp")
  473.         (copyfiles
  474.             (prompt ("I will now copy the %s Maps to RAM:." ProdName))
  475.             (help @copyfiles-help)
  476.             (source "MediaPoint2:Maps.lha")
  477.             (dest DestDir)
  478.         )
  479.         (working "Now decrunching files to ram:")
  480.         (run ("ram:lha e ram:temp/Maps.lha ram:temp/"))
  481.         (delete "RAM:temp/Maps.lha")
  482.  
  483.         (set DestDir (tackon @default-dest "Graphics/Maps"))
  484.         (copyfiles
  485.             (prompt ("I will now copy the %s Maps." ProdName))
  486.             (help @copyfiles-help)
  487.             (source "Ram:Temp")
  488.             (all)
  489.             (infos)
  490.             (noposition)
  491.             (dest DestDir)
  492.         )
  493.         (run ("ram:delete ram:temp/#? ALL"))
  494.     )
  495.     )
  496.  
  497. ;*********
  498. ;* DISK3 *
  499. ;*********
  500.  
  501.  
  502. ; Pictograms ********************************************************
  503.  
  504.     (set DestDir @default-dest)
  505.     (if (IN InstOpts 7)
  506.     (
  507.         (askdisk 
  508.             (prompt "\nPlease insert disk\n\nMediaPoint3\n\nin any drive")
  509.             (dest "MediaPoint3")
  510.             (help @askdisk-help)
  511.         )
  512.  
  513.         (set DestDir "RAM:Temp")
  514.         (copyfiles
  515.             (prompt ("I will now copy the %s Pictograms to RAM:." ProdName))
  516.             (help @copyfiles-help)
  517.             (source "MediaPoint3:Pictograms.lha")
  518.             (dest DestDir)
  519.         )
  520.         (working "Now decrunching files to ram:")
  521.         (run ("ram:lha e ram:temp/Pictograms.lha ram:temp/"))
  522.         (delete "RAM:temp/Pictograms.lha")
  523.  
  524.         (set DestDir (tackon @default-dest "Graphics/Pictograms"))
  525.         (copyfiles
  526.             (prompt ("I will now copy the %s Pictograms." ProdName))
  527.             (help @copyfiles-help)
  528.             (source "Ram:Temp")
  529.             (all)
  530.             (infos)
  531.             (noposition)
  532.             (dest DestDir)
  533.         )
  534.         (run ("ram:delete ram:temp/#? ALL"))
  535.     )
  536.     )
  537.  
  538. ; ARexx examples *********************************************************
  539.  
  540.     (set DestDir @default-dest)
  541.     (if (IN InstOpts 0)
  542.     (
  543.         (askdisk 
  544.             (prompt "\nPlease insert disk\n\nMediaPoint3\n\nin any drive")
  545.             (dest "MediaPoint3")
  546.             (help @askdisk-help)
  547.         )
  548.  
  549.         (set DestDir "RAM:Temp")
  550.         (copyfiles
  551.             (prompt ("I will now copy the %s ARexx examples to RAM:." ProdName))
  552.             (help @copyfiles-help)
  553.             (source "MediaPoint3:ARexx.lha")
  554.             (dest DestDir)
  555.         )
  556.         (working "Now decrunching files to ram:")
  557.         (run ("ram:lha e ram:temp/ARexx.lha ram:temp/"))
  558.         (delete "RAM:temp/ARexx.lha")
  559.  
  560.         (set DestDir (tackon @default-dest "ARexx"))
  561.         (copyfiles
  562.             (prompt ("I will now copy the %s ARexx examples." ProdName))
  563.             (help @copyfiles-help)
  564.             (source "Ram:Temp")
  565.             (all)
  566.             (infos)
  567.             (noposition)
  568.             (dest DestDir)
  569.         )
  570.         (run ("ram:delete ram:temp/#? ALL"))
  571.     )
  572.     )
  573.  
  574. ; Scripts  **************************************************************
  575.  
  576.     (set DestDir @default-dest)
  577.     (if (IN InstOpts 3)
  578.     (
  579.         (askdisk 
  580.             (prompt "\nPlease insert disk\n\nMediaPoint3\n\nin any drive")
  581.             (dest "MediaPoint3")
  582.             (help @askdisk-help)
  583.         )
  584.  
  585.         (set DestDir "RAM:Temp")
  586.         (copyfiles
  587.             (prompt ("I will now copy the %s Scripts to RAM:." ProdName))
  588.             (help @copyfiles-help)
  589.             (source "MediaPoint3:Scripts.lha")
  590.             (dest DestDir)
  591.         )
  592.         (working "Now decrunching files to ram:")
  593.         (run ("ram:lha e ram:temp/Scripts.lha ram:temp/"))
  594.         (delete "RAM:temp/Scripts.lha")
  595.  
  596.         (set DestDir (tackon @default-dest "Scripts"))
  597.         (copyfiles
  598.             (prompt ("I will now copy the %s Scripts." ProdName))
  599.             (help @copyfiles-help)
  600.             (source "Ram:Temp")
  601.             (all)
  602.             (infos)
  603.             (noposition)
  604.             (dest DestDir)
  605.         )
  606.         (run ("ram:delete ram:temp/#? ALL"))
  607.     )
  608.     )
  609.  
  610. ; Pages ****************************************************************
  611.  
  612.     (set DestDir @default-dest)
  613.     (if (IN InstOpts 3)
  614.     (
  615.         (askdisk 
  616.             (prompt "\nPlease insert disk\n\nMediaPoint3\n\nin any drive")
  617.             (dest "MediaPoint3")
  618.             (help @askdisk-help)
  619.         )
  620.  
  621.         (set DestDir "RAM:Temp")
  622.         (copyfiles
  623.             (prompt ("I will now copy the %s Pages to RAM:." ProdName))
  624.             (help @copyfiles-help)
  625.             (source "MediaPoint3:Pages.lha")
  626.             (dest DestDir)
  627.         )
  628.         (working "Now decrunching files to ram:")
  629.         (run ("ram:lha e ram:temp/Pages.lha ram:temp/"))
  630.         (delete "RAM:temp/Pages.lha")
  631.  
  632.         (set DestDir (tackon @default-dest "Pages"))
  633.         (copyfiles
  634.             (prompt ("I will now copy the %s Pages." ProdName))
  635.             (help @copyfiles-help)
  636.             (source "Ram:Temp")
  637.             (all)
  638.             (infos)
  639.             (noposition)
  640.             (dest DestDir)
  641.         )
  642.         (run ("ram:delete ram:temp/#? ALL"))
  643.     )
  644.     )
  645.  
  646. ; Pictures ****************************************************************
  647.  
  648.     (set DestDir @default-dest)
  649.     (if (IN InstOpts 3)
  650.     (
  651.         (askdisk 
  652.             (prompt "\nPlease insert disk\n\nMediaPoint3\n\nin any drive")
  653.             (dest "MediaPoint3")
  654.             (help @askdisk-help)
  655.         )
  656.  
  657.         (set DestDir "RAM:Temp")
  658.         (copyfiles
  659.             (prompt ("I will now copy the %s Pictures to RAM:." ProdName))
  660.             (help @copyfiles-help)
  661.             (source "MediaPoint3:Pictures.lha")
  662.             (dest DestDir)
  663.         )
  664.         (working "Now decrunching files to ram:")
  665.         (run ("ram:lha e ram:temp/Pictures.lha ram:temp/"))
  666.         (delete "RAM:temp/pictures.lha")
  667.  
  668.         (set DestDir (tackon @default-dest "graphics/pictures"))
  669.         (copyfiles
  670.             (prompt ("I will now copy the %s Pictures." ProdName))
  671.             (help @copyfiles-help)
  672.             (source "Ram:Temp")
  673.             (all)
  674.             (infos)
  675.             (noposition)
  676.             (dest DestDir)
  677.         )
  678.         (run ("ram:delete ram:temp/#? ALL"))
  679.     )
  680.     )
  681.  
  682. ; Samples ****************************************************************
  683.  
  684.     (set DestDir @default-dest)
  685.     (if (IN InstOpts 11)
  686.     (
  687.         (askdisk 
  688.             (prompt "\nPlease insert disk\n\nMediaPoint3\n\nin any drive")
  689.             (dest "MediaPoint3")
  690.             (help @askdisk-help)
  691.         )
  692.  
  693.         (set DestDir "RAM:Temp")
  694.         (copyfiles
  695.             (prompt ("I will now copy the %s Samples to RAM:." ProdName))
  696.             (help @copyfiles-help)
  697.             (source "MediaPoint3:Samples.lha")
  698.             (dest DestDir)
  699.         )
  700.         (working "Now decrunching files to ram:")
  701.         (run ("ram:lha e ram:temp/Samples.lha ram:temp/"))
  702.         (delete "RAM:temp/Samples.lha")
  703.  
  704.         (set DestDir (tackon @default-dest "Sounds/Samples"))
  705.         (copyfiles
  706.             (prompt ("I will now copy the %s Samples." ProdName))
  707.             (help @copyfiles-help)
  708.             (source "Ram:Temp")
  709.             (all)
  710.             (infos)
  711.             (noposition)
  712.             (dest DestDir)
  713.         )
  714.         (run ("ram:delete ram:temp/#? ALL"))
  715.     )
  716.     )
  717.  
  718. ;*********
  719. ;* DISK4 *
  720. ;*********
  721.  
  722. ; Modules *****************************************************************
  723.  
  724.     (set DestDir @default-dest)
  725.     (if (IN InstOpts 10)
  726.     (
  727.         (askdisk 
  728.             (prompt "\nPlease insert disk\n\nMediaPoint4\n\nin any drive")
  729.             (dest "MediaPoint4")
  730.             (help @askdisk-help)
  731.         )
  732.  
  733.         (set DestDir "RAM:Temp")
  734.         (copyfiles
  735.             (prompt ("I will now copy the %s modules to RAM:." ProdName))
  736.             (help @copyfiles-help)
  737.             (source "MediaPoint4:modules1.lha")
  738.             (dest DestDir)
  739.         )
  740.         (working "Now decrunching files to ram:")
  741.         (run ("ram:lha e ram:temp/modules1.lha ram:temp/"))
  742.         (delete "RAM:temp/modules1.lha")
  743.  
  744.         (set DestDir (tackon @default-dest "sounds/modules"))
  745.         (copyfiles
  746.             (prompt ("I will now copy the %s modules." ProdName))
  747.             (help @copyfiles-help)
  748.             (source "Ram:Temp")
  749.             (all)
  750.             (infos)
  751.             (noposition)
  752.             (dest DestDir)
  753.         )
  754.         (run ("ram:delete ram:temp/#? ALL"))
  755.     )
  756.     )
  757.  
  758. (set DestDir @default-dest)
  759.     (if (IN InstOpts 10)
  760.     (
  761.         (askdisk 
  762.             (prompt "\nPlease insert disk\n\nMediaPoint4\n\nin any drive")
  763.             (dest "MediaPoint4")
  764.             (help @askdisk-help)
  765.         )
  766.  
  767.         (set DestDir "RAM:Temp")
  768.         (copyfiles
  769.             (prompt ("I will now copy the %s modules to RAM:." ProdName))
  770.             (help @copyfiles-help)
  771.             (source "MediaPoint4:modules2.lha")
  772.             (dest DestDir)
  773.         )
  774.         (working "Now decrunching files to ram:")
  775.         (run ("ram:lha e ram:temp/modules2.lha ram:temp/"))
  776.         (delete "RAM:temp/modules2.lha")
  777.  
  778.         (set DestDir (tackon @default-dest "sounds/modules"))
  779.         (copyfiles
  780.             (prompt ("I will now copy the %s modules." ProdName))
  781.             (help @copyfiles-help)
  782.             (source "Ram:Temp")
  783.             (all)
  784.             (infos)
  785.             (noposition)
  786.             (dest DestDir)
  787.         )
  788.         (run ("ram:delete ram:temp/#? ALL"))
  789.     )
  790.     )
  791.  
  792. ;*********
  793. ;* DISK5 *
  794. ;*********
  795.  
  796. ; Textures *****************************************************************
  797.  
  798.     (set DestDir @default-dest)
  799.     (if (IN InstOpts 9)
  800.     (
  801.         (askdisk 
  802.             (prompt "\nPlease insert disk\n\nMediaPoint5\n\nin any drive")
  803.             (dest "MediaPoint5")
  804.             (help @askdisk-help)
  805.         )
  806.  
  807.         (set DestDir "RAM:Temp")
  808.         (copyfiles
  809.             (prompt ("I will now copy the %s textures to RAM:." ProdName))
  810.             (help @copyfiles-help)
  811.             (source "MediaPoint5:textures1.lha")
  812.             (dest DestDir)
  813.         )
  814.         (working "Now decrunching files to ram:")
  815.         (run ("ram:lha e ram:temp/textures1.lha ram:temp/"))
  816.         (delete "RAM:temp/textures1.lha")
  817.  
  818.         (set DestDir (tackon @default-dest "Graphics/textures"))
  819.         (copyfiles
  820.             (prompt ("I will now copy the %s textures." ProdName))
  821.             (help @copyfiles-help)
  822.             (source "Ram:Temp")
  823.             (all)
  824.             (infos)
  825.             (noposition)
  826.             (dest DestDir)
  827.         )
  828.         (run ("ram:delete ram:temp/#? ALL"))
  829.     )
  830.     )
  831.  
  832. (set DestDir @default-dest)
  833.     (if (IN InstOpts 9)
  834.     (
  835.         (askdisk 
  836.             (prompt "\nPlease insert disk\n\nMediaPoint5\n\nin any drive")
  837.             (dest "MediaPoint5")
  838.             (help @askdisk-help)
  839.         )
  840.  
  841.         (set DestDir "RAM:Temp")
  842.         (copyfiles
  843.             (prompt ("I will now copy the %s textures to RAM:." ProdName))
  844.             (help @copyfiles-help)
  845.             (source "MediaPoint5:textures2.lha")
  846.             (dest DestDir)
  847.         )
  848.         (working "Now decrunching files to ram:")
  849.         (run ("ram:lha e ram:temp/textures2.lha ram:temp/"))
  850.         (delete "RAM:temp/textures2.lha")
  851.  
  852.         (set DestDir (tackon @default-dest "Graphics/textures"))
  853.         (copyfiles
  854.             (prompt ("I will now copy the %s textures." ProdName))
  855.             (help @copyfiles-help)
  856.             (source "Ram:Temp")
  857.             (all)
  858.             (infos)
  859.             (noposition)
  860.             (dest DestDir)
  861.         )
  862.         (run ("ram:delete ram:temp/#? ALL"))
  863.     )
  864.     )
  865.  
  866. ;*********
  867. ;* DISK6 *
  868. ;*********
  869.  
  870. ; Animations *****************************************************************
  871.  
  872.     (set DestDir @default-dest)
  873.     (if (IN InstOpts 4)
  874.     (
  875.         (askdisk 
  876.             (prompt "\nPlease insert disk\n\nMediaPoint6\n\nin any drive")
  877.             (dest "MediaPoint6")
  878.             (help @askdisk-help)
  879.         )
  880.  
  881.         (set DestDir "RAM:Temp")
  882.         (copyfiles
  883.             (prompt ("I will now copy the %s Animations to RAM:." ProdName))
  884.             (help @copyfiles-help)
  885.             (source "MediaPoint6:Animations1.lha")
  886.             (dest DestDir)
  887.         )
  888.         (working "Now decrunching files to ram:")
  889.         (run ("ram:lha e ram:temp/Animations1.lha ram:temp/"))
  890.         (delete "RAM:temp/Animations1.lha")
  891.  
  892.         (set DestDir (tackon @default-dest "Graphics/Animations"))
  893.         (copyfiles
  894.             (prompt ("I will now copy the %s Animations." ProdName))
  895.             (help @copyfiles-help)
  896.             (source "Ram:Temp")
  897.             (all)
  898.             (infos)
  899.             (noposition)
  900.             (dest DestDir)
  901.         )
  902.         (run ("ram:delete ram:temp/#? ALL"))
  903.     )
  904.     )
  905.  
  906. (set DestDir @default-dest)
  907.     (if (IN InstOpts 4)
  908.     (
  909.         (askdisk 
  910.             (prompt "\nPlease insert disk\n\nMediaPoint6\n\nin any drive")
  911.             (dest "MediaPoint6")
  912.             (help @askdisk-help)
  913.         )
  914.  
  915.         (set DestDir "RAM:Temp")
  916.         (copyfiles
  917.             (prompt ("I will now copy the %s Animations to RAM:." ProdName))
  918.             (help @copyfiles-help)
  919.             (source "MediaPoint6:Animations2.lha")
  920.             (dest DestDir)
  921.         )
  922.         (working "Now decrunching files to ram:")
  923.         (run ("ram:lha e ram:temp/Animations2.lha ram:temp/"))
  924.         (delete "RAM:temp/Animations2.lha")
  925.  
  926.         (set DestDir (tackon @default-dest "Graphics/Animations"))
  927.         (copyfiles
  928.             (prompt ("I will now copy the %s Animations." ProdName))
  929.             (help @copyfiles-help)
  930.             (source "Ram:Temp")
  931.             (all)
  932.             (infos)
  933.             (noposition)
  934.             (dest DestDir)
  935.         )
  936.         (run ("ram:delete ram:temp/#? ALL"))
  937.     )
  938.     )
  939.  
  940. )
  941.  
  942. ; Remove the crap from ram: ************************************************
  943.  
  944. (procedure CleanUp
  945.         (delete "RAM:Delete")
  946.         (delete "RAM:Lha")
  947.         (delete "RAM:Temp")
  948. )
  949.  
  950. (onerror
  951.     (CleanUp)
  952. )
  953.  
  954. (SetInstOpts)            
  955. (SetProdPlace)        
  956. (Makeassign "MP" @default-dest)
  957. (Install_Requested)
  958. (CleanUp)
  959.