/[cvs]/eggdrop1.6/scripts/action.fix.tcl
ViewVC logotype

Contents of /eggdrop1.6/scripts/action.fix.tcl

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph


Revision 1.2 - (show annotations) (download) (as text)
Tue Oct 26 21:38:36 1999 UTC (19 years, 8 months ago) by fabian
Branch: MAIN
Changes since 1.1: +6 -5 lines
File MIME type: application/x-tcl
resync 940380771-940924890

1 # Tothwolf 25May1999: cleanup
2 # Tothwolf 04Oct1999: changed proc names slightly
3
4 # fix for mirc dcc chat /me's
5 bind filt - "\001ACTION *\001" filt:dcc_action
6 proc filt:dcc_action {idx text} {
7 return ".me [string trim [join [lrange [split $text] 1 end]] \001]"
8 }
9
10 # fix for telnet session /me's
11 bind filt - "/me *" filt:telnet_action
12 proc filt:telnet_action {idx text} {
13 return ".me [join [lrange [split $text] 1 end]]"
14 }

webmaster@eggheads.org
ViewVC Help
Powered by ViewVC 1.1.23