home *** CD-ROM | disk | FTP | other *** search
/ PC Online 1997 January / PCO0197.ISO / filesbbs / os2 / inadv095.arj / HELLOSCR.CMD < prev    next >
Encoding:
Text File  |  1996-07-04  |  536 b   |  22 lines
  1. /*
  2. **
  3. ** HELLOSCR.CMD - Sample REXX script which is executed from IRC by typing
  4. **                /scr helloscr.cmd <nickname> [text]
  5. */
  6.  
  7. Parse Arg WinHandle WinName OurNick Parm1 Parms
  8.  
  9. if (Parm1 <> '') then do
  10.    if (Parms <> '') then do
  11.       str = "/MSG" Parm1 Parms
  12.    end
  13.    else do
  14.       str = "/MSG" Parm1 "Greetings from" OurNick
  15.    end
  16.    IrcRexxDisplay("Hello message sent to" Parm1, WinHandle);
  17.    IrcRexxCommand(str, WinHandle);
  18. end
  19. else do
  20.    IrcRexxDisplay("*** Missing nickname ***", WinHandle)
  21. end
  22.