egghelp/eggheads community

voice trigger

2004-10-09T09:01:40-04:00

My bad.
/me *whacks* himself with a trout.

Replace:
Code:
     pushmode "MODE $chan +v $person" 
with:
Code:
     pushmode $chan +v $person

Cool, it's working perfectly well again! A million thanks to you for ya great help.

Statistics: Posted by Stealthx — Sat Oct 09, 2004 9:01 am

voice trigger

2004-10-09T08:47:15-04:00

My bad.
/me *whacks* himself with a trout.

Replace:

Code:

     pushmode "MODE $chan +v $person"

with:

Code:

     pushmode $chan +v $person

Statistics: Posted by awyeah — Sat Oct 09, 2004 8:47 am

voice trigger

2004-10-09T06:39:35-04:00

Ok, try out the latest coding and got this when I typed .tcl set errorInfo

Tcl: wrong # args: should be "pushmode channel mode ?arg?"
Tcl: while executing
Tcl: "pushmode "MODE $chan +v $person" "
Tcl: (procedure "scan:and:voice" line 12)
Tcl: invoked from within
Tcl: "scan:and:voice $_pub1 $_pub2 $_pub3 $_pub4 $_pub5"

Statistics: Posted by Stealthx — Sat Oct 09, 2004 6:39 am

voice trigger

2004-10-08T07:34:29-04:00

Well you can do that and you would only need to remove some lines in the script.

Code:

bind pub - "!voice" scan:and:voiceproc scan:and:voice {nick uhost hand chan text} { if {([botisop $chan])} {; set oplist [list] putserv "PRIVMSG $chan :Scanning $chan for *!*@*.au users..." foreach user [chanlist $chan] {  if {([string match "*.au" [lindex [split [getchanhost $user $chan] "@"] 1]]) && (![isvoice $user $chan])} {    lappend oplist $user } }   putserv "PRIVMSG $chan :Scanning complete."    if {([llength $oplist] == 0)} { putserv "PRIVMSG $chan :No users matching *!*@.au found in $chan."; return 0 }    if {([llength $oplist] >= 1)} {    putserv "PRIVMSG $chan :Found '[llength $oplist] users' matching *!*@.au found in $chan."     foreach person $oplist {      pushmode "MODE $chan +v $person"      }; flushmode $chan    }; return 0  }}

Statistics: Posted by awyeah — Fri Oct 08, 2004 7:34 am

voice trigger

2004-10-08T01:40:23-04:00

Plus if you want to voicing all users it is better than voicing 5 users each time, when you type !voice, !voice uptill all users are voiced.

It can be noted that, !voiceall *!*@*.isp.com will voice all people with the matching host, !voice *!*@.isp.com 8 will only voice 8 users matching that host and so on you can make a script according to your needs.

That's a great idea. But how do I edit it from the previous code if I want it to scan the entire channel and voice all within 1 time?

Statistics: Posted by Stealthx — Fri Oct 08, 2004 1:40 am

voice trigger

2004-10-07T21:54:16-04:00

Not a problem. However if you just want to voice users with a certain ips.
You can make a script to perform:

Code:

!voice *!*@.isp.com

Which would be more easier and you woudn't need to edit the script everytime. Plus if you want to voicing all users it is better than voicing 5 users each time, when you type !voice, !voice uptill all users are voiced.

It can be noted that, !voiceall *!*@*.isp.com will voice all people with the matching host, !voice *!*@.isp.com 8 will only voice 8 users matching that host and so on you can make a script according to your needs.

Statistics: Posted by awyeah — Thu Oct 07, 2004 9:54 pm

voice trigger

2004-10-07T21:43:27-04:00

Thank you, awyeah! It's working perfectly now.
Cheers.

Statistics: Posted by Stealthx — Thu Oct 07, 2004 9:43 pm

voice trigger

2004-10-07T03:36:49-04:00

Well, yeah then you would have to check those users, if they aren't already voiced then go ahead make a list, and voice the users in the list. Otherwise it will keep voicing the previous users untill another new user with the same IP joins in the channel and is amongst the first five.

To make it work like that,

replace:

Code:

 if {([string match "*.au" [lindex [split [getchanhost $user $chan] "@"] 1]])} {

with:

Code:

 if {([string match "*.au" [lindex [split [getchanhost $user $chan] "@"] 1]]) && (![isvoice $user $chan])} {

Statistics: Posted by awyeah — Thu Oct 07, 2004 3:36 am

voice trigger

2004-10-07T01:00:56-04:00

Oops, sorry yeah missed a square bracket.
Try this:

Code:

bind pub - "!voice" scan:and:voiceproc scan:and:voice {nick uhost hand chan text} { if {([botisop $chan])} {; set oplist [list] putserv "PRIVMSG $chan :Scanning $chan for *!*@*.au users..." foreach user [chanlist $chan] {  if {([string match "*.au" [lindex [split [getchanhost $user $chan] "@"] 1]])} {   lappend oplist $user }   }   putserv "PRIVMSG $chan :Scanning complete."   if {([llength $oplist] == 0)} { putserv "PRIVMSG $chan :No users matching *!*@.au found"; return 0 }   if {([llength $oplist] > 5)} { putserv "PRIVMSG $chan :Found '5' or more users matching *!*@.au. Voicing the first 5 found."    set oplist [lrange $oplist 0 4] }    putserv "MODE $chan +vvvvv [join $oplist]"; return 0    }}

Thanks awyeah. It's work perfectly fine now. But what's make the TCL uncomplete is that I notice the bot only voice the first 5 of the channel nicklist, and the other users (nick below the first 5) which have *!*@*.au ISP doesn't get a voice after I did a second round of "!voice".

Statistics: Posted by Stealthx — Thu Oct 07, 2004 1:00 am

voice trigger

2004-10-07T00:31:08-04:00

Oops, sorry yeah missed a square bracket.
Try this:

Code:

bind pub - "!voice" scan:and:voiceproc scan:and:voice {nick uhost hand chan text} { if {([botisop $chan])} {; set oplist [list] putserv "PRIVMSG $chan :Scanning $chan for *!*@*.au users..." foreach user [chanlist $chan] {  if {([string match "*.au" [lindex [split [getchanhost $user $chan] "@"] 1]])} {   lappend oplist $user }   }   putserv "PRIVMSG $chan :Scanning complete."   if {([llength $oplist] == 0)} { putserv "PRIVMSG $chan :No users matching *!*@.au found"; return 0 }   if {([llength $oplist] > 5)} { putserv "PRIVMSG $chan :Found '5' or more users matching *!*@.au. Voicing the first 5 found."    set oplist [lrange $oplist 0 4] }    putserv "MODE $chan +vvvvv [join $oplist]"; return 0    }}

Statistics: Posted by awyeah — Thu Oct 07, 2004 12:31 am

voice trigger

2004-10-06T23:27:52-04:00

Code:

putserv "MODE $chan +ooooo [join $oplist]"; return 0

It's +ooooo and not +vvvvv?

When I use the script and type .tcl set errorInfo in my bot DCC chat, it's shows...

Code:

Tcl: syntax error in expression "([llength $oplist] > 5])"Tcl:     ("if" test expression)Tcl:     while compilingTcl: "if {([llength $oplist] > 5])} { set oplist [lrange $oplist 0 4] } "Tcl:     ("if" then script line 9)Tcl:     while compilingTcl: "if {([botisop $chan])} {; set oplist [list] Tcl:  putserv "PRIVMSG $chan :Scanning $chan for *!*@*.sg users..." Tcl:  foreach user [chanlist $chan] { Tcl:   if {(..."Tcl:     (compiling body of proc "scan:and:voice", line 2)Tcl:     invoked from withinTcl: "scan:and:voice $_pub1 $_pub2 $_pub3 $_pub4 $_pub5"

Statistics: Posted by Stealthx — Wed Oct 06, 2004 11:27 pm

voice trigger

2004-10-07T00:30:09-04:00

Here something like this should do it.

Code:

bind pub - "!voice" scan:and:voiceproc scan:and:voice {nick uhost hand chan text} { if {([botisop $chan])} {; set oplist [list] putserv "PRIVMSG $chan :Scanning $chan for *!*@*.au users..." foreach user [chanlist $chan] {  if {([string match "*.au" [lindex [split [getchanhost $user $chan] "@"] 1]])} {   lappend oplist $user }   }   putserv "PRIVMSG $chan :Scanning complete."   if {([llength $oplist] == 0)} { putserv "PRIVMSG $chan :No users matching *!*@.au found"; return 0 }   if {([llength $oplist] > 5])} { set oplist [lrange $oplist 0 4] }    putserv "PRIVMSG $chan :Found '5' or more users matching *!*@.au. Voicing the first 5 found."    putserv "MODE $chan +vvvvv [join $oplist]"; return 0    }}

Statistics: Posted by awyeah — Wed Oct 06, 2004 9:18 pm

voice trigger

2004-10-06T19:56:10-04:00

Is there any available voice tcl that have this function? The user will doa "!voice" and the bot will scan a particular channel nicks for their ending domain (etc. *!*@*.au) and den give all users with ISP domain ending with .au with a voice. It must be able to voice 5 users per trigger.

P.S. I know nuts about TCL coding/scripting!

Please help! Thank you...

Statistics: Posted by Stealthx — Wed Oct 06, 2004 7:56 pm