home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format 128 / af128a.adf / NewIcons46.lzx / NewIcons46 / Install / Install_NewIcons < prev    next >
Encoding:
Text File  |  1999-07-14  |  20.3 KB  |  719 lines
  1. ; NewIcons 4.6 Installer Script
  2. ; $Ver: 40.6 (20-Jun-99)
  3. ; Written by Phil Vedovatti
  4. ; Brought to you by Team NewIcons
  5.  
  6. (set @default-dest "SYS:C")
  7.  
  8. (set #wrongversion
  9. (cat "You have an old version of the program 'Installer' "
  10.      "on your Amiga!\n\nThis installation needs at least Installer 42.9,\n\n"
  11.      "available on Aminet (ftp.wustl.edu)"))
  12.  
  13. (set #bad-kick
  14.    (cat "\n\nSorry! You must have Workbench 3.0 or"
  15.         "higher to to use this version."))
  16.  
  17. (set #no-classact
  18.    (cat "\nHmmm!  You don't seem to have the ClassAct 2.0"
  19.         "\nGUI system installed.  You can obtain the"
  20.         "\nlatest ClassAct classes via ftp on the"
  21.         "\nInternet at: \n\n http://www.finale-dev.com."
  22.         "\n\n Installation aborted!"))
  23.  
  24. (set #Help-classact
  25.    (cat "\nThis package requires ClassAct 2.0, which does not"
  26.         "\nappear to be installed on your system.  Select"
  27.         "\n'Continue' to intall the program anyway, or select"
  28.         "\n'Abort' to end the installation."))
  29.  
  30. (set #hello-message
  31.    (cat "\n\nThank you for trying NewIcons 4.6, the revolutionary"
  32.         "\nGraphical User Interface system for the Amiga."
  33.         "\nPlease read the documentation to get the most out"
  34.         "\nof this package.  Nothing will be deleted from your"
  35.         "\nsystem with this installation program.  Your old WB"
  36.         "\nicons will still be there, even though it won't look"
  37.         "\nlike it on your screen.  If you don't understand any"
  38.         "\npart of the installation, click on the \"Help\" gadget"
  39.         "\nfound throughout the installation for more information."
  40.         "\n\nCLICK TO PROCEED"))
  41.  
  42. (set #hello-NIuser
  43.    (cat "\nGreetings current NewIcons user!\n"
  44.         "\nThanks for your continued support for NewIcons."
  45.         "\nPlease check the documentation for the new changes"
  46.         "\nto this version."
  47.         "\n\nIf you don't understand any part of the installation,"
  48.         "\nclick on the \"Help\" gadget found throughout the"
  49.         "\ninstallation for more information."
  50.         "\n\nCLICK TO PROCEED"))
  51.  
  52. (set #welcome-message
  53.    (cat "\nThe NewIcons System ©1993-1999 Team NewIcons"))
  54. (set #install-which
  55.    (cat "\nWhich part(s) of the NewIcons System would"
  56.         "\nyou like to install onto your hard drive?\n"))
  57.  
  58. (set #MEorHE
  59.    (cat "\nYour computer setup allows for installation of one"
  60.         "\nof the more advanced versions of the newicons.library."
  61.         "\n\nWhich version would you prefer to install"
  62.         "\non your system?"
  63.         "\n(Click on 'Help' if you're not sure which to choose.)\n"))
  64.  
  65. (set #MEHEhelp
  66.    (cat "\n\nThe Middle-End library supports an optional dithering"
  67.         "\nmode, useful if you use a Workbench screenmode with"
  68.         "\nfewer colors (e.g. 16 colors or less), and does not"
  69.         "\nsupport the graphics card RTG mode."
  70.         "\n\nThe High End library has the dithering code removed"
  71.         "\nfor additional icon-loading speed, and has an optional"
  72.         "\nRTG mode if you have a graphics card.  If you run"
  73.         "\nyour Workbench in 32 or more colors (AGA), or have a"
  74.         "\ngraphics card, installation of the High End library"
  75.         "\nis recommended."))
  76.  
  77. (set #install-library
  78.    (cat "\n\nInstalling NewIcon.library to LIBS:."))
  79.  
  80. (set #install-library-help
  81.    (cat "\n\nThis library is required to use NewIcons."))
  82.  
  83. (set #install-newicons
  84.    (cat "\n\nCopying the NewIcons executable file"
  85.         "\n and support files to C:"))
  86.  
  87. (set #install-newicons-help
  88.    (cat "\n\nThis section installs NewIcons, InjectBrush"
  89.         "\nPatchOpenWB and ShowNI to your C: directory."))
  90.  
  91. (set #installdrawers
  92.    (cat "\nThe Update Drawers utility allows you to select"
  93.         "\nand install the drawer image of your choice to"
  94.         "\nall subdirectories in a drawer or partition.\n"
  95.         "\nWould you like to update some partitions or"
  96.         "\nsubdirectories with a new drawer image now?"))
  97.  
  98. (set #insdraw-help
  99.    (cat "\nThis part of the installer will execute the"
  100.         "\nUpdate drawers utility, allowing you to install"
  101.         "\nNewIcon drawer images to the drawers and sub-"
  102.         "\ndrawers of the partition or drawer you select."
  103.         "\n\nIt will add a NewIcon drawer image to ALL the"
  104.         "\ndrawer icons in that selected partition or drawer."
  105.         "\n\nIf you are unsure that you want to do this,"
  106.         "\nskip this portion of the installation by"
  107.         "\nselecting NO."))
  108.  
  109. (set #selectdir
  110.    (cat "Select a drawer or partition.  The default drawer"
  111.         "\nimage icon will be installed to all subdirectories"
  112.         "\nof your selection.  The icon of the actual drawer"
  113.         "\nor partition you selected will not be affected."))
  114.  
  115. (set #seldirhelp
  116.    (cat "\nThis part of the installer will let you install"
  117.         "\nthe default drawer NewIcon image to all of the"
  118.         "\nsubdirectories of the drawer or partition you"
  119.         "\nhave selected."
  120.         "\n\nThe actual icon of the selected item (the top"
  121.         "\ndrawer or partition) will not be affected."
  122.         "\n\nIf you are unsure that you want to do this,"
  123.         "\nskip this portion of the installation by leaving"
  124.         "\nthe selection entry blank, and click 'Proceed'."))
  125.  
  126. (set #moredrawers
  127.    (cat "\n\nWould you like to install more drawer images?"
  128.         "\n\nSelect YES to select another drawer or partition."
  129.         "\n\nSelect NO to continue with the remainder of the"
  130.         "\nNewIcons System installation."))
  131.  
  132. (set #moredraw-help
  133.    (cat "\nSelect YES if you would like to add more default"
  134.         "\ndrawer images to all the subdirectories of another"
  135.         "\npartition or drawer."
  136.         "\n\nSelect NO to move on with the remainder of the"
  137.         "\ninstallation process."))
  138.  
  139. (set #installdisk
  140.    (cat "\nThis part of the installer lets you customize the"
  141.         "\ndisk images that appear on the Workbench for your"
  142.         "\nhard drive partitions and other available devices."
  143.         "\nYou will be given several image choices to choose"
  144.         "\nfrom.  Would you like to do this now?"))
  145.  
  146. (set #insdisk-help
  147.    (cat "\nIf you select 'Yes', you will be presented with"
  148.         "\na requester asking you which device you would"
  149.         "\nlike to update with a new disk icon image.  Once"
  150.         "\nyou have selected the device to be updated, you"
  151.         "\nwill be given a choice from several icon images"
  152.         "\nto select as the disk icon image for that chosen"
  153.         "\n\ndevice."
  154.         "\n\n If you do not want to update your disk icons"
  155.         "\nwith a new image now, select 'No' instead."))
  156.  
  157. (set #selectdisk
  158.    (cat "Select a hard disk partition or device.  You will"
  159.         "\nthen be given a choice of icons to select as the"
  160.         "\ndisk icon for that device. All subdirectories,"
  161.         "\files, and other device icons will not be affected."))
  162.  
  163. (set #seldiskhelp
  164.    (cat "\nThis part of the installer will let you install"
  165.         "\nan icon image to be used for the disk icon of"
  166.         "\na selected device (hard disk partition, floppy"
  167.         "\ndisk, ZIP disks, etc."
  168.         "\n\nNo files other than the 'disk.info' file for"
  169.         "\nthat device will be updated."
  170.         "\n\nIf you are unsure that you want to do this,"
  171.         "\nskip this portion of the installation by leaving"
  172.         "\nthe selection entry blank, and click 'Proceed'."))
  173.  
  174. (set #moredisks
  175.    (cat "\n\nWould you like to install more disk images?"
  176.         "\n\nSelect YES to select another device."
  177.         "\n\nSelect NO to continue with the remainder of the"
  178.         "\nNewIcons System installation."))
  179.  
  180. (set #moredisk-help
  181.    (cat "\nSelect YES if you would like to add more default"
  182.         "\ndisk images to selected disk devices."
  183.         "\n\nSelect NO to move on with the remainder of the"
  184.         "\ninstallation process."))
  185.  
  186. (set #install-icons
  187.    (cat "\n\nInstalling the NewIcons icon images to your"
  188.         "\nSYS: partition."
  189.         "\n\nYour old icons will NOT be removed."
  190.         "\n\nNOTE: make sure you have the standard Amiga 'list'"
  191.         "\ncommand in your command path before proceeding."
  192.         "\n\nInstalling may take some time...patience."))
  193.  
  194. (set #install-icons-help
  195.    (cat "\n\nThe new icon images will be embedded in"
  196.         "\nthe tool types of your existing .info"
  197.         "\nfiles.  The tooltype lines will be"
  198.         "\ninvisible once NewIcons is running"
  199.         "\nso operation will be totally transparent"
  200.         "\nto the user."))
  201.  
  202. (set #tools-dest
  203.    (cat "\nWhich drawer would you like the NewIcon"
  204.         "\nmanipulation utilities to be installed?"
  205.         "\nA drawer will NOT be created."))
  206.  
  207. (set #install-prefs
  208.    (cat "\nInstalling NewIconsPrefs to your"
  209.         "\nSys:prefs directory."))
  210.  
  211. (set #install-prefs-help
  212.    (cat "\nUse this program to configure NewIcons!"))
  213.  
  214.  
  215. (set #startup-change
  216.    (cat "\nNewIcons V3.0 and above requires this line in"
  217.         "\nyour user startup to launch it.  Shall I add"
  218.         "\n\n'Run <NIL: >NIL: c:NewIcons'"
  219.         "\n\nto your S:user-startup file?"
  220.         "\n\n(You may need to remove the old line manually"
  221.         "\nif you are updating from v2.0 and didn't originally"
  222.         "\ninstall NewIcons using the Installer utility.)"
  223.         "\n\nIf you are running ScalOS or DirOpus as a workbench"
  224.         "\nreplacement, you should select SKIP."))
  225.  
  226. (set #install-deficons
  227.    (cat "\n\nInstalling the DefIcons daemon to your"
  228.         "\nC: directory, and copying default icons"
  229.         "\nto your Envarc:sys directory."))
  230.  
  231. (set #install-deficons-help
  232.    (cat "\nThis sections installs the Deficons program"
  233.         "\nand copies the required def_icons to your"
  234.         "\nENVARC: directory."))
  235.  
  236. (set #move-olddefs-dir
  237.    (cat "The installer will move your old default"
  238.         "\nicons to another location for safe keeping."
  239.         "\nWhere would you like me to create a directory"
  240.         "\nto put them in?"))
  241.  
  242. (set #move-olddefs-help
  243.    (cat "\nThis section copies your old default icons to"
  244.         "\na safe place instead of overwriting them."
  245.         "\nShould you wish to deinstall Deficons, you"
  246.         "\nWill have them available to restore."))
  247.  
  248. (set #move-olddefs
  249.    (cat "Moving your old default icons to \n"
  250.         destdir))
  251.  
  252. (set #install-envarc
  253.    (cat "\nCopying the default icons and brainfile"
  254.         "\nto ENVARC: so DefIcons can use them.\n"))
  255.  
  256. (set #install-envarc-help
  257.    (cat "\n\nThis section installs the icons that DefIcons"
  258.         "\nwill use to display icon images for files that"
  259.         "\ndon't have icons already attached to them."))
  260.  
  261. (set #startup-deficons
  262.    (cat "\n\nAdding a line to your S:user-Startup file"
  263.         "\nto launch DefIcons whenever the system"
  264.         "\nis booted up."))
  265.  
  266. (set #powb-message
  267.    (cat "\n\nIf you have installed NewIcons, you must "
  268.            "add a line to your S:Startup-Sequence:\n\n"
  269.            "C:PatchOpenWB\n"
  270.            "\nto fix a bug in the 3.x operating system!"
  271.            "\n\n Make sure to place the line after Setpatch"
  272.            "\nand before IPrefs."
  273.            "\n\nMCP users and MCX users using the PatchOpenWB"
  274.            "\noption can skip adding this line."))
  275.  
  276. (set #docs-dest
  277.    (cat "Where would you like the NewIcons Documentation"
  278.         "\nGuide to be installed?"))
  279.  
  280.  
  281. (set #incdir
  282.    (cat "Where would you like the include files to go?"))
  283.  
  284. (set #srcdir
  285.    (cat "Where would you like the example source code"
  286.     "\nto be installed?"))
  287.  
  288. (set #autoddir
  289.    (cat "Where would you like the Autodoc material"
  290.     "\n to be copied to?"))
  291.  
  292. (set #emoddir
  293.    (cat "Where would you like the E modules to be"
  294.         "\ninstalled to?"))
  295.  
  296. (set #exit-message
  297.    (cat "\nPlease reboot your system to fully activate\n"
  298.         "the new NewIcons System, then set your"
  299.         "\npreferences with the Prefs program."
  300.         "\n\n\nWe hope you enjoy this package!"
  301.         "\n\n\nCheck out the NewIcons Web Page at"
  302.         "\nhttp://www.amiganet.org/NewIcons/"))
  303.  
  304.  
  305.  
  306. ; ------------------------------------
  307. ; Check Installer & Kickstart Version
  308. ; ------------------------------------
  309.  
  310. (if (< @installer-version 2752521)
  311.   (
  312.     (message #wrongversion (all))
  313.     (exit (quiet))
  314.   )
  315. )
  316.  
  317.  (if (< (getversion "LIBS:version.library") (* 39 65536))
  318.         (abort #bad-kick)
  319.  )
  320.  
  321.  
  322. ; ------------------------------
  323. ; Check if ClassAct 2.0 installed
  324. ; ------------------------------
  325.  
  326. (if (< (getversion "libs:window.class") (* 42 65536))
  327.    (abort #no-classact)
  328. )
  329.  
  330. ; ------------------------------
  331. ; Greetings, user!
  332. ; ------------------------------
  333.  
  334. (set NIon (run "/c/isnirunning" (safe)))
  335.      (if (> NIon 0)
  336.         (message #hello-NIuser (all))
  337.         (message #hello-message (all))
  338.      )
  339.  
  340. (welcome #welcome-message)
  341.  
  342.  
  343. ; ------------------------------
  344. ; What should I install?
  345. ; ------------------------------
  346.  
  347. (complete 0)
  348. (set InstallOpt
  349.       (askoptions (prompt #install-which)
  350.                   (help @askoptions-help)
  351.                   (choices "NewIcons" "DefIcons" "32 Color Icon Set" "Documentation" "Developer Data")
  352.                   (default 15)
  353.       )
  354. )
  355.  
  356.  
  357. ; ------------------------------
  358. ; Install NewIcon.library
  359. ; ------------------------------
  360.  
  361. (complete 10)
  362.  
  363.   (if (patmatch (database "cpu") "68000|68010")
  364.  
  365.       (copylib
  366.            (source "/libs/LE/newicon.library")
  367.            (dest "libs:")
  368.            (prompt #install-library)
  369.            (help #install-library-help)
  370.            (confirm)
  371.       )
  372.  
  373.      ((set name
  374.            (askchoice
  375.                 (prompt #MEorHE)
  376.                 (help #MEHEhelp)
  377.                 (choices "Middle-End library" "High End library")
  378.                 (if (patmatch (database "chiprev") "AA")
  379.                      (default 1)
  380.                      (default 0)
  381.                 )
  382.            )
  383.       )
  384.  
  385.       (if (= name 0)
  386.            (copylib
  387.                 (source "/libs/ME/newicon.library")
  388.                 (dest "libs:")
  389.                 (prompt #install-library)
  390.                 (help #install-library-help)
  391.                 (confirm)
  392.            )
  393.  
  394.  
  395.  
  396.            (copylib
  397.                 (source "/libs/HE/newicon.library")
  398.                 (dest "libs:")
  399.                 (prompt #install-library)
  400.                 (help #install-library-help)
  401.                 (confirm)
  402.            )
  403.       )
  404.      )
  405.    )
  406.  
  407.  
  408. ;--------------------------------------------------------
  409. ; Install NewIcons and support files
  410. ;--------------------------------------------------------
  411.  
  412. (complete 20)
  413. (if (BITAND InstallOpt 1)
  414.  
  415.   ((copylib
  416.       (prompt #install-newicons)
  417.       (source "/C/NewIcons")
  418.       (dest "c:")
  419.       (help #install-newicons-help)
  420.    )
  421.  
  422.    (copyfiles
  423.       (source "/C/InjectBrush")
  424.       (dest "c:")
  425.    )
  426.  
  427.    (copylib
  428.       (source "/C/PatchOpenWB")
  429.       (dest "c:")
  430.    )
  431.  
  432.    (copylib
  433.       (source "/C/ShowNI")
  434.       (dest "c:")
  435.    )
  436.  
  437.  
  438.    (complete 30)
  439.  
  440.    (set destdir
  441.       (askdir
  442.             (prompt #tools-dest)
  443.             (help @askdir-help)
  444.             (default "Sys:Utilities")
  445.       )
  446.    )
  447.  
  448.    (copyfiles
  449.       (source "/Utilities/CopyNewIcon")
  450.       (dest destdir)
  451.       (infos)
  452.    )
  453.  
  454.    (copyfiles
  455.       (source "/Utilities/CreateDefaultIcon")
  456.       (dest destdir)
  457.       (infos)
  458.    )
  459.  
  460.    (copyfiles
  461.       (source "/Utilities/KillNewIcon")
  462.       (dest destdir)
  463.       (infos)
  464.    )
  465.  
  466.    (copyfiles
  467.       (source "/Utilities/UpdateDrawers")
  468.       (dest destdir)
  469.       (infos)
  470.    )
  471.  
  472.  
  473.    (complete 35)
  474.    (if (OR (AND (= NIon 0) (< (getversion "newicon.library" (resident)) (* 39 65536))) (= NIon 5))
  475.          ((startup "NewIcons"
  476.             (prompt #startup-change)
  477.             (command "Run <NIL: >NIL: c:NewIcons")
  478.             (help @startup-help)
  479.           )
  480.          )
  481.    )
  482.    (complete 40)
  483.  
  484.    (copylib
  485.       (prompt #install-prefs)
  486.       (source "/prefs/NewIconsPrefs")
  487.       (dest "Sys:prefs")
  488.       (help #install-prefs-help)
  489.       (confirm)
  490.       (infos)
  491.    )
  492.  
  493.    (run "/prefs/convertprefs")
  494.  
  495.   )
  496. )
  497.  
  498. ;------------------------------
  499. ;Install Icons
  500. ;------------------------------
  501. (complete 50)
  502. (if (BITAND InstallOpt 4)
  503.   ((set looper
  504.         (askbool
  505.              (prompt #installdrawers)
  506.              (help #insdraw-help)
  507.              (choices "Yes" "No")
  508.         )
  509.    )
  510.         (while (= looper 1)
  511.              (set destdir
  512.                 (askdir
  513.                     (prompt #selectdir)
  514.                     (help #seldirhelp)
  515.                     (disk)
  516.                     (default "")
  517.                 )
  518.              )
  519. ;             (set dirimage
  520.                 (run (cat "/Utilities/UpdateDrawers `/C/ShowNI SELECT drawers/d1.info drawers/d2.info drawers/d3.info drawers/d4.info drawers/d5.info drawers/d6.info`" " "destdir)(safe))
  521. ;             )
  522. ;             (working "Updating drawers...")
  523. ;             (run (cat "/Utilities/UpdateDrawers drawers/"dirimage " " destdir) (safe))
  524.              (set looper
  525.                 (askbool
  526.                     (prompt #moredrawers)
  527.                     (help #moredraw-help)
  528.                     (choices "Yes" "No")
  529.                 )
  530.              )
  531.         )
  532.  
  533.    (set looper 0)
  534.    ((set looper
  535.         (askbool
  536.              (prompt #installdisk)
  537.              (help #insdisk-help)
  538.              (choices "Yes" "No")
  539.         )
  540.     )
  541.         (while (= looper 1)
  542.              (set destdisk
  543.                 (askdir
  544.                     (prompt #selectdisk)
  545.                     (help #seldiskhelp)
  546.                     (disk)
  547.                     (default "SYS:")
  548.                 )
  549.              )
  550.              (run (cat "/Utilities/CopyNewIcon `/C/ShowNI SELECT disks/d1.info disks/d2.info disks/d3.info disks/d4.info disks/d5.info disks/d6.info disks/d7.info disks/d8.info`" " "destdisk"disk.info")(safe))
  551.              (set looper
  552.                 (askbool
  553.                     (prompt #moredisks)
  554.                     (help #moredisk-help)
  555.                     (choices "Yes" "No")
  556.                 )
  557.              )
  558.         )
  559.    )
  560.  
  561.      (message #install-icons)
  562.         (if (AND (= NIon 0) (< (getversion "newicon.library" (resident)) (* 39 65536)))
  563.       (run "run <NIL: >NIL: /c/NewIcons")
  564.         )
  565.         (working "Installing the icon set...patience.")
  566.         (execute "Install_Icons"
  567.         (help #install-icons-help)
  568.      )
  569.  
  570.  
  571.   )
  572. )
  573.  
  574. ;------------------------------
  575. ;Install Deficons
  576. ;------------------------------
  577. (complete 70)
  578. (if (BITAND InstallOpt 2)
  579.  
  580.  
  581.   ((set destdir
  582.       (askdir
  583.            (prompt #move-olddefs-dir)
  584.            (help #move-olddefs-help)
  585.            (default "Sys:Storage")
  586.       )
  587.    )
  588.  
  589.    (set destdir
  590.       (tackon destdir "Old_Def_icons")
  591.    )
  592.  
  593.    (makedir destdir
  594.    )
  595.  
  596.    (complete 80)
  597.  
  598.    (copyfiles
  599.       (prompt #move-olddefs)
  600.       (source "Envarc:sys")
  601.       (dest destdir)
  602.       (pattern "def#?")
  603.       (help #move-olddefs-help)
  604.    )
  605.  
  606.    (copylib
  607.       (prompt #install-deficons)
  608.       (source "/C/DefIcons")
  609.       (dest "C:")
  610.       (help #install-deficons-help)
  611.       (confirm)
  612.    )
  613.  
  614.    (copyfiles
  615.       (prompt #install-envarc)
  616.       (source "/envarc")
  617.       (dest "ENVARC:")
  618.       (all)
  619.       (infos)
  620.       (help #install-envarc-help)
  621.    )
  622.  
  623.    (startup "DefIcons"
  624.       (prompt #startup-deficons)
  625.       (command "DefIcons")
  626.       (help @startup-help)
  627.    )
  628.   )
  629. )
  630.  
  631.  
  632. ;------------------------------
  633. ;Install Documentation
  634. ;------------------------------
  635. (complete 90)
  636. (if (BITAND InstallOpt 8)
  637.  
  638.    ((set destdir
  639.       (askdir
  640.             (prompt #docs-dest)
  641.             (help @askdir-help)
  642.             (default "Help:")
  643.       )
  644.     )
  645.     (copyfiles
  646.       (source "/NewIcons.guide")
  647.       (dest destdir)
  648.       (infos)
  649.     )
  650.    )
  651. )
  652.  
  653. ;------------------------------
  654. ;Install Developer Data
  655. ;------------------------------
  656. (complete 95)
  657. (if (BITAND InstallOpt 16)
  658.    ((set destdir
  659.         (askdir
  660.             (prompt #incdir)
  661.             (help @askdir-help)
  662.             (default "include:")
  663.         )
  664.     )
  665.     (copyfiles
  666.         (source "/Developers/Include")
  667.         (dest destdir)
  668.         (all)
  669.     )
  670.     ((set destdir
  671.         (askdir
  672.             (prompt #srcdir)
  673.             (help @askdir-help)
  674.             (default "Work:")
  675.         )
  676.      )
  677.     )
  678.     (copyfiles
  679.         (source "/Developers/Source")
  680.         (dest destdir)
  681.         (all)
  682.     )
  683.     ((set destdir
  684.         (askdir
  685.             (prompt #autoddir)
  686.             (help @askdir-help)
  687.             (default "Work:")
  688.         )
  689.      )
  690.     )
  691.     (copyfiles
  692.         (source "/Developers/Autodocs")
  693.         (dest destdir)
  694.         (all)
  695.     )
  696.     (if (exists "EModules:" (noreq))
  697.        ((set destdir
  698.            (askdir
  699.                (prompt #emoddir)
  700.                (help @askdir-help)
  701.                (default "Emodules:")
  702.            )
  703.         )
  704.        (copyfiles
  705.            (source "/Developers/Emodules")
  706.            (dest destdir)
  707.            (all)
  708.        )
  709.       )
  710.     )
  711.    )
  712. )
  713.  
  714.  
  715. (complete 99)
  716. (message #powb-message (all))
  717. (complete 100)
  718. (message #exit-message (all))
  719. (exit (quiet))