;********************************************************************************
;*                                                                              *
;*            CyberVision Installationscript ©1995 Andreas Goiczyk             *
;*                                                                              *
;*                                                                              *
;*                                                                              * 
;********************************************************************************



(transcript "Installation for \"CyberVision64")



(set #reboot
(cat "Die Installation der CyberVision64 Software ist nun abgeschlossen.\n\n"
     "Um Ihre CyberVision64 zu aktivieren, müssen Sie Ihren Amiga neu "
     "starten. "
     "Nehmen Sie die Diskette \"CyberVision64\" aus dem Diskettenlaufwerk "
     "und klicken Sie dann auf \"Weiter\", um Ihren Amiga neu zu starten.\n\n"
     "Danach müssen Sie ggf. den Voreinsteller-ScreenMode \"ScreenMode\" "
     "aus der Schublade \"Prefs\" aufrufen und dort Ihre gewünschte Auflösung auswählen."
))


(set #reboot-def
(cat "Ihre Monitoreinstellungen sind wieder auf Defaultwerte gesetzt.\n\n"
     "Um diese werte zu aktivieren, müssen Sie Ihren Amiga neu starten. "
     "Nehmen Sie die Diskette \"CyberVision64\" aus dem Diskettenlaufwerk "
     "und klicken Sie dann auf \"Weiter\", um Ihren Amiga neu zu starten.\n\n"
     "Danach müssen Sie ggf. den Voreinsteller-ScreenMode \"ScreenMode\" "
     "aus der Schublade \"Prefs\" aufrufen und dort Ihre gewünschte Auflösung auswählen."
))



(set @hirescrsr
(cat "\"HIRESCRSR\"  "
     "Wenn diese Variable aktiviert ist, werden Lores-Sprites auf nicht-AGA-Geräten "
     "zu Hires-sprites (Sie werden nicht mehr von der Cybergraphics Software "
     "verdoppelt). "
))



(set @hide15bit
(cat "\"HIDE15BIT\"  "
     "Wenn diese Variable aktiviert ist, werden alle 15Bit Bildschrimmodi im "
     "ScreenMode Requester nicht mehr angezeigt, sie sind jedoch immernoch "
     "verfügbar !"
))



(set INST

	(askchoice
	  (prompt "\nBitte wählen Sie Ihre Installation")
	  (help @install-help)
          (choices "Erstmalige Installation" "Monitor auf Defaultwert setzen")
	(default 0) 
	)
)



;*********************************************************************************
;* Erstmalige Installtion                                                        *
;*********************************************************************************


(if (= INST 0)
(

        (set default-dest
        	(askdir
        		(prompt "Pfad für CyberVision Verzeichniss")
	        	(help @askdir-help)
		        (default "SYS:")
        	)
        )


        (makeassign "MYASS" default-dest)

        (makedir "MYASS:CyberVision64"
        	(prompt "Das Verzeichniss CyberVision64 wird erzeugt")
        	(help @makedir-help)
        	(infos)
        	(confirm)
        )

        (makeassign "CyberVision64" "MYASS:CyberVision64")











        (makedir "MYASS:CyberVision64/Treiber"
        	(prompt "Das Verzeichniss CyberVision64/Treiber wird erzeugt")
           	(help @makedir-help)
        	(infos)
        	(confirm)
        )

        (set ass1 (expandpath "MYASS:CyberVision64/Treiber"))

        (copyfiles
        	(prompt "Die Ausgabetreiber werden nach CyberVision64/Treiber kopiert")
        	(help @copyfiles-help)
        	(source "DF0:Treiber")
        	(dest ass1)
        	(all)
                (infos)
                (confirm)
        )









        (makedir "MYASS:CyberVision64/Viewer"
        	(prompt "Das Verzeichniss CyberVision64/Viewer wird erzeugt")
        	(help @makedir-help)
        	(infos)
                (confirm)
        )

        (set ass2 (expandpath "MYASS:CyberVision64/Viewer"))

        (copyfiles
        	(prompt "Die Bildschirmanzeiger werden nach CyberVision64/Viewer kopiert")
        	(help @copyfiles-help)
                (source "DF0:Viewer")
        	(dest ass2)
        	(all)
                (infos)
                (confirm)
        )








        
        (makedir "MYASS:CyberVision64/CyberMode"
        	(prompt "Das Verzeichniss CyberVision64/CyberMode wird erzeugt")
        	(help @makedir-help)
        	(infos)
        	(confirm)
        )

        (set ass3 (expandpath "MYASS:CyberVision64/CyberMode"))

        (copyfiles
        	(prompt "CyberMode wird nach CyberVision64/CyberMode kopiert")
                (help @copyfiles-help)
                (source "DF0:CyberMode")
	        (dest ass3)
	        (all)
                (infos)
                (files)
                (confirm)
        )









        (set libdest
        	(askdir
	        	(prompt "Pfad für Libraries")
        		(help @askdir-help)
		        (default "LIBS:")
        	)
        )

        (copylib
        	(prompt "Kopieren der cybergraphics.library nach " libdest)
        	(help @copylib-help)
        	(source "DF0:cyberlibs/cybergraphics.library")
        	(dest libdest)
        	(confirm)
        )


        (copylib
        	(prompt "Kopieren der cyberintuition.library nach " libdest)
        	(help @copylib-help)
        	(source "DF0:cyberlibs/cyberintuition.library")
        	(dest libdest)
        	(confirm)
        )

        (copylib
        	(prompt "Kopieren der cyberlayers.library nach " libdest)
        	(help @copylib-help)
        	(source "DF0:cyberlibs/cyberlayers.library")
        	(dest libdest)
        	(confirm)
        )

        (copylib
        	(prompt "Kopieren der gtlayout.library nach " libdest)
        	(help @copylib-help)
        	(source "DF0:cyberlibs/gtlayout.library")
        	(dest libdest)
        	(confirm)
        )




        (set catdest
        	(askdir
	        	(prompt "Pfad für Catalog Files")
        		(help @askdir-help)
		        (default "locale:catalogs/deutsch")
        	)
        )        

        (copyfiles
        	(prompt "Kopieren der Catalog Files nach " catdest)
        	(help @copymon-help)
        	(source "DF0:catalogs/deutsch")
        	(dest catdest)
        	(all)
        )






        (set ass4
        	(askdir
        		(prompt "Pfad für Monitor Datei")
        		(help @askdir-help)
        		(default "DEVS:MONITORS")
        	)
        )

        (copyfiles
        	(prompt "Kopieren des Monitors nach " ass4)
        	(help @copymon-help)
        	(source "DF0:Monitors")
        	(dest ass4)
                (all)
        )







        (makedir "ENVARC:CyberGraphics"
        	(prompt "Das Verzeichniss ENVARC:CyberGraphics wird erzeugt")
        	(help @makedir-help)
        	(confirm)
        )

        (set ass5 (expandpath "ENVARC:CyberGraphics"))




        (set mon

        	(askchoice
        	  (prompt "\nWelche Monitordefinition soll benutzt werden:")
        	  (help @copylib-help)
        	  (choices "15KHz" "31KHz" "38KHz" "48KHz" "57KHz" "65KHz" )
        	(default 0) 
			
	
        	)
        )



        (if (= mon 0)



        	(copyfiles
        	        (source "DF0:Mon15KHz")
               		(dest ass5)
		        (all)
                        (infos)
                        (files)
		)


        )



        (if (= mon 1)



        	(copyfiles
		        (source "DF0:Mon31KHz")
		        (dest ass5)
		        (all)
                        (infos)
                        (files)
		
	        )
        

        )


        (if (= mon 2)



	        (copyfiles
		        (source "DF0:Mon38KHz")
		        (dest ass5)
		        (all)
                        (infos)
                        (files)
		
	        )


        )



        (if (= mon 3)



	        (copyfiles
		        (source "DF0:Mon48KHz")
		        (dest ass5)
		        (all)
                        (infos)
                        (files)
		
	        )


        )



        (if (= mon 4)



	        (copyfiles
		        (source "DF0:Mon57KHz")
		        (dest ass5)
		        (all)
                        (infos)
                        (files)
		
	        )


        )


        (if (= mon 5)



	        (copyfiles
        	        (source "DF0:Mon64KHz")
		        (dest ass5)
		        (all)
                        (infos)
                        (files)
		
	        )


        )


        (set HIDE15BIT   (askchoice  
                                 (choices "Ja" "Nein")
	                         (prompt "\nSoll die Envarc-Variable HIDE15BIT gesetzt werden ?")
	                         (help   @hide15bit)
          		         (default 0)
	         )
        )


        (if (= HIDE15BIT 0)
           (
             (run "setenv envarc:cybergraphics/HIDE15BIT 1")
           )
        )


        (set HIRESCRSR (askchoice
                               (choices "Ja" "Nein")
        	               (prompt "\nSoll die Envarc-Variable HIRESCRSR gesetzt werden ?")
        	               (help   @hirescrsr)
                  	       (default 0)
        	       )
        )


        (if (= HIRESCRSR 0)
           (
             (run "setenv envarc:cybergraphics/HIRESCRSR 1")
           )
        )



(user 2)
(message #reboot)
(run "Reboot")

))



;*********************************************************************************
;* Monitor auf Defaultwert setzen                                                *
;*********************************************************************************


(if (= INST 1)
(
        (set ass5 (expandpath "ENVARC:CyberGraphics"))

        (set mon

	        (askchoice
	         (prompt "\nWelche Monitordefinition soll benutzt werden:")
	         (help @copylib-help)
        	  (choices "15KHz" "31KHz" "38KHz" "48KHz" "57KHz" "65KHz" )
        	(default 0) 
			
	
        	)
        )

        (if (= mon 0)



        	(copyfiles
        	        (source "DF0:Mon15KHz")
               		(dest ass5)
		        (all)
                        (infos)
                        (files)
		)


       )



        (if (= mon 1)



        	(copyfiles
		        (source "DF0:Mon31KHz")
		        (dest ass5)
		        (all)
                        (infos)
                        (files)
		
	        )
        

        )


        (if (= mon 2)



	        (copyfiles
		        (source "DF0:Mon38KHz")
		        (dest ass5)
		        (all)
                        (infos)
                        (files)
		
	        )


        )



        (if (= mon 3)



	        (copyfiles
		        (source "DF0:Mon48KHz")
		        (dest ass5)
		        (all)
                        (infos)
                        (files)
		
	        )


        )



        (if (= mon 4)



	        (copyfiles
		        (source "DF0:Mon57KHz")
		        (dest ass5)
		        (all)
                        (infos)
                        (files)
		
	        )


        )


        (if (= mon 5)



	        (copyfiles
        	        (source "DF0:Mon64KHz")
		        (dest ass5)
		        (all)
                        (infos)
                        (files)
		
	        )


        )

        
        
        (set HIDE15BIT   (askchoice  
                                 (choices "Ja" "Nein")
	                         (prompt "\nSoll die Envarc-Variable HIDE15BIT gesetzt werden ?")
	                         (help   @hide15bit)
          		         (default 0)
	         )
        )


        (if (= HIDE15BIT 0)
           (
             (run "setenv envarc:cybergraphics/HIDE15BIT 1")
           )
        )


        (set HIRESCRSR (askchoice
                               (choices "Ja" "Nein")
        	               (prompt "\nSoll die Envarc-Variable HIRESCRSR gesetzt werden ?")
        	               (help   @hirescrsr)
                  	       (default 0)
        	       )
        )


        (if (= HIRESCRSR 0)
           (
             (run "setenv envarc:cybergraphics/HIRESCRSR 1")
           )
        )




(user 2)
(message #reboot-def)
(run "Reboot")
 

 
        
))