home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / GFX / Raytracing / Raytracer / WM20-1.DMS / in.adf / install < prev    next >
Encoding:
Text File  |  1980-01-09  |  5.4 KB  |  207 lines
  1. ; installation script for WaveMaker 2.0
  2. ;
  3. ; script version 1.3
  4. ;
  5. ; 1.0 initial release
  6. ;
  7.  
  8. (set arcpath "RAM:lx")
  9.  
  10. (set my_help
  11.    (cat
  12.       "Performing this installation will create a new drawer named 'WaveMaker' in the specified path.\n\n"
  13.       "It will also add a required assignment to your user-startup.\n"
  14.       "\n\n"
  15.       @askdir-help
  16.    )
  17. )
  18.  
  19. (message
  20.    "You will now be asked to give a path in which to install WaveMaker.\n\n"
  21.    "The installation utility will create a new drawer named 'WaveMaker' "
  22.    "in the specified path.\n\n"
  23.    "It will then copy all of its required files into this new drawer.\n\n"
  24. )
  25.  
  26. ; Get the path from the user
  27.  
  28. (set dest_wm
  29.    (askdir
  30.       (prompt "Where should the WaveMaker drawer be created/installed?")
  31.          (help my_help)
  32.          (default @default-dest)
  33.    )
  34. )
  35.  
  36. ; Tell the Installer program where the user wants the data
  37.  
  38. (set @default-dest dest_wm)
  39.  
  40. (set dest_wm
  41.    (tackon dest_wm "WaveMaker")
  42. )
  43.  
  44. (makedir dest_wm
  45.     (infos)
  46. )
  47.  
  48. ; Make sure WaveMaker disk 1 is present
  49.  
  50. (askdisk
  51.    (prompt "Please insert the disk labeled \"WaveMaker2_disk1\" (Program Disk) in any drive.")
  52.    (help @askdisk-help)
  53.    (dest "WaveMaker2_disk1")
  54. )
  55.  
  56. (working)
  57.  
  58. (copyfiles
  59.     (infos)
  60.     (help @copyfiles-help)
  61.     (source "WaveMaker2_disk1:lx")
  62.     (dest "RAM:")
  63. )
  64.  
  65. (makeassign "WaveMaker" dest_wm)
  66.  
  67. ; create subdirectories
  68.  
  69. (makedir (tackon dest_wm "WM_Elements"))
  70. (makedir (tackon dest_wm "WM_ElMotions"))
  71. (makedir (tackon dest_wm "WM_Images"))
  72. (makedir (tackon dest_wm "WM_Logos"))
  73. (makedir (tackon dest_wm "WM_Motions"))
  74. (makedir (tackon dest_wm "WM_Scripts&Scenes"))
  75. (makedir (tackon dest_wm "WM_ShotSheets"))
  76. (makedir (tackon dest_wm "WM_Surfaces"))
  77. (makedir (tackon dest_wm "WM_SBPix"))
  78. (makedir (tackon dest_wm "WM_PF"))
  79. (makedir (tackon dest_wm "WM_Misc"))
  80. (makedir (tackon dest_wm "WM_Objects"))
  81. (makedir (tackon dest_wm "WM_Objects/WM_Object_Images"))
  82.  
  83. (working "\nUnpacking archive of\n\n"
  84.          "Main WaveMaker files")
  85.  
  86. (run (cat arcpath " >nil: -m -a -q x WaveMaker2_disk1:root * WaveMaker:"))
  87.  
  88. (working "\nUnpacking archive of\n\n"
  89.          "Elements")
  90.  
  91. (run (cat arcpath " >nil: -m -a -q x WaveMaker2_disk1:wm_elements1 * \"" (tackon dest_wm "WM_Elements/\"")))
  92.  
  93. ; Make sure WaveMaker disk 2 is present
  94.  
  95. (askdisk
  96.    (prompt "Please insert the disk labeled \"WaveMaker2_disk2\" in any drive.")
  97.    (help @askdisk-help)
  98.    (dest "WaveMaker2_disk2")
  99. )
  100.  
  101. (working "\nUnpacking archive of\n\n"
  102.          "Miscellaneous files")
  103.  
  104. (run (cat arcpath " >nil: -m -a -q x WaveMaker2_disk2:wm_misc * \"" (tackon dest_wm "WM_Misc/\"")))
  105.  
  106. (working "\nUnpacking archive of\n\n"
  107.          "Prefabs")
  108.  
  109. (run (cat arcpath " >nil: -m -a -q x WaveMaker2_disk2:wm_pf * \"" (tackon dest_wm "WM_PF/\"")))
  110.  
  111. (working "\nUnpacking archive of\n\n"
  112.          "Objects")
  113.  
  114. (run (cat arcpath " >nil: -m -a -q x WaveMaker2_disk2:wm_objects * \"" (tackon dest_wm "WM_Objects/\"")))
  115.  
  116. ; Make sure WaveMaker disk 3 is present
  117.  
  118. (askdisk
  119.    (prompt "Please insert the disk labeled \"WaveMaker2_disk3\" in any drive.")
  120.    (help @askdisk-help)
  121.    (dest "WaveMaker2_disk3")
  122. )
  123.  
  124. (working "\nUnpacking archive of\n\n"
  125.          "Element Motions")
  126.  
  127. (run (cat arcpath " >nil: -m -a -q x WaveMaker2_disk3:wm_elmotions * \"" (tackon dest_wm "WM_ElMotions/\"")))
  128.  
  129. (working "\nUnpacking archive of\n\n"
  130.          "Elements")
  131.  
  132. (run (cat arcpath " >nil: -m -a -q x WaveMaker2_disk3:wm_elements2 * \"" (tackon dest_wm "WM_Elements/\"")))
  133.  
  134. ; Make sure WaveMaker disk 4 is present
  135.  
  136. (askdisk
  137.    (prompt "Please insert the disk labeled \"WaveMaker2_disk4\" in any drive.")
  138.    (help @askdisk-help)
  139.    (dest "WaveMaker2_disk4")
  140. )
  141.  
  142. (working "\nUnpacking archive of\n\n"
  143.          "Elements")
  144.  
  145. (run (cat arcpath " >nil: -m -a -q x WaveMaker2_disk4:wm_elements3 * \"" (tackon dest_wm "WM_Elements/\"")))
  146.  
  147. (working "\nUnpacking archive of\n\n"
  148.          "Motions")
  149.  
  150. (run (cat arcpath " >nil: -m -a -q x WaveMaker2_disk4:wm_motions * \"" (tackon dest_wm "WM_Motions/\"")))
  151.  
  152. (working "\nUnpacking archive of\n\n"
  153.          "Logos")
  154.  
  155. (run (cat arcpath " >nil: -m -a -q x WaveMaker2_disk4:wm_logos * \"" (tackon dest_wm "WM_Logos/\"")))
  156.  
  157. (working "\nUnpacking archive of\n\n"
  158.          "Surfaces")
  159.  
  160. (run (cat arcpath " >nil: -m -a -q x WaveMaker2_disk4:wm_surfaces * \"" (tackon dest_wm "WM_Surfaces/\"")))
  161.  
  162. (askdisk
  163.    (prompt "Please insert the disk labeled \"WaveMaker2_disk5\" in any drive.")
  164.    (help @askdisk-help)
  165.    (dest "WaveMaker2_disk5")
  166. )
  167.  
  168. (working "\nUnpacking archive of\n\n"
  169.          "Elements")
  170.  
  171. (run (cat arcpath " >nil: -m -a -q x WaveMaker2_disk5:wm_elements1 * \"" (tackon dest_wm "WM_Elements/\"")))
  172.  
  173. (working "\nUnpacking archive of\n\n"
  174.          "Images")
  175.  
  176. (run (cat arcpath " >nil: -m -a -q x WaveMaker2_disk5:wm_images * \"" (tackon dest_wm "WM_Images/\"")))
  177.  
  178. (askdisk
  179.    (prompt "Please insert the disk labeled \"WaveMaker2_disk6\" in any drive.")
  180.    (help @askdisk-help)
  181.    (dest "WaveMaker2_disk6")
  182. )
  183.  
  184. (working "\nUnpacking archive of\n\n"
  185.          "Elements")
  186.  
  187. (run (cat arcpath " >nil: -m -a -q x WaveMaker2_disk6:wm_elements2 * \"" (tackon dest_wm "WM_Elements/\"")))
  188.  
  189. ; Add Assignments to user-startup
  190.  
  191. (startup "WaveMaker"
  192.     (prompt "Should the required assignment be added to your user-startup?\n")
  193.     (help "WaveMaker requires an assignment, WaveMaker:.\n"
  194.          "If you choose not to add it to your user-startup file, the following assignment must be made before you attempt to use WaveMaker:\n\n"
  195.          "Assign WaveMaker: \"" dest_wm "\"\n")
  196.     (command "assign WaveMaker: \"" dest_wm "\"\n")
  197. )
  198.  
  199. ; delete 'lx' from ram:
  200.  
  201. (if (exists arcpath)
  202.     (delete arcpath
  203.         (prompt "Deleting temporary file in " arcpath ".")
  204.         (help @delete-help)
  205.     )
  206. )
  207.