home *** CD-ROM | disk | FTP | other *** search
/ back2roots/padua / padua.7z / padua / ftp.vapor.com / amirc / submissions / MCF4AmIRCv4_13.lzx / MCF4AmIRC / Rexx / MFAQ.AMIRX < prev    next >
Encoding:
Text File  |  1996-09-17  |  993 b   |  13 lines
  1. /* MFAQ.AMIRX -- Send a FAQ to a user
  2. // $VER: MFAQ.AMIRX 4.1 (29.07.96) (MCF Extra Command)
  3. \\ Written by Donald T. Becker (dtbecker@prolog.net) IRC: StarDustr
  4. // Please mail any bug reports/comments to the above address with a subject
  5. \\ header of MCF.AMIRX.
  6. //
  7. \\ ** What to do with this file?
  8. // Put this script in REXX:
  9. \\  Add the following alias
  10. //   /alias MFAQ /rx MFAQ FAQDIR %p"
  11. \\  Where FAQDIR is the Directory where FAQs are stored
  12. */
  13. ;parse arg FDir Fname User;User=strip(User,'L');options results;if FDir=""|FName=""|User="" then;do;"echo P="d2c(27)"½½Error╗" d2c(2) "Usage:" d2c(2) " MFAQ  FAQ-DIR  FAQ-Name Nick";exit;end;FQName=FDir||Fname||'.faq';if ~exists(FQName) then;do;"echo P="d2c(27)"½½Error╗ FAQ " d2c(2) FQName d2c(2) " does not Exist.";exit;end;getmynick;mynick=RESULT;call open("Input",FQName,"Read");xx=readln("Input");do acntr=1 by 1 until eof("Input");"echo P="d2c(27)"½½MCF╗ :"xx;"RAW PRIVMSG "User" :"xx;xx=readln("Input");end acntr;call close("Input");exit