;******************************************************************************
; $VER: Install-HollywoodFX 1.4. Synergy International (18-Mar-95)
; MODIFICATIONS: 
;   1.5  05/02/95  Modified to copy rexapp.library to libs: on system.
;   1.4  03/18/95  Modified for HollywoodFX 1.3
;   1.3  07/13/94  Now extracts files that were wrongly named in 1.22 release.
;   1.2  07/12/94  Fixed problem with HollywoodFX directory not being created.
;******************************************************************************

; *** Set target directory

(set target
 (askdir
	(prompt "Please select a drawer to install the HollywoodFX software into.")
	(help  @makedir-help)
	(default (tackon @default-dest "HollywoodFX"))
  (newpath)
 )
)

(set @default-dest target)

;*** If target directory does not exist, create it

(if (<> (exists target) 1)
  (
    (makedir target
      (infos)
    )
  )
)

(makeassign "HFX" target)

; *** Copy extract program to ram

(copyfiles
  (prompt "Preparing for installation.")
  (help @copyfiles-help)
  (source "HollywoodFX_Disk_1:")
  (dest "RAM:")
  (pattern "(extract)")
  (files)
)

; *** Copy the rexapp.library to libs if not already there

(if (<> (exists "libs:rexxapp.library") 1)
  (

(copyfiles
  (prompt "Installing rexxapp library to libs:.")
  (help @copyfiles-help)
  (source "HollywoodFX_Disk_1:")
  (dest "LIBS:")
  (pattern "(rexxapp.library)")
  (files)
)


  )
)


; *** Copy empty directories

(copyfiles
	(prompt "Preparing HFX Directories.")
	(help @copyfiles-help)
	(source "HollywoodFX_Disk_1:HFX")
	(dest target)
  (infos)
	(all)
)

(run ("delete quiet HFX:Effects/#?.HFX") )

; *** Extract Program and Icon

(
  (working "Extracting HFX Program")
  (run ("RAM:extract >con:0/50/640/100/extract -m e HollywoodFX_Disk_1:HFX.lzh HFX:") )
)

; ---------------------------------------------------------------------------
; *** Extract Flyer ARexx files
; ---------------------------------------------------------------------------

(makeassign "FX1" (tackon target "Flyer"))

(
  (working "Extracting Flyer Support Files")
  (run ("RAM:extract >con:0/50/640/100/extract -m e HollywoodFX_Disk_1:Flyer.lzh FX1:") )
)

; ---------------------------------------------------------------------------
; *** Extract PAR ARexx files
; ---------------------------------------------------------------------------

(makeassign "FX1" (tackon target "PAR"))

(
  (working "Extracting PAR Support Files")
  (run ("RAM:extract >con:0/50/640/100/extract -m e HollywoodFX_Disk_1:PAR.lzh FX1:") )
)

; ---------------------------------------------------------------------------
; *** Extract Images
; ---------------------------------------------------------------------------

(makeassign "FX1" (tackon target "Work/Images"))

(
  (working "Extracting Images")
  (run ("RAM:extract >con:0/50/640/100/extract -m e HollywoodFX_Disk_1:Images.lzh FX1:") )
)

; ---------------------------------------------------------------------------
; *** Extract ARexx files
; ---------------------------------------------------------------------------

(makeassign "FX1" (tackon target "ARexx"))

(
  (working "Extracting ARexx scripts")
  (run ("RAM:extract >con:0/50/640/100/extract -m e HollywoodFX_Disk_1:ARexx.lzh FX1:") )
)

; ---------------------------------------------------------------------------
; *** Extract Examples files
; ---------------------------------------------------------------------------

(makeassign "FX1" (tackon target "Examples"))

(
  (working "Extracting Example Files")
  (run ("RAM:extract >con:0/50/640/100/extract -m e HollywoodFX_Disk_1:Examples.lzh FX1:") )
)

; ---------------------------------------------------------------------------
;*** Copy effects
; ---------------------------------------------------------------------------

;*** Disk 1 Effects

(makeassign "FX1" (tackon target "Effects"))

(if (= (exists "HollywoodFX_Disk_1:Effects.lzh") 1)
  (
    (working "Extracting Effects")
    (run ("RAM:extract >con:0/50/640/100/extract -m e HollywoodFX_Disk_1:Effects.lzh FX1:") )
  )
)

; *** Copy effects from Disk 2

(askdisk
  (prompt "Please insert \"HollywoodFX Disk 2\" in any drive.")
  (help @askdisk-help)
  (dest "HollywoodFX_Disk_2")
)

(if (= (exists "HollywoodFX_Disk_2:Effects.lzh") 1)
  (
    (working "Extracting Effects")
    (run ("RAM:extract >con:0/50/640/100/extract -m e HollywoodFX_Disk_2:Effects.lzh FX1:") )
  )
)

; *** Copy effects from Disk 3

(askdisk
  (prompt "Please insert \"HollywoodFX Disk 3\" in any drive.")
  (help @askdisk-help)
  (dest "HollywoodFX_Disk_3")
)

(if (= (exists "HollywoodFX_Disk_3:Effects.lzh") 1)
  (
    (working "Extracting Effects")
    (run ("RAM:extract >con:0/50/640/100/extract -m e HollywoodFX_Disk_3:Effects.lzh FX1:") )
  )
)


(makeassign "FX1" "")


; *** Setup assignments

(startup "HollywoodFX"
  (prompt "The installer will add a necessary command to your user-startup script")
  (help @startup-help)
  (command (cat "Assign HFX: " target))
)

(delete "RAM:extract")