; $VER: MaxonMAGIC 3 Install Version 1.0 (16.02.96)
; Script zum Installieren von MaxonMAGIC 3
;
;============================
;=== Deutsche Erklärungen ===
;============================
(set #introduction
(cat "\nMit diesem Installationsprogramm können Sie\n\nMaxonMAGIC 3\n\n auf einer "
     "Festplatte installieren bzw. eine vorhandene Version updaten."
     "Die komplette Installation läuft "
     "automatisch ab. "
     "Auf Ihrer Festplatte muß mindestens 5 MB Platz frei sein!\n\n"))

(set #askdir-help
(cat "\nWählen Sie zuerst die Partition Ihrer Festplatte aus, auf der "
     "Sie gerne MaxonMAGIC 3 installieren möchten. Sie müssen KEIN Verzeichnis "
     "anlegen, da das Installationsprogramm dies automatisch macht! "

	  "\nSie können über das Symbol 'Laufwerke anz.' (bzw. 'Show drives') "
	  "eine Übersicht über alle Laufwerke Ihres Amiga anfordern; aus "
	  "dieser Übersicht sollten Sie nur die oberen, nicht farblich "
	  "gekennzeichneten Einträge auswählen.\n"
	  "Typische sinnvolle Namen sind z.B. \"WORK:\", \"HD0:\" oder \"DH0:\"; "
	  "nicht verwenden sollten Sie Namen wie \"DF0:\", \"DF1:\", "
	  "\"DF2:\", \"DF3:\", \"RAD:\", \"RAM:\", \"System2.0:\", "
	  "\"WB_2.x:\", \"System3.0:\" oder \"WB_3.x:\"!"
	  "\n\n"
	  ))

(set #help-startup
(cat "Die Datei \"user-startup\" befindet sich im Verzeichnis \"S:\". "
     "In ihr befinden sich spezielle Kommandos, die einige Programme "
     "bereits beim Systemstart ausführen.\n\n"))


(set #no-inst
(cat "\nDer Platz auf der von Ihnen gewählten Partition reicht nicht aus, um die "
     "MaxonMAGIC 3-Dateien zu kopieren\n\n"
     "!!! Die Installation wird abgebrochen !!!"))


(set #COPVERZ	(cat "\nAuf welcher Partition soll MaxonMAGIC 3\nangelegt werden?"
						  "\nDas Verzeichnis \"MaxonMAGIC 3\" wird automatisch erzeugt!"
))

(set #SIZE 1)

(set @language "Deutsch")

(set os-version (/ (getversion) 65536))
(set os-13 (< os-version 36))
(set os-20 (>= os-version 36))
(set os-21 (>= os-version 38))


(Procedure Inst_LhaFiles
	(working @Working)
	(run ("RAM:Lhx -E -N x %s \"%s/\"" @Source @Dest))
)

(Procedure Inst_NormFiles
	(if (< (getdiskspace @Dest) @Size)
		(abort #no-inst))

	(set @anzeige (cat "Kopiere "@FName" aus "@SOURCE" \nnach "@Dest))
	(copyfiles (prompt @anzeige)(help @copyfiles-help)(source @Source)(choices @FName)(files)(infos)(dest @Dest)(confirm))
)

(Procedure Inst_PatternFiles
	(if (< (getdiskspace @Dest) @Size)
		(abort #no-inst))

	(set @anzeige (cat "Kopiere "@FName" aus "@SOURCE" \nnach "@Dest))
	(copyfiles (prompt @anzeige)(help @copyfiles-help)(source @Source)(pattern @Pattern)(infos)(dest @Dest)(confirm))
)



(message #introduction)
(welcome)
(set old_level @user-level)

(complete 0)


(set @default-dest                       	; Verzeichnis aussuchen
	(askdir
		(prompt #COPVERZ)
		(help	#askdir-help)
		(default "WORK:")
	)
)

(set @default-dest (tackon @default-dest "MaxonMAGIC_3"))
(set @default-src "MaxonMAGIC_3:")



(if                                      	; Verzeichnis erzeugen
	(= (exists @default-dest) 0)
	(makedir @default-dest)
)


	(askdisk
		(prompt "\n\n\nBitte legen Sie die Diskette 1/4 ein!")
		(help #askdir-help)
		(dest "MaxonMAGIC_3")
	)



(complete 1)


(
	(set @Source (tackon @default-src "c"))
	(set @Dest "RAM:")
   	(set @FName "LHX")
	(Inst_NormFiles)
)

(
	(set @Source @default-src)
	(set @Dest @default-dest)
   	(set @Pattern "MaxonMAGIC_3")
	(set @Size #SIZE)
	(Inst_PatternFiles)
)

(complete 10)


(
	(set @Source @default-src)
	(set @Dest @default-dest)
   	(set @Pattern "MM_Effekte")
	(Inst_PatternFiles)
)

(
	(set @Source @default-src)
	(set @Dest @default-dest)
   	(set @Pattern "MM_Sounds")
	(Inst_PatternFiles)
)

(
	(set @Source @default-src)
	(set @Dest @default-dest)
 	(set @Pattern "Inhalt")
	(Inst_PatternFiles)
)

(
	(set @Source @default-src)
	(set @Dest @default-dest)
   	(set @Pattern "Bitte_lesen!")
	(Inst_PatternFiles)
)

(
	(set @Source @default-src)
	(set @Dest @default-dest)
   	(set @Pattern "MM_Prefs-HD")
	(Inst_PatternFiles)
)
	(rename (tackon @default-dest "MM_Prefs-HD") (tackon @default-dest "MM_Prefs"))

	(set @Working "Entpacke Samples")
	(set @Source "MaxonMAGIC_3:samples2.lha")
	(set @Dest @default-dest)
	(Inst_LhaFiles)


	(askdisk
		(prompt "\n\n\nBitte legen Sie die Diskette 2/4 ein!")
		(help #askdir-help)
		(dest "MM3_Disk2")
	)

(complete 25)

	(set @Working "Entpacke Samples")
	(set @Source "MM3_Disk2:samples1.lha")
	(set @Dest @default-dest)
	(Inst_LhaFiles)

(complete 40)

	(set @Working "Entpacke Songs")
	(set @Source "MM3_Disk2:smod.lha")
	(set @Dest @default-dest)
	(Inst_LhaFiles)


(complete 50)

	(askdisk
		(prompt "\n\n\nBitte legen Sie die Diskette 3/4 ein!")
		(help #askdir-help)
		(dest "MM3_Disk3")
	)


	(set @Working "Entpacke Grafiken")
	(set @Source "MM3_Disk3:gfx.lha")
	(set @Dest @default-dest)
	(Inst_LhaFiles)


	(set @Working "Entpacke Uhrzeitansagen")
	(set @Source "MM3_Disk3:TC_Boris.lha")
	(set @Dest (tackon @default-dest "MM_Sounds"))
	(Inst_LhaFiles)

	(set @Working "Entpacke Uhrzeitansagen")
	(set @Source "MM3_Disk3:TC_Schweizerisch.lha")
	(set @Dest (tackon @default-dest "MM_Sounds"))
	(Inst_LhaFiles)

	(set @Working "Entpacke Uhrzeitansagen")
	(set @Source "MM3_Disk3:TC_Schwäbisch.lha")
	(set @Dest (tackon @default-dest "MM_Sounds"))
	(Inst_LhaFiles)

	(set @Working "Entpacke Uhrzeitansagen")
	(set @Source "MM3_Disk:TC_Sächsisch.lha")
	(set @Dest (tackon @default-dest "MM_Sounds"))
	(Inst_LhaFiles)


	(askdisk
		(prompt "\n\n\nBitte legen Sie die Diskette 4/4 ein!")
		(help #askdir-help)
		(dest "MM3_Disk4")
	)

(complete 75)

	(set @Working "Entpacke Uhrzeitansagen")
	(set @Source "MM3_Disk4:TC_Bayrisch.lha")
	(set @Dest (tackon @default-dest "MM_Sounds"))
	(Inst_LhaFiles)


	(set @Working "Entpacke Uhrzeitansagen")
	(set @Source "MM3_Disk4:TC_Helmut.lha")
	(set @Dest (tackon @default-dest "MM_Sounds"))
	(Inst_LhaFiles)


	(set @Working "Entpacke Samples")
	(set @Source "MM3_Disk4:samples3.lha")
	(set @Dest @default-dest)
	(Inst_LhaFiles)

	(set @Working "Entpacke Effekte")
	(set @Source "MM3_Disk4:effekte.lha")
	(set @Dest @default-dest)
	(Inst_LhaFiles)

	(set @Working "Entpacke Effekte")
	(set @Source "MM3_Disk4:mod.lha")
	(set @Dest (tackon @default-dest "mm_effekte"))
	(Inst_LhaFiles)

(complete 85)

	(rename (tackon @default-dest (tackon "mm_effekte" "master.mod")) (tackon @default-dest (tackon "mm_effekte" "Flederfanten.mod")))

	(set @Working "Entpacke Effekte")
	(set @Source "MM3_Disk4:mod.lha")
	(set @Dest (tackon @default-dest "mm_effekte"))
	(Inst_LhaFiles)

	(rename (tackon @default-dest (tackon "mm_effekte" "master.mod")) (tackon @default-dest (tackon "mm_effekte" "Flugmaschinen.mod")))

	(set @Working "Entpacke Effekte")
	(set @Source "MM3_Disk4:mod.lha")
	(set @Dest (tackon @default-dest "mm_effekte"))
	(Inst_LhaFiles)

	(rename (tackon @default-dest (tackon "mm_effekte" "master.mod")) (tackon @default-dest (tackon "mm_effekte" "Maxon.mod")))
	(set @Working "Entpacke Effekte")
	(set @Source "MM3_Disk4:mod.lha")
	(set @Dest (tackon @default-dest "mm_effekte"))
	(Inst_LhaFiles)

	(rename (tackon @default-dest (tackon "mm_effekte" "master.mod")) (tackon @default-dest (tackon "mm_effekte" "Pinguin_Party.mod")))

	(set @Working "Entpacke Effekte")
	(set @Source "MM3_Disk4:mod.lha")
	(set @Dest (tackon @default-dest "mm_effekte"))
	(Inst_LhaFiles)

	(rename (tackon @default-dest (tackon "mm_effekte" "master.mod")) (tackon @default-dest (tackon "mm_effekte" "Schmetterlinge.mod")))

	(set @Working "Entpacke Effekte")
	(set @Source "MM3_Disk4:mod.lha")
	(set @Dest (tackon @default-dest "mm_effekte"))
	(Inst_LhaFiles)

	(rename (tackon @default-dest (tackon "mm_effekte" "master.mod")) (tackon @default-dest (tackon "mm_effekte" "Viecher.mod")))




	(set @Working "Entpacke Samples")
	(set @Source "MM3_Disk4:pingusnd.lha")
	(set @Dest (tackon @default-dest "MM_Sounds"))
	(Inst_LhaFiles)


(complete 95)

(set changechoice 1)

(set changechoice
	(askchoice
		(prompt "\nMöchten Sie MaxonMagic automatisch\nbeim Starten aktivieren?\n\nDabei wird die User-Startup verändert!")
		(help @askchoice-help)
		(choices "Ja" "Nein")
		(default 0)
	)
)


(set command1 "MaxonMAGIC_3")

(if (not changechoice)
	(
	; ------- STARTUP ÄNDERN


	(set command1 (tackon @default-dest "MaxonMAGIC_3"))

	(set command1.txt
		(cat
		 	"\n\n\nDamit MaxonMAGIC nach jedem Neustart aktiv ist"
	      "muß eine Änderung an der User-Startup vorgenommen werden.\n\n"
		 	command1
		)
	)

	(startup "MaxonMAGIC.app"
		(prompt command1.txt)
		(help #help-startup)
		(command command1)
	)))




(run "C:DELETE RAM:LHX")									; aufräumen ...

(complete 100)

; ------- FERTIG

(exit)

;=============================================================================