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

1 segfault 1.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