eggdrop1.6/scripts/action.fix.tcl

# action.fix.tcl
#
# Tothwolf  25May1999: cleanup
# Tothwolf  04Oct1999: changed proc names slightly
#
# $Id$

# fix for mirc dcc chat /me's
bind filt - "\001ACTION *\001" filt:dcc_action
proc filt:dcc_action {idx text} {
  return ".me [string trim [join [lrange [split $text] 1 end]] \001]"
}

# fix for telnet session /me's
bind filt - "/me *" filt:telnet_action
proc filt:telnet_action {idx text} {
  return ".me [join [lrange [split $text] 1 end]]"
}
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