home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / GFX / Misc / UMFIFX1.DMS / in.adf / Install < prev    next >
Encoding:
Text File  |  1994-11-10  |  43.7 KB  |  1,378 lines
  1. ; ImageFX 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.    ; Procedure Definitions
  13.    ;================================================================
  14.  
  15.    (procedure RenameOld
  16.       ; ro_name = name of file
  17.       ; ro_dir  = where old version is
  18.       ; ro_dir2 = where to put the renamed version
  19.       ; ro_sum  = checksum of old version
  20.       (
  21.          (if (exists (tackon ro_dir ro_name))
  22.             (
  23.                (if (<> ro_sum (getsum (tackon ro_dir ro_name)))
  24.                   (
  25.                      (rename (tackon ro_dir ro_name) (tackon ro_dir2 ("Old_%ls" ro_name)))
  26.                   )
  27.                )
  28.                (delete (tackon ro_dir ro_name))
  29.             )
  30.          )
  31.       )
  32.    )
  33.  
  34.    ;================================================================
  35.    ; Setup
  36.    ;================================================================
  37.  
  38.    ; script variables...
  39.  
  40.    (set programname "ImageFX 2.0")           ; name of program
  41.    (set drawername "ImageFX2")               ; name of drawer to make for program
  42.    (set assignname "ImageFX")                ; assign to make for program
  43.    (set diskname1 "ImageFX_Disk1:")          ; install disk name
  44.    (set diskname2 "ImageFX_Disk2:")          ; second install disk name
  45.    (set diskname3 "ImageFX_Disk3:")          ; third install disk name
  46.    (set diskname4 "ImageFX_Disk4:")          ; third install disk name
  47.    (set bytesreq "5.0MB")                    ; HD space required
  48.  
  49.    ; system information...
  50.  
  51.    (set osver (/ (getversion) 65536))        ; os version
  52.    (set cputype (database "cpu"))            ; cpu type
  53.  
  54.    ;-------------------
  55.    ; Pick a default directory for the installation...
  56.    (set initialdir @default-dest)            ; defaults to biggest drive
  57.    (if (getassign "ImageFX")
  58.       (
  59.          (set initialdir (getassign "ImageFX"))
  60.       )
  61.       ; else
  62.       (
  63.          (if (getassign "ImageFX2")
  64.             (
  65.                (set initialdir (getassign "ImageFX2"))
  66.                ; if we found ImageFX2:, assume user wants to keep ImageFX2:
  67.                (set assignname "ImageFX2")
  68.             )
  69.          )
  70.       )
  71.    )
  72.  
  73.    ;-------------------
  74.    ; Ask where to install it...
  75.    (set wheredir
  76.       (askdir
  77.          (prompt "Select a directory where you would like to install the " programname
  78.                  " software.  "
  79.                  "(Note:  About " bytesreq " of free space is required for "
  80.                  "complete installation.)")
  81.          (help "If you are upgrading from a previous version of ImageFX, "
  82.                "you can install this version in the same directory as your "
  83.                "existing copy.  Your settings will be preserved.")
  84.          (default initialdir)
  85.       )
  86.    )
  87.  
  88.    ;-------------------
  89.    ; Determine whether we are upgrading or installing new
  90.    (if (exists (tackon wheredir "modules/sys"))
  91.       (
  92.          ; Installing into an old ImageFX directory.
  93.          (set writeover 1)
  94.          (message "The version of ImageFX in `" wheredir "' will be updated.  If this is correct, click `Proceed'.")
  95.       )
  96.       ;
  97.       (
  98.          ; Create ImageFX directory.
  99.  
  100.          ; Ask expert user the name of the drawer to create
  101.          (if (> @user-level 1)
  102.             (set drawername
  103.                (askstring
  104.                   (prompt "This installation will create a drawer named `" drawername
  105.                           "' for the ImageFX software.  If you would like to change "
  106.                           "the name of this drawer, type the new name below.")
  107.                   (help @askstring-help)
  108.                   (default drawername)
  109.                )
  110.             )
  111.          )
  112.          (set wheredir (tackon wheredir drawername))
  113.          (set writeover 0)
  114.          (message programname " will be installed in a new drawer called `" wheredir "'.  If this is correct, click `Proceed'.")
  115.       )
  116.    )
  117.  
  118.    ;-------------------
  119.    ; See if we're upgrading a 2.0 beta...
  120.    (set beta 0)
  121.    (if (exists (tackon wheredir "modules/sys/Scale"))
  122.       (
  123.          (set beta 1)
  124.       )
  125.    )
  126.  
  127.    ;-------------------
  128.    ; Ask which versions of modules the user wants to install.
  129.    (set cpu
  130.       (askchoice
  131.          (prompt "Select which versions of hooks and modules you would "
  132.                  "like to install:")
  133.          (help "Some ImageFX hooks and modules (such as the JPEG modules) "
  134.                "have alternate versions optimized for faster processors. "
  135.                "You may choose to install only the modules optimized for "
  136.                "the processor in your machine to save hard drive space.")
  137.          (choices
  138.             "For Any Processor"
  139.             "For 68000 Or 68010"
  140.             "For 68020 Or 68030, No Floating Point"
  141.             "For 68020 Or 68030, With Floating Point"
  142.             "For 68040, With Floating Point"
  143.          )
  144.          (default 0)
  145.       )
  146.    )
  147.  
  148.    ;-------------------
  149.    ; Ask which hardware components to install
  150.    (set hardware
  151.       (askoptions
  152.          (prompt "Select the display drivers you would like to install:")
  153.          (help "Check the boxes to indicate which display adaptors you have "
  154.                "installed on your system.")
  155.          (choices
  156.             "DCTV"
  157.             "EGS-Compatible"
  158.             "Firecracker"
  159.             "HAM-E"
  160.             "IV-24"
  161.             "OpalVision"
  162.             "Picasso"
  163.             "Retina"
  164.             "SAGE (DMI)"
  165.          )
  166.       )
  167.    )
  168.    (set hardware2
  169.       (askoptions
  170.          (prompt "Select the hardware drivers you would like to install:")
  171.          (help "Check the boxes to indicate which peripherals you have "
  172.                "installed on your system.")
  173.          (choices
  174.             "Epson Scanner"
  175.             "JX-100 Scanner"
  176.             "FrameGrabber"
  177.             "FrameGrabber 256"
  178.             "VLAB"
  179.             "Primera Printer"
  180.          )
  181.       )
  182.    )
  183.  
  184.    (set mask_dctv    1)
  185.    (set mask_egs     2)
  186.    (set mask_fc24    4)
  187.    (set mask_hame    8)
  188.    (set mask_iv24    16)
  189.    (set mask_opal    32)
  190.    (set mask_pic     64)
  191.    (set mask_ret     128)
  192.    (set mask_sage    256)
  193.  
  194.    (set mask_epson   1)
  195.    (set mask_jx100   2)
  196.    (set mask_fg      4)
  197.    (set mask_fg256   8)
  198.    (set mask_vlab    16)
  199.    (set mask_prim    32)
  200.  
  201.    ;-------------------
  202.    ; Create destination directory if it doesn't already exist.
  203.    ;(onerror
  204.    ;   (abort "Cannot create directory `%ls'.  (There may be a file "
  205.    ;          "already there with the same name.)" wheredir)
  206.    ;)
  207.    (makedir wheredir (infos))
  208.  
  209.    (set @default-dest wheredir)
  210.  
  211.    ;-------------------
  212.    ; Copy LHEX to RAM: for speediness
  213.    (copyfiles
  214.       (prompt "")
  215.       (help "")
  216.       (source diskname1)
  217.       (dest "RAM:")
  218.       (choices "lhex")
  219.    )
  220.  
  221.    ;-------------------
  222.    ; Save all the user's old stuff
  223.  
  224.    (makedir (tackon wheredir "Storage"))
  225.    (makedir (tackon wheredir "Storage/Convolve"))
  226.    (makedir (tackon wheredir "Storage/Transform"))
  227.    (makedir (tackon wheredir "Storage/Palettes"))
  228.  
  229.    (if writeover
  230.       (
  231.  
  232.          (if (= 0 beta)    ; don't do these checks when updating a beta...
  233.             (
  234.  
  235.                (working "Checking For Existing Rexx Programs...")
  236.  
  237.                (set ro_dir (tackon wheredir "Rexx"))
  238.                (set ro_dir2 (tackon wheredir "Rexx"))
  239.                (set ro_name "Create.ifx")  (set ro_sum 1717538069)  (RenameOld)
  240.                (set ro_name "PrintFax.ifx")  (set ro_sum -204303043)  (RenameOld)
  241.                (set ro_name "TestRecord1.ifx")  (set ro_sum 1461551180)  (RenameOld)
  242.                (set ro_name "TestRecord2.ifx")  (set ro_sum -18212460)  (RenameOld)
  243.                (set ro_name "PostRedraw.ifx")  (set ro_sum 520430438)  (RenameOld)
  244.                (set ro_name "Shrink.ifx")  (set ro_sum -178741927)  (RenameOld)
  245.                (set ro_name "AnalyzeJPEG.ifx")  (set ro_sum -330128287)  (RenameOld)
  246.                (set ro_name "ReqDemo.ifx")  (set ro_sum -1088122375)  (RenameOld)
  247.                (set ro_name "Designs.ifx")  (set ro_sum -2000831490)  (RenameOld)
  248.                (set ro_name "Smear.ifx")  (set ro_sum 660493)  (RenameOld)
  249.                (set ro_name "StartWedge.ifx")  (set ro_sum -1621367841)  (RenameOld)
  250.                (set ro_name "StopWedge.ifx")  (set ro_sum -336712651)  (RenameOld)
  251.                (set ro_name "Wipe.ifx")  (set ro_sum 712807846)  (RenameOld)
  252.                (set ro_name "WIMP.ifx")  (set ro_sum 844288357)  (RenameOld)
  253.                (set ro_name "Scroller.ifx")  (set ro_sum 1893335356)  (RenameOld)
  254.                (set ro_name "Title.ifx")  (set ro_sum -1812038769)  (RenameOld)
  255.                (set ro_name "Border.ifx")  (set ro_sum 375756860)  (RenameOld)
  256.                (set ro_name "FastTimeLapse.ifx")  (set ro_sum 188651970)  (RenameOld)
  257.                (set ro_name "Find.ifx")  (set ro_sum 255094587)  (RenameOld)
  258.                (set ro_name "Halve.ifx")  (set ro_sum -1275396923)  (RenameOld)
  259.                (set ro_name "JPEG.ifx")  (set ro_sum 1242285095)  (RenameOld)
  260.                (set ro_name "MapToWB.ifx")  (set ro_sum 1444205335)  (RenameOld)
  261.                (set ro_name "Stars.ifx")  (set ro_sum 1146989337)  (RenameOld)
  262.                (set ro_name "TimeLapse.ifx")  (set ro_sum -698200919)  (RenameOld)
  263.                (set ro_name "UnJPEG.ifx")  (set ro_sum -782414455)  (RenameOld)
  264.                (set ro_name "UserMenu.ifx")  (set ro_sum -1586145330)  (RenameOld)
  265.                (set ro_name "Scaler.ifx")  (set ro_sum -1851082681)  (RenameOld)
  266.                (set ro_name "DrawAnim.ifx")  (set ro_sum -1734704617)  (RenameOld)
  267.                (set ro_name "Flying.ifx")  (set ro_sum -2076458896)  (RenameOld)
  268.                (set ro_name "ConvertAnim.ifx")  (set ro_sum 1261736011)  (RenameOld)
  269.                (set ro_name "ReAspect.ifx")  (set ro_sum 187873149)  (RenameOld)
  270.                (set ro_name "Snapshot.ifx")  (set ro_sum 694174291)  (RenameOld)
  271.                (set ro_name "ScanFax.ifx")  (set ro_sum 58664137)  (RenameOld)
  272.                (set ro_name "ScanMultiple.ifx")  (set ro_sum -165049923)  (RenameOld)
  273.  
  274.                (working "Checking For Existing Matrix Files...")
  275.  
  276.                (set ro_dir (tackon wheredir "Matrix"))
  277.                (set ro_dir2 (tackon wheredir "Storage/Convolve"))
  278.                (set ro_name "Wood")  (set ro_sum 1911225900)  (RenameOld)
  279.                (set ro_name "Spackle")  (set ro_sum -1174976534)  (RenameOld)
  280.                (set ro_name "SoftenMedium")  (set ro_sum -926300746)  (RenameOld)
  281.                (set ro_name "SoftenLow")  (set ro_sum 1330794813)  (RenameOld)
  282.                (set ro_name "SoftenHigh")  (set ro_sum -825242437)  (RenameOld)
  283.                (set ro_name "SharpenMedium")  (set ro_sum 1441464786)  (RenameOld)
  284.                (set ro_name "SharpenLow")  (set ro_sum 1559299800)  (RenameOld)
  285.                (set ro_name "SharpenHigh")  (set ro_sum -2093574033)  (RenameOld)
  286.                (set ro_name "RippleVertical")  (set ro_sum -1462998847)  (RenameOld)
  287.                (set ro_name "RippleRight")  (set ro_sum 991658778)  (RenameOld)
  288.                (set ro_name "RippleLeft")  (set ro_sum -612686982)  (RenameOld)
  289.                (set ro_name "RippleHorizontal")  (set ro_sum 107988068)  (RenameOld)
  290.                (set ro_name "MotionRemove")  (set ro_sum 1920754831)  (RenameOld)
  291.                (set ro_name "Jiggle")  (set ro_sum -387054701)  (RenameOld)
  292.                (set ro_name "Horizontal")  (set ro_sum -1925043403)  (RenameOld)
  293.                (set ro_name "GuassianLow")  (set ro_sum 408950100)  (RenameOld)
  294.                (set ro_name "GuassianHigh")  (set ro_sum 890831921)  (RenameOld)
  295.                (set ro_name "GaussianMedium")  (set ro_sum -962619963)  (RenameOld)
  296.                (set ro_name "Focus")  (set ro_sum -1782634594)  (RenameOld)
  297.                (set ro_name "EnhanceDetail")  (set ro_sum 807939348)  (RenameOld)
  298.                (set ro_name "EmbossRight")  (set ro_sum 1091558886)  (RenameOld)
  299.                (set ro_name "EmbossLeft")  (set ro_sum 1157814771)  (RenameOld)
  300.                (set ro_name "Emboss")  (set ro_sum -1569144180)  (RenameOld)
  301.                (set ro_name "EdgeDetectMedium")  (set ro_sum -1218724234)  (RenameOld)
  302.                (set ro_name "EdgeDetectLow")  (set ro_sum -1533949572)  (RenameOld)
  303.                (set ro_name "EdgeDetectHigh")  (set ro_sum 1542522072)  (RenameOld)
  304.                (set ro_name "Diagonal")  (set ro_sum -1276028878)  (RenameOld)
  305.                (set ro_name "Deep")  (set ro_sum -872097050)  (RenameOld)
  306.                (set ro_name "Cross")  (set ro_sum 1782672188)  (RenameOld)
  307.                (set ro_name "Chisel")  (set ro_sum -990965070)  (RenameOld)
  308.                (set ro_name "BlurMedium")  (set ro_sum 2022075802)  (RenameOld)
  309.                (set ro_name "BlurHuge")  (set ro_sum 1544091189)  (RenameOld)
  310.                (set ro_name "Blur")  (set ro_sum -2089738024)  (RenameOld)
  311.                (set ro_name "BasRelief")  (set ro_sum 907852839)  (RenameOld)
  312.                (if (exists (tackon wheredir "Matrix"))
  313.                   (
  314.                      (copyfiles
  315.                         (prompt "")
  316.                         (help "")
  317.                         (source (tackon wheredir "Matrix"))
  318.                         (dest (tackon wheredir "Storage/Convolve"))
  319.                         (all)
  320.                      )
  321.                      (run ("delete %ls all quiet" (tackon wheredir "Matrix")))
  322.                   )
  323.                )
  324.  
  325.                (working "Checking For Existing Transform Files...")
  326.  
  327.                (set ro_dir (tackon wheredir "Transform"))
  328.                (set ro_dir2 (tackon wheredir "Storage/Transform"))
  329.                (set ro_name "Bumps")  (set ro_sum 100982919)  (RenameOld)
  330.                (set ro_name "Compress")  (set ro_sum -1585384598)  (RenameOld)
  331.                (set ro_name "Contrast")  (set ro_sum 531931855)  (RenameOld)
  332.                (set ro_name "Destroy")  (set ro_sum -873786136)  (RenameOld)
  333.                (set ro_name "Gamma")  (set ro_sum 264791662)  (RenameOld)
  334.                (set ro_name "Halve")  (set ro_sum -1026877563)  (RenameOld)
  335.                (set ro_name "Negative")  (set ro_sum 470517981)  (RenameOld)
  336.                (set ro_name "NegPoster")  (set ro_sum 1787365899)  (RenameOld)
  337.                (set ro_name "Posterize")  (set ro_sum 1775934469)  (RenameOld)
  338.                (set ro_name "Rough")  (set ro_sum 1114119002)  (RenameOld)
  339.                (set ro_name "Threshold")  (set ro_sum 1741536331)  (RenameOld)
  340.                (if (exists (tackon wheredir "Transform"))
  341.                   (
  342.                      (copyfiles
  343.                         (prompt "")
  344.                         (help "")
  345.                         (source (tackon wheredir "Transform"))
  346.                         (dest (tackon wheredir "Storage/Transform"))
  347.                         (all)
  348.                      )
  349.                      (run ("delete %ls all quiet" (tackon wheredir "Transform")))
  350.                   )
  351.                )
  352.  
  353.                (working "Checking For Existing Palette Files...")
  354.  
  355.                (set ro_dir (tackon wheredir "Palettes"))
  356.                (set ro_dir2 (tackon wheredir "Storage/Palettes"))
  357.                (set ro_name "Alternate.palette")  (set ro_sum 1392111271)  (RenameOld)
  358.                (set ro_name "BGR.palette")  (set ro_sum 263169167)  (RenameOld)
  359.                (set ro_name "Blues.palette")  (set ro_sum -950050277)  (RenameOld)
  360.                (set ro_name "BrightRGB.palette")  (set ro_sum 1375394107)  (RenameOld)
  361.                (set ro_name "Camel.palette")  (set ro_sum -1970655989)  (RenameOld)
  362.                (set ro_name "Chalk.palette")  (set ro_sum -792391446)  (RenameOld)
  363.                (set ro_name "Chroma1.palette")  (set ro_sum -130553093)  (RenameOld)
  364.                (set ro_name "Chroma2.palette")  (set ro_sum 458999371)  (RenameOld)
  365.                (set ro_name "Cos.palette")  (set ro_sum 958157115)  (RenameOld)
  366.                (set ro_name "Crayola.palette")  (set ro_sum 1015994206)  (RenameOld)
  367.                (set ro_name "D4.palette")  (set ro_sum 1073612919)  (RenameOld)
  368.                (set ro_name "Default.palette")  (set ro_sum -1569231324)  (RenameOld)
  369.                (set ro_name "D5.palette")  (set ro_sum -20416002)  (RenameOld)
  370.                (set ro_name "General.palette")  (set ro_sum -809329249)  (RenameOld)
  371.                (set ro_name "Firestorm.palette")  (set ro_sum 1921712845)  (RenameOld)
  372.                (set ro_name "Gamma1.palette")  (set ro_sum -564768457)  (RenameOld)
  373.                (set ro_name "Gamma2.palette")  (set ro_sum -23422533)  (RenameOld)
  374.                (set ro_name "Glasses1.palette")  (set ro_sum 465284763)  (RenameOld)
  375.                (set ro_name "Glasses2.palette")  (set ro_sum -1302442725)  (RenameOld)
  376.                (set ro_name "GoodEGA.palette")  (set ro_sum 1095918291)  (RenameOld)
  377.                (set ro_name "Greens.palette")  (set ro_sum -1083741677)  (RenameOld)
  378.                (set ro_name "Grey.palette")  (set ro_sum -600052133)  (RenameOld)
  379.                (set ro_name "Grid.palette")  (set ro_sum 1814826655)  (RenameOld)
  380.                (set ro_name "Headache.palette")  (set ro_sum 964942239)  (RenameOld)
  381.                (set ro_name "Heat.palette")  (set ro_sum 1583160059)  (RenameOld)
  382.                (set ro_name "Landscape.palette")  (set ro_sum -1318702508)  (RenameOld)
  383.                (set ro_name "Ly.palette")  (set ro_sum -1885451549)  (RenameOld)
  384.                (set ro_name "Markers.palette")  (set ro_sum 1190521342)  (RenameOld)
  385.                (set ro_name "Pastels.palette")  (set ro_sum 1189347685)  (RenameOld)
  386.                (set ro_name "Pencils.palette")  (set ro_sum -1793208548)  (RenameOld)
  387.                (set ro_name "Reds.palette")  (set ro_sum 1306315158)  (RenameOld)
  388.                (set ro_name "Watercolor.palette")  (set ro_sum -1322196056)  (RenameOld)
  389.                (set ro_name "Yellows.palette")  (set ro_sum 885444429)  (RenameOld)
  390.                (set ro_name "3D.palette")  (set ro_sum -1143206117)  (RenameOld)
  391.                (if (exists (tackon wheredir "Palettes"))
  392.                   (
  393.                      (copyfiles
  394.                         (prompt "")
  395.                         (help "")
  396.                         (source (tackon wheredir "Palettes"))
  397.                         (dest (tackon wheredir "Storage/Palettes"))
  398.                         (all)
  399.                      )
  400.                      (run ("delete %ls all quiet" (tackon wheredir "Palettes")))
  401.                   )
  402.                )
  403.  
  404.                (set ro_dir wheredir)
  405.                (set ro_dir2 wheredir)
  406.                (set ro_name "Default.presets")  (set ro_sum -1421670074)  (RenameOld)
  407.               ;(set ro_name "Default.keys")  (set ro_sum -150757786)  (RenameOld)
  408.  
  409.                (delete (tackon wheredir "Help/Main.guide"))
  410.                (delete (tackon wheredir "README"))
  411.                (delete (tackon wheredir "README.info"))
  412.  
  413.             )
  414.          )
  415.  
  416.       )
  417.    )
  418.  
  419.    ;================================================================
  420.    ; DISK 1
  421.    ;================================================================
  422.  
  423.    (complete 0)
  424.  
  425.    (working "Installing Libraries...")
  426.    (if (exists (tackon diskname1 "Libs.lha"))
  427.       (
  428.          (run ("RAM:lhex >CON:0/0//60/lhex/AUTO -a -f -w=RAM: x %sLibs.lha" diskname1))
  429.          (if (exists "RAM:libs/iffparse.library")
  430.             (
  431.                (copylib
  432.                   (prompt "")
  433.                   (help @copylib-help)
  434.                   (source "RAM:Libs/iffparse.library")
  435.                   (dest "LIBS:")
  436.                )
  437.             )
  438.          )
  439.          (if (exists "RAM:libs/amigaguide.library")
  440.             (
  441.                (copylib
  442.                   (prompt "")
  443.                   (help @copylib-help)
  444.                   (source "RAM:Libs/amigaguide.library")
  445.                   (dest "LIBS:")
  446.                )
  447.             )
  448.          )
  449.          (if (exists "RAM:libs/dctv.library")
  450.             (
  451.                (if (BITAND mask_dctv hardware)
  452.                   (
  453.                      (copylib
  454.                         (prompt "")
  455.                         (help @copylib-help)
  456.                         (source "RAM:Libs/dctv.library")
  457.                         (dest "LIBS:")
  458.                      )
  459.                   )
  460.                )
  461.             )
  462.          )
  463.          (if (exists "RAM:libs/req.library")
  464.             (
  465.                (copylib
  466.                   (prompt "")
  467.                   (help @copylib-help)
  468.                   (source "RAM:Libs/req.library")
  469.                   (dest "LIBS:")
  470.                )
  471.             )
  472.          )
  473.          (if (exists "RAM:libs/thumbnail.library")
  474.             (
  475.                (delete "LIBS:thumbnail.library")
  476.                (delete (tackon wheredir "thumbnail.library"))
  477.                (copylib
  478.                   (prompt "")
  479.                   (help @copylib-help)
  480.                   (source "RAM:Libs/thumbnail.library")
  481.                   (dest "LIBS:")
  482.                )
  483.             )
  484.          )
  485.  
  486.       )
  487.    )
  488.  
  489.    (delete "RAM:libs/thumbnail.library")
  490.    (delete "RAM:libs/req.library")
  491.    (delete "RAM:libs/dctv.library")
  492.    (delete "RAM:libs/amigaguide.library")
  493.    (delete "RAM:libs/iffparse.library")
  494.    (delete "RAM:libs")
  495.  
  496.    (working "Installing Program...")
  497.    (run ("RAM:lhex >CON:0/0//60/lhex/AUTO -a -f \"-w=%s\" x %sProgram.lha" wheredir diskname1))
  498.  
  499.    (working "Installing Icons...")
  500.    (run ("RAM:lhex >CON:0/0//60/lhex/AUTO -a -f -w=RAM: x %sIcons20.lha" diskname1))
  501.  
  502.    ; Make sure we don't copy over any existing icons!
  503.  
  504.    (if (= (exists (tackon wheredir "Browser.info")) 0)
  505.       (copyfiles
  506.          (prompt "")
  507.          (help "")
  508.          (source "RAM:Browser.info")
  509.          (dest wheredir)
  510.       )
  511.    )
  512.    (if (= (exists (tackon wheredir "Cinemorph.info")) 0)
  513.       (copyfiles
  514.          (prompt "")
  515.          (help "")
  516.          (source "RAM:Cinemorph.info")
  517.          (dest wheredir)
  518.       )
  519.    )
  520.    (if (= (exists (tackon wheredir "Help.info")) 0)
  521.       (copyfiles
  522.          (prompt "")
  523.          (help "")
  524.          (source "RAM:Help.info")
  525.          (dest wheredir)
  526.       )
  527.    )
  528.    (if (= (exists (tackon wheredir "Icons.info")) 0)
  529.       (copyfiles
  530.          (prompt "")
  531.          (help "")
  532.          (source "RAM:Icons.info")
  533.          (dest wheredir)
  534.       )
  535.    )
  536.    (if (= (exists (tackon wheredir "ImageFX.info")) 0)
  537.       (copyfiles
  538.          (prompt "")
  539.          (help "")
  540.          (source "RAM:ImageFX.info")
  541.          (dest wheredir)
  542.       )
  543.    )
  544.    (if (= (exists (tackon wheredir "ImageFX_WB.info")) 0)
  545.       (copyfiles
  546.          (prompt "")
  547.          (help "")
  548.          (source "RAM:ImageFX_WB.info")
  549.          (dest wheredir)
  550.       )
  551.    )
  552.    (if (= (exists (tackon wheredir "ImageFX_WBP.info")) 0)
  553.       (copyfiles
  554.          (prompt "")
  555.          (help "")
  556.          (source "RAM:ImageFX_WBP.info")
  557.          (dest wheredir)
  558.       )
  559.    )
  560.    (if (= (exists (tackon wheredir "IMP.info")) 0)
  561.       (copyfiles
  562.          (prompt "")
  563.          (help "")
  564.          (source "RAM:IMP.info")
  565.          (dest wheredir)
  566.       )
  567.    )
  568.    (if (= (exists (tackon wheredir "AutoFX.info")) 0)
  569.       (copyfiles
  570.          (prompt "")
  571.          (help "")
  572.          (source "RAM:AutoFX.info")
  573.          (dest wheredir)
  574.       )
  575.    )
  576.    (if (= (exists (tackon wheredir "MAGIC.info")) 0)
  577.       (copyfiles
  578.          (prompt "")
  579.          (help "")
  580.          (source "RAM:MAGIC.info")
  581.          (dest wheredir)
  582.       )
  583.    )
  584.    (if (= (exists (tackon wheredir "Rexx.info")) 0)
  585.       (copyfiles
  586.          (prompt "")
  587.          (help "")
  588.          (source "RAM:Rexx.info")
  589.          (dest wheredir)
  590.       )
  591.    )
  592.    (if (= (exists (tackon wheredir "Sample_Proj.info")) 0)
  593.       (copyfiles
  594.          (prompt "")
  595.          (help "")
  596.          (source "RAM:Sample_Proj.info")
  597.          (dest wheredir)
  598.       )
  599.    )
  600.    (if (= (exists (tackon wheredir "Viewtek.info")) 0)
  601.       (copyfiles
  602.          (prompt "")
  603.          (help "")
  604.          (source "RAM:Viewtek.info")
  605.          (dest wheredir)
  606.       )
  607.    )
  608.    (if (= (exists (tackon wheredir "Pictures.info")) 0)
  609.       (copyfiles
  610.          (prompt "")
  611.          (help "")
  612.          (source "RAM:Pictures.info")
  613.          (dest wheredir)
  614.       )
  615.    )
  616.    (if (= (exists (tackon wheredir "Icons/AppIcon.info")) 0)
  617.       (
  618.          (makedir (tackon wheredir "Icons"))
  619.          (copyfiles
  620.             (prompt "")
  621.             (help "")
  622.             (source "RAM:Icons")
  623.             (dest (tackon wheredir "Icons"))
  624.             (all)
  625.          )
  626.       )
  627.    )
  628.  
  629.    (delete "RAM:AutoFX.info")
  630.    (delete "RAM:Browser.info")
  631.    (delete "RAM:Cinemorph.info")
  632.    (delete "RAM:Help.info")
  633.    (delete "RAM:Icons.info")
  634.    (run ("delete RAM:Icons all quiet"))
  635.    (delete "RAM:ImageFX.info")
  636.    (delete "RAM:ImageFX_WB.info")
  637.    (delete "RAM:ImageFX_WBP.info")
  638.    (delete "RAM:IMP.info")
  639.    (delete "RAM:MAGIC.info")
  640.    (delete "RAM:Rexx.info")
  641.    (delete "RAM:Sample_Proj.info")
  642.    (delete "RAM:Viewtek.info")
  643.    (delete "RAM:Pictures.info")
  644.  
  645.    (working "Installing Arexx Programs...")
  646.    (run ("RAM:lhex >CON:0/0//60/lhex/AUTO -a -f \"-w=%s\" x %sRexx.lha" wheredir diskname1))
  647.  
  648.    (working "Installing Help Files...")
  649.    (run ("RAM:lhex >CON:0/0//60/lhex/AUTO -a -f \"-w=%s\" x %sHelp.lha" wheredir diskname1))
  650.  
  651.    (if (= 0 (BITAND mask_dctv hardware))
  652.       (
  653.          (delete (tackon wheredir "help/Render_DCTV.guide"))
  654.       )
  655.    )
  656.    (if (= 0 (BITAND mask_egs hardware))
  657.       (
  658.          (delete (tackon wheredir "help/Render_EGS.guide"))
  659.       )
  660.    )
  661.    (if (= 0 (BITAND mask_fc24 hardware))
  662.       (
  663.          (delete (tackon wheredir "help/Render_Firecracker.guide"))
  664.       )
  665.    )
  666.    (if (= 0 (BITAND mask_hame hardware))
  667.       (
  668.          (delete (tackon wheredir "help/Render_HAME.guide"))
  669.       )
  670.    )
  671.    (if (= 0 (BITAND mask_iv24 hardware))
  672.       (
  673.          (delete (tackon wheredir "help/Render_IV24.guide"))
  674.          (delete (tackon wheredir "help/Scanner_IVFG.guide"))
  675.       )
  676.    )
  677.    (if (= 0 (BITAND mask_opal hardware))
  678.       (
  679.          (delete (tackon wheredir "help/Render_OpalVision.guide"))
  680.       )
  681.    )
  682.    (if (= 0 (BITAND mask_pic hardware))
  683.       (
  684.          (delete (tackon wheredir "help/Render_Picasso.guide"))
  685.       )
  686.    )
  687.    (if (= 0 (BITAND mask_ret hardware))
  688.       (
  689.          (delete (tackon wheredir "help/Render_Retina.guide"))
  690.       )
  691.    )
  692.    (if (= 0 (BITAND mask_sage hardware))
  693.       (
  694.          (delete (tackon wheredir "help/Render_SAGE.guide"))
  695.       )
  696.    )
  697.    (if (= 0 (BITAND mask_epson hardware2))
  698.       (
  699.          (delete (tackon wheredir "help/Scanner_Epson.guide"))
  700.       )
  701.    )
  702.    (if (= 0 (BITAND mask_jx100 hardware2))
  703.       (
  704.          (delete (tackon wheredir "help/Scanner_JX100.guide"))
  705.       )
  706.    )
  707.    (if (= 0 (BITAND mask_fg hardware2))
  708.       (
  709.          (delete (tackon wheredir "help/Scanner_FrameGrabber.guide"))
  710.       )
  711.    )
  712.    (if (= 0 (BITAND mask_fg256 hardware2))
  713.       (
  714.          (delete (tackon wheredir "help/Scanner_FrameGrabber256.guide"))
  715.       )
  716.    )
  717.    (if (= 0 (BITAND mask_vlab hardware2))
  718.       (
  719.          (delete (tackon wheredir "help/Scanner_VLAB.guide"))
  720.       )
  721.    )
  722.    (if (= 0 (BITAND mask_prim hardware2))
  723.       (
  724.          (delete (tackon wheredir "help/Printer_Primera.guide"))
  725.       )
  726.    )
  727.  
  728.    (working "Installing MAGIC Files...")
  729.    (run ("RAM:lhex >CON:0/0//60/lhex/AUTO -a -f \"-w=%s\" x %sMagic.lha" wheredir diskname1))
  730.  
  731.    (copyfiles
  732.       (prompt "If you want the MAGIC utility automatically "
  733.               "started each time you reboot, select `Proceed "
  734.               "With Copy'.  Otherwise select `Skip This Part' "
  735.               "to run the MAGIC utility manually.")
  736.       (help @copyfiles-help)
  737.       (source (tackon wheredir "MAGIC/MagicServer"))
  738.       (dest "SYS:WBStartup")
  739.       (confirm)
  740.    )
  741.  
  742.    (if (< osver 39)
  743.       (
  744.          (if (= 0 (exists "SYS:Utilities/AmigaGuide"))
  745.             (
  746.                (working "Installing AmigaGuide utility...")
  747.                (run ("RAM:lhex >CON:0/0//60/lhex/AUTO -a -f \"-w=SYS:Utilities\" x %sAG34.lha" diskname1))
  748.             )
  749.          )
  750.       )
  751.    )
  752.  
  753.    (working "Installing Addendum Document...")
  754.    (copyfiles
  755.       (prompt "")
  756.       (help @copyfiles-help)
  757.       (source diskname1)
  758.       (dest wheredir)
  759.       (choices "Addendum_2.0" "Addendum_2.0.info")
  760.    )
  761.  
  762.    ;================================================================
  763.    ; DISK 2
  764.    ;================================================================
  765.  
  766.    (complete 25)
  767.  
  768.    (askdisk
  769.       (prompt "Please insert ImageFX Disk 2 in any drive.")
  770.       (help "")
  771.       (dest (substr diskname2 0 (- (strlen diskname2) 1)))
  772.       (assigns)
  773.    )
  774.  
  775.    (working "Installing Modules...")
  776.    (run ("RAM:lhex >CON:0/0//60/lhex/AUTO -a -f \"-w=%s\" x %sModules.lha" wheredir diskname2))
  777.  
  778.    (if (= cpu 1)
  779.       (
  780.          ; only 68000
  781.          (delete (tackon wheredir "modules/loaders/JPEG.030"))
  782.          (delete (tackon wheredir "modules/loaders/JPEG.040"))
  783.          (delete (tackon wheredir "modules/savers/JPEG.030"))
  784.          (delete (tackon wheredir "modules/savers/JPEG.040"))
  785.       )
  786.    )
  787.    (if (= cpu 2)
  788.       (
  789.          ; only 68030
  790.          (delete (tackon wheredir "modules/loaders/JPEG.000"))
  791.          (delete (tackon wheredir "modules/loaders/JPEG.040"))
  792.          (delete (tackon wheredir "modules/savers/JPEG.000"))
  793.          (delete (tackon wheredir "modules/savers/JPEG.040"))
  794.       )
  795.    )
  796.    (if (= cpu 3)
  797.       (
  798.          ; only 68030
  799.          (delete (tackon wheredir "modules/loaders/JPEG.000"))
  800.          (delete (tackon wheredir "modules/loaders/JPEG.040"))
  801.          (delete (tackon wheredir "modules/savers/JPEG.000"))
  802.          (delete (tackon wheredir "modules/savers/JPEG.040"))
  803.       )
  804.    )
  805.    (if (= cpu 4)
  806.       (
  807.          ; only 68040
  808.          (delete (tackon wheredir "modules/loaders/JPEG.000"))
  809.          (delete (tackon wheredir "modules/loaders/JPEG.030"))
  810.          (delete (tackon wheredir "modules/savers/JPEG.000"))
  811.          (delete (tackon wheredir "modules/savers/JPEG.030"))
  812.       )
  813.    )
  814.  
  815.    (if (= 0 (BITAND mask_dctv hardware))
  816.       (
  817.          (delete (tackon wheredir "modules/preview/DCTV"))
  818.          (delete (tackon wheredir "modules/render/DCTV"))
  819.       )
  820.    )
  821.    (if (= 0 (BITAND mask_egs hardware))
  822.       (
  823.          (delete (tackon wheredir "modules/render/EGS"))
  824.       )
  825.    )
  826.    (if (= 0 (BITAND mask_fc24 hardware))
  827.       (
  828.          (delete (tackon wheredir "modules/preview/Firecracker"))
  829.          (delete (tackon wheredir "modules/render/Firecracker"))
  830.       )
  831.    )
  832.    (if (= 0 (BITAND mask_hame hardware))
  833.       (
  834.          (delete (tackon wheredir "modules/preview/HAME"))
  835.          (delete (tackon wheredir "modules/render/HAME"))
  836.       )
  837.    )
  838.    (if (= 0 (BITAND mask_iv24 hardware))
  839.       (
  840.          (delete (tackon wheredir "modules/preview/IV24"))
  841.          (delete (tackon wheredir "modules/render/IV24"))
  842.          (delete (tackon wheredir "modules/scanner/IVFG"))
  843.       )
  844.    )
  845.    (if (= 0 (BITAND mask_opal hardware))
  846.       (
  847.          (delete (tackon wheredir "modules/preview/OpalVision"))
  848.          (delete (tackon wheredir "modules/render/OpalVision"))
  849.       )
  850.    )
  851.    (if (= 0 (BITAND mask_pic hardware))
  852.       (
  853.          (delete (tackon wheredir "modules/render/Picasso"))
  854.       )
  855.    )
  856.    (if (= 0 (BITAND mask_ret hardware))
  857.       (
  858.          (delete (tackon wheredir "modules/preview/RetinaWB"))
  859.          (delete (tackon wheredir "modules/render/Retina"))
  860.       )
  861.    )
  862.    (if (= 0 (BITAND mask_sage hardware))
  863.       (
  864.          (delete (tackon wheredir "modules/render/SAGE"))
  865.       )
  866.    )
  867.    (if (= 0 (BITAND mask_epson hardware2))
  868.       (
  869.          (delete (tackon wheredir "modules/scanner/Epson"))
  870.       )
  871.    )
  872.    (if (= 0 (BITAND mask_jx100 hardware2))
  873.       (
  874.          (delete (tackon wheredir "modules/scanner/JX100"))
  875.       )
  876.    )
  877.    (if (= 0 (BITAND mask_fg hardware2))
  878.       (
  879.          (delete (tackon wheredir "modules/scanner/FrameGrabber"))
  880.       )
  881.    )
  882.    (if (= 0 (BITAND mask_fg256 hardware2))
  883.       (
  884.          (delete (tackon wheredir "modules/scanner/FrameGrabber256"))
  885.       )
  886.    )
  887.    (if (= 0 (BITAND mask_vlab hardware2))
  888.       (
  889.          (delete (tackon wheredir "modules/scanner/VLAB"))
  890.       )
  891.    )
  892.    (if (= 0 (BITAND mask_prim hardware2))
  893.       (
  894.          (delete (tackon wheredir "modules/printer/Primera"))
  895.       )
  896.    )
  897.  
  898.    ;================================================================
  899.    ; DISK 3
  900.    ;================================================================
  901.  
  902.    (complete 50)
  903.  
  904.    (askdisk
  905.       (prompt "Please insert ImageFX Disk 3 in any drive.")
  906.       (help "")
  907.       (dest (substr diskname3 0 (- (strlen diskname3) 1)))
  908.       (assigns)
  909.    )
  910.  
  911.    (working "Installing Viewtek Utility...")
  912.    (run ("RAM:lhex >CON:0/0//60/lhex/AUTO -a -f \"-w=%s\" x %sViewtek.lha" wheredir diskname3))
  913.  
  914.    (working "Installing Hooks...")
  915.    (run ("RAM:lhex >CON:0/0//60/lhex/AUTO -a -f \"-w=%s\" x %sHooks.lha" wheredir diskname3))
  916.  
  917.    (if (= cpu 1)
  918.       (
  919.          ; only 68000
  920.          (delete (tackon wheredir "hooks/CMIFX.FP"))
  921.          (delete (tackon wheredir "hooks/sys/Lightning.FP"))
  922.          (delete (tackon wheredir "hooks/sys/Spherize.FP"))
  923.          (delete (tackon wheredir "hooks/sys/Perspective.FP"))
  924.       )
  925.    )
  926.    (if (= cpu 2)
  927.       (
  928.          ; 68EC030
  929.          (delete (tackon wheredir "hooks/CMIFX.FP"))
  930.          (delete (tackon wheredir "hooks/sys/Lightning.FP"))
  931.          (delete (tackon wheredir "hooks/sys/Spherize.FP"))
  932.          (delete (tackon wheredir "hooks/sys/Perspective.FP"))
  933.       )
  934.    )
  935.    (if (= cpu 3)
  936.       (
  937.          ; only 68030
  938.          (delete (tackon wheredir "hooks/CMIFX"))
  939.          (delete (tackon wheredir "hooks/sys/Lightning"))
  940.          (delete (tackon wheredir "hooks/sys/Spherize"))
  941.          (delete (tackon wheredir "hooks/sys/Perspective"))
  942.       )
  943.    )
  944.    (if (= cpu 4)
  945.       (
  946.          ; only 68040
  947.          (delete (tackon wheredir "hooks/CMIFX"))
  948.          (delete (tackon wheredir "hooks/sys/Lightning"))
  949.          (delete (tackon wheredir "hooks/sys/Spherize"))
  950.          (delete (tackon wheredir "hooks/sys/Perspective"))
  951.       )
  952.    )
  953.  
  954.    (if (= 0 (BITAND mask_fc24 hardware))
  955.       (
  956.          (delete (tackon wheredir "hooks/GrabFC"))
  957.       )
  958.    )
  959.  
  960.    (working "Installing Sample Project Files...")
  961.    (run ("RAM:lhex >CON:0/0//60/lhex/AUTO -a -f \"-w=%s\" x %sStorage.lha" wheredir diskname3))
  962.  
  963.    ;================================================================
  964.    ; DISK 4
  965.    ;================================================================
  966.  
  967.    (complete 75)
  968.  
  969.    (askdisk
  970.       (prompt "Please insert ImageFX Disk 4 in any drive.")
  971.       (help "")
  972.       (dest (substr diskname4 0 (- (strlen diskname4) 1)))
  973.       (assigns)
  974.    )
  975.  
  976.    (working "Installing Sample Brushes...")
  977.    (run ("RAM:lhex >CON:0/0//60/lhex/AUTO -a -f \"-w=%s\" x %sBrushes.lha" wheredir diskname4))
  978.  
  979.    (working "Installing Sample Textures...")
  980.    (run ("RAM:lhex >CON:0/0//60/lhex/AUTO -a -f \"-w=%s\" x %sTextures.lha" wheredir diskname4))
  981.  
  982.    (working "Installing Sample Pictures...")
  983.    (run ("RAM:lhex >CON:0/0//60/lhex/AUTO -a -f \"-w=%s\" x %sPictures.lha" wheredir diskname4))
  984.  
  985.    (run "Delete RAM:lhex QUIET")
  986.  
  987.    ;================================================================
  988.    ; Miscellaneous stuff
  989.    ;================================================================
  990.  
  991.    (if (> @user-level 1)
  992.       (
  993.          (set theassign
  994.             (askstring
  995.                (prompt "Select an Assign name for the ImageFX drawer: "
  996.                        "(Do NOT include a trailing colon (:)!)")
  997.                (help @askstring-help)
  998.                (default assignname)
  999.             )
  1000.          )
  1001.       )
  1002.       ; else
  1003.       (
  1004.          (set theassign assignname)
  1005.       )
  1006.    )
  1007.  
  1008.    (makeassign theassign wheredir)
  1009.  
  1010.    (tooltype
  1011.       (prompt "")
  1012.       (help "")
  1013.       (dest (tackon wheredir "ImageFX"))
  1014.       (settooltype "ASSIGN" ("%ls:" theassign))
  1015.    )
  1016.    (tooltype
  1017.       (prompt "")
  1018.       (help "")
  1019.       (dest (tackon wheredir "Cinemorph"))
  1020.       (setdefaulttool ("%ls:ImageFX" theassign))
  1021.    )
  1022.    (tooltype
  1023.       (prompt "")
  1024.       (help "")
  1025.       (dest (tackon wheredir "IMP"))
  1026.       (setdefaulttool ("%ls:ImageFX" theassign))
  1027.    )
  1028.    (tooltype
  1029.       (prompt "")
  1030.       (help "")
  1031.       (dest (tackon wheredir "AutoFX"))
  1032.       (setdefaulttool ("%ls:ImageFX" theassign))
  1033.    )
  1034.    (tooltype
  1035.       (prompt "")
  1036.       (help "")
  1037.       (dest (tackon wheredir "ImageFX_WB"))
  1038.       (setdefaulttool ("%ls:ImageFX" theassign))
  1039.    )
  1040.    (tooltype
  1041.       (prompt "")
  1042.       (help "")
  1043.       (dest (tackon wheredir "ImageFX_WBP"))
  1044.       (setdefaulttool ("%ls:ImageFX" theassign))
  1045.    )
  1046.    (tooltype
  1047.       (prompt "")
  1048.       (help "")
  1049.       (dest (tackon wheredir "Sample_Proj"))
  1050.       (setdefaulttool ("%ls:ImageFX" theassign))
  1051.    )
  1052.    (tooltype
  1053.       (prompt "")
  1054.       (help "")
  1055.       (dest (tackon wheredir "Icons/Buffer"))
  1056.       (setdefaulttool ("%ls:ImageFX" theassign))
  1057.    )
  1058.    (tooltype
  1059.       (prompt "")
  1060.       (help "")
  1061.       (dest (tackon wheredir "Icons/Brush"))
  1062.       (setdefaulttool ("%ls:ImageFX" theassign))
  1063.    )
  1064.    (tooltype
  1065.       (prompt "")
  1066.       (help "")
  1067.       (dest (tackon wheredir "Icons/Rendered"))
  1068.       (setdefaulttool ("%ls:ImageFX" theassign))
  1069.    )
  1070.    (tooltype
  1071.       (prompt "")
  1072.       (help "")
  1073.       (dest (tackon wheredir "Icons/Palette"))
  1074.       (setdefaulttool ("%ls:ImageFX" theassign))
  1075.    )
  1076.    (tooltype
  1077.       (prompt "")
  1078.       (help "")
  1079.       (dest (tackon wheredir "Rexx/ConvertAnim.ifx"))
  1080.       (setdefaulttool ("%ls:ImageFX" theassign))
  1081.    )
  1082.    (tooltype
  1083.       (prompt "")
  1084.       (help "")
  1085.       (dest (tackon wheredir "Rexx/CreateNails.ifx"))
  1086.       (setdefaulttool ("%ls:ImageFX" theassign))
  1087.    )
  1088.    (tooltype
  1089.       (prompt "")
  1090.       (help "")
  1091.       (dest (tackon wheredir "Rexx/DrawAnim.ifx"))
  1092.       (setdefaulttool ("%ls:ImageFX" theassign))
  1093.    )
  1094.    (tooltype
  1095.       (prompt "")
  1096.       (help "")
  1097.       (dest (tackon wheredir "Rexx/Flying.ifx"))
  1098.       (setdefaulttool ("%ls:ImageFX" theassign))
  1099.    )
  1100.    (tooltype
  1101.       (prompt "")
  1102.       (help "")
  1103.       (dest (tackon wheredir "Rexx/GrabScreen.ifx"))
  1104.       (setdefaulttool ("%ls:ImageFX" theassign))
  1105.    )
  1106.    (tooltype
  1107.       (prompt "")
  1108.       (help "")
  1109.       (dest (tackon wheredir "Browser"))
  1110.       (settooltype "IMAGEFX" ("%ls:ImageFX Iconify" theassign))
  1111.       (settooltype "VIEWTEK" ("%ls:Viewtek/VT Delay 5" theassign))
  1112.       ;(settooltype "MPEG" ("%ls:MPEG/mp" theassign))
  1113.    )
  1114.  
  1115.    (if (>= osver 39)
  1116.       (
  1117.          (set guideprog "MultiView")
  1118.       )
  1119.       ; else
  1120.       (
  1121.          (set guideprog "AmigaGuide")
  1122.       )
  1123.    )
  1124.  
  1125.    (tooltype
  1126.       (prompt "")
  1127.       (help "")
  1128.       (dest (tackon wheredir "Help/ImageFX.guide"))
  1129.       (setdefaulttool ("%ls" guideprog))
  1130.    )
  1131.    (tooltype
  1132.       (prompt "")
  1133.       (help "")
  1134.       (dest (tackon wheredir "Help/Cinemorph.guide"))
  1135.       (setdefaulttool ("%ls" guideprog))
  1136.    )
  1137.    (tooltype
  1138.       (prompt "")
  1139.       (help "")
  1140.       (dest (tackon wheredir "Help/IMP.guide"))
  1141.       (setdefaulttool ("%ls" guideprog))
  1142.    )
  1143.    (tooltype
  1144.       (prompt "")
  1145.       (help "")
  1146.       (dest (tackon wheredir "Help/Arexx.guide"))
  1147.       (setdefaulttool ("%ls" guideprog))
  1148.    )
  1149.    (tooltype
  1150.       (prompt "")
  1151.       (help "")
  1152.       (dest (tackon wheredir "Help/AutoFX.guide"))
  1153.       (setdefaulttool ("%ls" guideprog))
  1154.    )
  1155.  
  1156.    (if (>= osver 39)
  1157.       (
  1158.          (tooltype
  1159.             (prompt "")
  1160.             (help "")
  1161.             (dest (tackon wheredir "Addendum_2.0"))
  1162.             (setdefaulttool "MultiView")
  1163.          )
  1164.       )
  1165.       ; else
  1166.       (
  1167.          (tooltype
  1168.             (prompt "")
  1169.             (help "")
  1170.             (dest (tackon wheredir "Addendum_2.0"))
  1171.             (setdefaulttool "More")
  1172.          )
  1173.       )
  1174.    )
  1175.  
  1176.    (if writeover
  1177.       (
  1178.          (tooltype
  1179.             (prompt "")
  1180.             (help "")
  1181.             (dest (tackon wheredir "Help"))
  1182.             (noposition)
  1183.          )
  1184.          (tooltype
  1185.             (prompt "")
  1186.             (help "")
  1187.             (dest (tackon wheredir "Rexx"))
  1188.             (noposition)
  1189.          )
  1190.          (tooltype
  1191.             (prompt "")
  1192.             (help "")
  1193.             (dest (tackon wheredir "Icons"))
  1194.             (noposition)
  1195.          )
  1196.          (tooltype
  1197.             (prompt "")
  1198.             (help "")
  1199.             (dest (tackon wheredir "Browser"))
  1200.             (noposition)
  1201.          )
  1202.          (tooltype
  1203.             (prompt "")
  1204.             (help "")
  1205.             (dest (tackon wheredir "AutoFX"))
  1206.             (noposition)
  1207.          )
  1208.          (tooltype
  1209.             (prompt "")
  1210.             (help "")
  1211.             (dest (tackon wheredir "ImageFX_WBP"))
  1212.             (noposition)
  1213.          )
  1214.          (tooltype
  1215.             (prompt "")
  1216.             (help "")
  1217.             (dest (tackon wheredir "Sample_Proj"))
  1218.             (noposition)
  1219.          )
  1220.       )
  1221.    )
  1222.  
  1223.    (makedir (tackon wheredir "Storage"))
  1224.    (makedir (tackon wheredir "Storage/AutoFX"))
  1225.    (makedir (tackon wheredir "Storage/IMP"))
  1226.    (makedir (tackon wheredir "Storage/CineMorph"))
  1227.    (makedir (tackon wheredir "Storage/Lightning"))
  1228.    (makedir (tackon wheredir "Storage/PaintFX"))
  1229.  
  1230.    (set norexxmast (run "sys:rexxc/tcc"))
  1231.  
  1232.    (set runrexxmast 0)
  1233.    (if norexxmast
  1234.       (
  1235.          ; Ask expert user if he wants to run RexxMast
  1236.          (set runrexxmast 1)
  1237.          (if (> @user-level 1)
  1238.             (set runrexxmast
  1239.                (askbool
  1240.                   (prompt "The RexxMast server software is not currently running.  "
  1241.                           "Would you like to start RexxMast automatically at each reboot?" )
  1242.                   (help "ImageFX requires the RexxMast software to be running before you "
  1243.                         "can use any Arexx programs.")
  1244.                   (default 1)
  1245.                )
  1246.             )
  1247.          )
  1248.       )
  1249.    )
  1250.  
  1251.    (if runrexxmast
  1252.       (
  1253.          (set cmds
  1254.             ("Assign %ls: \"%ls\"\nMakedir ENV:ImageFX\nSetEnv ImageFX/JPEG_Smoothing ON\nRexxMast >NIL: <NIL:"
  1255.                theassign @default-dest (tackon @default-dest "Help"))
  1256.          )
  1257.          (run "sys:rexxc/RexxMast")    ; run it now, too.
  1258.       )
  1259.       ; else
  1260.       (
  1261.          (set cmds
  1262.             ("Assign %ls: \"%ls\"\nMakedir ENV:ImageFX\nSetEnv ImageFX/JPEG_Smoothing ON"
  1263.                theassign @default-dest (tackon @default-dest "Help"))
  1264.          )
  1265.       )
  1266.    )
  1267.  
  1268.    (onerror
  1269.       (message
  1270.          "Cannot update startup sequence.  You will need to "
  1271.          "add the following command manually:\n" cmds
  1272.       )
  1273.    )
  1274.  
  1275.    (startup "ImageFX"
  1276.       (prompt
  1277.          "Do you want to add the following commands to your "
  1278.          "user-startup file?\n" cmds
  1279.       )
  1280.       (help @startup-help)
  1281.       (command cmds)
  1282.    )
  1283.  
  1284.    ; fix up amigaguide path
  1285.  
  1286.    (if (= 0 (exists "ENV:AmigaGuide/Path"))
  1287.       (
  1288.          (makedir "ENV:AmigaGuide")
  1289.          (textfile
  1290.             (dest "ENV:AmigaGuide/Path")
  1291.             (help "")
  1292.             (prompt "")
  1293.             (append ("%ls:Help" theassign))
  1294.          )
  1295.       )
  1296.       ; else
  1297.       (
  1298.          (textfile
  1299.             (dest "RAM:temp_ag_path")
  1300.             (help "")
  1301.             (prompt "")
  1302.             (include "ENV:AmigaGuide/Path")
  1303.             (append ("\n%ls:Help" theassign))
  1304.          )
  1305.          (copyfiles
  1306.             (prompt "")
  1307.             (help "")
  1308.             (source "RAM:temp_ag_path")
  1309.             (dest "ENV:AmigaGuide")
  1310.             (newname "Path")
  1311.          )
  1312.       )
  1313.    )
  1314.    (copyfiles
  1315.       (prompt "")
  1316.       (help "")
  1317.       (source "ENV:AmigaGuide")
  1318.       (dest "ENVARC:AmigaGuide")
  1319.       (all)
  1320.    )
  1321.    (delete "RAM:temp_ag_path")
  1322.  
  1323.    (message "To install the ImageFX Extras, double-click on the "
  1324.             "\"Install-Extras\" icon and follow the instructions "
  1325.             "provided.")
  1326.  
  1327.    (complete 100)
  1328.  
  1329.    ; Installation complete!
  1330. )
  1331.  
  1332. ;-----------------------------------------------------------------------
  1333. ; Revision History:
  1334. ;
  1335. ;  7/30/94 tek
  1336. ;     Now creates drawer for the user.
  1337. ;
  1338. ;  8/03/94 tek
  1339. ;     Now includes AutoFX/WBP icons.
  1340. ;
  1341. ;  8/04/94 tek
  1342. ;     Rearranged all the components onto different disks.
  1343. ;     Prompts for FP or non-FP versions of stuff.
  1344. ;
  1345. ;  8/05/94 tek
  1346. ;     Asks expert users for the drawer name to create.
  1347. ;
  1348. ;  8/06/94 tek
  1349. ;     Can now update previous versions of ImageFX.
  1350. ;
  1351. ;  8/22/94 tek
  1352. ;     Now checks to see if RexxMast is running and puts it
  1353. ;     in user-startup if it isn't.
  1354. ;
  1355. ;  8/25/94 tek
  1356. ;     Moved 'extras' into seperate install script.
  1357. ;
  1358. ;  8/31/94 tek
  1359. ;     Added sample picture installation.
  1360. ;     Fixed problem of installing to "Ram Disk:".
  1361. ;
  1362. ;  10/11/94 tek
  1363. ;     Now installs AmigaGuide on pre-V39 systems.
  1364. ;
  1365. ;  10/15/94 tek
  1366. ;     Various tweaks and fixes.
  1367. ;     Sets AmigaGuide default tool under < V39.
  1368. ;
  1369. ;  10/24/94 tek
  1370. ;     Now defaults back to IMAGEFX: assign.
  1371. ;
  1372. ;  10/30/94 tek
  1373. ;     Now updates ENV:AmigaGuide/Path.
  1374. ;
  1375. ;  11/10/94 tek
  1376. ;     Installs addendum and sets default tool.
  1377. ;     Does not install help files for hardware that's not installed.
  1378.