[SOLVED] Kick Counter

gasak · Post by **gasak** » Thu Jun 28, 2012 3:23 am

Dear Masters,

I have a huge protection tcl, and i want to add a kick counter on it. Which is it will read the kick counts from a file so that it would be an orderly counts. I tried Sir_Fz suggestion here but its not orderly counts. Different procs then it counts the new one.

Hope you can get what i mean. Thank you very much.

doggo · Post by **doggo** » Thu Jun 28, 2012 5:06 am

i came up with this.. tested a lil bit seems to work ok

Code: Select all

# 28/06/2012
# kickcount function v1.0 for eggdrop
# by doggoo #omgwtfnzbs@EFNET
# http://forum.egghelp.org/viewtopic.php?t=19012
#
# usage:
# just make all your bots KICK msgs look something like this... 
# putserv "KICK $chan $who $reason - kick#: [count:kicks]"
#
# returns:
# -kick [slink] test
# * spunky has kicked [slink] from #omgwtfnzbs (test - kick#: 1) 
# * [slink] (~bob@omgwtfnzbs.com) has joined #omgwtfnzbs
# -kick [slink] test
# * spunky has kicked [slink] from #omgwtfnzbs (test - kick#: 2) 
#
# and so on ect...



proc count:kicks {} { 

set increment_count "/path/to/kickcount.db"

if { ![file exists $increment_count] } { putlog "kickcount.db does not exist.";return }

set open_text [open $increment_count "r"]
set KICKCOUNT [read -nonewline $open_text]
close $open_text
incr KICKCOUNT

set re_open_text [open $increment_count "w"]
puts $re_open_text $KICKCOUNT
close $re_open_text

return $KICKCOUNT

} 

putlog "kickcount function v1.0 loaded"

gasak · Post by **gasak** » Thu Jun 28, 2012 5:16 am

Hi doggoo,

What is the testkick proc for? What i need is the kcount script that will work on every kick done by the TCL.

Please advice.

Thanks

doggo · Post by **doggo** » Thu Jun 28, 2012 5:41 am

you load this function then in all the tcl's that you use to kick, edit the kick lines to look something like this..

Code: Select all

putserv "KICK $chan $who $reason - kick#: [count:kicks]"

cant really help you any more than that without knowing what tcl script you want to count kicks in

gasak · Post by **gasak** » Thu Jun 28, 2012 5:46 am

ok ill give it a whirl. Will notify after whether work or not

gasak · Post by **gasak** » Thu Jun 28, 2012 8:01 am

Hi doggo

It works perfectly

But got some question on the kick database "kickcount.db" Why the way it store the kick count is different?

Its like this

1340884296
1340884305

So its gonna be a huge file when it reach for example more than 100 kicks. I used to have one that works that it would replace the number on the database as the kick done on particular times. So when the kicks done already 100 so inside the data is the number 100, when 105 and it shown 105, and so on. So its always only 1 line inside since it replace the number equal the kicks done.

Hope you can understand

Please advice. Thanks.

Post by **caesar** » Thu Jun 28, 2012 9:33 am

Why not store this info in a user defined channel flag like setudef int kickCount and increment that inside your script upon a kick?

gasak · Post by **gasak** » Thu Jun 28, 2012 10:22 am

caesar wrote:Why not store this info in a user defined channel flag like setudef int kickCount and increment that inside your script upon a kick?

how caesar?

doggo · Post by **doggo** » Thu Jun 28, 2012 12:21 pm

edited script above to do what you want

delete everything out of the kickcount.db and leave just a 0 in there

gasak · Post by **gasak** » Thu Jun 28, 2012 12:35 pm

PERFECT!!

Thanks a lot doggo. You're the man!!

Thank you very much!

Post by **caesar** » Fri Jun 29, 2012 12:27 am

Why do you have to write the kicks count in to a file anyway? You can easily create another kick bind that will monitor and increment the kicks count on a channel made by the bot, like this:

Code: Select all

setudef int kickCount
bind kick * * kick:count

proc kick:count {nick uhost hand chan target reason} {
	if {![isbotnick $nick]} return
	set count [incr [channel get $chan kickCount]]
	channel set $chan kickCount $count
}

then in your script would use something like:

Code: Select all

set count [channel get $chan kickCount]
putserv "KICK $chan $who $reason - kick#: $count"

gasak · Post by **gasak** » Thu Jul 19, 2012 12:21 pm

Hi doggo,

Sorry to bump it again, but i got some minor bugs on the kick count. The counting made is not an order list counted. I put 0 for the first time, but suddenly when the bot kick at the first time its already 13. I try again to make it kick then its correct counting to 14. And after that it jumps again to 21 for the next kick. Please advice about this minor bugs.

Thanks doggo.

Post by **caesar** » Fri Jul 20, 2012 12:27 am

Code: Select all

setudef int kicksCounter

proc kicks:Counter {chan} {
   set count [incr [channel get $chan kicksCounter]]
   channel set $chan kicksCounter $count 
   return $count
}

putlog "kicksCounter function v1.0 loaded"

Here. Now all you have to do is to first enable the kick counter on the channel you wish with .chanset #channel +kicksCounter and instead of:

Code: Select all

putserv "KICK $chan $who $reason - kick#: [count:kicks]"

you would need to pass the channel variable like this:

Code: Select all

putserv "KICK $chan $who $reason - kick #[kicks:Counter $chan]"

and no more reading writing to the disk upon each kick.

gasak · Post by **gasak** » Fri Jul 20, 2012 9:18 am

caesar,

how if afterwards i want to reset the kickcounter from 0 again? What would be the command since it doesnt reading writing into disk?

Thanks.

Post by **caesar** » Sat Jul 21, 2012 12:11 pm

Simple. Just .chanset #channel kicksCounter 0