home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / GFX / Raytracing / Raytracer / dc-a4d51.dms / in.adf / Install_Aladdin < prev    next >
Encoding:
Text File  |  1997-07-24  |  23.2 KB  |  787 lines
  1. ; Aladdin 4D Installer Utility
  2. ;
  3. ; For Aladdin 4D Release 5.0
  4. ;
  5. ; This installation should NOT be used to update an old version of
  6. ; Aladdin.  It CAN update new (and beta) versions of Aladdin. (hopefully)
  7. ;
  8. ; Written by Thomas Krehbiel
  9. ; Copyright © 1996 Nova Design, Inc.
  10. ;
  11.  
  12. (
  13.  
  14.    ;================================================================
  15.    ; Procedure Definitions
  16.    ;================================================================
  17.  
  18.  
  19.    ;================================================================
  20.    ; Setup
  21.    ;================================================================
  22.  
  23.    ; script variables...
  24.  
  25.    (set programname "Aladdin 4D 5.0")        ; name of program
  26.    (set drawername "Aladdin4D")              ; name of drawer to make for program
  27.    (set assignname "Aladdin4D")              ; assign to make for program
  28.    (set diskname1 "Aladdin_Disk1:")          ; install disk name
  29.    (set diskname2 "Aladdin_Disk2:")          ; second install disk name
  30.    (set diskname3 "Aladdin_Disk3:")          ; third install disk name
  31.    (set diskname4 "Aladdin_Disk4:")          ; fourth install disk name
  32.    (set diskname5 "Aladdin_Disk5:")          ; fifth install disk name
  33.    (set bytesreq "6.0MB")                    ; HD space required
  34.  
  35.    ; system information...
  36.  
  37.    (set osver (/ (getversion) 65536))        ; os version
  38.    (set cputype (database "cpu"))            ; cpu type
  39.  
  40.    ;================================================================
  41.    ; Text Strings, for relatively easy localization
  42.    ;================================================================
  43.  
  44.    (set #msg-pickdrawer-prompt
  45.       (cat
  46.          "Select the directory where you would like to install the "
  47.          programname " software.  WARNING: Do not install over an "
  48.          "old (4.x or earlier) copy of Aladdin."))
  49.    (set #msg-pickdrawer-help
  50.       @askdir-help)
  51.  
  52.    (set #warning-writeover-v5-part1
  53.          "The version of Aladdin 4D in `")
  54.    (set #warning-writeover-v5-part2
  55.          "' will be updated.  If this is correct, click 'Proceed'.")
  56.  
  57.    (set #warning-writeover-v4
  58.       (cat
  59.          "We strongly recommend not attempting to install this version "
  60.          "of Aladdin 4D into a directory containing an earlier copy "
  61.          "(4.x or earlier) of Aladdin."))
  62.  
  63.    (set #msg-drawername-prompt
  64.       (cat
  65.          "This installation will create a drawer named '" drawername "'.  "
  66.          "If you would like to change the name of the drawer, type the new "
  67.          "name below.  Otherwise, click 'Proceed' to continue."))
  68.    (set #msg-drawername-help
  69.          @askstring-help)
  70.  
  71.    (set #warning-confirmname-part1
  72.       (cat
  73.          programname " will be installed in a new drawer called '"))
  74.    (set #warning-confirmname-part2
  75.          "'.  If this is correct, click 'Proceed'.")
  76.  
  77.    (set #msg-cpuversion-prompt
  78.          "Select which version of the software to install:")
  79.    (set #msg-cpuversion-help
  80.       (cat
  81.          "If you have a faster processor, you may choose to install "
  82.          "a special version of " programname " optimized for faster "
  83.          "processors."))
  84.    (set #msg-cpuversion-all
  85.          "Install All Versions")
  86.    (set #msg-cpuversion-68020
  87.          "Install 68020/68030 Version")
  88.    (set #msg-cpuversion-68040
  89.          "Install 68040 Version")
  90.  
  91.    ;-------------------
  92.    ; Pick a default directory for the installation...
  93.    (working "set initialdir")
  94.    (set initialdir @default-dest)            ; defaults to biggest drive
  95.  
  96.    (if (getassign "Aladdin4D")
  97.       (
  98.          (set initialdir (getassign "Aladdin4D"))
  99.       )
  100.    )
  101.  
  102.    ;-------------------
  103.    ; Ask where to install it...
  104.    (set wheredir
  105.       (askdir
  106.          (prompt #msg-pickdrawer-prompt)
  107.          (help #msg-pickdrawer-help)
  108.          (default initialdir)
  109.       )
  110.    )
  111.  
  112.    ;-------------------
  113.    ; Determine whether we are upgrading or installing new
  114.    (if (exists (tackon wheredir "support/alad.library"))
  115.       (
  116.          ; Installing into a directory where Aladdin already exists
  117.          (set writeover 1)
  118.  
  119.          (if (exists (tackon wheredir "support/apptek.library"))
  120.             (
  121.                ; Upgrading a version of Aladdin 4D 5.x (possibly a beta)
  122.                (set writeoverV5 1)
  123.                (message
  124.                   #warning-writeover-v5-part1
  125.                   wheredir
  126.                   #warning-writeover-v5-part2)
  127.             )
  128.             ; else
  129.             (
  130.                (message #warning-writeover-v4)
  131.             )
  132.          )
  133.  
  134.       )
  135.       ; else
  136.       (
  137.          ; Assume we are to create a new directory.
  138.  
  139.          ; Ask expert user the name of the drawer to create
  140.          (if (> @user-level 1)
  141.             (set drawername
  142.                (askstring
  143.                   (prompt #msg-drawername-prompt)
  144.                   (help #msg-drawername-help)
  145.                   (default drawername)
  146.                )
  147.             )
  148.          )
  149.          (set wheredir (tackon wheredir drawername))
  150.          (set writeover 0)
  151.          (message
  152.             #warning-confirmname-part1
  153.             wheredir
  154.             #warning-confirmname-part2)
  155.       )
  156.    )
  157.  
  158.    ;-------------------
  159.    ; Ask which versions of modules the user wants to install.
  160.    (set cpu
  161.       (askchoice
  162.          (prompt #msg-cpuversion-prompt)
  163.          (help #msg-cpuversion-help)
  164.          (choices
  165.             #msg-cpuversion-all
  166.             #msg-cpuversion-68020
  167.             #msg-cpuversion-68040
  168.          )
  169.          (default 0)
  170.       )
  171.    )
  172.  
  173.    (set cpu_all         0)
  174.    (set cpu_68020       1)
  175.    (set cpu_68040       2)
  176.  
  177.  
  178.  
  179.    ;-------------------
  180.    ; Create destination directory if it doesn't already exist.
  181.    ;(onerror
  182.    ;   (abort "Cannot create directory `%ls'.  (There may be a file "
  183.    ;          "already there with the same name.)" wheredir)
  184.    ;)
  185.    (makedir wheredir (infos))
  186.  
  187.    (set @default-dest wheredir)
  188.  
  189.    ;-------------------
  190.    ; Copy LHEX to RAM: for speediness
  191.    (copyfiles
  192.       (prompt "")
  193.       (help "")
  194.       (source "")
  195.       (dest "RAM:")
  196.       (choices "lhex")
  197.    )
  198.  
  199.    ;-------------------
  200.    ; Adjust current settings
  201.  
  202.    (if writeover
  203.       (
  204.  
  205.          ; These tools had their names changed:
  206.          (delete (tackon wheredir "Tools/Sweep"))
  207.          (delete (tackon wheredir "Tools/Slant.as"))
  208.  
  209.          (if writeoverV5
  210.             (
  211.  
  212.                (if (= cpu 1)
  213.                   (
  214.                      (delete (tackon wheredir "Aladdin4D_040"))
  215.                      (delete (tackon wheredir "Aladdin4D_040.info"))
  216.                      (delete (tackon wheredir "support/engine040.library"))
  217.                   )
  218.                )
  219.  
  220.                (if (= cpu 2)
  221.                   (
  222.                      (delete (tackon wheredir "Aladdin4D"))
  223.                      (delete (tackon wheredir "Aladdin4D.info"))
  224.                      (delete (tackon wheredir "support/engine.library"))
  225.                   )
  226.                )
  227.  
  228.             )
  229.          )
  230.  
  231.       )
  232.    )
  233.  
  234.    ; make directories we'll definitely need:
  235.    (makedir (tackon wheredir "Support"))
  236.    (makedir (tackon wheredir "Support/Def"))
  237.    (makedir (tackon wheredir "Support/Def/Defaults"))
  238.    (makedir (tackon wheredir "Help"))
  239.  
  240.    ;================================================================
  241.    ; DISK 1
  242.    ;================================================================
  243.  
  244.    (complete 0)
  245.  
  246.    (set temp (+ (= cpu cpu_all) (= cpu cpu_68020)))
  247.    (if temp
  248.       (
  249.          (working "Installing 68020/030-Specific Files...")
  250.          (run ("RAM:lhex >CON:0/0//60/lhex/AUTO -a -f \"-w=%s\" x %sProgram020.lha" wheredir diskname1))
  251.          (if (= (exists (tackon wheredir "Aladdin4D.info")) 0)
  252.             (
  253.                (run ("RAM:lhex >CON:0/0//60/lhex/AUTO -a -f \"-w=%s\" x %sIcons020.lha" wheredir diskname1))
  254.                (tooltype
  255.                   (prompt "")
  256.                   (help "")
  257.                   (dest (tackon wheredir "Aladdin4D"))
  258.                   (noposition)
  259.                )
  260.             )
  261.          )
  262.       )
  263.    )
  264.  
  265.    (set temp (+ (= cpu cpu_all) (= cpu cpu_68040)))
  266.    (if temp
  267.       (
  268.          (working "Installing 68040-Specific Files...")
  269.          (run ("RAM:lhex >CON:0/0//60/lhex/AUTO -a -f \"-w=%s\" x %sProgram040.lha" wheredir diskname1))
  270.          (if (= (exists (tackon wheredir "Aladdin4D_040.info")) 0)
  271.             (
  272.                (run ("RAM:lhex >CON:0/0//60/lhex/AUTO -a -f \"-w=%s\" x %sIcons040.lha" wheredir diskname1))
  273.                (tooltype
  274.                   (prompt "")
  275.                   (help "")
  276.                   (dest (tackon wheredir "Aladdin4D_040"))
  277.                   (noposition)
  278.                )
  279.             )
  280.          )
  281.       )
  282.    )
  283.  
  284.    (if (exists (tackon diskname1 "Docs.lha"))
  285.       (
  286.          (working "Installing Documents...")
  287.          (run ("RAM:lhex >CON:0/0//60/lhex/AUTO -a -f \"-w=%s\" x %sDocs.lha" wheredir diskname1))
  288.          (if (exists (tackon wheredir "Docs/ReleaseNotes.doc"))
  289.             (
  290.                (run ("Run >NIL: <NIL: SYS:Utilities/More \"%s/Docs/ReleaseNotes.doc\"" wheredir))
  291.             )
  292.          )
  293.       )
  294.    )
  295.  
  296.    ;(if (exists (tackon diskname1 "Rexx.lha"))
  297.    ;   (
  298.    ;      (working "Installing Arexx Programs...")
  299.    ;      (run ("RAM:lhex >CON:0/0//60/lhex/AUTO -a -f \"-w=%s\" x %sRexx.lha" wheredir diskname1))
  300.    ;   )
  301.    ;)
  302.  
  303.    ;(working "Installing Addendum Document...")
  304.    ;(copyfiles
  305.    ;   (prompt "")
  306.    ;   (help @copyfiles-help)
  307.    ;   (source diskname1)
  308.    ;   (dest wheredir)
  309.    ;   (choices "Addendum_2.1a" "Addendum_2.1a.info")
  310.    ;)
  311.  
  312.    ;================================================================
  313.    ; DISK 2
  314.    ;================================================================
  315.  
  316.    (complete 20)
  317.  
  318.    (askdisk
  319.       (prompt "Please insert Installation Disk 2 in any drive.")
  320.       (help "")
  321.       (dest (substr diskname2 0 (- (strlen diskname2) 1)))
  322.       (assigns)
  323.    )
  324.  
  325.    (if (< osver 39)
  326.       (
  327.          (if (= 0 (exists "SYS:Utilities/AmigaGuide"))
  328.             (
  329.                (working "Installing AmigaGuide utility...")
  330.                (run ("RAM:lhex >CON:0/0//60/lhex/AUTO -a -f \"-w=SYS:Utilities\" x %sAG34.lha" diskname2))
  331.             )
  332.          )
  333.       )
  334.    )
  335.  
  336.    (if (exists (tackon diskname2 "Libs.lha"))
  337.       (
  338.          (working "Installing Libraries...")
  339.  
  340.          (run ("RAM:lhex >CON:0/0//60/lhex/AUTO -a -f -w=RAM: x %sLibs.lha" diskname2))
  341.  
  342.          (if (exists "RAM:amigaguide.library")
  343.             (
  344.                (if (< osver 39)     ; only needed for < OS 3.0
  345.                   (
  346.                      (copylib
  347.                         (prompt "amigaguide.library is required to use the online "
  348.                                 "help features of Aladdin 4D.")
  349.                         (help @copylib-help)
  350.                         (source "RAM:amigaguide.library")
  351.                         (dest "LIBS:")
  352.                         (confirm)
  353.                      )
  354.                   )
  355.                )
  356.                (delete "RAM:amigaguide.library")
  357.             )
  358.          )
  359.          (if (exists "RAM:dctv.library")
  360.             (
  361.                (copylib
  362.                   (prompt "dctv.library is required for loading DCTV "
  363.                           "images and rendering to the DCTV.")
  364.                   (help @copylib-help)
  365.                   (source "RAM:dctv.library")
  366.                   (dest "LIBS:")
  367.                   (confirm)
  368.                )
  369.                (delete "RAM:dctv.library")
  370.             )
  371.          )
  372.          (if (exists "RAM:thumbnail.library")
  373.             (
  374.                (delete (tackon wheredir "thumbnail.library"))
  375.                (copylib
  376.                   (prompt "thumbnail.library is required to use "
  377.                           "visual thumbnail requesters.")
  378.                   (help @copylib-help)
  379.                   (source "RAM:thumbnail.library")
  380.                   (dest "LIBS:")
  381.                   (confirm)
  382.                )
  383.                (delete "RAM:thumbnail.library")
  384.             )
  385.          )
  386.          (if (exists "RAM:reqtools.library")
  387.             (
  388.                (if (< osver 38)     ; only needed for < OS 2.1
  389.                   (
  390.                      (copylib
  391.                         (prompt "reqtools.library is required under Workbench 2.04 "
  392.                                 "for selection of screen modes.")
  393.                         (help @copylib-help)
  394.                         (source "RAM:reqtools.library")
  395.                         (dest "LIBS:")
  396.                         (confirm)
  397.                      )
  398.                   )
  399.                )
  400.                (delete "RAM:reqtools.library")
  401.             )
  402.          )
  403.  
  404.       )
  405.    )
  406.  
  407.    (if (exists (tackon diskname2 "Support.lha"))
  408.       (
  409.          (working "Installing Support Files...")
  410.          (run ("RAM:lhex >CON:0/0//60/lhex/AUTO -a -f \"-w=%s\" x %sSupport.lha" wheredir diskname2))
  411.       )
  412.    )
  413.  
  414.    (if (exists (tackon diskname2 "Tools.lha"))
  415.       (
  416.          (working "Installing Tools...")
  417.          (run ("RAM:lhex >CON:0/0//60/lhex/AUTO -a -f \"-w=%s\" x %sTools.lha" wheredir diskname2))
  418.       )
  419.    )
  420.  
  421.    (if (exists (tackon diskname2 "Handlers.lha"))
  422.       (
  423.          (working "Installing Handlers...")
  424.          (run ("RAM:lhex >CON:0/0//60/lhex/AUTO -a -f \"-w=%s\" x %sHandlers.lha" wheredir diskname2))
  425.       )
  426.    )
  427.  
  428.    (if (exists (tackon diskname2 "Fonts.lha"))
  429.       (
  430.          (working "Installing Aladdin Font Files...")
  431.          (run ("RAM:lhex >CON:0/0//60/lhex/AUTO -a -f \"-w=%s\" x %sFonts.lha" wheredir diskname2))
  432.       )
  433.    )
  434.  
  435.    ;================================================================
  436.    ; DISK 3
  437.    ;================================================================
  438.  
  439.    (complete 40)
  440.  
  441.    (askdisk
  442.       (prompt "Please insert Installation Disk 3 in any drive.")
  443.       (help "")
  444.       (dest (substr diskname3 0 (- (strlen diskname3) 1)))
  445.       (assigns)
  446.    )
  447.  
  448.    (if (exists (tackon diskname3 "Help.lha"))
  449.       (
  450.          (working "Installing Help Files...")
  451.          (run ("RAM:lhex >CON:0/0//60/lhex/AUTO -a -f \"-w=%s\" x %sHelp.lha" wheredir diskname3))
  452.       )
  453.    )
  454.  
  455.    (if (exists (tackon diskname3 "SampleFiles.lha"))
  456.       (
  457.          (working "Installing Default Settings Files...")
  458.          (run ("RAM:lhex >CON:0/0//60/lhex/AUTO -a -f \"-w=%s\" x %sSampleFiles.lha" wheredir diskname3))
  459.       )
  460.    )
  461.  
  462.    (if (exists (tackon diskname3 "SampleDrawings.lha"))
  463.       (
  464.          (working "Installing Sample Drawing Files...")
  465.          (run ("RAM:lhex >CON:0/0//60/lhex/AUTO -a -f \"-w=%s\" x %sSampleDrawings.lha" wheredir diskname3))
  466.       )
  467.    )
  468.  
  469.    (if (exists (tackon diskname3 "SamplePictures.lha"))
  470.       (
  471.          (working "Installing Sample Pictures...")
  472.          (run ("RAM:lhex >CON:0/0//60/lhex/AUTO -a -f \"-w=%s\" x %sSamplePictures.lha" wheredir diskname3))
  473.       )
  474.    )
  475.  
  476.    (if (exists (tackon diskname3 "SampleTextures.lha"))
  477.       (
  478.          (working "Installing Sample Textures...")
  479.          (run ("RAM:lhex >CON:0/0//60/lhex/AUTO -a -f \"-w=%s\" x %sSampleTextures.lha" wheredir diskname3))
  480.       )
  481.    )
  482.  
  483.    (if (exists (tackon diskname3 "Magic.lha"))
  484.       (
  485.  
  486.          (working "Installing MAGIC Files...")
  487.          (run ("RAM:lhex >CON:0/0//60/lhex/AUTO -a -f \"-w=%s\" x %sMagic.lha" wheredir diskname3))
  488.  
  489.          (copyfiles
  490.             (prompt "If you want the MAGIC utility automatically "
  491.                     "started each time you reboot, select `Proceed "
  492.                     "With Copy'.  Otherwise select `Skip This Part' "
  493.                     "to run the MAGIC utility manually.")
  494.             (help "The MAGIC system is used for sharing 24-bit image "
  495.                   "data between applications while they are running.  "
  496.                   "For Aladdin 4D, this allows a program such as ImageFX "
  497.                   "to edit texture imagery directly.")
  498.             (source (tackon wheredir "MAGIC/MagicServer"))
  499.             (dest "SYS:WBStartup")
  500.             (confirm)
  501.          )
  502.  
  503.       )
  504.    )
  505.  
  506.    ;================================================================
  507.    ; DISK 4
  508.    ;================================================================
  509.  
  510.    (complete 60)
  511.  
  512.    (askdisk
  513.       (prompt "Please insert Installation Disk 4 in any drive.")
  514.       (help "")
  515.       (dest (substr diskname4 0 (- (strlen diskname4) 1)))
  516.       (assigns)
  517.    )
  518.  
  519.    (if (exists (tackon diskname4 "SampleFlares.lha"))
  520.       (
  521.          (working "Installing Sample Flare Textures...")
  522.          (run ("RAM:lhex >CON:0/0//60/lhex/AUTO -a -f \"-w=%s\" x %sSampleFlares.lha" wheredir diskname4))
  523.       )
  524.    )
  525.  
  526.    ;================================================================
  527.    ; DISK 5
  528.    ;================================================================
  529.  
  530.    (complete 80)
  531.  
  532.    (askdisk
  533.       (prompt "Please insert Installation Disk 5 in any drive.")
  534.       (help "")
  535.       (dest (substr diskname5 0 (- (strlen diskname5) 1)))
  536.       (assigns)
  537.    )
  538.  
  539.    (if (exists (tackon diskname5 "Examples.lha"))
  540.       (
  541.          (working "Installing Example Projects...")
  542.          (run ("RAM:lhex >CON:0/0//60/lhex/AUTO -a -f \"-w=%s\" x %sExamples.lha" wheredir diskname5))
  543.       )
  544.    )
  545.  
  546.    ;================================================================
  547.    ; Miscellaneous stuff
  548.    ;================================================================
  549.  
  550.    (run "Delete RAM:lhex QUIET")
  551.  
  552.    ;(if (> @user-level 1)
  553.    ;   (
  554.    ;      (set theassign
  555.    ;         (askstring
  556.    ;            (prompt "Select an Assign name for the ImageFX drawer: "
  557.    ;                    "(Do NOT include a trailing colon (:)!)")
  558.    ;            (help @askstring-help)
  559.    ;            (default assignname)
  560.    ;         )
  561.    ;      )
  562.    ;   )
  563.    ;   ; else
  564.    ;   (
  565.    ;      (set theassign assignname)
  566.    ;   )
  567.    ;)
  568.    (set theassign assignname)
  569.    (set theassign2 "Aladdin4DTools")
  570.    (set theassign3 "Aladdin4DHelp")
  571.    (set theassign4 "Aladdin4DDef")
  572.  
  573.    (working "Setting Icon Tool Types...")
  574.  
  575.    (if (>= osver 39)
  576.       (
  577.          (set guideprog "MultiView")
  578.       )
  579.       ; else
  580.       (
  581.          (set guideprog "AmigaGuide")
  582.       )
  583.    )
  584.  
  585.    (tooltype
  586.       (prompt "")
  587.       (help "")
  588.       (dest (tackon wheredir "Aladdin4D.guide"))
  589.       (setdefaulttool ("%ls" guideprog))
  590.    )
  591.  
  592.    (if (exists (tackon wheredir "README"))
  593.       (
  594.          (if (>= osver 39)
  595.             (
  596.                (tooltype
  597.                   (prompt "")
  598.                   (help "")
  599.                   (dest (tackon wheredir "README"))
  600.                   (setdefaulttool "MultiView")
  601.                )
  602.             )
  603.             ; else
  604.             (
  605.                (tooltype
  606.                   (prompt "")
  607.                   (help "")
  608.                   (dest (tackon wheredir "README"))
  609.                   (setdefaulttool "More")
  610.                )
  611.             )
  612.          )
  613.       )
  614.    )
  615.  
  616.    ;(set norexxmast (run "sys:rexxc/tcc"))
  617.    ;
  618.    (set runrexxmast 0)
  619.    ;(if norexxmast
  620.    ;   (
  621.    ;      ; Ask expert user if he wants to run RexxMast
  622.    ;      (set runrexxmast 1)
  623.    ;      (if (> @user-level 1)
  624.    ;         (set runrexxmast
  625.    ;            (askbool
  626.    ;               (prompt "The RexxMast server software is not currently running.  "
  627.    ;                       "Would you like to start RexxMast automatically at each reboot?" )
  628.    ;               (help "ImageFX requires the RexxMast software to be running before you "
  629.    ;                     "can use any Arexx programs.")
  630.    ;               (default 1)
  631.    ;            )
  632.    ;         )
  633.    ;      )
  634.    ;   )
  635.    ;)
  636.  
  637.    (set defaultcmds
  638.       (cat
  639.          ("Assign \"%ls:\" \"%ls\"\n" theassign wheredir)
  640.          ("Assign \"%ls:\" \"%ls\"\n" theassign2 (cat theassign ":Tools"))
  641.          ("Assign \"%ls:\" \"%ls\"\n" theassign3 (cat theassign ":Help"))
  642.          ("Assign \"%ls:\" \"%ls\"" theassign4 (cat theassign ":Support/Def/Defaults"))
  643.       )
  644.    )
  645.  
  646.    (if runrexxmast
  647.       (
  648.          (set cmds (cat defaultcmds "\nRexxMast >NIL: <NIL:"))
  649.          (run "sys:rexxc/RexxMast")    ; run it now, too.
  650.       )
  651.       ; else
  652.       (
  653.          (set cmds defaultcmds)
  654.       )
  655.    )
  656.  
  657.    (onerror
  658.       (message
  659.          "Cannot update your user-startup file (this is probably because of some "
  660.          "non-standard modifications that were made to the file).  You will "
  661.          "need to add the following commands to `s:user-startup' manually:\n" cmds
  662.       )
  663.    )
  664.  
  665.    (startup "Aladdin 4D"
  666.       (prompt
  667.          "Do you want to add the following commands to your "
  668.          "user-startup file?\n" cmds
  669.       )
  670.       (help @startup-help)
  671.       (command cmds)
  672.    )
  673.  
  674.    ; fix up amigaguide path (not necessary?)
  675.  
  676.    ;(if (= 0 writeover)
  677.    ;   (
  678.    ;
  679.    ;      (set setupagpath 1)
  680.    ;      (if (> @user-level 1)
  681.    ;         (set setupagpath
  682.    ;            (askbool
  683.    ;               (prompt "The installation will now add a line to ENV:AmigaGuide/Path.")
  684.    ;               (help "This is sometimes needed to allow AmigaGuide help to find ImageFX's help files.")
  685.    ;               (choices "Proceed" "Skip This Part")
  686.    ;               (default 1)
  687.    ;            )
  688.    ;         )
  689.    ;      )
  690.    ;
  691.    ;      (if setupagpath
  692.    ;         (
  693.    ;
  694.    ;            (if (= 0 (exists "ENV:AmigaGuide/Path"))
  695.    ;               (
  696.    ;                  (makedir "ENV:AmigaGuide")
  697.    ;                  (textfile
  698.    ;                     (dest "ENV:AmigaGuide/Path")
  699.    ;                     (help "")
  700.    ;                     (prompt "")
  701.    ;                     (append ("\"%ls:Help\"" theassign))
  702.    ;                  )
  703.    ;               )
  704.    ;               ; else
  705.    ;               (
  706.    ;                  (textfile
  707.    ;                     (dest "RAM:temp_ag_path")
  708.    ;                     (help "")
  709.    ;                     (prompt "")
  710.    ;                     (include "ENV:AmigaGuide/Path")
  711.    ;                     (append ("\n\"%ls:Help\"" theassign))
  712.    ;                  )
  713.    ;                  (copyfiles
  714.    ;                     (prompt "")
  715.    ;                     (help "")
  716.    ;                     (source "RAM:temp_ag_path")
  717.    ;                     (dest "ENV:AmigaGuide")
  718.    ;                     (newname "Path")
  719.    ;                  )
  720.    ;               )
  721.    ;            )
  722.    ;            (copyfiles
  723.    ;               (prompt "")
  724.    ;               (help "")
  725.    ;               (source "ENV:AmigaGuide")
  726.    ;               (dest "ENVARC:AmigaGuide")
  727.    ;               (all)
  728.    ;            )
  729.    ;            (delete "RAM:temp_ag_path")
  730.    ;
  731.    ;         )
  732.    ;      )
  733.    ;
  734.    ;   )
  735.    ;)
  736.  
  737.    (if (>= osver 39)
  738.       (
  739.          ; remove any existing alad.library from memory if we can...
  740.          (run "avail flush")
  741.       )
  742.    )
  743.  
  744.    ; make necessary assigns so we can run the program right away...
  745.    (makeassign theassign wheredir)
  746.    (makeassign theassign2 (tackon wheredir "Tools"))
  747.    (makeassign theassign3 (tackon wheredir "Help"))
  748.    (makeassign theassign4 (tackon wheredir "Support/Def/Defaults"))
  749.  
  750.    ; Get rid of the old "Aladdin 4D V5" section -- it's obsolete now.
  751.    ; I wish there was a better way to do this.  Maybe I'll write a program
  752.    ; someday to sniff out and delete sections from user-startup.
  753.    ;(startup "Aladdin 4D V5"
  754.    ;   (prompt "")
  755.    ;   (help "")
  756.    ;   (command "")
  757.    ;)
  758.  
  759.    (complete 100)
  760.  
  761.    (message "Please be sure to fill out and return your registration card!  "
  762.             "Note that the program serial number can be found on the label "
  763.             "of disk 1.")
  764.  
  765.    ; Installation complete!
  766. )
  767.  
  768. ;-----------------------------------------------------------------------
  769. ; Revision History:
  770. ;
  771. ;  07.07.96 tek
  772. ;     Cleaned up for beta release attempt.
  773. ;
  774. ;  30.07.96 tek
  775. ;     Cleaned up for another beta release attempt.
  776. ;
  777. ;  09.08.96 tek
  778. ;     I think fixed the problem with makeassign.  Moved them to the very
  779. ;     end anyway in case of problems.
  780. ;
  781. ;  13.08.96 tek
  782. ;     Cleaned up library installation.  Added reqtools.library for OS 2.04 users.
  783. ;
  784. ;  27.07.97 tek
  785. ;     Moved help files to disk 3.
  786. ;
  787.