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

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

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


Revision 1.4 - (hide annotations) (download) (as text)
Mon Nov 5 04:08:28 2001 UTC (17 years, 8 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 fabian 1.3 # action.fix.tcl
2     #
3 fabian 1.2 # Tothwolf 25May1999: cleanup
4     # Tothwolf 04Oct1999: changed proc names slightly
5 fabian 1.3 #
6 guppy 1.4 # $Id: action.fix.tcl,v 1.3 1999/12/21 17:35:07 fabian Exp $
7 segfault 1.1
8 guppy 1.4 # fix for mIRC dcc chat /me's
9 fabian 1.2 bind filt - "\001ACTION *\001" filt:dcc_action
10     proc filt:dcc_action {idx text} {
11 segfault 1.1 return ".me [string trim [join [lrange [split $text] 1 end]] \001]"
12     }
13    
14     # fix for telnet session /me's
15 fabian 1.2 bind filt - "/me *" filt:telnet_action
16     proc filt:telnet_action {idx text} {
17 segfault 1.1 return ".me [join [lrange [split $text] 1 end]]"
18 guppy 1.4 }

webmaster@eggheads.org
ViewVC Help
Powered by ViewVC 1.1.23