home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 35 Internet / 35-Internet.zip / ircii30.zip / script / troy < prev    next >
Text File  |  1994-07-30  |  7KB  |  210 lines
  1. # This is my .ircrc, put here as an example. This used to be the fnet
  2. # updated for 2.2.2
  3. # script.
  4. #
  5. #        - Troy
  6. # for ircII2.2   the tabkey script is needed in conjunction with this script.
  7.  
  8. set NOVICE off
  9. window level NOTICE,MSG
  10. alias -join
  11. alias -channel
  12. set suppress_server_motd on
  13. set command_mode off
  14. set show_channel_names off
  15. set hold_mode on
  16. alias 437 set TRANSLATION CP437
  17. alias ASC set TRANSLATION ASCII
  18. alias return @ function_return = [$*]
  19. alias GRP2CHAN {
  20.     if ( [A] > [$0] )
  21.         { return $0 }
  22.         { return #$0 }
  23. }
  24. alias CHAN2GRP {
  25.     if ( [#] != [$[1]0] )
  26.         { return $0 }
  27.         { return $MID(1 512 $0) }
  28. }
  29. alias M {
  30.     if ( RMATCH($0 $TROY.BIGMOUTHS) )
  31.         { MSG $0 Copyright 1992 $NAME: $1- }
  32.         { MSG $* }
  33. }
  34. @ TROY.BIGMOUTHS = [Waftam Ireshi]
  35. alias Q QUIT $()
  36. alias HERE WHO * $()
  37. alias ! EXEC $*
  38. alias DISPLAY LASTLOG $*
  39. alias SC MSG $GRP2CHAN($0) $1-
  40. alias BOOT KICK $C $*
  41. alias STATUS STATUS_$0
  42. bind ^W QUOTE_CHARACTER
  43. alias GROUP channel $GRP2CHAN($0)
  44. set CLOCK off
  45. set CONTINUED_LINE       
  46. set SCROLL on
  47. set STATUS_QUERY (Q:%Q)
  48. set STATUS_DQUERY (D:%D)
  49. set STATUS_MAIL (M:%M)
  50. set STATUS_CHANNEL %C
  51. set STATUS_NOTIFY (A:%F)
  52. set STATUS_AWAY (G)
  53. set STATUS_FORMAT *%R* %H%N%*%#%S%B %@%C%+%Q%D %A%M%F%T%W ***
  54. alias w names -min 2
  55. on ^TOPIC * echo [Status] $0 has changed the topic on channel $1 to "$2-"
  56. load columns
  57. ^set display off
  58. load ~/irc/connects
  59. ^set display off
  60. on ^KICK * doonkick $*
  61. on ^SEND_NOTICE * :
  62. #
  63. # The following are channels which regularly exist and are in foreign
  64. # languages. Mask them out completely  - they cause the /w list to be
  65. # too cluttered without telling you anything useful.
  66. #
  67. on ^NAMES #T.P.D : $()
  68. on ^NAMES +Nippon : $()
  69. on ^NAMES 42 : $()
  70. on ^NAMES #Nippon : $()
  71. on ^NAMES #* : $()
  72. on ^NAMES #fj.* : $()
  73.  
  74. # Mask out these things too - Twilight_Zone status messages aren't
  75. # really useful
  76.  
  77. on ^join "* #Twilight_Zone" :
  78. on ^leave "* #Twilight_Zone" :
  79. on ^mode "* #Twilight_Zone" :
  80. on ^channel_nick #Twilight_Zone :
  81. on ^channel_signoff #Twilight_Zone :
  82.  
  83. # window new channel #Twilight_Zone level WALLOPS,OPNOTE,WALLS hide
  84.  
  85. on ^INVITE * echo    [Invite] $0 has invited you to join group $CHAN2GRP($1)
  86. on ^NOTIFY_SIGNON * echo       [Spy] $0 has signed on <$STIME($TIME())>
  87. on ^NOTIFY_SIGNOFF * echo       [Spy] $0 has signed off <$STIME($TIME())>
  88. on ^NOTIFY_CHANGE * echo       [Spy] $0 has changed groups to $CHAN2GRP($1) <$STIME($TIME())>
  89. on ^LEAVE * DO_LEAVE $*
  90. on ^JOIN * DO_JOIN $*
  91. alias DO_JOIN {
  92.     if ( [$0] == N )
  93.         { echo    [Change] You are now in group $CHAN2GRP($1) }
  94.         { echo    [Status] $0 \($USERHOST()) has entered group $CHAN2GRP($1) }
  95. }
  96. alias DO_LEAVE {
  97.     if ( [$0] == N )
  98.         { echo    [Change] You have left group $CHAN2GRP($1) }
  99.         { echo    [Status] $0 has left group $CHAN2GRP($1) }
  100. }
  101. alias DOonKICK {
  102.     if ( [$0] == N )
  103.         { echo    [Change] You have been forcibly removed from group $CHAN2GRP($2) by $1 }
  104.         { echo    [Status] $0 has been forcibly removed from group $CHAN2GRP($2) by $1 }
  105. on ^SIGNOFF * echo   [Signoff] $0 has signed off \($1-)
  106. on ^CHANNEL_SIGNoff * echo   [Signoff] $1 has signed off group $CHAN2GRP($0) \($2-)
  107. }
  108. on ^NICKNAME * echo      [Nick] $0 has changed his or her nickname to $1
  109. on ^CHANNEL_NICK * echo      [Nick] $1 has changed his or her nickname to $2 on group $CHAN2GRP($0)
  110. on ^MODE * echo      [Mode] for $CHAN2GRP($1) changed \($2-) by $0
  111. on ^IDLE 60 away Long gone, by the looks of things
  112. alias PASS MODE $C +o $0
  113. set LASTLOG_LEVEL ALL -CRAP
  114. set HISTORY 20
  115. set LASTLOG 250
  116.  
  117. # This has been revised. Now, instead of rotating the list on tab,
  118. # it seeks through the list. If an entry is used, it is removed from
  119. # its old position and placed at the head of the list. Thus if you
  120. # are currently talking to just two people, it cycles between them
  121. # without having to go back through the entire list.
  122. #
  123. # This has been changed to just load the 'tabkey' script.
  124. load tabkey
  125.  
  126. alias HList nicklist
  127.  
  128. alias NickServ msg NickServ@Service.de $*
  129. alias NoteServ msg NoteServ@Service.de $*
  130. set SHOW_NUMERICS on
  131. # 311 312 313 314 316 317 318 319 353 401 changed for 2.2.2 (server == $0)
  132. on ^481 * echo [Error] You are not moderator of group $CHAN2GRP($1)
  133. on ^403 * echo [Error] There is no group $CHAN2GRP($1)
  134. on ^421 * comm
  135. on ^391 * echo [Info] Date at $0 is $2-
  136. on ^442 * echo [Error] $1 is not in group $CHAN2GRP($0)
  137. on ^401 * echo [Error] $1: No such nickname
  138. on ^311 * echo [Info] $1 is $2@$3 \($5-) on group $CHAN2GRP($4)
  139. on ^312 * echo [Info] Connected to $1 \($2-)
  140. on ^317 * echo [Info] Last command: $2-6
  141. on ^314 * echo [Info] $1 was $2@$3 \($5-)
  142. on ^313 * echo [Info] $1 is an IRC god
  143. on ^316 * echo [Info] $1 is a group moderator
  144. on ^341 * echo    [Invite] Invitation message sent to $0
  145. on ^332 * echo     [Topic] The topic is "$1-"
  146. on ^324 * echo      [Mode] Group mode on $CHAN2GRP($1) is $2-
  147. on ^406 * echo [Error] There was no $1
  148. on ^301 * echo [Info] $0 is away \($1-)
  149. on ^315 "* * End * /WHO *" :
  150. on ^473 * echo [Error] $CHAN2GRP($1): You must have an invitation to enter a restricted group
  151. # The following is now set up as a default because there are people
  152. # on IRC who will attempt to get around a /ignore (IRC's /hush).
  153. # This makes life difficult for such antisocial creatures by neglecting
  154. # to tell them that they are IGNOREd.
  155.  
  156. set SEND_IGNORE_MSG off
  157.  
  158. # The following alias allows you to send a message to a user and WALLOPS at
  159. # the same time. It formats the messages in such a way as to inform each
  160. # side that the message has been sent to the other.
  161.  
  162. alias mw msg $0 !! $1-;wallops -> *$0* $1-
  163.  
  164. # Some binds to make IRC windows look like screen windows
  165. bind meta2-1 PARSE_COMMAND window SWAP 1
  166. bind meta2-2 PARSE_COMMAND window SWAP 2
  167. bind meta2-3 PARSE_COMMAND window SWAP 3
  168. bind meta2-4 PARSE_COMMAND window SWAP 4
  169. bind meta2-5 PARSE_COMMAND window SWAP 5
  170. bind meta2-6 PARSE_COMMAND window SWAP 6
  171. bind meta2-7 PARSE_COMMAND window SWAP 7
  172. bind meta2-8 PARSE_COMMAND window SWAP 8
  173. bind meta2-9 PARSE_COMMAND window SWAP 9
  174. bind meta2-0 PARSE_COMMAND window SWAP 10
  175. bind meta2-^C PARSE_COMMAND window NEW HIDE_OTHERS
  176. bind meta2-^W PARSE_COMMAND window LIST
  177. bind meta2-^M PARSE_COMMAND window NOTIFY
  178. bind meta2-^L REFRESH_SCREEN
  179. bind meta2-, PARSE_COMMAND window SHOW $"Window to preview: "
  180. bind meta2-^H PARSE_COMMAND set LOG TOGGLE
  181. bind meta2-. PARSE_COMMAND window HIDE
  182.  
  183. # And some to give me cursor keys
  184.  
  185. bind meta3-A BACKWARD_HISTORY
  186. bind meta3-B FORWARD_HISTORY
  187. bind meta3-C FORWARD_CHARACTER
  188. bind meta3-D BACKWARD_CHARACTER
  189. bind meta3-H BEGINNING_OF_LINE
  190. bind meta3-K END_OF_LINE
  191. bind meta3-O meta3
  192.  
  193. # And the function keys on my terminal at home
  194.  
  195. bind meta3-P SCROLL_BACKWARD
  196. bind meta3-Q SCROLL_FORWARD
  197. bind meta3-R SCROLL_END
  198. bind meta3-S PARSE_COMMAND JOIN $"Join Channel: "
  199.  
  200. bind meta3-T PARSE_COMMAND KICK $C $"Kick who: "
  201. bind meta3-U PARSE_COMMAND DCC SEND $"Send to: " $"Filename"
  202.  
  203. on ^SERVER_NOTICE "% \*\*\* Notice -- Received KILL *" echo [KILL] $7 by $MID($RINDEX(+! $9) 512 $9) $10- 
  204. on ^SERVER_NOTICE "% \*\*\* Notice -- Received KILL % % % % % Path: *" echo [KILL] $7 by $MID($RINDEX(+! $11) 512 $11) $12- 
  205. on ^SERVER_NOTICE "% \*\*\* Notice -- Hack: *"
  206. on ^DISCONNECT * server 0
  207. set MAIL 2
  208. # End of user inserted commands
  209. #
  210.