/[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.3 - (show annotations) (download) (as text)
Tue Dec 21 17:35:07 1999 UTC (19 years, 9 months ago) by fabian
Branch: MAIN
CVS Tags: eggdrop105020, eggdrop10503, eggdrop10403, eggdrop1_6_5, eggdrop105040, eggdrop1_6_6
Changes since 1.2: +4 -0 lines
File MIME type: application/x-tcl
Tothwolf's id-header

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

webmaster@eggheads.org
ViewVC Help
Powered by ViewVC 1.1.23