;Autor: Andre´ Trettin
;© by BangerSoft
;$VER: BangerMenu.install 2.01 (15-Dez-95)

(if (= @LANGUAGE "deutsch")
 (
  (set #bad-kick
  (cat "BangerMenu funktioniert erst ab Kickstart 2.0 oder höher!.\ns. auch BangerMenu.guide\nInstallation abgebrochen"
  ))
  (set #choose-medium
  (cat "Wähle das Medium, wo BangerMenu installiert werden soll."
  ))
  (set #choose-m-help
  (cat "Es kann auf der Festplatte oder aber auf Disketten installiert werden."
  ))
  (set #choose-color
  (cat "Wähle die Anzahl der Farben für die Icons."
  ))
  (set #choose-c-help
  (cat "Wenn Sie eine Workbench mit 8 Farben laufen haben, können Sie die 8 Farben Icons installieren."
  ))
  (set #choose-progdir
  (cat "Bitte wählen Sie ein Verzeichnis für BangerMenu aus. Das Verzeichnis BangerMenu wird dort erstellt.!"
  ))
  (set #choose-prog-help
  (cat "In das angewählte Verzeichnis wird ein Verzeichnis mit dem Namen BangerMenu erstellt und die folgenen Programme BangerMenu, BangerMenu.asm, BangerMenu.guide, BangerMenu.install und BangerMenu.prefs werden dort installiert."
  ))
  (set #create-dir
  (cat "Erstelle Unterverziechnis BangerMenu."
  ))
  (set #inst-main
  (cat "Kopiere Hauptprogramme."
  ))
  (set #choose-disk
  (cat "Bitte wählen Sie ein Laufwerk für BangerMenu aus."
  ))
  (set #choose-disk-help
  (cat "BangerMenu wird ins C-Verzeichnis kopiert (legt es an, sofern es nicht vorhanden ist). BangerMenu.Prefs wird ins S-Verzeichnis kopiert (es wird ebenfalls angelegt, falls kein S-Verzeichnis vorhanden ist. Anleitung, Quellcode  und Installationskript können auf Wunsch ebenfalls auf die Diskette kopiert werden."
  ))
  (set #ask-source
  (cat "Soll der Assembler-Sourcecode kopiert werden ?"
  ))
  (set #ask-source-help
  (cat "Programmierer können, wenn sie wollen das Programm nach ihren eigenen Vorstellungen anpassen."
  ))
  (set #inst-source
  (cat "kopiere BangerMenu.asm ..."
  ))
  (set #inst-source2
  (cat "kopiere BangerMonitorID.asm ..."
  ))
  (set #ask-guide
  (cat "Soll die Anleitung kopiert werden ?"
  ))
  (set #ask-guide-help
  (cat "Die Anleitung für das Programm"
  ))
  (set #inst-guide
  (cat "Kopiere BangerMenu.guide ..."
  ))
  (set #ask-install
  (cat "Soll das Installationskript kopiert werden ?"
  ))
  (set #ask-install-help
  (cat "Ist wichtig, wenn man auf noch weiteren Medien das Programm installiert haben möchte z.B. Disketten"
  ))
  (set #inst-install
  (cat "Kopiere BangerMenu.install ..."
  ))
  (set #ask-prefs
  (cat "Soll das mitgelieferte Konfigfile kopiert werden ?"
  ))
  (set #ask-prefs-help
  (cat "Eine typische Einstellung. Die dennoch abgeändert werden muß für jedes Rechner System."
  ))
  (set #inst-prefs
  (cat "Kopiere BangerMenu.prefs ..."
  ))
  (set #create-s-dir
  (cat "Erstelle das S Verzeichnis."
  ))
  (set #ask-bat
  (cat "Sollen die mitgelieferte Batchfiles kopiert werden ?"
  ))
  (set #ask-bat-help
  (cat "In Verbindung mit der Beispiel Konfig kann man die Batchfiles schnell um schreiben und erhält so einen guten Einstieg in die Benutzung des Programms."
  ))
  (set #inst-bat
  (cat "Kopiere das Verzeichnis Bat ..."
  ))
  (set #create-bat-dir
  (cat "Erstelle das Bat Verzeichnis."
  ))
  (set #ask-MoniID
  (cat "Wollen Sie BangerMenu mit einer anderen Auflösung starten ?"
  ))
  (set #ask-MoniID-help
  (cat "Standardmäßig ist die Workbench beim Booten in PAL (außer USA). Ab Version 2.0 can BangerMenu mit Hilfe von der Angabe des Monitor Treibers und einer IDNummer, die Workbench in jeder beliebigen Auflösung darstellen. BangerMenu kann sogar Grafikkartenmodien benutzen. s. Guidefile"
  ))
  (set #endtext
  (cat "Zum Starten von BangerMenu muß BangerMenu in der Startup-Sequence eingebunden werden. Zum richtigen Einbinden in die Startup-Sequence lesen sie bitte in der BangerMenu.guide nach.\n Der Pfad lautet : "
  ))
 )
)
(if (= @LANGUAGE "english")
 (
  (set #bad-kick
  (cat "BangerMenu will only run under Kickstart 2.0 or above!.\nlooks on BangerMenu.guide\nInstallation abort."
  ))
  (set #choose-medium
  (cat "Please choose a medium where BangerMenu should be installed!"
  ))
  (set #choose-m-help
  (cat "BangerMenu can be install on harddrive or on disk."
  ))
  (set #choose-color
  (cat "How many colors should your icons have ?"
  ))
  (set #choose-c-help
  (cat "You can choose between 4 and 8 colors icons for your workbench."
  ))
  (set #choose-progdir
  (cat "Please choose a dir where BangerMenu should be installed! A drawer BangerMenu will be created there."
  ))
  (set #choose-prog-help
  (cat "In this location a drawer will be created. All files will be installed into this drawer."
  ))
  (set #create-dir
  (cat "Creating BangerMenu directory"
  ))
  (set #inst-main
  (cat "Installing main programs."
  ))
  (set #choose-disk
  (cat "Please choose a diskfloppy where BangerMenu should be installed!"
  ))
  (set #choose-disk-help
  (cat "Installing BangerMenu in C-dir of the Disk (create a C-dir, if required). Installing BangerMenu.prefs in S-Dir of the Disk (create a S-dir, if required). If you wish to install the guide, source and intallscript when you can choose it."
  ))
  (set #ask-source
  (cat "Should I install the asm-sourcecode ?"
  ))
  (set #ask-source-help
  (cat "Coders can use this code for their own programms."
  ))
  (set #inst-source
  (cat "Installing BangerMenu.asm ..."
  ))
  (set #inst-source2
  (cat "Installing BangerMonitorID.asm ..."
  ))
  (set #ask-guide
  (cat "Should I install the guide of the programm ?"
  ))
  (set #ask-guide-help
  (cat "The little guide of this programm."
  ))
  (set #inst-guide
  (cat "Installing BangerMenu.guide ..."
  ))
  (set #ask-install
  (cat "Should I copy the installscript ?"
  ))
  (set #ask-install-help
  (cat "This is important, if you want to install the programm on other medium for example on disk."
  ))
  (set #inst-install
  (cat "Installing BangerMenu.install ..."
  ))
  (set #ask-prefs
  (cat "Should I install the configfile ?"
  ))
  (set #ask-prefs-help
  (cat "A expamle configfile to lerning how to build yourself configfiles for BangerMenu."
  ))
  (set #inst-prefs
  (cat "Installing BangerMenu.prefs ..."
  ))
  (set #create-s-dir
  (cat "Creating S directory."
  ))
  (set #ask-bat
  (cat "Should I install the directory bat ?"
  ))
  (set #ask-bat-help
  (cat "A few example batch files for using BangerMenu."
  ))
  (set #inst-bat
  (cat "Installing directory bat ..."
  ))
  (set #create-bat-dir
  (cat "Creating Bat directory."
  ))
  (set #ask-MoniID
  (cat "Would you start BangerMenu in a different standard solution ?"
  ))
  (set #ask-MoniID-help
  (cat "The Workbench is standard in PAL (in USA is it NTSC). BangerMenu can in his new version the Workbench Screen equal in a higher solutions like VGA. You must give the program only two parameters the monitordriver and the idnumber. (Look at guide)."
  ))
  (set #endtext
  (cat "Now you must wrote a few line to your Startup-Sequence. Look at the guide. The path is : "
  ))
 )
)
(complete 0)
(if (< (/ (getversion) 65536) 37) (abort #bad-kick))
(welcome)
(complete 5)
(set Medium
	(askchoice
		(prompt #choose-medium)
		(help #choose-m-help)
		(choices "HD" "Disk")
		(default 0)
	)
)
(complete 10)
(set color
	(askchoice
		(prompt #choose-color)
		(help #choose-c-help)
		(choices "4" "8")
		(default 1)
	)
)
(if (= Medium 0)
 (
 (set preprogdest
	(askdir
		(prompt #choose-progdir)
		(help #choose-prog-help)
		(default "SYS:")
		(newpath)
	)
 )
 (set progdest ( tackon preprogdest "BangerMenu" ))
 (makedir progdest
	  (prompt #create-dir)
	  (safe)
 )
 (if (= color 1) (set infosource "/BangerMenu.info")
	(set infosource "4ColorIcons/BangerMenu.info")
 )
 (copyfiles
	(source infosource)
	(dest preprogdest)
 )
 )
)
(complete 20)
(if (= Medium 1)
 ((set preprogdest
	(askdir
		(prompt #choose-disk)
		(help #choose-disk-help)
		(disk)
		(default "DF0:")
	)
  )
  (set progdest ( tackon preprogdest "C" ))
 )
)
(complete 30)
(copyfiles
	(prompt #inst-main)
	(source "BangerMenu")
	(dest progdest)
)
(copyfiles
	(prompt #inst-main)
	(source "BangerMonitorID")
	(dest progdest)
)
(if (= color 1) (set maininfo "BangerMonitorID.info")
	(set maininfo "4ColorIcons/BangerMonitorID.info")
)
(copyfiles
	(source maininfo)
	(dest progdest)
)
(if (= Medium 1) (set progdest preprogdest))
(complete 40)
(if (askbool
		(help #ask-source-help)
		(prompt #ask-source)
	)
 (
	(copyfiles
		(prompt #inst-source)
		(source "BangerMenu.asm")
		(dest progdest)
	)
	(if (= color 1) (set asminfo "BangerMenu.asm.info")
	   (set asminfo "4ColorIcons/BangerMenu.asm.info")
	)
	(copyfiles
		(source asminfo)
		(dest progdest)
	)
	(copyfiles
		(prompt #inst-source2)
		(source "BangerMonitorID.asm")
		(dest progdest)
	)
	(if (= color 1) (set asminfo "BangerMonitorID.asm.info")
	   (set asminfo "4ColorIcons/BangerMonitorID.asm.info")
	)
	(copyfiles
		(source asminfo)
		(dest progdest)
	)
 ) 
)
(complete 50)
(if (askbool
		(help #ask-guide-help)
		(prompt #ask-guide)
	)
 (
	(if (= @LANGUAGE "deutsch")
		((set guidefile "BangerMenu.guide")
		(if (= color 1) (set guideinfo "BangerMenu.guide.info")
			(set guideinfo "4ColorIcons/BangerMenu.guide.info")
		)
		)
		((set guidefile "BangerMenu_Eng.guide")
		(if (= color 1) (set guideinfo "BangerMenu_Eng.guide.info")
			(set guideinfo "4ColorIcons/BangerMenu_Eng.guide.info")
		))
	)
	(copyfiles
		(prompt #inst-guide)
		(source guidefile)
		(dest progdest)
	)
	(copyfiles
		(source guideinfo)
		(dest progdest)
	)
 )
)
(complete 60)
(if (askbool
		(help #ask-install-help)
		(prompt #ask-install)
	)
 (   
	(if (= @LANGUAGE "deutsch")
		((if (= color 1) (set installinfo "Deutsch.install.info")
			(set installinfo "4ColorIcons/Deutsch.install.info")
		 )
		)
		((if (= color 1) (set installinfo "English.install.info")
			(set installinfo "4ColorIcons/English.install.info")
		 )
		)
	)
	(copyfiles
		(prompt #ins-install)
		(source "BangerMenu.install")
		(dest progdest)
	)
	(copyfiles
		(source installinfo)
		(dest progdest)
	)
 )
)
(complete 70)
(if (askbool
		(help #ask-prefs-help)
		(prompt #ask-prefs)
	)
   (
	(if (= Medium 1)
	  (
		(set progdest ( tackon preprogdest "S" ))
		(makedir progdest
			(prompt #create-s-dir)
			(infos)
			(safe)
		)
	  )
	)
	(copyfiles
		(prompt #inst-prefs)
		(source "BangerMenu.prefs")
		(dest progdest)
		(safe)
	)
	(if (= color 1) (set prefsinfo "BangerMenu.prefs.info")
		(set prefsinfo "4ColorIcons/BangerMenu.prefs.info")
	)
	(copyfiles
		(source prefsinfo)
		(dest progdest)
	)
	(if (askbool
		(help #ask-bat-help)
		(prompt #ask-bat)
		)
	   (
		(if (= Medium 0)
		   (
			(set batdest ( tackon progdest "bat"))
			(makedir batdest
				(prompt #create-bat-dir)
				(infos)
				(safe)
			)
		   )
		   (set batdest progdest)
		)
		(copyfiles
			(prompt #inst-bat)
			(source "bat")
			(all)
			(dest batdest)
			(safe)
		)
	   )
	)
   )
)

(complete 80)
(if (askbool
	(help #ask-MoniID-Help)
	(prompt #ask-MoniID)
	)
	(
	(run "BangerMonitorID")
	)
)
(if (= Medium 0) (set filedest ( tackon progdest "BangerMenu" ))
 (set filedest ( tackon preprogdest "C"))
)
(complete 90)
(message #endtext filedest)
(complete 99)
(exit)