egghelp/eggheads community

+v

2003-07-03T18:55:12-04:00

Ok got it thanks!

Statistics: Posted by Guest — Thu Jul 03, 2003 6:55 pm

+v

2003-07-02T17:18:00-04:00

I'm not sure what some of the lines does esp these few lines.

Code:

scan $cNv(msgs:time) %i:%i num sec    lappend cNv($c,$u) [expr {[clock seconds]+$sec}]    if {[llength $cNv($c,$u)]>=$num} {       set ts $cNv($c,$u); set cNv($c,$u) {}       foreach ts $ts {          if {$ts>[clock seconds]} {lappend cNv($c,$u) $ts}       }

The scan extracts the integers from the string stored in the variable and put them into 'num' and 'sec' for easy access later in the script.

The concept of the counting mechanism is a list of timestamps of when people say something in the channel..if the length of this list becomes >= the voice threshold you specified the values in this list is further investigated. Values that have expired are deleted. (or rather..all values are deleted and only the non-expired ones are added back)

Statistics: Posted by user — Wed Jul 02, 2003 5:18 pm

+v

2003-07-02T17:12:53-04:00

if I'm going to make the bot not to +v users that are on certain channel (ban channel that the bot is not in) should i add these?

If your bot is not on the channel, 'onchan' won't work. The only way to find out is by doing a /whois on the user and that would be an entirely different matter. This can't be done on-the-fly inside the cNv proc because you have to send the whois request and then wait for the response from the irc server. The best thing would be to add a whois proc that does /whois on the last joiners on a set time interval then check if they're in the banned channel(s) and exempt them from voicing some how.

Statistics: Posted by user — Wed Jul 02, 2003 5:12 pm

+v

2003-07-02T17:02:31-04:00

I think if u add this code:

Code:

if {([string match $c "#chan"])} {return 0}

before the if {[llength.... it should work.

Statistics: Posted by Sir_Fz — Wed Jul 02, 2003 5:02 pm

+v

2003-07-02T14:28:17-04:00

First of all thanks for the code , and yes, I'm not sure what some of the lines does esp these few lines.

Code:

scan $cNv(msgs:time) %i:%i num sec    lappend cNv($c,$u) [expr {[clock seconds]+$sec}]    if {[llength $cNv($c,$u)]>=$num} {       set ts $cNv($c,$u); set cNv($c,$u) {}       foreach ts $ts {          if {$ts>[clock seconds]} {lappend cNv($c,$u) $ts}       }

and if I'm going to make the bot not to +v users that are on certain channel (ban channel that the bot is not in) should i add these?

Code:

if {[isvoice $n $c]||[isop $n $c]||[onchan $n #abc]} return

Statistics: Posted by Guest — Wed Jul 02, 2003 2:28 pm

I was bored...

2003-07-01T21:46:57-04:00

...so if you still need it, here's something to start with
(cNv == count'n'voice )

Code:

set cNv(msgs:time) 5:60bind pubm - "#chan *" cNvproc cNv {n u h c a} {if {[isvoice $n $c]||[isop $n $c]} returnglobal cNvscan $cNv(msgs:time) %i:%i num seclappend cNv($c,$u) [expr {[clock seconds]+$sec}]if {[llength $cNv($c,$u)]>=$num} {set ts $cNv($c,$u); set cNv($c,$u) {}foreach ts $ts {if {$ts>[clock seconds]} {lappend cNv($c,$u) $ts}}if {[llength $cNv($c,$u)]>=$num} {pushmode $c +v $n; unset cNv($c,$u)}}}

Instead of polluting the code with comments I thought I'd let you ask questions to keep me entertained.

Statistics: Posted by user — Tue Jul 01, 2003 9:46 pm

+v

2003-06-27T14:47:03-04:00

Is there any tcl out there that voice users when they say about 5lines of text in under 1 min instead of juz a line.

If there isn't any, what will I need to do? Pls give pointers cos I'm new with this tcl stuff.

Thanks

Statistics: Posted by Guest — Fri Jun 27, 2003 2:47 pm