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



(transcript "Installation for \"CyberVision64")


(set #reboot
(cat "\nThe installation of CyberVision64 is now complete.\n\n"
     "To use the CyberVision, you must reboot your Amiga. After rebooting, "
     "you must run the \"ScreenMode\" preferences editor and pick the "
     "ScreenMode you wish to use.\n\n"
     "Remove the \"CyberVision64\" disk from the floppy drive, "
     "and select the \"Proceed\" gadget to reboot your Amiga."
))


(set #reboot-def
(cat "\nThe installation of the default monitorfile is now complete.\n\n"
     "To use the monitorfile, you must reboot your Amiga. After rebooting, "
     "you must run the \"ScreenMode\" preferences editor and pick the "
     "ScreenMode you wish to use.\n\n"
     "Remove the \"CyberVision64\" disk from the floppy drive, "
     "and select the \"Proceed\" gadget to reboot your Amiga."
))

(set @hide15bit
(cat "\"HIDE15BIT\"  "
     "By setting this variable, the 15Bit screens in the screemode requester "
     "are hidden, but useable !"
))
  

(set @hirescrsr
(cat "\"HIRESCRSR\"  "
     "By setting this variable, the Lores-Sprites on non-AA-machines "
     "become Hires-sprites (they are no longer doubled by "
     "the Cybergraphics Software). "
))



(set INST

	(askchoice
	  (prompt "\nPlease select your Installation")
	  (help @install-help)
          (choices "Firsttime Installation" "Set Monitorfile to default")
	(default 0) 
	)
)



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


(if (= INST 0)
(

        (set default-dest
        	(askdir
        		(prompt "Please select where you wish to put the CyberVision")
	        	(help @askdir-help)
		        (default "SYS:")
        	)
        )


        (makeassign "MYASS" default-dest)

        (makedir "MYASS:CyberVision64"
        	(prompt "A directory CyberVision64 will be created")
        	(help @makedir-help)
        	(infos)
        	(confirm)
        )

        (makeassign "CyberVision64" "MYASS:CyberVision64")











        (makedir "MYASS:CyberVision64/Driver"
        	(prompt "A directory CyberVision64/Driver will be created")
           	(help @makedir-help)
        	(infos)
        	(confirm)
        )

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

        (copyfiles
        	(prompt "copying diver to CyberVision64/Driver")
        	(help @copyfiles-help)
        	(source "DF0:Treiber")
        	(dest ass1)
        	(all)
                (infos)
                (confirm)
        )









        (makedir "MYASS:CyberVision64/Viewer"
        	(prompt "A directory called CyberVision64/Viewer will be created")
        	(help @makedir-help)
        	(infos)
                (confirm)
        )

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

        (copyfiles
        	(prompt "copying the viewers to CyberVision64/Viewer")
        	(help @copyfiles-help)
                (source "DF0:Viewer")
        	(dest ass2)
        	(all)
                (infos)
                (confirm)
        )








        
        (makedir "MYASS:CyberVision64/CyberMode"
        	(prompt "A directory called CyberVision64/CyberMode will be created")
        	(help @makedir-help)
        	(infos)
        	(confirm)
        )

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

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









        (set libdest
        	(askdir
	        	(prompt "Please select where you wish to put the libraries")
        		(help @askdir-help)
		        (default "LIBS:")
        	)
        )

        (copylib
        	(prompt "copying cybergraphics.library to " libdest)
        	(help @copylib-help)
        	(source "DF0:cyberlibs/cybergraphics.library")
        	(dest libdest)
        	(confirm)
        )


        (copylib
        	(prompt "copying cyberintuition.library to " libdest)
        	(help @copylib-help)
        	(source "DF0:cyberlibs/cyberintuition.library")
        	(dest libdest)
        	(confirm)
        )

        (copylib
        	(prompt "copying cyberlayers.library to " libdest)
        	(help @copylib-help)
        	(source "DF0:cyberlibs/cyberlayers.library")
        	(dest libdest)
        	(confirm)
        )

        (copylib
        	(prompt "copying gtlayout.library to " libdest)
        	(help @copylib-help)
        	(source "DF0:cyberlibs/gtlayout.library")
        	(dest libdest)
        	(confirm)
        )



        
        (set ass4
        	(askdir
        		(prompt "Please select where you wish to put the monitordriver")
        		(help @askdir-help)
        		(default "DEVS:MONITORS")
        	)
        )

        (copyfiles
        	(prompt "copying the monitor to " ass4)
        	(help @copymon-help)
        	(source "DF0:Monitors")
        	(dest ass4)
                (all)
        )







        (makedir "ENVARC:CyberGraphics"
        	(prompt "A directory called envarc:CyberGraphics will be created")
        	(help @makedir-help)
        	(confirm)
        )

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




        (set mon

        	(askchoice
        	  (prompt "\nWhich monitorfile should be installed:")
        	  (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 "\nDo you wish to Enable this feature?")
	                         (help   @hide15bit)
          		         (default 0)
	         )
        )


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


        (set HIRESCRSR (askchoice
                               (choices "Ja" "Nein")
        	               (prompt "\nDo you wish to Enable this feature?")
        	               (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 "\nWhich monitorfile should be installed ? :")
	         (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 "\nDo you wish to Enable this feature?")
	                         (help   @hide15bit)
          		         (default 0)
	         )
        )


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


        (set HIRESCRSR (askchoice
                               (choices "Ja" "Nein")
        	               (prompt "\nDo you wish to Enable this feature?")
        	               (help   @hirescrsr)
                  	       (default 0)
        	       )
        )


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


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

 
        
))