/[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.4 - (show annotations) (download) (as text)
Mon Nov 5 04:08:28 2001 UTC (17 years, 11 months ago) by guppy
Branch: MAIN
Changes since 1.3: +3 -3 lines
File MIME type: application/x-tcl
Wcc is much better at spelling then us

1 # action.fix.tcl
2 #
3 # Tothwolf 25May1999: cleanup
4 # Tothwolf 04Oct1999: changed proc names slightly
5 #
6 # $Id: action.fix.tcl,v 1.3 1999/12/21 17:35:07 fabian Exp $
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