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

(set #askdir-help
(cat "\nWählen Sie zuerst die Partition Ihrer Festplatte aus, auf der "
     "Sie gerne MaxonTOOLS 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 "
     "MaxonTOOLS-Dateien zu kopieren\n\n"
     "!!! Die Installation wird abgebrochen !!!"))


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

(set #SIZE 1000000)

(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))
)

(Procedure Inst_LhaFiles
	;(set @In_File (tackon @Source @FName.lha))
	(set @TMP (tackon "RAM:" @FName.lha))
	(set @Dest_File (tackon @default-dest @Dest))
	(if                                      	; Verzeichnis erzeugen
		(= (exists @Dest_File) 0)
		(makedir (@Dest_File)(infos))
	)

	(if (< (getdiskspace @Dest_File) @Size)
		(abort #no-inst))

	(copyfiles (prompt "")(help "")(source @Source)(choices @FName.lha)(dest "RAM:")(confirm))
	(working @Working @Dest)
	(run ("RAM:Lhx -E -N x %s \"%s/\"" @TMP @Dest_File))
	(delete @TMP)
)

(Procedure Inst_LhaFilesnew
	;(set @In_File (tackon @Source @FName.lha))
	(set @TMP (tackon "RAM:" @FName.lha))
	(set @Dest_File (tackon @default-dest @Dest))
	(makedir (@Dest_File)(infos))

	(if (< (getdiskspace @Dest_File) @Size)
		(abort #no-inst))

	(copyfiles (prompt "")(help "")(source @Source)(choices @FName.lha)(dest "RAM:")(confirm))
	(working @Working @Dest)
	(run ("RAM:Lhx -E -N x %s \"%s/\"" @TMP @Dest_File))
	(delete @TMP)
)


(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 "MaxonTOOLS"))
(set @default-src "MaxonTOOLS:")


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


	(askdisk
		(prompt "\n\n\nBitte legen Sie die Diskette \"MaxonTOOLS-Preview\" ein!")
		(help #askdir-help)
		(dest "MaxonTOOLS")
	)



(complete 5)

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

(complete 20)

(
	(set @Source @default-src)
	(set @Dest @default-dest)
   (set @Pattern "Config")
	(set @Size 80000)
	(Inst_PatternFiles)
)

(complete 40)

(
	(set @Source @default-src)
	(set @Dest @default-dest)
   (set @FName "Prefs")
	(set @Size 300000)
	(Inst_NormFiles)
)

(complete 60)

(
	(set @Source @default-src)
	(set @Dest @default-dest)
   (set @FName "Icons")
	(set @Size 40000)
	(Inst_NormFiles)

)

(complete 70)

(
	(set @Source @default-src)
	(set @Dest @default-dest)
   (set @FName "Module")
	(set @Size 5000)
	(Inst_NormFiles)
)

(
	(set @Source @default-src)
	(set @Dest @default-dest)
   (set @FName "Inhalt")
	(set @Size 1000)
	(Inst_NormFiles)
)

(
	(set @Source @default-src)
	(set @Dest @default-dest)
   (set @FName "Bestellen")
	(set @Size 1000)
	(Inst_NormFiles)
)

(
	(set @Source @default-src)
	(set @Dest @default-dest)
   (set @FName "Gewinnen!")
	(set @Size 1000)
	(Inst_NormFiles)
)

(
	(set @Source @default-src)
	(set @Dest @default-dest)
   (set @FName "Oberfläche")
	(set @Size 30000)
	(Inst_NormFiles)
)

(complete 80)

	(makedir (tackon @default-dest "libs"))

(
	(set @Source @default-src)
	(set @Dest (tackon @default-dest "libs"))
   (set @FName "mt.library")
	(set @Size 30000)
	(Inst_NormFiles)
)

(
	(set @Source @default-src)
	(set @Dest @default-dest)
   (set @FName "MT_Anleitung")
	(set @Size 25000)
	(Inst_NormFiles)
)


(
	(set @Source @default-src)
	(set @Dest @default-dest)
   (set @FName "LHA")
	(set @Size 125000)
	(Inst_NormFiles)
)
	(set @TMP (tackon @default-dest "LHA/lha_e138.lha"))
	(set @Dest_File (tackon @default-dest "LHA"))

	(run ("%s/LHA -q x %s \"%s/\"" @Dest_File @TMP @Dest_File))


;(if                               
;	(or (<> (exists "locale:catalogs/deutsch") 0) os-21)

; (
;	(set @Source @default-src)
;	(set @Dest "locale:catalogs/deutsch")
;   (set @FName "mt.catalog")
;	(set @Size 30000)
;	(Inst_NormFiles)
; )
;)

(complete 90)




	
	(
	; ------- STARTUP ÄNDERN
	
	
	(set command1 (cat "SETENV MTPATH=" "\"" @default-dest "\""))
	(set command2 (cat "ASSIGN LIBS: " "\"" (tackon @default-dest "LIBS\" ADD")))
	(set command3 (cat "PATH " "\"" (tackon @default-dest "LHA\" ADD")))
	(set command1.txt
		(cat 
		 	"\n\n\nDie User-Startup muß um Pfadangaben für MaxonTOOLS ergänzt werden.\n\n"
		)
	)
	
	(startup "MaxonTOOLS"
		(prompt command1.txt)
		(help #help-startup)
		(command command1)
		(command (cat "\n" command2))
		(command (cat "\n" command3))
	)
	)

	(run command1)
	(run command2)
	(run command3)

(complete 100)

; ------- FERTIG



(exit)

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