home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / GFX / Raytracing / Objects / TAI-HFX1.LHA / Install-HollywoodFX < prev    next >
Encoding:
Text File  |  1995-05-02  |  4.9 KB  |  198 lines
  1. ;******************************************************************************
  2. ; $VER: Install-HollywoodFX 1.4. Synergy International (18-Mar-95)
  3. ; MODIFICATIONS: 
  4. ;   1.5  05/02/95  Modified to copy rexapp.library to libs: on system.
  5. ;   1.4  03/18/95  Modified for HollywoodFX 1.3
  6. ;   1.3  07/13/94  Now extracts files that were wrongly named in 1.22 release.
  7. ;   1.2  07/12/94  Fixed problem with HollywoodFX directory not being created.
  8. ;******************************************************************************
  9.  
  10. ; *** Set target directory
  11.  
  12. (set target
  13.  (askdir
  14.     (prompt "Please select a drawer to install the HollywoodFX software into.")
  15.     (help  @makedir-help)
  16.     (default (tackon @default-dest "HollywoodFX"))
  17.   (newpath)
  18.  )
  19. )
  20.  
  21. (set @default-dest target)
  22.  
  23. ;*** If target directory does not exist, create it
  24.  
  25. (if (<> (exists target) 1)
  26.   (
  27.     (makedir target
  28.       (infos)
  29.     )
  30.   )
  31. )
  32.  
  33. (makeassign "HFX" target)
  34.  
  35. ; *** Copy extract program to ram
  36.  
  37. (copyfiles
  38.   (prompt "Preparing for installation.")
  39.   (help @copyfiles-help)
  40.   (source "HollywoodFX_Disk_1:")
  41.   (dest "RAM:")
  42.   (pattern "(extract)")
  43.   (files)
  44. )
  45.  
  46. ; *** Copy the rexapp.library to libs if not already there
  47.  
  48. (if (<> (exists "libs:rexxapp.library") 1)
  49.   (
  50.  
  51. (copyfiles
  52.   (prompt "Installing rexxapp library to libs:.")
  53.   (help @copyfiles-help)
  54.   (source "HollywoodFX_Disk_1:")
  55.   (dest "LIBS:")
  56.   (pattern "(rexxapp.library)")
  57.   (files)
  58. )
  59.  
  60.  
  61.   )
  62. )
  63.  
  64.  
  65. ; *** Copy empty directories
  66.  
  67. (copyfiles
  68.     (prompt "Preparing HFX Directories.")
  69.     (help @copyfiles-help)
  70.     (source "HollywoodFX_Disk_1:HFX")
  71.     (dest target)
  72.   (infos)
  73.     (all)
  74. )
  75.  
  76. (run ("delete quiet HFX:Effects/#?.HFX") )
  77.  
  78. ; *** Extract Program and Icon
  79.  
  80. (
  81.   (working "Extracting HFX Program")
  82.   (run ("RAM:extract >con:0/50/640/100/extract -m e HollywoodFX_Disk_1:HFX.lzh HFX:") )
  83. )
  84.  
  85. ; ---------------------------------------------------------------------------
  86. ; *** Extract Flyer ARexx files
  87. ; ---------------------------------------------------------------------------
  88.  
  89. (makeassign "FX1" (tackon target "Flyer"))
  90.  
  91. (
  92.   (working "Extracting Flyer Support Files")
  93.   (run ("RAM:extract >con:0/50/640/100/extract -m e HollywoodFX_Disk_1:Flyer.lzh FX1:") )
  94. )
  95.  
  96. ; ---------------------------------------------------------------------------
  97. ; *** Extract PAR ARexx files
  98. ; ---------------------------------------------------------------------------
  99.  
  100. (makeassign "FX1" (tackon target "PAR"))
  101.  
  102. (
  103.   (working "Extracting PAR Support Files")
  104.   (run ("RAM:extract >con:0/50/640/100/extract -m e HollywoodFX_Disk_1:PAR.lzh FX1:") )
  105. )
  106.  
  107. ; ---------------------------------------------------------------------------
  108. ; *** Extract Images
  109. ; ---------------------------------------------------------------------------
  110.  
  111. (makeassign "FX1" (tackon target "Work/Images"))
  112.  
  113. (
  114.   (working "Extracting Images")
  115.   (run ("RAM:extract >con:0/50/640/100/extract -m e HollywoodFX_Disk_1:Images.lzh FX1:") )
  116. )
  117.  
  118. ; ---------------------------------------------------------------------------
  119. ; *** Extract ARexx files
  120. ; ---------------------------------------------------------------------------
  121.  
  122. (makeassign "FX1" (tackon target "ARexx"))
  123.  
  124. (
  125.   (working "Extracting ARexx scripts")
  126.   (run ("RAM:extract >con:0/50/640/100/extract -m e HollywoodFX_Disk_1:ARexx.lzh FX1:") )
  127. )
  128.  
  129. ; ---------------------------------------------------------------------------
  130. ; *** Extract Examples files
  131. ; ---------------------------------------------------------------------------
  132.  
  133. (makeassign "FX1" (tackon target "Examples"))
  134.  
  135. (
  136.   (working "Extracting Example Files")
  137.   (run ("RAM:extract >con:0/50/640/100/extract -m e HollywoodFX_Disk_1:Examples.lzh FX1:") )
  138. )
  139.  
  140. ; ---------------------------------------------------------------------------
  141. ;*** Copy effects
  142. ; ---------------------------------------------------------------------------
  143.  
  144. ;*** Disk 1 Effects
  145.  
  146. (makeassign "FX1" (tackon target "Effects"))
  147.  
  148. (if (= (exists "HollywoodFX_Disk_1:Effects.lzh") 1)
  149.   (
  150.     (working "Extracting Effects")
  151.     (run ("RAM:extract >con:0/50/640/100/extract -m e HollywoodFX_Disk_1:Effects.lzh FX1:") )
  152.   )
  153. )
  154.  
  155. ; *** Copy effects from Disk 2
  156.  
  157. (askdisk
  158.   (prompt "Please insert \"HollywoodFX Disk 2\" in any drive.")
  159.   (help @askdisk-help)
  160.   (dest "HollywoodFX_Disk_2")
  161. )
  162.  
  163. (if (= (exists "HollywoodFX_Disk_2:Effects.lzh") 1)
  164.   (
  165.     (working "Extracting Effects")
  166.     (run ("RAM:extract >con:0/50/640/100/extract -m e HollywoodFX_Disk_2:Effects.lzh FX1:") )
  167.   )
  168. )
  169.  
  170. ; *** Copy effects from Disk 3
  171.  
  172. (askdisk
  173.   (prompt "Please insert \"HollywoodFX Disk 3\" in any drive.")
  174.   (help @askdisk-help)
  175.   (dest "HollywoodFX_Disk_3")
  176. )
  177.  
  178. (if (= (exists "HollywoodFX_Disk_3:Effects.lzh") 1)
  179.   (
  180.     (working "Extracting Effects")
  181.     (run ("RAM:extract >con:0/50/640/100/extract -m e HollywoodFX_Disk_3:Effects.lzh FX1:") )
  182.   )
  183. )
  184.  
  185.  
  186. (makeassign "FX1" "")
  187.  
  188.  
  189. ; *** Setup assignments
  190.  
  191. (startup "HollywoodFX"
  192.   (prompt "The installer will add a necessary command to your user-startup script")
  193.   (help @startup-help)
  194.   (command (cat "Assign HFX: " target))
  195. )
  196.  
  197. (delete "RAM:extract")
  198.