home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 35 Internet / 35-Internet.zip / gtirc306.zip / REXXINIT.CMD < prev    next >
OS/2 REXX Batch file  |  1997-11-24  |  3KB  |  53 lines
  1. /*********************************************************************/
  2. /* REXXINIT.CMD  GammaTech IRC Sample REXX Stand Alone Script        */
  3. /*********************************************************************/
  4. /*                                                                   */
  5. /* This script is supported only on GtIrc version 3.0 and above.     */
  6. /*                                                                   */
  7. /* This is a sample REXX script for use with GammaTech IRC. It is    */
  8. /* executed one time only after the first connection with an IRC     */
  9. /* server. It is executed only one time per execution of GtIrc.      */
  10. /*                                                                   */
  11. /* To activate this script place the script name in the              */
  12. /* Initialization field of the Startup Dialog.                       */
  13. /*                                                                   */
  14. /*********************************************************************/
  15. /*                                                                   */
  16. /* Entry arguments:                                                  */
  17. /*                                                                   */
  18. /* Arg 1 - Window Handle                                             */
  19. /* Arg 2 - Your Nickname                                             */
  20. /* Arg 3 - Window Name                                               */
  21. /* Arg 4 - Command line parameters if any                            */
  22. /*                                                                   */
  23. /*********************************************************************/
  24. /*                                                                   */
  25. /* There are external REXX functions you may use in this REXX        */
  26. /* procedure which are described in the online help under Script     */
  27. /* programming. A summary of those functions is shown below:         */
  28. /*                                                                   */
  29. /* IrcRexxDisplay(text,win)          Display text in a window.       */
  30. /* IrcRexxCommand(text,win)          Send text or /comamnd to IRC    */
  31. /* IrcRexxSend(text,win)             Send raw text to server.        */
  32. /* IrcRexxVariable(win,name[,value]) Query or set an IRC variable.   */
  33. /* IrcRexxWildCard(wildcard,string)  Check for wildcard match.       */
  34. /*                                                                   */
  35. /*********************************************************************/
  36. Parse Arg WinHandle WinName OurNick Parms
  37.  
  38. Pool = 'OS2ENVIRONMENT'
  39.  
  40. /* Set a user defined IRC variable with our first name as it's value */
  41. IrcRexxVariable(WinHandle,"$FirstName","Paul");
  42.  
  43. /* Start a idle timer to execute the auto away script after 15 min.  */
  44. IrcRexxCommand("/Timer idle 900 /rexx rexxaway.cmd",WinHandle)
  45.  
  46. /* Add two custom menu items to the nick list popup menu to give     */
  47. /* and take moderator status for the selected nickname.              */
  48. IrcRexxCommand("/Menu nick +Mod /mode $CHANNELNAME +v $SELECTEDNICK",WinHandle)
  49. IrcRexxCommand("/Menu nick -Mod /mode $CHANNELNAME -v $SELECTEDNICK",WinHandle)
  50.  
  51. Return ""
  52.  
  53.