/[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.1 - (show annotations) (download) (as text)
Mon Sep 13 14:36:18 1999 UTC (20 years, 2 months ago) by segfault
Branch: MAIN
File MIME type: application/x-tcl
Initial commit based off of .29 cvs

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

webmaster@eggheads.org
ViewVC Help
Powered by ViewVC 1.1.23