home *** CD-ROM | disk | FTP | other *** search
/ Merciful 3 / Merciful_Release_3.bin / software / a / ami_irc / amiircv1.0final+keymake.lha / AmIRC10 / Rexx / Leave.AMIRX next >
Text File  |  1996-03-10  |  337b  |  19 lines
  1. /* LEAVE.AMIRX -- Leave a channel with a message
  2. \\ written by Oliver Wagner
  3. //
  4. \\ Put this script in PROGDIR:rexx/ and add this as an alias with the
  5. // command:  "/alias leave /rx leave %p"
  6. \\
  7. */
  8.  
  9. PARSE ARG ARGS
  10. OPTIONS RESULTS
  11.  
  12. if ARGS = "" then do
  13.    "echo P="d2c(27)"b«Error» Usage: LEAVE text"
  14.    exit
  15. end
  16.  
  17. 'say 'ARGS
  18. 'say /!leave'
  19.