; Installations script fr EasyVideo $VER 3.3

(set @default_dest "SYS:EasyVideo")

; Fehler / Cleanup

(onerror
        (makeassign "EasyVideo" (safe))
)

; schauen ob updatet

(set is_update 0)
(set EVideo_dest (getassign "EasyVideo" "a"))

; Wenn Update, ob berschreiben

(if EVideo_dest
    ; then
        (if (askbool
            (prompt "Ihr EasyVideo befindet sich schon im Verzeichnis \""
                                        EVideo_dest
                                        "\". Mchten Sie in dieses Verzeichnis updaten?"
                        )
                        (help
"Der Installer hat schon eine Kopie von EasyVideo entdeckt. Soll "
"diese Installation erhalten werden oder mchten Sie ein Update (Ja) ? "
                        )
                        (default 1)
                )

                (set is_update 1)               ; if user wants in same place

                (set EVideo_dest                      ; if user wants in different place
            (askdir
            (prompt "Auf welche Disk oder Verzeichnis soll EasyVideo intalliert werden?")
                (help
"Es wird das von Ihnen angegebene Verzeichnis verwendet, "
"und nicht ein eigenenes erzeugt! Das Verzeichnis sollte "
"bereits existieren"
					 )
                (default "SYS:EasyVideo")
					 (newpath "SYS:EasyVideo")
            )
                )
        )
    ; else
    (
        (set EVideo_dest
            (askdir
                (prompt "Auf welche Disk oder Verzeichnis soll EasyVideo intalliert werden?")
                (help
"Es wird das von Ihnen angegebene Verzeichnis verwendet, "
"und nicht ein eigenenes erzeugt! Das Verzeichnis sollte "
"bereits existieren"
					 )
                (default "SYS:EasyVideo")
					 (newpath "SYS:EasyVideo")
            )
        )
    )
)

(if (not (exists EVideo_dest) )
    (makedir EVideo_dest (prompt "Erstelle Direktory") (infos) (confirm) (help) )
)

(makeassign "EasyVideo" EVideo_dest (safe))

(makeassign "VideoInstallDisk" "" (safe))

; Make EasyVideo drawer & icon if not there

(if (not is_update)
    (makedir EVideo_dest (infos))
)

(set @default-dest EVideo_dest)

(copyfiles
    (source "VideoInstallDisk:")
    (pattern "EasyVideo#?")
    (dest EVideo_dest)
	 (infos)
)
(if (not (exists (tackon EVideo_dest "MyVideo.dat")))
(copyfiles
    (source "VideoInstallDisk:MyVideo.dat")
    (dest EVideo_dest)
	 (infos)
)
)
(copyfiles
    (source "VideoInstallDisk:Doku")
    (dest (tackon EVideo_dest "Doku") )
    (all)
    (infos)
)

(copyfiles
    (source "VideoInstallDisk:Doku.info")
    (dest EVideo_dest)
)

(copyfiles
    (source "VideoInstallDisk:Rexx")
    (dest (tackon EVideo_dest "Rexx") )
    (all)
    (infos)
)

(copyfiles
    (source "VideoInstallDisk:Catalogs")
    (dest (tackon EVideo_dest "Catalogs") )
    (all)
    (infos)
)

(if (not (EXISTS("c:RX")))
    (copyfiles (source "VideoInstallDisk:c/RX") (dest "c:") (infos))
)

( if (EXISTS("S:Video.config"))
  (set copy_oldprefs
        (askbool (prompt "Standardeinstellungen S:Video.config berschreiben?")
                 (help "Ja, existierendes Konfigurationsfile in S: wird berschrieben. "
							  "Ihre persnlichen Einstellungen und der eventuell vorhandene "
							  "Registrierkey geht dabei verloren! "
							  "Wird die Einstellung nicht berschrieben, ergnzt EV fehlende "
							  "Eintrge in der alten Konfiguration mit sinnvollen Eintrgen. "
                 )
        )
  )
)
  
( if copy_oldprefs
    ( copyfiles
        (source "VideoInstallDisk:ENV/Video.config")
        (dest "S:" )
        (infos)
    )
    ( transcript "Standardeinstellungsfile Video.config wird nicht nach S: kopiert." )
)

( if (EXISTS("EnvArc:Video.config"))
  (set copy_prefs 
        (askbool (prompt "Standardeinstellungen EnvArc:Video.config berschreiben?")
                 (help "Ja, existierende Konfigurationsfile in EnvArc: wird berschrieben. "
							  "Ihre persnlichen Einstellungen und der eventuell vorhandene "
							  "Registrierkey geht dabei verloren! "
							  "Wird die Einstellung nicht berschrieben, ergnzt EV fehlende "
							  "Eintrge in der alten Konfiguration mit sinnvollen Eintrgen. "
                 )
        )
  )
  ( if (Not (EXISTS("S:Video.config"))) ( set copy_prefs 1 ))
)
  
( if copy_prefs
    ( copyfiles
        (source "VideoInstallDisk:ENV/Video.config")
        (dest "EnvArc:" )
        (infos)
    )
    ( transcript "Standardeinstellungsfile Video.config wird nicht nach ENVARC: kopiert." )
)

( if (EXISTS "VideoInstallDisk:libs/amigaguide.library" (noreq))
 (
  (working "Installiere AmigaGuide...")
  (copylib
    (source "VideoInstallDisk:libs/amigaguide.library")
    (dest "LIBS:")
  )
  (copyfiles
    (source "VideoInstallDisk:c/amigaguide")
    (dest "C:")
    (infos)
  )
 )
)

( if (EXISTS "VideoInstallDisk:libs/asl.library" (noreq))
 (
  (working "Aktualisiere LIBS:...")
  (copylib
    (source "VideoInstallDisk:libs/explode.library")
    (dest "LIBS:")
  )
  (copylib
    (source "VideoInstallDisk:libs/rexxsupport.library")
    (dest "LIBS:")
  )
  (copylib
    (source "VideoInstallDisk:libs/rexxsyslib.library")
    (dest "LIBS:")
  )
  (copylib
    (source "VideoInstallDisk:libs/asl.library")
    (dest "LIBS:")
  )
  (copylib
    (source "VideoInstallDisk:libs/mathffp.library")
    (dest "LIBS:")
  )
  (copylib
    (source "VideoInstallDisk:libs/mathieeedoubbas.library")
    (dest "LIBS:")
  )
  (copylib
    (source "VideoInstallDisk:libs/mathieeedoubtrans.library")
    (dest "LIBS:")
  )
  (copylib
    (source "VideoInstallDisk:libs/mathtrans.library")
    (dest "LIBS:")
  )
  (copylib
	 (source "VideoInstallDisk:libs/diskfont.library")
	 (dest "LIBS:")
  )
 )
)

(if (askbool
    	(prompt "Soll ich fr Sie die Zeichenstze aktualisieren?")
      (help
"EasyVideo liefert ein paar ntzliche Zeichenstze mit. Mchten Sie diese nutzen, "
"antworten Sie mit JA. Wurde EasyVideo schon einmal installiert, mssen die Fonts nicht "
"noch einmal kopiert werden."
      )
	)
	(
	(working "Copiere Fonts...")
	(copyfiles
	    (source "VideoInstallDisk:fonts")
	    (dest "FONTS:")
	    (all)
	    (infos)
	)
	)
)
(working "")

; modify S:User-Startup

(startup "EasyVideo"
        (prompt
                "Ich definiere ein Assign fr EasyVideo in der \"S:user-startup\". "
                "Als Direktory kann in der Konfiguration dann \"EasyVideo:\" angegeben werden."
        (help "Ist besser so! EasyVideo erkennt an Hand dieses Assigns das Vorhandensein "
				  "einer lteren Version und aktualisiert in dieses Verzeichnis. "
		  )
        (command "ASSIGN EasyVideo: \"" EVideo_dest "\"")
        )
)

; reinitialize assigns

(makeassign "EasyVideo" EVideo_dest)

(complete 100)

 ; cleanup

(makeassign "VideoInstallDisk" (safe))

(exit (cat 
       "\nSollten Sie soeben ber eine vorhandene Konfiguration "
		 "Installiert haben und Sie sind registrierter Nutzer von EV, "
		 "knnen Sie den Registriercode mit Doppelklick auf "
		 "\"EasyVideoRegistrier\" von der Diskette bernehmen!\n"
		)
)
