;******************************************************************************** 
;
;CyberGraphics Update By Robert Reiswig ©1995 If you wish to use parts
;you MUST ask!! (For use with CygerGraphics Only!)  Feb-XX-95
;For Frank Mariak : CyberGraphics!
;
;Installer suggestions or problems: rcr@netcom.com
;                              IRC: RobR
;
;This was rushed along for Keith.....
;********************************************************************************


;******************************************************************************** 
; Read All System information 
;********************************************************************************
(set cpu (database "cpu"))  (set vblank (database "vblank"))
(set graphmem (database "graphics-mem"))  (set totmem (database "total-mem"))
(set osver (/ (getversion "LIBS:version.library") 65536))
(if (= vblank "60") ((set blank "NTSC")) ((set blank "PAL")))
(set fastmem (- totmem graphmem))

( if (= osver 37) ( (set workbench "2.0")) ( if (= osver 38) ( (set workbench "2.1"))
( if (= osver 39) ( (set workbench "3.0")) ( if (= osver 40) ( (set workbench "3.1"))
( if (= osver 41) ( (set workbench "4.0")) )))))

(run "type >RAM:lan EnvArc:sys/locale.prefs opt h")
(set runstring (cat "search" " RAM:lan "))

(set english "")  (set german  "")

(set runstring1 (cat runstring "\"deutschland\""))   (if (= (run runstring1) 0) (set german1 "Deutsch"))
(set runstring1 (cat runstring "\"english\""))   (if (= (run runstring1) 0) (set english1 "English"))	  

(set #cyberver "40.44")

;******************************************************************************** 
; Any new 3rd Party Program Drivers. 
;********************************************************************************
; 1 = There is an Update   0 = NO Update

(set #ADPro 1)
(set #Cinema4D 1)
(set #PhotoWorx 1)
(set #Photogenics 1)
(set #Real3D 1)
(set #ImageFX 1)

;******************************************************************************** 
;
;ASK DEFAULT LANG
;
;********************************************************************************
(set #langQuestion (cat "The following were found in Locale:\n\n" english1 "\n"german1"\n\nSelect one of the installers supported Languages."))

(set LAN  (askchoice (choices "German (Deutsch)" "English"
			 (prompt #langQuestion)
	                 (help "Select a Language")
          		 (default lang)
	             )
          )
)

;******************************************************************************** 
;
;English Information
;
;********************************************************************************

(set #By (cat "Cybergraphics Release Version " #cyberver "\n"
              "Software by:\n\nFrank Mariak\nfmariak@chaosengine.ping.de"
              "\n\n&\n\nThomas G.Sontowski\nmarvin@sub.ph-cip.uni-koeln.de"
              "\n\n\nInstallers & Versions By:\n Robert Reiswig - rcr@netcom.com"
         )
)

(set #MinReqOS (cat "The following are the MINIMUM REQUIREMENTS!\n"
                    "~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\n"
                    "Kickstart 3.x, **You only have " workbench "**\n\n" 
                    "PicassoII in linear mode *not segmented*\n\n"
                    "68020 or higher\n\n"
                    "2 MB of fast memory"                       
               ) 
)


(set #MinReqCp (cat "The following are the MINIMUM REQUIREMENTS!\n"
                    "~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\n"
                    "68020 or higher, **You only have " cpu "**\n\n"
                    "PicassoII in linear mode *not segmented*\n\n"
                    "Kickstart 3.x\n\n"                     
                    "2 MB of fast memory" 
               )
)  


(set #SysInfo (cat "Basic System Check, This Machine Has\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
                   " \"" workbench "\" Version of OS\n\n"
                   " \"" cpu "\" Processor\n\n "
                   " \"" blank "\" Machine\n\n"
                   " \"" graphmem  "\" Total Free Chip Memory\n\n"
                   " \"" fastmem  "\" Total Free Fast Memory\n\n  \"" totmem "\" Total Free Memory\n\n"
              )
)


(set #WillInstall (cat "\n\nThis installer will ONLY UPDATE the CyberGraphic libraries.\n\n"
                       "It is ment for Registered and Non-Registered GyberGraphics users!\n\n"
                       "It will update you system to version " #CyberVer
                       " of the CyberGraphic libraries." 
                  )
)


(set #NoUp    "No, Don't update") 
(set #OnlyNew "Yes, Only if newer")
(set #YesAll  "Yes, No matter what")


(set #YES-ADPRO "Yes - Install ADPro Saver")
(set #NO-ADPRO "No - Don't Install ADPro Saver")
(set #ask-ADPRO "Do you wish to install the CyBERgraphics ADPro saver?")
(set #where-ADPRO "Where do you wish to Install the ADPro Saver?\n(The default is \"ADPRO:Savers2\")")

(set #YES-MC4D "Yes - Install MaxonCinema4D display module")
(set #NO-MC4D "No - Don't Install MaxonCinema4D display module")
(set #ask-MC4D "Do you wish to install the MaxonCinema4D display module?")
(set #where-MC4D "Where do you wish to Install the MaxonCinema4D display module?\n(The default is \"libs:\")")

(set #YES-PHOTOW "Yes - Install PhotoworX display module")
(set #NO-PHOTOW "No - Don't Install PhotoworX display module")
(set #ask-PHOTOW "Do you wish to install the PhotoworX display module?")
(set #where-PHOTOW "Where do you wish to Install the PhotoworX display module?\n(The default is \"work:\")")

(set #YES-PHOTOG "Yes - Install Photogenics saver module")
(set #NO-PHOTOG "No - Don't Install Photogenics saver module")
(set #ask-PHOTOG "Do you wish to install the Photogenics saver module?")
(set #where-PHOTOG "Where do you wish to Install the Photogenics saver module?\n(The default is \"work:\")")

(set #YES-REAL "Yes - Install Real3D display module")
(set #NO-REAL "No - Don't Install Real3D display module")
(set #ask-REAL "Do you wish to install the Real3D display module?")
(set #where-REAL "Where do you wish to Install the Real3D display module?\n(The default is \"libs:\")")

(set #YES-IFX "Yes - Install ImageFX Render module")
(set #NO-IFX "No - Don't Install ImageFX Render module")
(set #ask-IFX "Do you wish to install the ImageFX Render module?")
(set #where-IFX "Where do you wish to Install the ImageFX Render module?\n(The default is \"ImageFX:Modules/Render\")")


(set #REG (cat "If you are not registered\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
               "The registration fee is DM50 or $35. You have to pay it to one of the"
               " following to get a full working version:\n\n"
               "          Frank Mariak       Thomas Sontowski        \n"
               "        Klosterstr. 7      Bensberger Marktweg 15\n"
               "        44135 Dortmund     51069 Köln            \n\n\n"
               "Feel free to contact us by email or smail if you have any questions."
          )
)

;******************************************************************************** 
;
;German Information
;
;********************************************************************************

(if (= LAN 0)
(


(set #By (cat "Cybergraphics Software von:\n\nFrank Mariak\nfmariak@chaosengine.ping.de"
              "\n\n&\n\nThomas G.Sontowski\nmarvin@sub.ph-cip.uni-koeln.de"
              "\n\n\nInstallerskript von:\n Robert Reiswig - rcr@netcom.com"
         )
)

(set #MinReqOS (cat "Folgendes sind die Minimalanforderungen !\n"
	          "~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\n"
                  "Kickstart 3.x, **Sie haben nur " Workbench "**\n\n"
                  "PicassoII im linear Modus *nicht segmentiert*\n\n"
                  "68020 oder höher\n\n"
                  "2 MB FAST Ram"
             )
)

(set #MinReqCp  (cat "Folgendes sind die Minimalanforderungen!\n"
                   "~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\n"
                   "68020 oder höher, **Sie haben nur eine " cpu "**\n\n"
                   "PicassoII im linear Modus *nicht segmentiert*\n\n"
                   "Kickstart 3.x\n\n"
                   "2 MB FAST Ram"
              )
)


(set #SysInfo (cat "Minimaler System Check, Dieser Rechner hat\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
                   " Version \"" Workbench "\" des OS\n\n"
                   " \"" cpu "\" Prozessor\n\n "
                   " \"" blank "\" Gerät\n\n"
                   " \"" graphmem  "\" freier Chip Speicher\n\n"
                   " \"" fastmem  "\" freies Fast RAM\n\n  \"" totmem "\" freies RAM gesamt\n\n"
              )
)



(set #WillInstall (cat "\n\nDieses Skript ERNEUERT NUR die cybergraphics libraries.\n\n"
                       "Es ist für registrierte cybergraphics Benutzer gedacht!\n\n"
                       "Es erneuert Ihr System auf Version " #CyberVer
                       " der cybergraphics libraries." 
                  )
)


(set #NoUp    "Nein, nicht erneuern") 
(set #OnlyNew "Ja, allerdings nur wenn neuer")
(set #YesAll  "Ja, egal was")


(set #REG (cat "Wenn Sie nicht registriert sind:\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
               "Die Registrierungsgebühr ist DM50 or $35. Bitte zahlen Sie sie an eine"
               " der folgenden Personen, wenn Sie eine Vollversion haben wollen:\n\n"
               "          Frank Mariak       Thomas Sontowski        \n"
               "        Klosterstr. 7      Bensberger Marktweg 15\n"
               "        44135 Dortmund     51069 Köln            \n\n\n"
          )
)


(set #YES-ADPRO "Ja - Installiere ADPro Saver")
(set #NO-ADPRO "Nein - Installiere ADPro Saver nicht")
(set #ask-ADPRO "Wollen Sie den CyBERgraphics ADPro saver installieren ?")
(set #where-ADPRO "Wohin wollen Sie den ADPro Saver installieren ?\n(Default ist \"ADPRO:Savers2\")")


(set #YES-MC4D "Ja - Installiere MaxonCinema4D Treiber")
(set #NO-MC4D "Nein - Installiere MaxonCinema4D Treiber nicht")
(set #ask-MC4D "Wollen Sie den MaxonCinema4D Treiber installieren ?")
(set #where-MC4D "Wohin wollen Sie den MaxonCinema4D Treiber installieren ?\n(Default ist \"libs:\")")

(set #YES-PHOTOW "Ja - Installiere PhotoworX Treiber")
(set #NO-PHOTOW "Nein - Installiere PhotoworX Treiber nicht")
(set #ask-PHOTOW "Wollen Sie den PhotoworX Treiber installieren ?")
(set #where-PHOTOW "Wohin wollen Sie den PhotoworX Treiber installieren ?\n(Default ist \"work:\")")

(set #YES-PHOTOG "Ja - Installiere Photogenics Saver")
(set #NO-PHOTOG "Nein - Installiere Photogenics Saver nicht")
(set #ask-PHOTOG "Wollen Sie den Photogenics Saver installieren ?")
(set #where-PHOTOG "Wohin wollen Sie den Photogenics Treiber installieren ?\n(Default ist \"work:\")")


(set #YES-REAL "Ja - Installiere Real3D Treiber")
(set #NO-REAL "Nein - Installiere Real3D Treiber nicht")
(set #ask-REAL "Wollen Sie den Real3D Treiber installieren ?")
(set #where-REAL "Wohin wollen Sie den Real3D Treiber installieren ?\n(Default ist \"libs:\")")

(set #ask-MODEFILE "Welche Mode-Definitionsdatei soll aktiviert werden ?")
(set #15KHZ "Definition mit 15khz max. HFrequenz")
(set #31KHZ "Definition mit 31khz max. HFrequenz")
(set #57KHZ "Definition mit 57khz max. HFrequenz")
(set #64KHZ "Definition mit 64khz max. HFrequenz")

(set #YES-IFX "Ja - Installiere ImageFX Rendermodul")
(set #NO-IFX "Nein - Installiere ImageFX Rendermodul nicht!")
(set #ask-IFX "Wollen Sie das ImageFX Rendermodul installieren?")
(set #where-IFX "Wo wollen Sie das ImageFX Rendermodul installieren?\n(Default ist \"ImageFX:Modules/Render\")")


)

)



;******************************************************************************** 
;
; Main Part of the Installer (Main Loop) 
;
;********************************************************************************

(message #by)
(message #WillInstall)

(if (< osver 39)  (abort #MinReqOS) )
(if (< cpu 68020) (abort #MinReqCP) )

(message #SysInfo) 

;*******************************************************************
;  cybergraphics.library
;*******************************************************************


(set vernum1 (getversion "libs:cybergraphics.library"))
(set ver1 (/ vernum1 65536))
(set rev1 (- vernum1 (* ver1 65536) ) )


(set vernum2 (getversion "libs/cybergraphics.library"))
(set ver2 (/ vernum2 65536))
(set rev2 (- vernum2 (* ver2 65536) ) )



(set pick 0)

(set pick (askchoice
		(choices #NoUp #OnlyNew #YesAll)
		(prompt ("'cybergraphics.library' is in Libs:\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\nVersion Currently Installed   : %ld.%ld\n\nVersion From Update Disk/File : %ld.%ld\n\nDo you wish to install Version %ld.%ld of the 'cybergraphics.library' From Update Disk/File\n" ver1 rev1 ver2 rev2 ver2 rev2))
		(help " ")		
              (default 1)
	  )
)



(if (= pick 1)

    	(copylib (source "libs/cybergraphics.library") (dest "SYS:Libs"))

)


(if (= pick 2)

    	(copyfiles
        	(prompt "Copying 'cybergraphics.library' to Libs:")
		(source "libs/cybergraphics.library")
        	(dest "SYS:Libs")
        	(confirm)
        	(infos) (help " ")
     	)

)



;*******************************************************************
;  cyberintuition.library
;*******************************************************************


(set vernum1 (getversion "libs:cyberintuition.library"))
(set ver1 (/ vernum1 65536))
(set rev1 (- vernum1 (* ver1 65536) ) )


(set vernum2 (getversion "libs/cyberintuition.library"))
(set ver2 (/ vernum2 65536))
(set rev2 (- vernum2 (* ver2 65536) ) )



(set pick 0)

(set pick (askchoice
		(choices #NoUp #OnlyNew #YesAll)
		(prompt ("'cyberintuition.library' is in Libs:\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\nVersion Currently Installed   : %ld.%ld\n\nVersion From Update Disk/File : %ld.%ld\n\nDo you wish to install Version %ld.%ld of the 'cyberintuition.library' From Update Disk/File\n" ver1 rev1 ver2 rev2 ver2 rev2))
		(help " ")		
              (default 1)
	  )
)



(if (= pick 1)

    	(copylib (source "libs/cyberintuition.library")	(dest "SYS:Libs"))

)


(if (= pick 2)

    	(copyfiles
        	(prompt "Copying 'cyberintuition.library' to Libs:")
		(source "libs/cyberintuition.library")
        	(dest "SYS:Libs")
        	(confirm)
        	(infos) (help " ")
     	) 

)




;*******************************************************************
;  cyberlayers.library
;*******************************************************************


(set vernum1 (getversion "libs:cyberlayers.library"))
(set ver1 (/ vernum1 65536))
(set rev1 (- vernum1 (* ver1 65536) ) )


(set vernum2 (getversion "libs/cyberlayers.library"))
(set ver2 (/ vernum2 65536))
(set rev2 (- vernum2 (* ver2 65536) ) )



(set pick 0)

(set pick (askchoice
		(choices #NoUp #OnlyNew #YesAll)
		(prompt ("'cyberlayers.library' is in Libs:\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\nVersion Currently Installed   : %ld.%ld\n\nVersion From Update Disk/File : %ld.%ld\n\nDo you wish to install Version %ld.%ld of the 'cyberlayers.library' From Update Disk/File\n" ver1 rev1 ver2 rev2 ver2 rev2))
		(help " ")		
              (default 1)
	  )
)



(if (= pick 1)

    	(copylib (source "libs/cyberlayers.library") (dest "SYS:Libs"))

)


(if (= pick 2)

    	(copyfiles
        	(prompt "Copying 'cyberlayers.library' to Libs:")
		(source "libs/cyberlayers.library")
        	(dest "SYS:Libs")
        	(confirm)
        	(infos) (help " ")
     	) 

)





;*******************************************************************
;  vilintuisup.library
;*******************************************************************


(set vernum1 (getversion "libs:vilintuisup.library"))
(set ver1 (/ vernum1 65536))
(set rev1 (- vernum1 (* ver1 65536) ) )


(set vernum2 (getversion "libs/vilintuisup.library"))
(set ver2 (/ vernum2 65536))
(set rev2 (- vernum2 (* ver2 65536) ) )



(set pick 0)

(set pick (askchoice
		(choices #NoUp #OnlyNew #YesAll)
		(prompt ("'vilintuisup.library' is in Libs:\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\nVersion Currently Installed   : %ld.%ld\n\nVersion From Update Disk/File : %ld.%ld\n\nDo you wish to install Version %ld.%ld of the 'vilintuisup.library' From Update Disk/File\n" ver1 rev1 ver2 rev2 ver2 rev2))
		(help " ")		
              (default 1)
	  )
)


(if (= pick 1)

    	(copylib (source "libs/vilintuisup.library") (dest "SYS:Libs"))

)


(if (= pick 2)

    	(copyfiles
        	(prompt "Copying 'vilintuisup.library' to Libs:")
		(source "libs/vilintuisup.library")
        	(dest "SYS:Libs")
        	(confirm)
        	(infos) (help " ")
     	) 

)

;*******************************************************************
;  New 3rd Party Program Drivers
;*******************************************************************

;***********************************
(if (= #ADPro 1)
  (

   (set RegDriver (askoptions (choices "ADPro 2.5.0")
  			      (prompt #ask-ADPRO)
			      (help   #ask-ADPRO)
			      (default 0)
		  )
   )


  
   (if (IN RegDriver 0)
      (
       (copylib   (prompt #where-ADPRO)
	          (source "drivers/adpro/CyBERgraphics")
	          (dest   (askdir (prompt #where-ADPRO)
			          (help   #where-ADPRO)
			          (default "ADPRO:Savers2")
		          )
	          )
	          (optional) 
       )
      )
   )

  )
)

;***********************************
(if (= #Cinema4D 1)
  (

   (set RegDriver (askoptions (choices "Maxon Cinema 4D")
  			      (prompt #ask-MC4D)
			      (help   #ask-MC4D)
			      (default 0)
		  )
   )


  
   (if (IN RegDriver 0)
      (
       (copylib   (prompt #where-MC4D)
	          (source "drivers/cinema4d/cinemaausgabe.library")
	          (dest   (askdir (prompt #where-MC4D)
			          (help   #where-MC4D)
			          (default "libs:")
		          )
	          )
	          (optional) 
       )
      )
   )

  )
)

;***********************************
(if (= #PhotoWorx 1)
  (

   (set RegDriver (askoptions (choices "PhotoWorx")
  			      (prompt #ask-PHOTOW)
			      (help   #ask-PHOTOW)
			      (default 0)
		  )
   )


  
   (if (IN RegDriver 0)
      (
       (copylib   (prompt #where-PHOTOW)
	          (source "drivers/photoworx/cyber.viewer")
	          (dest   (askdir (prompt #where-PHOTOW)
			          (help   #where-PHOTOW)
			          (default "Work:")
		          )
	          )
	          (optional) 
       )
      )
   )

  )
)

;***********************************
(if (= #Photogenics 1)
  (

   (set RegDriver (askoptions (choices "Photogenics")
  			      (prompt #ask-PHOTOG)
			      (help   #ask-PHOTOG)
			      (default 0)
		  )
   )


  
   (if (IN RegDriver 0)
      (
       (copylib   (prompt #where-PHOTOG)
	          (source "drivers/photogenics/cybergraphics.gio")
	          (dest   (askdir (prompt #where-PHOTOG)
			          (help   #where-PHOTOG)
			          (default "Work:")
		          )
	          )
	          (optional) 
       )
      )
   )

  )
)

;***********************************
(if (= #Real3D 1)
  (

   (set RegDriver (askoptions (choices "Real3D Library")
  			      (prompt #ask-REAL)
			      (help   #ask-REAL)
			      (default 0)
		  )
   )


  
   (if (IN RegDriver 0)
      (
       (copylib   (prompt #where-REAL)
	          (source "drivers/real3d/cybergfx_r3d.library")
	          (dest   (askdir (prompt #where-REAL)
			          (help   #where-REAL)
			          (default "libs:")
		          )
	          )
	          (optional) 
       )
      )
   )

  )
)

;***********************************
(if (= #ImageFX 1)
  (

   (set RegDriver (askoptions (choices "ImageFX")
  			      (prompt #ask-IFX)
			      (help   #ask-IFX)
			      (default 0)
		  )
   )


  
   (if (IN RegDriver 0)
      (
       (if (< cpu 68030) (set IFXVer "CyberGraphics.000")) 
       (if (> cpu 68020) (set IFXVer "CyberGraphics.030")) 
       (copylib   (prompt #where-IFX)
	          (source (cat "drivers/ImageFX/" IFXVer))
	          (dest   (askdir (prompt #where-IFX)
			          (help   #where-IFX)
			          (default "ImageFX:Modules/Render")
		          )
	          )
	          (optional) 
       )
      )
   )

  )
)


;*******************************************************************
;  EEENNNDDD
;*******************************************************************
(message #REG)