home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / GFX / Misc / UMFIFX1.DMS / in.adf / Install-Extras < prev    next >
Encoding:
Text File  |  1994-11-10  |  5.9 KB  |  205 lines

  1. ; ImageFX Extras Installer Utility
  2. ;
  3. ; For ImageFX Release 2.0
  4. ;
  5. ; Written by Thomas Krehbiel
  6. ; Copyright © 1994 Nova Design, Inc.
  7. ;
  8.  
  9. (
  10.  
  11.    ;================================================================
  12.    ; Setup
  13.    ;================================================================
  14.  
  15.    ; script variables...
  16.  
  17.    (set diskname1 "ImageFX_Disk1:")          ; install disk name
  18.    (set diskname2 "ImageFX_Disk2:")          ; second install disk name
  19.    (set diskname3 "ImageFX_Disk3:")          ; third install disk name
  20.    (set diskname4 "ImageFX_Disk4:")          ; third install disk name
  21.  
  22.    ; system information...
  23.  
  24.    (set osver (/ (getversion) 65536))        ; os version
  25.    (set cputype (database "cpu"))            ; cpu type
  26.  
  27.    ;-------------------
  28.    ; Warn user.
  29.    (message "These hooks and modules were either not created by Nova Design, Inc., "
  30.             "or are based on software not created or supported by Nova Design.  "
  31.             "Because of this, Nova Design cannot provide technical support or "
  32.             "upgrades or enhancements for these extras.  They are "
  33.             "provided for your amusement only; use them at your own risk.  "
  34.             "If you do not want to install them, click `Abort Install' now.")
  35.  
  36.    ;-------------------
  37.    ; Pick a default directory for the installation...
  38.    (set initialdir @default-dest)            ; defaults to biggest drive
  39.    (if (getassign "ImageFX")
  40.       (
  41.          (set initialdir (getassign "ImageFX"))
  42.       )
  43.    )
  44.  
  45.    ;-------------------
  46.    ; Ask where to install it...
  47.    (set wheredir
  48.       (askdir
  49.          (prompt "Select the directory where you would like to install the "
  50.                  "ImageFX Extras.")
  51.          (help "Select the directory where you have installed ImageFX.  The "
  52.                "extras will not work in any other directory.")
  53.          (default initialdir)
  54.       )
  55.    )
  56.  
  57.    (set @default-dest wheredir)
  58.  
  59.    ;-------------------
  60.    ; Ask what to install...
  61.    (set todo
  62.       (askoptions
  63.          (prompt "Select the extras you would like to install:")
  64.          (help "Check the boxes to indicate which extras you would "
  65.                "like installed on your system.")
  66.          (choices
  67.             "MPEG Utilities"
  68.             "PostScript® Loader"
  69.             "PAR_PEG Loader"
  70.             "Photo CDROM Loader"
  71.             "Grafexa (Harlequin) Renderer"
  72.          )
  73.       )
  74.    )
  75.  
  76.    (set mask_mpeg    1)
  77.    (set mask_post    2)
  78.    (set mask_parpeg  4)
  79.    (set mask_pcd     8)
  80.    (set mask_grfx    16)
  81.  
  82.    ;-------------------
  83.    ; Copy LHEX to RAM: for speediness
  84.    (copyfiles
  85.       (prompt "")
  86.       (help "")
  87.       (source diskname1)
  88.       (dest "RAM:")
  89.       (choices "lhex")
  90.    )
  91.  
  92.    ;================================================================
  93.    ; DISK 2
  94.    ;================================================================
  95.  
  96.    (askdisk
  97.       (prompt "Please insert ImageFX Disk 2 in any drive.")
  98.       (help "")
  99.       (dest (substr diskname2 0 (- (strlen diskname2) 1)))
  100.       (assigns)
  101.    )
  102.  
  103.    (if (BITAND mask_mpeg todo)
  104.       (
  105.          (working "Installing MPEG Utilities...")
  106.          (run ("RAM:lhex >CON:0/0//60/lhex/AUTO -a -f -w=%s x %sExtras3.lha" wheredir diskname2))
  107.          (tooltype
  108.             (prompt "")
  109.             (help "")
  110.             (dest (tackon wheredir "Browser"))
  111.             (settooltype "MPEG" (tackon wheredir "MPEG/mp"))
  112.          )
  113.       )
  114.    )
  115.    (if (BITAND mask_parpeg todo)
  116.       (
  117.          (working "Installing PAR_PEG Loader...")
  118.          (run ("RAM:lhex >CON:0/0//60/lhex/AUTO -a -f -w=%s x %sExtras2.lha Modules/Loaders/PAR_PEG" wheredir diskname2))
  119.       )
  120.    )
  121.    (if (BITAND mask_pcd todo)
  122.       (
  123.          (working "Installing Photo CDROM Loader...")
  124.          (run ("RAM:lhex >CON:0/0//60/lhex/AUTO -a -f -w=%s x %sExtras2.lha Modules/Loaders/PCD" wheredir diskname2))
  125.       )
  126.    )
  127.    (if (BITAND mask_grfx todo)
  128.       (
  129.          (working "Installing Grafexa Render Module...")
  130.          (run ("RAM:lhex >CON:0/0//60/lhex/AUTO -a -f -w=%s x %sExtras2.lha Modules/Render/Grafexa" wheredir diskname2))
  131.       )
  132.    )
  133.  
  134.    ;================================================================
  135.    ; DISK 4
  136.    ;================================================================
  137.  
  138.    (complete 0)
  139.  
  140.    (if (BITAND mask_post todo)
  141.       (
  142.  
  143.          (askdisk
  144.             (prompt "Please insert ImageFX Disk 4 in any drive.")
  145.             (help "")
  146.             (dest (substr diskname4 0 (- (strlen diskname4) 1)))
  147.             (assigns)
  148.          )
  149.  
  150.          (working "Installing PostScript Loader...")
  151.          (run ("RAM:lhex >CON:0/0//60/lhex/AUTO -a -f -w=%s x %sExtras1.lha" wheredir diskname4))
  152.  
  153.          (delete "LIBS:hwgpost.library")
  154.  
  155.          (if (OR (= cputype "68000") (= cputype "68010"))
  156.             (
  157.                (copylib
  158.                   (prompt "")
  159.                   (help @copylib-help)
  160.                   (source (tackon wheredir "libs/hwgpost.library"))
  161.                   (dest "LIBS:")
  162.                   (newname "hwgpost.library")
  163.                )
  164.             )
  165.             ; else
  166.             (
  167.                (copylib
  168.                   (prompt "")
  169.                   (help @copylib-help)
  170.                   (source (tackon wheredir "libs/hwgpost.library.20"))
  171.                   (dest "LIBS:")
  172.                   (newname "hwgpost.library")
  173.                )
  174.             )
  175.          )
  176.          (run ("delete %s all quiet" (tackon wheredir "libs")))
  177.  
  178.       )
  179.    )
  180.  
  181.    ;================================================================
  182.    ; Miscellaneous Setup
  183.    ;================================================================
  184.  
  185.    ;================================================================
  186.    ; Cleanup
  187.    ;================================================================
  188.  
  189.    (run "Delete RAM:lhex QUIET")
  190.  
  191.    (complete 100)
  192.  
  193.    ; Installation complete!
  194. )
  195.  
  196. ;-----------------------------------------------------------------------
  197. ; Revision History:
  198. ;
  199. ;  8/25/94 tek
  200. ;     Created.
  201. ;
  202. ;  9/02/94 tek
  203. ;     Fixed so it actually works.
  204. ;
  205.