(set ProdName    "MediaPoint")
(set ProdDirName "MediaPoint")

; What? *******************************************************************

(procedure SetInstOpts
	(if (> @user-level 0)
		(set InstOpts
			(askoptions

				(prompt
					("Select the parts of %s you want to install " ProdName)
					"on your system."
				)

				(help
					"This part of the installation lets you select the "
					("parts of %s you want to install on your system.\n\n" ProdName)
					"To use the tutorial scripts and pages you should install "
					"all options.\n\n"
					"The files will fill approx. 8MB on harddisk.\n\n"
					("%s\n" ProdName)
					"This option let you install the main program, "
					"associated system files, fonts and Xapps.\n\n"
					"Fonts\n"
					"This option lets you install the provided fonts.\n\n"
					"Scripts\n"
					"This option lets you install the tutorial and example scripts."
					"In order to run these scripts, you need to install all other "
        	"files.\n\n"
					"Animations\n"
					"This option lets you install the provided example animations.\n\n"
					"ClipArt\n"
					"This option lets you install the provided example multi media clipart.\n\n"
					"Maps\n"
					"This option lets you install the provided example maps.\n\n"
					"Pictograms\n"
					"This option lets you install the provided example pictograms.\n\n"
					"Pictures\n"
					"This option lets you install the provided example pictures.\n\n"
					"Textures\n"
					"This option lets you install the provided example textures.\n\n"
					"Modules\n"
					"This option lets you install the provided music modules.\n\n"
					"Samples\n"
					"This option lets you install the provided digitized sound samples.\n\n"

					@askoptions-help
				)
				(choices
					("%s" ProdName)
					"Xapps"
					"Fonts"
					"Scripts"
					"Animations"
					"ClipArt"
					"Maps"
					"Pictograms"
					"Pictures"
					"Textures"
					"Modules"
					"Samples"
			)
			)
		)
	)
)

; Where? *******************************************************************

(procedure SetProdPlace

(set ProgDir "MediaPoint")
(set DestDir (tackon @default-dest ProgDir))
(transcript "Selecting target drawer.")
(if (> @user-level 1) ; only ask the experts
    (set DestDir          
        (askdir
            (prompt "In which drawer should MediaPoint be installed?")
            (help @copyfiles-help
            )
            (default DestDir)
        )
    )
  	(makedir DestDir (infos))       
)
	(set @default-dest DestDir)   
)

; Lha and Delete  ********************************************************

(procedure Install_Requested

	(set DestDir "ram:")
	(copyfiles
		(prompt "I will now copy the install files to ram:.")
		(help @copyfiles-help)
		(source "MediaPoint1:utils")
		(noposition) 
		(all)
		(infos)
		(dest Destdir)
	)

;*********
;* DISK1 *
;*********

; Directories setup ********************************************************

	(if (IN InstOpts 0)
	(
		(askdisk 
			(prompt "\nPlease insert disk\n\nMediaPoint1\n\nin any drive")
			(dest "MediaPoint1")
			(help @askdisk-help)
		)

		(set DestDir "RAM:Temp")
		(copyfiles
			(prompt ("Setting Up %s directories." ProdName))
			(help @copyfiles-help)
			(source "MediaPoint1:Directories.lha")
			(dest DestDir)
		)
		(working "Now decrunching files to ram:")
		(run ("ram:lha e ram:temp/Directories.lha ram:temp/"))
		(delete "RAM:temp/Directories.lha")

		(set DestDir @default-dest)
		(copyfiles
			(prompt ("I will now copy the %s Directories and icons." ProdName))
			(help @copyfiles-help)
			(source "Ram:Temp")
			(all)
			(infos)
			(noposition)
			(dest DestDir)
		)
		(run ("ram:delete ram:temp/#? ALL"))
	)
	)

; MediaPoint program ******************************************************

	(if (IN InstOpts 0)
	(
		(set DestDir "RAM:Temp")
		(copyfiles
			(prompt ("I will now copy the %s main program to RAM:." ProdName))
			(help @copyfiles-help)
			(source "MediaPoint1:MediaPoint.lha")
			(dest DestDir)
		)
		(working "Now decrunching files to ram:")
		(run ("ram:lha e ram:temp/MediaPoint.lha ram:temp/"))
		(delete "RAM:temp/MediaPoint.lha")

		(set DestDir @default-dest)
		(copyfiles
			(prompt ("I will now copy the %s main program." ProdName))
			(help @copyfiles-help)
			(source "Ram:Temp")
			(all)
			(infos)
			(dest DestDir)
		)
		(run ("ram:delete ram:temp/#? ALL"))
	)
	)

; System files ************************************************************

	(if (IN InstOpts 0)
	(
		(set DestDir "RAM:Temp")
		(copyfiles
			(prompt ("I will now copy the %s system files to RAM:." ProdName))
			(help @copyfiles-help)
			(source "MediaPoint1:system.lha")
			(dest DestDir)
		)
		(working "Now decrunching files to ram:")
		(run ("ram:lha e ram:temp/system.lha ram:temp/"))
		(delete "RAM:temp/system.lha")
		(copyfiles
			(prompt ("I will now copy %s system files." ProdName))
			(help @copyfiles-help)
			(source "Ram:Temp")
			(all)
			(infos)
			(dest (tackon @default-dest "system"))
		)
		(run ("ram:delete ram:temp/#? ALL"))
	)
	)

; System font *************************************************************

	(if (IN InstOpts 0)
	(
		(askdisk 
			(prompt "\nPlease insert disk\n\nMediaPoint1\n\nin any drive")
			(dest "MediaPoint1")
			(help @askdisk-help)
		)

		(set DestDir "RAM:Temp")
		(copyfiles
			(prompt ("I will now copy the %s system fonts to RAM:." ProdName))
			(help @copyfiles-help)
			(source "MediaPoint1:fonts.lha")
			(dest DestDir)
		)
		(working "Now decrunching files to ram:")
		(run ("ram:lha e ram:temp/fonts.lha ram:temp/"))
		(delete "RAM:temp/fonts.lha")

		(set DestDir "Fonts:")
		(copyfiles
			(prompt ("I will now copy the %s system font." ProdName))
			(help @copyfiles-help)
			(source "Ram:Temp")
			(all)
			(dest DestDir)
		)
		(run ("ram:delete ram:temp/#? ALL"))
	)
	)

; Assign ******************************************************************

	(if (>= osver 39)
  	    (
    	     (onerror
      	      (message
        	       "Didn't update startup sequence.  You will need to "
          	     "add the following commands manually: "
            	   "Assign MP: \"" @default-dest "\"\n"
          	  )
        	 )

         	(startup "MediaPoint"
          	  (prompt
            	   "Do you want to add an MP: assign to your startup sequence?"
            	)
            	(help @startup-help)
            	(command
             	  "Assign MP: \"" @default-dest "\"\n"
            	)
         	)
      	)
      	;else
      	(
         	(onerror
          	  (message
            	   "Didn't update startup sequence.  You will need to "
              	 "add the following command manually: "
               	 "Assign MP: \"" @default-dest "\"\n"
            	)
         	)

         	(startup "MediaPoint"
         	   (prompt "Do you want to add an MP: assign to your Startup sequence?")
         	   (help @startup-help)
         	   (command "Assign MP: \"" @default-dest "\"")
         	)
      	)
   	)

;*********
;* DISK2 *
;*********

; Xapps ******************************************************************

	(set DestDir @default-dest)
	(if (IN InstOpts 1)
	(
		(askdisk 
			(prompt "\nPlease insert disk\n\nMediaPoint2\n\nin any drive")
			(dest "MediaPoint2")
			(help @askdisk-help)
		)

		(set DestDir "RAM:Temp")
		(copyfiles
			(prompt ("I will now copy the %s Xapps to RAM:." ProdName))
			(help @copyfiles-help)
			(source "MediaPoint2:Xapps.lha")
			(dest DestDir)
		)
		(working "Now decrunching files to ram:")
		(run ("ram:lha e ram:temp/Xapps.lha ram:temp/"))
		(delete "RAM:temp/Xapps.lha")

		(set DestDir (tackon @default-dest "Xapps"))

		(copyfiles
			(prompt ("Select the Xapps you wish to install"))
			(help @copyfiles-help)
			(source "Ram:Temp")
			(all)
			(infos)
			(confirm)
			(noposition)
			(dest DestDir)
		)
		(run ("ram:delete ram:temp/#? ALL"))
	)
	)



; Player device if xapps copied ********************************************

	(set DestDir @default-dest)
	(if (IN InstOpts 1)
	(
		(askdisk 
			(prompt "\nPlease insert disk\n\nMediaPoint2\n\nin any drive")
			(dest "MediaPoint2")
			(help @askdisk-help)
		)

		(set DestDir "RAM:Temp")
		(copyfiles
			(prompt ("I will now copy the %s LaserDisc players to RAM:." ProdName))
			(help @copyfiles-help)
			(source "MediaPoint2:Players.lha")
			(dest DestDir)
		)
		(working "Now decrunching files to ram:")
		(run ("ram:lha e ram:temp/Players.lha ram:temp/"))
		(delete "RAM:temp/Players.lha")

		(set DestDir "Devs:")

		(copyfiles
			(prompt ("Installing the LaserDisc drivers."))
			(help @copyfiles-help)
			(source "Ram:Temp")
			(all)
			(infos)
			(noposition)
			(dest DestDir)
		)
		(run ("ram:delete ram:temp/#? ALL"))
	)
	)

; MIDI libs **************************************************************

	(set DestDir @default-dest)
	(if (IN InstOpts 1)
	(
		(askdisk 
			(prompt "\nPlease insert disk\n\nMediaPoint2\n\nin any drive")
			(dest "MediaPoint2")
			(help @askdisk-help)
		)

		(set DestDir "RAM:Temp")
		(copyfiles
			(prompt ("I will now copy the %s libraries to RAM:." ProdName))
			(help @copyfiles-help)
			(source "MediaPoint2:libs.lha")
			(dest DestDir)
		)
		(working "Now decrunching files to ram:")
		(run ("ram:lha e ram:temp/libs.lha ram:temp/"))
		(delete "RAM:temp/libs.lha")

		(set DestDir "Libs:")

		(copyfiles
			(prompt ("Installing the libraries."))
			(help @copyfiles-help)
			(source "Ram:Temp")
			(all)
			(infos)
			(noposition)
			(dest DestDir)
		)
		(run ("ram:delete ram:temp/#? ALL"))
	)
	)

; Fonts other than system font *********************************************

	(set DestDir @default-dest)
	(if (IN InstOpts 2)
	(
		(askdisk 
			(prompt "\nPlease insert disk\n\nMediaPoint2\n\nin any drive")
			(dest "MediaPoint2")
			(help @askdisk-help)
		)

		(set DestDir "RAM:Temp")
		(copyfiles
			(prompt ("I will now copy the %s fonts to RAM:." ProdName))
			(help @copyfiles-help)
			(source "MediaPoint2:mpfonts.lha")
			(dest DestDir)
		)
		(working "Now decrunching files to ram:")
		(run ("ram:lha e ram:temp/mpfonts.lha ram:temp/"))
		(delete "RAM:temp/mpfonts.lha")

		(set DestDir "Fonts:")
		(copyfiles
			(prompt ("I will now copy the %s system font." ProdName))
			(help @copyfiles-help)
			(source "Ram:Temp")
			(all)
			(fonts)
			(confirm)
			(dest DestDir)
		)
		(run ("ram:delete ram:temp/#? ALL"))
	)
	)

	; ClipArt *************************************************

	(set DestDir @default-dest)
	(if (IN InstOpts 5)
	(
		(askdisk 
			(prompt "\nPlease insert disk\n\nMediaPoint2\n\nin any drive")
			(dest "MediaPoint2")
			(help @askdisk-help)
		)

		(set DestDir "RAM:Temp")
		(copyfiles
			(prompt ("I will now copy the %s ClipArt to RAM:." ProdName))
			(help @copyfiles-help)
			(source "MediaPoint2:ClipArt.lha")
			(dest DestDir)
		)
		(working "Now decrunching files to ram:")
		(run ("ram:lha e ram:temp/ClipArt.lha ram:temp/"))
		(delete "RAM:temp/ClipArt.lha")

		(set DestDir (tackon @default-dest "Graphics/Clipart"))
		(copyfiles
			(prompt ("I will now copy the %s ClipArt." ProdName))
			(help @copyfiles-help)
			(source "Ram:Temp")
			(all)
			(infos)
			(noposition)
			(dest DestDir)
		)
		(run ("ram:delete ram:temp/#? ALL"))
	)
	)

	; Maps ************************************************************

	(set DestDir @default-dest)
	(if (IN InstOpts 6)
	(
		(askdisk 
			(prompt "\nPlease insert disk\n\nMediaPoint2\n\nin any drive")
			(dest "MediaPoint2")
			(help @askdisk-help)
		)

		(set DestDir "RAM:Temp")
		(copyfiles
			(prompt ("I will now copy the %s Maps to RAM:." ProdName))
			(help @copyfiles-help)
			(source "MediaPoint2:Maps.lha")
			(dest DestDir)
		)
		(working "Now decrunching files to ram:")
		(run ("ram:lha e ram:temp/Maps.lha ram:temp/"))
		(delete "RAM:temp/Maps.lha")

		(set DestDir (tackon @default-dest "Graphics/Maps"))
		(copyfiles
			(prompt ("I will now copy the %s Maps." ProdName))
			(help @copyfiles-help)
			(source "Ram:Temp")
			(all)
			(infos)
			(noposition)
			(dest DestDir)
		)
		(run ("ram:delete ram:temp/#? ALL"))
	)
	)

;*********
;* DISK3 *
;*********


; Pictograms ********************************************************

	(set DestDir @default-dest)
	(if (IN InstOpts 7)
	(
		(askdisk 
			(prompt "\nPlease insert disk\n\nMediaPoint3\n\nin any drive")
			(dest "MediaPoint3")
			(help @askdisk-help)
		)

		(set DestDir "RAM:Temp")
		(copyfiles
			(prompt ("I will now copy the %s Pictograms to RAM:." ProdName))
			(help @copyfiles-help)
			(source "MediaPoint3:Pictograms.lha")
			(dest DestDir)
		)
		(working "Now decrunching files to ram:")
		(run ("ram:lha e ram:temp/Pictograms.lha ram:temp/"))
		(delete "RAM:temp/Pictograms.lha")

		(set DestDir (tackon @default-dest "Graphics/Pictograms"))
		(copyfiles
			(prompt ("I will now copy the %s Pictograms." ProdName))
			(help @copyfiles-help)
			(source "Ram:Temp")
			(all)
			(infos)
			(noposition)
			(dest DestDir)
		)
		(run ("ram:delete ram:temp/#? ALL"))
	)
	)

; ARexx examples *********************************************************

	(set DestDir @default-dest)
	(if (IN InstOpts 0)
	(
		(askdisk 
			(prompt "\nPlease insert disk\n\nMediaPoint3\n\nin any drive")
			(dest "MediaPoint3")
			(help @askdisk-help)
		)

		(set DestDir "RAM:Temp")
		(copyfiles
			(prompt ("I will now copy the %s ARexx examples to RAM:." ProdName))
			(help @copyfiles-help)
			(source "MediaPoint3:ARexx.lha")
			(dest DestDir)
		)
		(working "Now decrunching files to ram:")
		(run ("ram:lha e ram:temp/ARexx.lha ram:temp/"))
		(delete "RAM:temp/ARexx.lha")

		(set DestDir (tackon @default-dest "ARexx"))
		(copyfiles
			(prompt ("I will now copy the %s ARexx examples." ProdName))
			(help @copyfiles-help)
			(source "Ram:Temp")
			(all)
			(infos)
			(noposition)
			(dest DestDir)
		)
		(run ("ram:delete ram:temp/#? ALL"))
	)
	)

; Scripts  **************************************************************

	(set DestDir @default-dest)
	(if (IN InstOpts 3)
	(
		(askdisk 
			(prompt "\nPlease insert disk\n\nMediaPoint3\n\nin any drive")
			(dest "MediaPoint3")
			(help @askdisk-help)
		)

		(set DestDir "RAM:Temp")
		(copyfiles
			(prompt ("I will now copy the %s Scripts to RAM:." ProdName))
			(help @copyfiles-help)
			(source "MediaPoint3:Scripts.lha")
			(dest DestDir)
		)
		(working "Now decrunching files to ram:")
		(run ("ram:lha e ram:temp/Scripts.lha ram:temp/"))
		(delete "RAM:temp/Scripts.lha")

		(set DestDir (tackon @default-dest "Scripts"))
		(copyfiles
			(prompt ("I will now copy the %s Scripts." ProdName))
			(help @copyfiles-help)
			(source "Ram:Temp")
			(all)
			(infos)
			(noposition)
			(dest DestDir)
		)
		(run ("ram:delete ram:temp/#? ALL"))
	)
	)

; Pages ****************************************************************

	(set DestDir @default-dest)
	(if (IN InstOpts 3)
	(
		(askdisk 
			(prompt "\nPlease insert disk\n\nMediaPoint3\n\nin any drive")
			(dest "MediaPoint3")
			(help @askdisk-help)
		)

		(set DestDir "RAM:Temp")
		(copyfiles
			(prompt ("I will now copy the %s Pages to RAM:." ProdName))
			(help @copyfiles-help)
			(source "MediaPoint3:Pages.lha")
			(dest DestDir)
		)
		(working "Now decrunching files to ram:")
		(run ("ram:lha e ram:temp/Pages.lha ram:temp/"))
		(delete "RAM:temp/Pages.lha")

		(set DestDir (tackon @default-dest "Pages"))
		(copyfiles
			(prompt ("I will now copy the %s Pages." ProdName))
			(help @copyfiles-help)
			(source "Ram:Temp")
			(all)
			(infos)
			(noposition)
			(dest DestDir)
		)
		(run ("ram:delete ram:temp/#? ALL"))
	)
	)

; Pictures ****************************************************************

	(set DestDir @default-dest)
	(if (IN InstOpts 3)
	(
		(askdisk 
			(prompt "\nPlease insert disk\n\nMediaPoint3\n\nin any drive")
			(dest "MediaPoint3")
			(help @askdisk-help)
		)

		(set DestDir "RAM:Temp")
		(copyfiles
			(prompt ("I will now copy the %s Pictures to RAM:." ProdName))
			(help @copyfiles-help)
			(source "MediaPoint3:Pictures.lha")
			(dest DestDir)
		)
		(working "Now decrunching files to ram:")
		(run ("ram:lha e ram:temp/Pictures.lha ram:temp/"))
		(delete "RAM:temp/pictures.lha")

		(set DestDir (tackon @default-dest "graphics/pictures"))
		(copyfiles
			(prompt ("I will now copy the %s Pictures." ProdName))
			(help @copyfiles-help)
			(source "Ram:Temp")
			(all)
			(infos)
			(noposition)
			(dest DestDir)
		)
		(run ("ram:delete ram:temp/#? ALL"))
	)
	)

; Samples ****************************************************************

	(set DestDir @default-dest)
	(if (IN InstOpts 11)
	(
		(askdisk 
			(prompt "\nPlease insert disk\n\nMediaPoint3\n\nin any drive")
			(dest "MediaPoint3")
			(help @askdisk-help)
		)

		(set DestDir "RAM:Temp")
		(copyfiles
			(prompt ("I will now copy the %s Samples to RAM:." ProdName))
			(help @copyfiles-help)
			(source "MediaPoint3:Samples.lha")
			(dest DestDir)
		)
		(working "Now decrunching files to ram:")
		(run ("ram:lha e ram:temp/Samples.lha ram:temp/"))
		(delete "RAM:temp/Samples.lha")

		(set DestDir (tackon @default-dest "Sounds/Samples"))
		(copyfiles
			(prompt ("I will now copy the %s Samples." ProdName))
			(help @copyfiles-help)
			(source "Ram:Temp")
			(all)
			(infos)
			(noposition)
			(dest DestDir)
		)
		(run ("ram:delete ram:temp/#? ALL"))
	)
	)

;*********
;* DISK4 *
;*********

; Modules *****************************************************************

	(set DestDir @default-dest)
	(if (IN InstOpts 10)
	(
		(askdisk 
			(prompt "\nPlease insert disk\n\nMediaPoint4\n\nin any drive")
			(dest "MediaPoint4")
			(help @askdisk-help)
		)

		(set DestDir "RAM:Temp")
		(copyfiles
			(prompt ("I will now copy the %s modules to RAM:." ProdName))
			(help @copyfiles-help)
			(source "MediaPoint4:modules1.lha")
			(dest DestDir)
		)
		(working "Now decrunching files to ram:")
		(run ("ram:lha e ram:temp/modules1.lha ram:temp/"))
		(delete "RAM:temp/modules1.lha")

		(set DestDir (tackon @default-dest "sounds/modules"))
		(copyfiles
			(prompt ("I will now copy the %s modules." ProdName))
			(help @copyfiles-help)
			(source "Ram:Temp")
			(all)
			(infos)
			(noposition)
			(dest DestDir)
		)
		(run ("ram:delete ram:temp/#? ALL"))
	)
	)

(set DestDir @default-dest)
	(if (IN InstOpts 10)
	(
		(askdisk 
			(prompt "\nPlease insert disk\n\nMediaPoint4\n\nin any drive")
			(dest "MediaPoint4")
			(help @askdisk-help)
		)

		(set DestDir "RAM:Temp")
		(copyfiles
			(prompt ("I will now copy the %s modules to RAM:." ProdName))
			(help @copyfiles-help)
			(source "MediaPoint4:modules2.lha")
			(dest DestDir)
		)
		(working "Now decrunching files to ram:")
		(run ("ram:lha e ram:temp/modules2.lha ram:temp/"))
		(delete "RAM:temp/modules2.lha")

		(set DestDir (tackon @default-dest "sounds/modules"))
		(copyfiles
			(prompt ("I will now copy the %s modules." ProdName))
			(help @copyfiles-help)
			(source "Ram:Temp")
			(all)
			(infos)
			(noposition)
			(dest DestDir)
		)
		(run ("ram:delete ram:temp/#? ALL"))
	)
	)

;*********
;* DISK5 *
;*********

; Textures *****************************************************************

	(set DestDir @default-dest)
	(if (IN InstOpts 9)
	(
		(askdisk 
			(prompt "\nPlease insert disk\n\nMediaPoint5\n\nin any drive")
			(dest "MediaPoint5")
			(help @askdisk-help)
		)

		(set DestDir "RAM:Temp")
		(copyfiles
			(prompt ("I will now copy the %s textures to RAM:." ProdName))
			(help @copyfiles-help)
			(source "MediaPoint5:textures1.lha")
			(dest DestDir)
		)
		(working "Now decrunching files to ram:")
		(run ("ram:lha e ram:temp/textures1.lha ram:temp/"))
		(delete "RAM:temp/textures1.lha")

		(set DestDir (tackon @default-dest "Graphics/textures"))
		(copyfiles
			(prompt ("I will now copy the %s textures." ProdName))
			(help @copyfiles-help)
			(source "Ram:Temp")
			(all)
			(infos)
			(noposition)
			(dest DestDir)
		)
		(run ("ram:delete ram:temp/#? ALL"))
	)
	)

(set DestDir @default-dest)
	(if (IN InstOpts 9)
	(
		(askdisk 
			(prompt "\nPlease insert disk\n\nMediaPoint5\n\nin any drive")
			(dest "MediaPoint5")
			(help @askdisk-help)
		)

		(set DestDir "RAM:Temp")
		(copyfiles
			(prompt ("I will now copy the %s textures to RAM:." ProdName))
			(help @copyfiles-help)
			(source "MediaPoint5:textures2.lha")
			(dest DestDir)
		)
		(working "Now decrunching files to ram:")
		(run ("ram:lha e ram:temp/textures2.lha ram:temp/"))
		(delete "RAM:temp/textures2.lha")

		(set DestDir (tackon @default-dest "Graphics/textures"))
		(copyfiles
			(prompt ("I will now copy the %s textures." ProdName))
			(help @copyfiles-help)
			(source "Ram:Temp")
			(all)
			(infos)
			(noposition)
			(dest DestDir)
		)
		(run ("ram:delete ram:temp/#? ALL"))
	)
	)

;*********
;* DISK6 *
;*********

; Animations *****************************************************************

	(set DestDir @default-dest)
	(if (IN InstOpts 4)
	(
		(askdisk 
			(prompt "\nPlease insert disk\n\nMediaPoint6\n\nin any drive")
			(dest "MediaPoint6")
			(help @askdisk-help)
		)

		(set DestDir "RAM:Temp")
		(copyfiles
			(prompt ("I will now copy the %s Animations to RAM:." ProdName))
			(help @copyfiles-help)
			(source "MediaPoint6:Animations1.lha")
			(dest DestDir)
		)
		(working "Now decrunching files to ram:")
		(run ("ram:lha e ram:temp/Animations1.lha ram:temp/"))
		(delete "RAM:temp/Animations1.lha")

		(set DestDir (tackon @default-dest "Graphics/Animations"))
		(copyfiles
			(prompt ("I will now copy the %s Animations." ProdName))
			(help @copyfiles-help)
			(source "Ram:Temp")
			(all)
			(infos)
			(noposition)
			(dest DestDir)
		)
		(run ("ram:delete ram:temp/#? ALL"))
	)
	)

(set DestDir @default-dest)
	(if (IN InstOpts 4)
	(
		(askdisk 
			(prompt "\nPlease insert disk\n\nMediaPoint6\n\nin any drive")
			(dest "MediaPoint6")
			(help @askdisk-help)
		)

		(set DestDir "RAM:Temp")
		(copyfiles
			(prompt ("I will now copy the %s Animations to RAM:." ProdName))
			(help @copyfiles-help)
			(source "MediaPoint6:Animations2.lha")
			(dest DestDir)
		)
		(working "Now decrunching files to ram:")
		(run ("ram:lha e ram:temp/Animations2.lha ram:temp/"))
		(delete "RAM:temp/Animations2.lha")

		(set DestDir (tackon @default-dest "Graphics/Animations"))
		(copyfiles
			(prompt ("I will now copy the %s Animations." ProdName))
			(help @copyfiles-help)
			(source "Ram:Temp")
			(all)
			(infos)
			(noposition)
			(dest DestDir)
		)
		(run ("ram:delete ram:temp/#? ALL"))
	)
	)

)

; Remove the crap from ram: ************************************************

(procedure CleanUp
		(delete "RAM:Delete")
		(delete "RAM:Lha")
		(delete "RAM:Temp")
)

(onerror
	(CleanUp)
)

(SetInstOpts)			
(SetProdPlace)		
(Makeassign "MP" @default-dest)
(Install_Requested)
(CleanUp)