home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 35 Internet / 35-Internet.zip / ircii30.zip / script / ircprimer < prev    next >
Encoding:
Text File  |  1994-07-30  |  2.9 KB  |  94 lines
  1. # Sample .ircrc script, from the IRCprimer v1.1
  2. # -------------------------------------------------------------------
  3. #    IRCII sample configuration file  (~/.ircrc)  (Nicolas Pioch)
  4. # -------------------------------------------------------------------
  5. # The aim of this file is to shorten all useful commands to 1 letter.
  6.  
  7. ^set DISPLAY off
  8. set NOVICE off
  9. set INPUT_ALIASES off
  10. set AUTO_WHOWAS on
  11. set SHOW_CHANNEL_NAMES on
  12. set SHOW_AWAY_ONCE on
  13.  
  14. # Speeds up ircII display 2 times
  15. set SCROLL_LINES 2
  16.  
  17. # Put Hack notices down under
  18. # Get rid of stupid 2.6 server messages "*** Nick: Channel not found"
  19. on ^SERVER_NOTICE "% \*\*\* Notice -- Hack: *" set status_user Hack: $5-
  20. on ^403 *
  21.  
  22. # Modified killpath script from YeggMan
  23. ALIAS kpath ECHO ### Last received KILL for $nkp.path
  24. ASSIGN nkp.path <empty>
  25. ALIAS nkp.msg ECHO ### $Z -- KILL by $1 for $0 $2-
  26. ALIAS nkp.idx ^ASSIGN FUNCTION_RETURN $({[$RINDEX(! $0)] + 1})
  27. ALIAS nkp.srv ^ASSIGN FUNCTION_RETURN $INDEX(. $MID($nkp.idx($0) 512 $0))
  28. ON ^SERVER_NOTICE "% \*\*\* Notice -- Received KILL*" {
  29.         IF ( nkp.srv($12) > -1 )
  30.             { nkp.msg $8 $10 }
  31.             { nkp.msg $8 $10 $13- }
  32.         ^ASSIGN nkp.path $8-
  33. }
  34.  
  35. # Function to strip the less significant part of an internet hostname
  36. alias userdomain {
  37.   @ function_return = LEFT($INDEX(@ $0) $0)##[@]##MID(${1+INDEX(. $0)} 99 $0)
  38. }
  39.  
  40. # Who is that ?
  41. on ^msg * echo *$0!$userdomain($userhost())* $1-
  42.  
  43. # /w [<nickname>]                        get info on someone
  44. # /q [<nickname>]                        query someone
  45. # /m  <nickname> <text>                  send a message
  46. # /n  <nickname> <text>                  send a notice
  47. # /r <text>                              reply to last message I got
  48. # /a <text>                              followup on my last message
  49.  
  50. alias w whois
  51. alias q query
  52. alias m msg
  53. alias n notice
  54. alias r msg $,
  55. alias a msg $.
  56.  
  57. # /j <channel>                           join a channel
  58. # /l <channel>                           list people in a channel
  59. # /ll                                    list in the current channel
  60. # /i <nickname> [<channel>]              invite someone
  61. # /hop                                   leave the current channel
  62.  
  63. alias j join
  64. alias l who
  65. alias ll who *
  66. alias i invite
  67. alias hop part $C
  68.  
  69. # /o <nickname> [<nickname> <nickname>]  give channel op status
  70. # /d <nickname> [<nickname> <nickname>]  remove channel op status
  71. # /k <nickname>                          kick someone
  72. # /mo [+|-]<modechars>                   change current channel mode
  73.  
  74. alias o mode $C +ooo
  75. alias d mode $C -ooo
  76. alias k kick $C
  77. alias mo mode $C
  78.  
  79. # the "wrong person" alias! /oops <nickname> to resend message to
  80. alias oops {
  81.         ^assign _whoops $B
  82.         msg $. Whooops ! Please ignore, that wasn't meant for you.
  83.         msg $0 $_whoops
  84. }
  85.  
  86. alias unset set -$*
  87. alias unalias alias -$*
  88. alias NickServ msg NickServ@Service.de
  89. alias NoteServ msg NoteServ@Service.de
  90.  
  91. ^set DISPLAY on
  92.  
  93. # -------------------------------------------------------------------
  94.