;; Movieguide Pro V2.0 Installer
;; (C) Simon Ravn 1995
;; Revision 1.0

(welcome "Welcome to the MovieGuide Pro 2.0 installation.")

(set @app-name "MovieGuide Pro")
(set is_update 0)
(set @user-level 2)
(user 2)
(set instdir

	(askdir
		(prompt "Please select a destination path for MovieGuide Pro "
                        "State full pathname, e.g. DH0:Tools/MovieGuide")
		(help @askdir-help)
		(default "SYS:MovieGuide")
		(newpath)
		(disk)
	)
)
(
	(
		(if ( = (exists instdir (noreq)) 0)   ;if selected path doesn't exist...
			;then create dir
			(makedir instdir
				(prompt ("creating directory \"%s\"" instdir))
				(help @makedir-help)
				(infos)
				(confirm)
			)
			;else directory is already there - use it.
			;()
  )
)
(set install_options
	(askoptions
		(prompt "Please select the items to install with MovieGuide Pro.")
		(help @askoptions-help)
		(choices
      "Main Files"
      "Movie Data Files"
      "Episode Lists"
      "Biographies"
			"Plot Summaries"
			"Trivia/Goofs/Quotes Data"
      "AGA Biography Pictures"
			"AGA Movie Pictures"
      "AGA Slideshows"
      "ECS Slideshow")
		(default 1023)
	)
)

	(askdisk sourcedisk
		(prompt "\nPlease insert disk \"MovieGuide Pro Disk 1\" in any drive.")
		(help @askdisk-help)
		(dest "MGPro2_1")
		(assigns)
	)
	(copyfiles
	(source "MGPro2_1:c/lharc")
	(dest instdir)
	)
)
(set DeArcher (tackon instdir "lharc"))
(if (IN install_options 0)
	(
		(set @execute-dir instdir)
			(
		                (working "Installing MovieGuide Pro Main Files...")
					(run
	                        	("%s\ -f x \MGPro2_1:main.lha \ >nil:" DeArcher)
          )
      )
	)
)
(if (IN install_options 2)
	(askdisk sourcedisk
		(prompt "\nPlease insert disk \"MovieGuide Pro Disk 1\" in any drive.")
		(help @askdisk-help)
		(dest "MGPro2_1")
		(assigns)
	)
)
(if (IN install_options 2)
	(
		(set @execute-dir instdir)
			(
		                (working "Installing Episode Lists...")
					(run
	                        	("%s\ -f x \MGPro2_1:EXTSERIES.lha \ >nil:" DeArcher)
				)
			)
		)
	)
(if (IN install_options 5)
	(askdisk sourcedisk
		(prompt "\nPlease insert disk \"MovieGuide Pro Disk 2\" in any drive.")
		(help @askdisk-help)
		(dest "MGPro2_2")
		(assigns)
	)
)

(if (IN install_options 5)
	(
		(set @execute-dir instdir)
			(
		                (working "Installing Trivia/Goofs/Quotes... (1/2)")
					(run
	                        	("%s\ -f x \MGPro2_2:DATAMISC1.lha \ >nil:" DeArcher)
				)
			)
		)
	)

(if (IN install_options 5)
	(askdisk sourcedisk
		(prompt "\nPlease insert disk \"MovieGuide Pro Disk 6\" in any drive.")
		(help @askdisk-help)
		(dest "MGPro2_6")
		(assigns)
	)
)
(if (IN install_options 5)
	(
		(set @execute-dir instdir)
			(
		                (working "Installing Trivia/Goofs/Quotes... (2/2)")
					(run
	                        	("%s\ -f x \MGPro2_6:DATAMISC2.lha \ >nil:" DeArcher)
				)
			)
		)
	)

(if (IN install_options 4)
	(askdisk sourcedisk
		(prompt "\nPlease insert disk \"MovieGuide Pro Disk 2\" in any drive.")
		(help @askdisk-help)
		(dest "MGPro2_2")
		(assigns)
	)
)
(if (IN install_options 4)
	(
		(set @execute-dir instdir)
			(
		                (working "Installing Plot Summaries...")
					(run
	                        	("%s\ -f x \MGPro2_2:PLOT.lha \ >nil:" DeArcher)
				)
			)
		)
	)
(if (IN install_options 1)
	(askdisk sourcedisk
		(prompt "\nPlease insert disk \"MovieGuide Pro Disk 2\" in any drive.")
		(help @askdisk-help)
		(dest "MGPro2_2")
		(assigns)
	)
)
(if (IN install_options 1)
	(
		(set @execute-dir instdir)
			(
		                (working "Installing Data Files... (1/4)")
					(run
	                        	("%s\ -f x \MGPro2_2:MGDATA4.lha \ >nil:" DeArcher)
				)
			)
		)
	)
(if (IN install_options 1)
	(askdisk sourcedisk
		(prompt "\nPlease insert disk \"MovieGuide Pro Disk 3\" in any drive.")
		(help @askdisk-help)
		(dest "MGPro2_3")
		(assigns)
	)
)
(if (IN install_options 1)
	(
		(set @execute-dir instdir)
			(
		                (working "Installing Data Files... (2/4)")
					(run
	                        	("%s\ -f x \MGPro2_3:MGDATA1.lha \ >nil:" DeArcher)
				)
			)
		)
	)
(if (IN install_options 1)
	(askdisk sourcedisk
		(prompt "\nPlease insert disk \"MovieGuide Pro Disk 4\" in any drive.")
		(help @askdisk-help)
		(dest "MGPro2_4")
		(assigns)
	)
)
(if (IN install_options 1)
	(
		(set @execute-dir instdir)
			(
		                (working "Installing Data Files... (3/4)")
					(run
	                        	("%s\ -f x \MGPro2_4:MGDATA2.lha \ >nil:" DeArcher)
				)
			)
		)
	)
(if (IN install_options 1)
	(askdisk sourcedisk
		(prompt "\nPlease insert disk \"MovieGuide Pro Disk 5\" in any drive.")
		(help @askdisk-help)
		(dest "MGPro2_5")
		(assigns)
	)
)
(if (IN install_options 1)
	(
		(set @execute-dir instdir)
			(
		                (working "Installing Data Files... (4/4)")
					(run
	                        	("%s\ -f x \MGPro2_5:MGDATA3.lha \ >nil:" DeArcher)
				)
			)
		)
	)
(if (IN install_options 3)
	(askdisk sourcedisk
		(prompt "\nPlease insert disk \"MovieGuide Pro Disk 6\" in any drive.")
		(help @askdisk-help)
		(dest "MGPro2_6")
		(assigns)
	)
)
(if (IN install_options 3)
	(
		(set @execute-dir instdir)
			(
		                (working "Installing Biographies...")
					(run
	                        	("%s\ -f x \MGPro2_6:bio.lha \ >nil:" DeArcher)
				)
			)
		)
	)
(if (IN install_options 7)
	(askdisk sourcedisk
		(prompt "\nPlease insert disk \"MovieGuide Pro Disk 7\" in any drive.")
		(help @askdisk-help)
		(dest "AGAPICS1")
		(assigns)
	)
)
(if (IN install_options 7)
	(
		(set @execute-dir instdir)
			(
		                (working "Installing AGA Movie Pics... (1/6)")
					(run
	                        	("%s\ -f x \AGAPICS1:MOVIE_AGA1.lha \ >nil:" DeArcher)
				)
			)
		)
	)
(if (IN install_options 7)
	(askdisk sourcedisk
		(prompt "\nPlease insert disk \"MovieGuide Pro Disk 8\" in any drive.")
		(help @askdisk-help)
		(dest "AGAPICS2")
		(assigns)
	)
)
(if (IN install_options 7)
	(
		(set @execute-dir instdir)
			(
		                (working "Installing AGA Movie Pics... (2/6)")
					(run
	                        	("%s\ -f x \AGAPICS2:MOVIE_AGA2.lha \ >nil:" DeArcher)
				)
			)
		)
	)
(if (IN install_options 7)
	(askdisk sourcedisk
		(prompt "\nPlease insert disk \"MovieGuide Pro Disk 9\" in any drive.")
		(help @askdisk-help)
		(dest "AGAPICS3")
		(assigns)
	)
)
(if (IN install_options 7)
	(
		(set @execute-dir instdir)
			(
		                (working "Installing AGA Movie Pics... (3/6)")
					(run
	                        	("%s\ -f x \AGAPICS3:MOVIE_AGA3.lha \ >nil:" DeArcher)
				)
			)
		)
	)
(if (IN install_options 7)
	(askdisk sourcedisk
		(prompt "\nPlease insert disk \"MovieGuide Pro Disk 10\" in any drive.")
		(help @askdisk-help)
		(dest "AGAPICS4")
		(assigns)
	)
)
(if (IN install_options 7)
	(
		(set @execute-dir instdir)
			(
		                (working "Installing AGA Movie Pics... (4/6)")
					(run
	                        	("%s\ -f x \AGAPICS4:MOVIE_AGA4.lha \ >nil:" DeArcher)
				)
			)
		)
	)
(if (IN install_options 7)
	(askdisk sourcedisk
		(prompt "\nPlease insert disk \"MovieGuide Pro Disk 11\" in any drive.")
		(help @askdisk-help)
		(dest "AGAPICS5")
		(assigns)
	)
)
(if (IN install_options 7)
	(
		(set @execute-dir instdir)
			(
		                (working "Installing AGA Movie Pics... (5/6)")
					(run
	                        	("%s\ -f x \AGAPICS5:MOVIE_AGA5.lha \ >nil:" DeArcher)
				)
			)
		)
	)
(if (IN install_options 7)
	(askdisk sourcedisk
		(prompt "\nPlease insert disk \"MovieGuide Pro Disk 12\" in any drive.")
		(help @askdisk-help)
		(dest "AGAPICS6")
		(assigns)
	)
)
(if (IN install_options 7)
	(
		(set @execute-dir instdir)
			(
		                (working "Installing AGA Movie Pics... (6/6)")
					(run
	                        	("%s\ -f x \AGAPICS6:MOVIE_AGA6.lha \ >nil:" DeArcher)
				)
			)
		)
	)
(if (IN install_options 6)
	(askdisk sourcedisk
		(prompt "\nPlease insert disk \"MovieGuide Pro Disk 13\" in any drive.")
		(help @askdisk-help)
		(dest "AGA_PERSON1")
		(assigns)
	)
)
(if (IN install_options 6)
	(
		(set @execute-dir instdir)
			(
		                (working "Installing AGA Biography Pics...")
					(run
	                        	("%s\ -f x \AGA_PERSON1:PERSON_AGA1.lha \ >nil:" DeArcher)
				)
			)
		)
	)
(if (IN install_options 8)
	(askdisk sourcedisk
		(prompt "\nPlease insert disk \"MovieGuide Pro Disk 14\" in any drive.")
		(help @askdisk-help)
		(dest "JURASSIC1")
		(assigns)
	)
)
(if (IN install_options 8)
	(
		(set @execute-dir instdir)
			(
		                (working "Installing AGA Slideshows... (1/4)")
					(run
	                        	("%s\ -f x \JURASSIC1:JUR_AGA1.lha \ >nil:" DeArcher)
				)
			)
		)
	)
(if (IN install_options 8)
	(askdisk sourcedisk
		(prompt "\nPlease insert disk \"MovieGuide Pro Disk 15\" in any drive.")
		(help @askdisk-help)
		(dest "JURASSIC2")
		(assigns)
	)
)
(if (IN install_options 8)
	(
		(set @execute-dir instdir)
			(
		                (working "Installing AGA Slideshows... (2/4)")
					(run
	                        	("%s\ -f x \JURASSIC2:JUR_AGA2.lha \ >nil:" DeArcher)
				)
			)
		)
	)
(if (IN install_options 8)
	(askdisk sourcedisk
		(prompt "\nPlease insert disk \"MovieGuide Pro Disk 16\" in any drive.")
		(help @askdisk-help)
		(dest "JURASSIC3")
		(assigns)
	)
)
(if (IN install_options 8)
	(
		(set @execute-dir instdir)
			(
		                (working "Installing AGA Slideshows... (3/4)")
					(run
	                        	("%s\ -f x \JURASSIC3:T2_AGA.lha \ >nil:" DeArcher)
				)
			)
		)
	)
(if (IN install_options 8)
	(askdisk sourcedisk
		(prompt "\nPlease insert disk \"MovieGuide Pro Disk 17\" in any drive.")
		(help @askdisk-help)
		(dest "CLOSE")
		(assigns)
	)
)
(if (IN install_options 8)
	(
		(set @execute-dir instdir)
			(
		                (working "Installing AGA Slideshows... (4/4)")
					(run
	                        	("%s\ -f x \CLOSE:AGA_CLOSE.lha \ >nil:" DeArcher)
				)
			)
		)
	)
(if (IN install_options 9)
	(askdisk sourcedisk
		(prompt "\nPlease insert disk \"MovieGuide Pro Disk 16\" in any drive.")
		(help @askdisk-help)
		(dest "JURASSIC3")
		(assigns)
	)
)
(if (IN install_options 9)
	(
		(set @execute-dir instdir)
			(
		                (working "Installing ECS Slideshow...")
					(run
	                        	("%s\ -f x \JURASSIC3:JUR_ECS.lha \ >nil:" DeArcher)
				)
			)
		)
	)
(delete DeArcher)

(exit)

;(set @default-dest instdir)