; $VER: MaxonCINEMA 4D DEMO Install Version 1.0 (17.02.95)
; Script zum Installieren von MaxonCINEMA 4D V2 DEMO
; 
;============================
;=== Deutsche Erklrungen ===
;============================
(set #introduction
(cat "\nMit diesem Installationsprogramm knnen Sie die Demoversion\n\nMaxonCINEMA 4D V2\n\n auf einer "
     "Festplatte installieren bzw. eine vorhandene Version updaten."
     "Die komplette Installation luft "
     "automatisch ab. "
     "Auf Ihrer Festplatte mu mindestens 2 MB Platz frei sein!\n\n"))

(set #askdir-help
(cat "\nWhlen Sie zuerst die Partition Ihrer Festplatte aus, auf der "
     "Sie gerne MaxonCINEMA 4D installieren mchten. Sie mssen KEIN Verzeichnis "
     "anlegen, da das Installationsprogramm dies automatisch macht! "

	  "\nSie knnen 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 Eintrge auswhlen.\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 ausfhren.\n\n"))


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


(set #prp-grafikausgabe
(cat	"\nSollen Ausgabetreiber fr 24 Bit Grafiksysteme installiert werden?\n"))
(set #no-gfxout		"Keine")
(set #retina-gfxout	"Retina")
(set #merlin-gfxout	"Merlin, Visiona, Domino")
(set #egs-gfxout		"EGS (u.a. Piccolo, Rainbow, GVP EGS 110/24)")
(set #picasso-gfxout	"Picasso")
(set #hlp-grafikausgabe
(cat	"\nWenn Sie keine Grafikkarte besitzen und wenn EGS auf Ihrem System nicht "
		"installiert ist, knnen Sie diese Frage mit \"Weiter\" berspringen.\n"
		"Ist eine der genannten Grafikkarten in Ihrem Amiga-System vorhanden, "
		"dann knnen Sie veranlassen, da der entsprechende Treiber "
		"installiert wird.\n"
		"Fragen Sie nach den neuesten Grafikkarten-Treibern bei der Fa. MAXON nach.\n\n"
		@askchoice-help))


(set #msg-install-cinema-lib
(cat	"\nNun wird die Cinema-Ausgabe-Library im LIBS:-Ordner installiert.\n\n"
		"Diese Library wird bentigt, damit CINEMA 4D direkt "
		"auf der Grafikkarte Bilder darstellen kann."))

(set #prp-copy-cinelib "Kopieren der Cinema-Ausgabe-Library")
(set #hlp-copy-cinelib
(cat	"Die Cinema-Ausgabe-Library enthlt leistungsfhige Funktionen zum "
		"Betreiben von CINEMA 4D unter den besonderen Fhigkeiten von "
		"24 Bit Grafikkarten"
		"\n\n"
		@copylib-help))


(set #COPVERZ	(cat "\nAuf welcher Partition soll MaxonCINEMA 4D\nangelegt werden?"
						  "\nDas Verzeichnis \"MC4D2-Demo\" wird automatisch erzeugt!"
))

(set sourcefd-guidelib				"RAM:libs/amigaguide.library")
(set sourcefd-retina					"RAM:libs/Retina/cinemaausgabe.library")
(set sourcefd-picasso				"RAM:libs/Picasso/cinemaausgabe.library")
(set sourcefd-merlin					"RAM:libs/Merlin.ganzneu/cinemaausgabe.library")
(set sourcefd-egs						"RAM:libs/EGS/cinemaausgabe.library")
(set sourcefd-egsdoc					"RAM:libs/EGS/Cinema.guide")


(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_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 @user-level 1)
(set @default-src "")

(set processor (database "cpu"))

(if (OR (= processor "68000") (= processor "68010"))
    (set ProgVersion "000")

    (if (= 5 (run "TestFPU" (safe)))
            (set ProgVersion "881")
    )
)


(set egs (getassign "EGS"))								; Ist EGS installiert ?
(set gfxout 0)													; Keine
(if (<> egs "")((set gfxout 3)))							; 4=Picasso, 3=EGS, 2=Merlin, 1=Retina




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

(set @default-dest (tackon @default-dest "MC4D2-Demo"))



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

(complete 5)




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

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

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


	(set @TMP (tackon @default-src "libs.lha"))
	(set @Dest_File "RAM:")
	(set @TMP2 (tackon @default-dest "LHX"))
	(run ("%s -q x %s \"%s\"" @TMP2 @TMP @Dest_File))

(complete 20)

(set gfxout														; Grafikkarte whlen
	(askchoice
		(prompt #prp-grafikausgabe)
		(help #hlp-grafikausgabe)
		(choices #no-gfxout #retina-gfxout #merlin-gfxout #egs-gfxout #picasso-gfxout)
		(default gfxout)
	)
)


(if (= gfxout 1)												; Retina output
	(copylib
		(prompt #prp-copy-cinelib)
		(help #hlp-copy-cinelib)
		(source sourcefd-retina)
		(dest "LIBS:")
		(confirm)
	)
)
(if (= gfxout 2)												; Merlin output
	(copylib
		(prompt #prp-copy-cinelib)
		(help #hlp-copy-cinelib)
		(source sourcefd-merlin)
		(dest "LIBS:")
		(confirm)
	)
)
(if (= gfxout 3)												; EGS output
	(
		(copylib
			(prompt #prp-copy-cinelib)
			(help #hlp-copy-cinelib)
			(source sourcefd-egs)
			(dest "LIBS:")
			(confirm)
		)
		(copyfiles
			(prompt #prp-copy-cinelib)
			(help #hlp-copy-cinelib)
			(source sourcefd-egsdoc)
			(dest @default-dest)
			(infos)
		)
	)
)
(if (= gfxout 4)												; Picasso output
	(copylib
		(prompt #prp-copy-cinelib)
		(help #hlp-copy-cinelib)
		(source sourcefd-picasso)
		(dest "LIBS:")
		(confirm)
	)
)
(run "C:DELETE RAM:libs ALL QUIET")						; aufrumen ...






(complete 30)


	(working "\n\nProgrammdateien werden entpackt.\n\nBitte warten!")
	(set @TMP (tackon @default-src "Castillian.lha"))
	(set @Dest_File @default-dest)
	(set @TMP2 (tackon @default-dest "LHX"))
	(run ("%s -q x %s \"%s/\"" @TMP2 @TMP @Dest_File))

(complete 40)

	(set @TMP (tackon @default-src "MatTex.lha"))
	(set @Dest_File @default-dest)
	(set @TMP2 (tackon @default-dest "LHX"))
	(run ("%s -q x %s \"%s/\"" @TMP2 @TMP @Dest_File))

(complete 50)

	(set @TMP (tackon @default-src "Szenen.lha"))
	(set @Dest_File @default-dest)
	(set @TMP2 (tackon @default-dest "LHX"))
	(run ("%s -q x %s \"%s/\"" @TMP2 @TMP @Dest_File))


(if (= ProgVersion "000")
	(
	(set @TMP (tackon @default-src "Demo000.lha"))
	(set @Dest_File @default-dest)
	(set @TMP2 (tackon @default-dest "LHX"))
	(run ("%s -q x %s \"%s/\"" @TMP2 @TMP @Dest_File))
	)
)

(complete 60)


(if (= ProgVersion "881")
	(
	(working "\n\nProgrammdateien werden entpackt.\n\nBitte warten!")
	(set @TMP (tackon @default-src "Demo881.lha"))
	(set @Dest_File @default-dest)
	(set @TMP2 (tackon @default-dest "LHX"))
	(run ("%s -q x %s \"%s/\"" @TMP2 @TMP @Dest_File))
	)
)

(complete 80)

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

(complete 100)

; ------- FERTIG



(exit)

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

