;$VER: 1.0 AMaster2_Install_Disk (20.12.1993)
;Install script für AMaster2 deutsche Disk Version
;Bitte Script nicht verändern

( transcript "Installiere \"AMaster2\" © 1991/92/93 by H.P.G" )

( welcome
	"Dieses Script installiert AMaster2 auf Diskette. "
	"\n\nDazu benötigen Sie eine unformatierte Leerdiskette \n\n"
	"Alle benötigten Dateien werden auf die Diskette kopiert.\n"
	"Die Voreinstellugnsdateien werden nach ENVARC: kopiert\n\n"
)

( set @error-msg   "Es tut mir leid, aber das Installations-Script scheint verändert worden zu sein !" )
( set amhelp-help  "Die Hilfsdateien werden vom Hilfssystem benötigt.\n\nIch empfehle sie zunächst zu installieren. Nach einiger Zeit werden Sie die Hilfen nicht mehr brauchen und Sie können dann dieses Verzeichnis löschen\n\n! Ohne diese Dateien steht Ihnen keine Hilfsfunktion zur Verfügung !" )
( set guides-help  "Dies sind die AmigaGuide©-Anleitungen für AMaster2.\n\nSie benötigen AmigaGuide unter OS 2.xx und/oder Multiview unter OS 3.xx.\n\nAb Version 39L von Amigaguide© stehen Ihnen auch die verschiedenen Schriftstyle zur Verfügung" )
( set docs-help    "Dies sind die ASCII-Anleitungen für AMaster2. Sie benötigen diese Dateien nur, wenn Sie nicht über AmigaGuide© und/oder Multiview unter OS 3.xx verfügen." )
( set conv-help    "Das Converter/Programm konvertiert alte AMaster(1)-Adreßlisten in das neue von AMaster2 verwendete Dateiformat." )
( set amaster-dest "DF0:" )
( set @default-dest amaster-dest )

(if (exists "sys:system/format" (noreq))
	( set format-file "sys:system/format" )
	( if (exists "C:Format" (noreq))
		( set format-file "C:Format" )
		( set format-file 0 )
	)
)

( run "addbuffers df0: 50" )

( set cmd
	( cat format-file " <NL.dat  drive df0: name AMaster2 noicons" )
)

( message
	"Bitte eine leere unformatierte Diskette in Laufwerk DF0: einlegen\n\n"
	"Zunächst wird die Diskette formatiert und dann werden alle\n"
	"benötigten Verzeichnisse erzeugt\n"
	"Dann werden alle Dateien kopiert \n"
)

( run cmd
	( prompt "Sind Sie sicher, daß sie die Diskette in DF0: formatieren wollen ?" )
  ( help formatting-help )
  ( confirm )
)

( copyfiles
  ( prompt "Kopiere das Entpckungsprogramm nach Ram:..." )
  ( help    @copyfiles-help )
  ( source "LHX/LHx" )
  ( dest   "Ram:" )
)
; LHX Copied to Ram:

( copyfiles
	( prompt  "Kopiere das Programm nach Ram:..." )
	( source  "German/AMaster2.lha" )
	( dest    "Ram:" )
)

(set order
  ( cat "Ram:LHX -x x RAM:AMaster2.lha " amaster-dest )
)

( run order
  ( prompt "Entpacke das Programm..." )
)

( delete "RAM:AMaster2.lha" )
;AMaster2 copied

( complete 35 )

( copyfiles
	( prompt  "Kopiere die Beispielsadreßdatei..." )
	( source  "AMaster.dat" )
	( dest    amaster-dest )
	( infos )
)
;Database copied

( complete 36 )

( copyfiles
	( prompt  "Kopiere die Voreinstellungsdateien..." )
	( source  "German/" )
	( dest    "ENV:" )
	( pattern "#?.prefs" )
	( infos )
)

( copyfiles
	( prompt  "Kopiere die Voreinstellungsdateien..." )
	( source  "German/" )
	( dest    "ENVARC:" )
	( pattern "#?.prefs" )
	( infos )
)

;Prefs files copied

( copyfiles
  ( prompt  "Kopiere die Druckformatdateien..." )
  ( source  "Formats.lha" )
  ( dest    "Ram:" )
)

( set order
  ( cat "Ram:LHX -x x RAM:Formats.lha " amaster-dest )
)

( run order
  ( prompt "Entpacke die Formatdateien..." )
)

( delete "RAM:Formats.lha" )

;Formats copied
( complete 37 )

( set answer
	( askbool
		( prompt "Möchten sie die Hilfstexte installieren ?" )
		( help amhelp-help )
		( choices "Installieren" "Nicht installieren" )
		( default 1 )
	)
)

( if answer
  (
    ( copyfiles
	    ( prompt  "Kopiere die Hilfstexte nach Ram:..." )
  	  ( source  "German/AMHelp.lha" )
  	  ( dest    "Ram:" )
    )
    (set order
      ( cat "Ram:LHX -x x RAM:AMHelp.lha " amaster-dest  )
    )
    ( run order
      ( prompt "Entpacke Hilfstexte (Bitte Geduld !)..." )
    )
    ( delete "RAM:AMHelp.lha" )
  )
)

( complete 47 )

;Help files copied

( set answer
	( askbool
		( prompt "Möchten Sie die AmigaGuide© dateien installieren ?" )
		( help guides-help )
		( choices "Installieren" "Nicht installieren" )
		( default 1 )
	)
)

( if answer
  (
    ( copyfiles
	    ( prompt  "Kopiere die AmigaGuide© Dateien nach Ram:..." )
    	( source  "German/Guide.lha" )
	    ( dest    "Ram:" )
    )
    (set order
      ( cat "Ram:LHX -x x RAM:Guide.lha " amaster-dest  )
    )
    ( run order
      ( prompt "Entpacke die AmigaGuide© Dateien..." )
    )
    ( delete "RAM:Guide.lha" )
  )
)

( complete 75 )

;Guides copied

( set answer
	( askbool
		( prompt "Möchten Sie die ASCII-Dokumentation installed ?" )
		( help docs-help )
		( choices "Install" "Don`t install" )
		( default 1 )
	)
)

( if answer
  (
    ( copyfiles
	    ( prompt  "Kopiere die ASCII-Dokumentation nach Ram:..." )
  	  ( source  "German/Docs.lha" )
  	  ( dest    "Ram:" )
    )
    (set order
      ( cat "Ram:LHX -x x RAM:Docs.lha " amaster-dest )
    )
    ( run order
      ( prompt "Entpacke die Dokumentation..." )
    )
    ( delete "RAM:Docs.lha" )
  )
)

( complete 90 )

;Docs copied

( set answer
	( askbool
		( prompt "Möchten Sie das Converter-Programm installieren ?\n"	)
		( help conv-help )
		( choices "Installieren" "Nicht installieren" )
		( default 1 )
	)
)

( if answer
  (
    ( copyfiles
	    ( prompt  "Kopiere das Converter-Programm nach Ram:..." )
  	  ( source  "Converter.lha" )
  	  ( dest    "Ram:" )
    )
    (set order
      ( cat "Ram:LHX -x x RAM:Converter.lha " amaster-dest )
    )
    ( run order
      ( prompt "Entpacke den Converter..." )
    )
    ( delete "RAM:Converter.lha" )
  )
)

( complete 95 )

;Converter tool copied

( delete "RAM:LHX" )
( complete 100 )