on voice

[blake]

Help changing to tcl

Code: Select all

on %*:VOICE:#CWCountdown: { mode # -v $vnick }

[username]

Try it:

Code: Select all

bind mode - * onvoice
proc onvoice {nick uhost hand chan mode victim} {
    if {$mode == "+v" && $chan == "#CWCountdown"} {
        putserv "MODE $chan :-v $victim"
    }
}

[nml375]

If you'd only want to catch +v modes, you could also use a more restrictive mask in your binding:

Code: Select all

bind mode - "% +v" yourproc
proc yourproc {nick host handle channel mode {target ""}} {
  set tmp [split $mode]
  if {$target == ""} {
    set target [lindex $tmp 1]
  }
  pushmode $chan -v $target
}

The above code also includes a compability-fix to make it work with older (1.3.17 and older) eggdrops.

If you'd further want to limit the script to a single channel, further retrict your mask:

Code: Select all

bind mode - "#mychan +v" yourproc

This also saves you the issue of the case-sensitive matching done with username's code. You could get around this by using the string compare or string equal commands with the -nocase option though..

[username]

This is much better my code. It will be be a good lesson for me too.