;$VER: Cinema4D 3.0 (18.12.96)
;*set version - true if greater than version 37

(SET WBVer (< 2424832 (getversion "exec.library" (resident))))

(user 2)

(set processor
(database "cpu")
)

(copyfiles
(source "C4DV31:Delete")
(dest "RAM:")
(nogauge)
)


(SET C4D_DEST
(askdir
(prompt "Select the Cinema4D version 2 Drawer (This must contain the Cinema4D program file.)")
(help @askdir-help)
(default "C4D:"))
)

(SET C4D_DEST (EXPANDPATH C4D_DEST))

(Makeassign "C4D" C4D_DEST)


(IF (AND (<> (exists "C4D:Cinema4D") 1) (<> (exists "C4D:Raytracer") 1))
(
(Message "Current version not correctly installed. Exiting")
(exit)
)
)

(IF (= (Run "C4DV31:CPU check 68881") 0)
;881
   (SET CPUTYPE 1)
   (SET CPUTYPE 0)
)

(set APP_VER
   (Askchoice
   (Help @askchoice-help)
   (Prompt "Select the version to install?\n\nIf you are not sure select proceed!")
   (Choices "68020 (Unexpanded A1200/A4000-030 No FPU)" "68881 (A3000/A4000-040 or FPU expansion board)")
   (Default CPUTYPE))
)

(SET n 1)

(while (< n 3)
   (

   (SET DISKNAME ("C4DV3%ld" n))

   (askdisk
   (Prompt ("\n\nPlease insert Cinema4D installation disk %ld in any drive" n))
   (help @askdisk-help)
   (DEST DISKNAME)
   )

   (copyfiles
   (source ("%s:" DISKNAME))
   (dest "C4D:C4DTEMP_TEMP")
   (all)
   )

   (SET n (+ n 1))

   )
)

(COMPLETE 30)

(Working "Joining upgrade chunks...")
(Run "C4D:C4DTEMP_TEMP/Join -j C4D:C4DTEMP_TEMP/upgradeaa C4D:C4DTEMP_TEMP/upgradeab C4D:C4DTEMP_TEMP/Upgrade.lha")

(Working "Updating files...")

(Run "C4D:C4DTEMP_TEMP/lhex -afFw=C4D: x C4D:C4DTEMP_TEMP/Upgrade.lha *")

(run "ram:delete C4D:C4DTEMP_TEMP all")

(delete "C4D:Cinema4D")
(delete "C4D:Raytracer")

(IF (= APP_VER 0)
(
(RENAME "C4D:Cinema4D.020" "C4D:Cinema4D") 
(RENAME "C4D:RayTracer.020" "C4D:RayTracer") 
)
)

(IF (= APP_VER 1)
(
(RENAME "C4D:Cinema4D.881" "C4D:Cinema4D") 
(RENAME "C4D:RayTracer.881" "C4D:RayTracer") 
)
)

(run "ram:delete C4D:#?.020")
(run "ram:delete C4D:#?.881")

(COMPLETE 95)

(set VIDEO_LIB
   (Askchoice
   (Help @askchoice-help)
   (Prompt "If you have a video card, select,\nfrom the list,the library to install.")
   (Choices "No Video Card (Unexpanded Amiga)" "EGS" "Retina" "Picasso" "CyberGraphx")
   (Default 0))
)

(IF (= VIDEO_LIB 1)
(copyfiles
(source "C4D:MonitorLibs/EGS/c4d.library")
(dest "libs:")
)
)
(IF (= VIDEO_LIB 2)
(copyfiles
(source "C4D:MonitorLibs/Retina/c4d.library")
(dest "libs:")
)
)
(IF (= VIDEO_LIB 3)
(copyfiles
(source "C4D:MonitorLibs/Picasso/c4d.library")
(dest "libs:")
)
)
(IF (= VIDEO_LIB 4)
(copyfiles
(source "C4D:MonitorLibs/CYBER_ALT/c4d.library")
(dest "libs:")
)
)

(complete 100)

(Exit (quiet))