egghelp/eggheads community

Bind dcc - voice

2010-03-08T15:10:23-04:00

nml375: thanks!

Statistics: Posted by TCL_no_TK — Mon Mar 08, 2010 3:10 pm

Bind dcc - voice

2010-03-07T17:47:51-04:00

Thanks dude it's fine

Statistics: Posted by neoclust — Sun Mar 07, 2010 5:47 pm

Bind dcc - voice

2010-03-07T14:25:00-04:00

Tcl_no_tk:
Just a few remarks;
vnicks is a string, not a list. Thus not suitable for use with foreach.
[join [lrange [split $text] end end]] is the same as [lindex [split $text] end], same goes for end-1.
If the last word is not a valid channel, wouldn't this be a nickname to voice then? (add it to the list of nicks to voice)
The console command returns a list, not a string. Don't use split here.

I'd write the script somewhat like this:

Code:

proc dcc:pv {handle idx text} { set list [split $text] if {[validchan [lindex $list end]]} {  set channel [lindex $list end]  set list [lrange $list 0 end-1] } elseif {[validchan [lindex [console $idx] 0]]} {  set channel [lindex [console $idx] 0] } else {  putidx $idx {Usage: +v  [nickname] ... [channel]}  return 1 } if {![botonchan $channel] || ![botisop $channel]} {  putidx $idx "I am currently not a channel operator on $channel" } foreach vnick [lsort -unique $list] {  pushmode $channel +v $vnick }}bind dcc o|o +v dcc:pv

This could be more optimized, but I've kept it like this to make it easier to follow the flow of the code.

Statistics: Posted by nml375 — Sun Mar 07, 2010 2:25 pm

Bind dcc - voice

2010-03-07T09:00:48-04:00

when I forget to put the #channel on the line I get it
(me): .+v angel Fury
((bot): [12:57] Tcl error [dcc:+v]: illegal channel: cryp
it should print some other exception I suppose, Ex: please put the channel name instead of "Tcl error [dcc:+v]: illegal channel: Fury" and
I noticed that the bot does not voice the entire list just one nick
Thanks

Statistics: Posted by neoclust — Sun Mar 07, 2010 9:00 am

Bind dcc - voice

2010-03-07T08:48:47-04:00

Thanks man i made this code but it does not work as it should, thank you filed this procedure I'll test it.

Code:

bind dcc n +v mass:voiceproc mass:voice {hand idx arg} {     set nick1 [lindex $arg 0]     set nick2 [lindex $arg 2]     set nick3 [lindex $arg 3]     set nick4 [lindex $arg 4]     set nick5 [lindex $arg 5]     set nick6 [lindex $arg 6]     set nick7 [lindex $arg 7]     set chan "#chan"     foreach nick [list $nick1 $nick2 $nick3 $nick4 $nick5 $nick6 $nick7] { pushmode $chan +v $nick }}

Statistics: Posted by neoclust — Sun Mar 07, 2010 8:48 am

Bind dcc - voice

2010-03-07T07:17:03-04:00

Code:

 proc dcc:+v {hand idx text} {  set chan [join [lrange [split $text] end end]]  set vnicks [join [lrange [split $text] end-1 end-1]]  if {$vnicks == ""} {   putidx $idx "Usage: +v  \[#channel\]"   return 1  }   if {([regexp {^#} $chan])&&(![validchan "$chan"])} {    if {(![validchan [lindex [split [console $idx]] 0]])} {    putidx $idx "Usage: +v  \[#channel\]"    return 1    } else {     set chan [lindex [split [console $idx]] 0]    }   }    if {![botisop $chan]} {     putidx $idx "Sorry, I'm not a channel operator on $chan"     return 1    }     foreach nicks $vnicks {      pushmode $chan +v $nicks     }      return 1 } bind dcc o|- +v dcc:+v

* Not Tested, any problems please post reply.

Statistics: Posted by TCL_no_TK — Sun Mar 07, 2010 7:17 am

Bind dcc - voice

2010-03-05T07:18:43-04:00

Everything is in the title please i want a script that voice in mass in dcc

ex: .+v nick1 nick2 nick3 nick4 nick5 nick6 #channel

Statistics: Posted by neoclust — Fri Mar 05, 2010 7:18 am