| View previous topic :: View next topic |
| Author |
Message |
abah
Halfop
Joined: 01 Dec 2013
Posts: 61
Location: Indonesia
|
 Posted: Sun Feb 14, 2016 4:55 am Post subject: chanstas |
 |
|
| Code: | # Statistics.tcl (C) 2004 perpleXa
# type ".chanset <chan> +stat" on the partyline to ativate the script for a specific channel.
# commands: $stat <nick> - shows information about you or a nick. (works only for other nicks when you are op on a channel)
# $top10 <smilies|words|lines|letters> - shows the top10 chatters, default option is words
# $top20 <smilies|words|lines|letters> - same as $top10 but with places 11-20
namespace eval statistics {
# Storage file
variable storage {scripts/dbase/statistics}
# Kill unused entries after x days
variable killafter 30
# Command trigger
variable trigger {!}
# smiley regex (only touch this, if you really know, what you are doing!)
variable smileyregex {(:|8|;)(-|o)?(>|<|D|O|o|\)|\(|\]|\[|P|p|\||\\|/)}
bind PUB -|- ${trigger}stat [namespace current]::spew
bind PUB -|- ${trigger}top10 [namespace current]::toplist
bind PUB -|- ${trigger}top20 [namespace current]::toplist
bind PUBM -|- * [namespace current]::monitor
bind CTCP -|- ACTION [namespace current]::ctcp
bind EVNT -|- save [namespace current]::save
bind TIME -|- {00 * * * *} [namespace current]::cleanupdb
setudef flag stat
namespace export spew top10 toplist save load monitor
}
proc statistics::ctcp {nickname hostname handle target keyword arguments} {
if {[validchan $target]} {
monitor $nickname $hostname $handle $target $arguments
}
return 0
}
proc statistics::monitor {nickname hostname handle channel arguments} {
variable data
variable smileyregex
if {([isbotnick $nickname]) || (![channel get $channel stat])} {
return 0
}
set hostname [maskhost *!$hostname]
regsub -all -- {\002|\003[\d]{0,2}(,[\d]{0,2})?|\006|\007|\017|\026|\037|\n|\t} $arguments {} arguments
set added(words) [regexp -all -- {\S+} $arguments]
set added(letters) [regexp -all -- {\S} $arguments]
if {[string length $smileyregex] >= 1} {
set added(smilies) [regexp -all -- $smileyregex $arguments]
} else {
set added(smilies) 0
}
if {(![info exists data($channel,$hostname)])} {
set data($channel,$hostname) "0 0 0 0 0 NULL"
}
regexp -- {^(\d+)\s(\d+)\s(\d+)\s(\d+)\s(\d+)\s(\S+)$} $data($channel,$hostname) -> lastseen lines words letters smilies lastnick
incr lines 1
incr words $added(words)
incr letters $added(letters)
incr smilies $added(smilies)
set data($channel,$hostname) "[unixtime] $lines $words $letters $smilies $nickname"
}
proc statistics::spew {nickname hostname handle channel arguments} {
variable data
if {(![channel get $channel stat])} {
return 0
}
if {([isop $nickname $channel]) && ([string length $arguments] >= 1)} {
set target [lindex [clean $arguments] 0]
} else {
set target $nickname
}
if {![onchan $target $channel]} {
putserv "PRIVMSG $channel :\[Statistics - Unknown user \002$target\002\]"
return 0
}
set targethost [maskhost *![getchanhost $target $channel]]
if {[info exists data($channel,$targethost)]} {
regexp -- {^(\d+)\s(\d+)\s(\d+)\s(\d+)\s(\d+)\s(\S+)$} $data($channel,$targethost) -> lastseen lines words letters smilies lastnick
set wpl [round [expr ($words / $lines.)]]
set spl [round [expr ($smilies / $lines.)]]
set lpw [round [expr ($letters / $words.)]]
putserv "PRIVMSG $channel :\[Statistics - \002$target\002 has written \002$lines\002 lines, \002$words\002 ($wpl per line) words and \002$letters\002 ($lpw per word) letters, containing \002$smilies\002 ($spl per line) smilies\]"
} else {
putserv "PRIVMSG $channel :\[Statistics - No valuable information available for \002$target\002\]"
}
}
proc statistics::top {channel number {type ""}} {
variable data
set statistics {}
switch $type {
{lines} {set index 1}
{letters} {set index 3}
{smilies} {set index 4}
{default} {set index 2 ; set type "words"}
}
foreach {user stats} [array get data $channel,*] {
set stats [clean $stats]
lappend statistics "[lindex [clean $stats] 5] [lindex $stats $index]"
}
set statistics [lrange [lsort -integer -decreasing -index 1 [lsort -unique -index 0 [lsort -integer -increasing -index 1 $statistics]]] [expr $number - 10] [expr $number - 1]]
if {$statistics == ""} {
return "\[Top$number $type - No valuable information available for \002$channel\002\]"
}
set output "\[Top$number $type -"
for {set i 0} {$i < [llength $statistics]} {incr i 1} {
set item [lindex $statistics $i]
append output "\x20[expr $i+$number-9]: \002[join [lindex [clean $item] 0] { }]\002 ([lindex $item 1])"
}
append output "\]"
return $output
}
proc statistics::toplist {nickname hostname handle channel arguments} {
global lastbind
if {(![channel get $channel stat])} {
return 0
}
set arguments [clean $arguments]
set key [lindex $arguments 0]
if {![regexp -- {^.*?([0-9]+)$} $lastbind -> number]} {
return 0
}
if {![regexp -nocase -- {^(words|letters|smilies|lines|)$} $key]} {
putserv "PRIVMSG $channel :\[Statistics - Unknown option: \002$key\002, valid options are \002letters\002, \002lines\002, \002smilies\002 and \002words\002\]"
return 0
}
putserv "PRIVMSG $channel :[top $channel $number [string tolower $key]]"
}
proc statistics::cleanupdb {args} {
variable killafter
variable data
set killed 0
foreach {item} [array names data] {
set lastseen [lindex [clean $data($item)] 0]
set expire [expr 60 * 60 * 24 * $killafter]
if {[expr [unixtime] - $lastseen] >= $expire} {
incr killed
unset data($item)
}
}
return $killed
}
proc statistics::load {} {
variable data
variable storage
regexp -- {^(\S+/)?.*$} $storage -> directory
if {[string length $directory] >= 1} {
if {![file isdirectory $directory]} {
file mkdir $directory
}
}
if {![file exists $storage]} {
return 0
}
if {[array exists data]} {
array unset data
}
set file [open $storage r]
while {![eof $file]} {
gets $file line
if {[regexp -nocase -- {^channel:(\S+)\sid:(\S+)\svalue:(\d+)\s(\d+)\s(\d+)\s(\d+)\s(\d+)\s(\S+)$} $line -> channel hostname lastseen lines words letters smilies lastnick]} {
set data($channel,$hostname) "$lastseen $lines $words $letters $smilies $lastnick"
}
}
close $file
}
proc statistics::save {args} {
variable data
variable storage
set file [open $storage w]
foreach chan_user [array names data] {
regexp {^(\S+),(\S+)$} $chan_user -> channel user
puts $file "channel:$channel id:$user value:$data($chan_user)"
}
close $file
}
proc statistics::clean {i} {
regsub -all -- \\\\ $i \\\\\\\\ i
regsub -all -- \\\[ $i \\\\\[ i
regsub -all -- \\\] $i \\\\\] i
regsub -all -- \\\} $i \\\\\} i
regsub -all -- \\\{ $i \\\\\{ i
return $i
}
proc statistics::round {num} {
if {![string match "*.*" $num]} {
return $num\.0
}
if {![regexp -- {^(\d+?)\.(\d+)$} $num -> primary secondary]} {
error "syntax error in expression '$num'"
}
set secondary [expr round([string index $secondary 0].[string range $secondary 1 end])]
return [expr {($secondary == 10) ? ($primary+1.0) : "$primary.$secondary"}]
}
statistics::load
putlog "Script loaded: Statistics by perpleXa"
|
i want to use this script but i dont like use .chanset but i like to running automatic without .chanset please help |
|
| Back to top |
|
 |
willyw
Revered One
Joined: 15 Jan 2009
Posts: 1175
|
| Posted: Sun Feb 14, 2016 1:56 pm Post subject: Re: chanstas |
|
|
On one specific channel?
_________________
For a fun (and popular) Trivia game, visit us at: irc.librairc.net #science-fiction . Over 300K Q & A to play in BogusTrivia ! |
|
| Back to top |
|
|
abah
Halfop
Joined: 01 Dec 2013
Posts: 61
Location: Indonesia
|
| Posted: Mon Feb 15, 2016 8:40 am Post subject: Re: chanstas |
|
|
| yes one channel |
|
| Back to top |
|
|
willyw
Revered One
Joined: 15 Jan 2009
Posts: 1175
|
| Posted: Mon Feb 15, 2016 11:46 am Post subject: Re: chanstas |
|
|
One idea that comes to mind :
Find this line in the script:
And insert this line below it:
| Code: |
utimer 3 [list channel set #real_channel_name +stat]
|
substituting in the real channel #name that you want to have
+stat
turned on for you.
There may be better ideas. Keep checking this thread for a while, to see if anyone else posts here.
I hope this helps.
_________________
For a fun (and popular) Trivia game, visit us at: irc.librairc.net #science-fiction . Over 300K Q & A to play in BogusTrivia ! |
|
| Back to top |
|
|
abah
Halfop
Joined: 01 Dec 2013
Posts: 61
Location: Indonesia
|
| Posted: Thu Feb 18, 2016 5:56 am Post subject: Re: chanstas |
|
|
| thanks I've done what is suggested friend when I do command no response |
|
| Back to top |
|
|
willyw
Revered One
Joined: 15 Jan 2009
Posts: 1175
|
| Posted: Thu Feb 18, 2016 8:35 am Post subject: Re: chanstas |
|
|
Do:
.chaninfo #channel
and see the section named
User defined channel flags:
and find stat
Is it +stat or -stat ?
_________________
For a fun (and popular) Trivia game, visit us at: irc.librairc.net #science-fiction . Over 300K Q & A to play in BogusTrivia ! |
|
| Back to top |
|
|
abah
Halfop
Joined: 01 Dec 2013
Posts: 61
Location: Indonesia
|
| Posted: Thu Feb 18, 2016 7:47 pm Post subject: Re: chanstas |
|
|
| willyw wrote: | Do:
.chaninfo #channel
and see the section named
User defined channel flags:
and find stat
Is it +stat or -stat ? |
why I do not want to use the .chanstat #channel + chanstat because I had had difficulties doing / dccchat to his boot so I do not want to use |
|
| Back to top |
|
|
willyw
Revered One
Joined: 15 Jan 2009
Posts: 1175
|
| Posted: Thu Feb 18, 2016 10:02 pm Post subject: Re: chanstas |
|
|
Because you said: "...when I do command no response"
and that would be one of the first things to check.
| Quote: |
I do not want to use the .chanstat #channel + chanstat
...
|
I didn't ask you to do that.
Besides, it is not " + chanstat" .
_________________
For a fun (and popular) Trivia game, visit us at: irc.librairc.net #science-fiction . Over 300K Q & A to play in BogusTrivia ! |
|
| Back to top |
|
|
creasy
Voice
Joined: 05 Mar 2016
Posts: 24
|
| Posted: Thu Jun 02, 2016 7:38 am Post subject: |
|
|
Is there a way to make this script ignore the stats for certain users?
.+ignore-ing those users on the bot doesn't seem to work. |
|
| Back to top |
|
|
willyw
Revered One
Joined: 15 Jan 2009
Posts: 1175
|
| Posted: Thu Jun 02, 2016 9:20 am Post subject: |
|
|
| creasy wrote: | Is there a way to make this script ignore the stats for certain users?
|
Probably.
But start with clarifying what you mean by "certain users".
A list of nicks?
Channel operators?
Users with accounts in bot, with a specific flag?
So what did you have in mind?
See the proc named:
proc statistics::monitor
It already has one section in it, to do some ignoring.
| Code: |
if {([isbotnick $nickname]) || (![channel get $channel stat])} {
return 0
}
|
If the poster was the bot, this proc stops right there. I really don't think this checking is necessary, since the bot doesn't see its own posts anyway, but nevertheless the if check is there.
Or, if the channel has not been set to be monitored, all posts are ignored.... the proc stops right there.
Suppose right below that, you edited in:
| Code: |
if {$nickname eq "creasy"} {
return 0
}
|
Then if you are the poster, proc stops right there.
If you want to work with a list of nicks, or check against user file for a specific flag, or check to see if poster is an op - it would require a little bit more scripting.
But without running the script, I think this is the general idea.
I hope this helps.
| Quote: |
.+ignore-ing those users on the bot doesn't seem to work.
|
Did you make a typo in the hostmask?
Did the ignore expire?
_________________
For a fun (and popular) Trivia game, visit us at: irc.librairc.net #science-fiction . Over 300K Q & A to play in BogusTrivia ! |
|
| Back to top |
|
|
creasy
Voice
Joined: 05 Mar 2016
Posts: 24
|
| Posted: Thu Jun 02, 2016 9:30 am Post subject: |
|
|
| willyw wrote: | | So what did you have in mind? |
I want the bot to ignore a few other bots, which do not have accounts on the bot, so it would record stats from humans only.
| willyw wrote: | Did you make a typo in the hostmask?
Did the ignore expire? |
No they did not expire. I added them permanently as nick!*@* and rehashed the bot.
So, if I modify
| Code: |
if {([isbotnick $nickname]) || (![channel get $channel stat])} {
return 0
}
|
to
| Code: |
if {([isbotnick $nickname]) || ([$nickname eq "nick1"]) || ([$nickname eq "nick2"]) || (![channel get $channel stat])} {
return 0
}
|
it shoud work? |
|
| Back to top |
|
|
willyw
Revered One
Joined: 15 Jan 2009
Posts: 1175
|
| Posted: Thu Jun 02, 2016 10:43 am Post subject: |
|
|
Tried it yet? 
_________________
For a fun (and popular) Trivia game, visit us at: irc.librairc.net #science-fiction . Over 300K Q & A to play in BogusTrivia ! |
|
| Back to top |
|
|
creasy
Voice
Joined: 05 Mar 2016
Posts: 24
|
| Posted: Fri Jun 03, 2016 2:17 am Post subject: |
|
|
| willyw wrote: | | Tried it yet? |
Yes, it does work, but it seems to be ignoring everyone now and I get this error message on the partyline
| Code: | | [06:14:51] Tcl error [::statistics::monitor]: invalid command name "creasy" |
where "creasy" is my irc nick issuing the !stat "nick1" command, and not the nick the bot is ignoring.
And another question, can I use wildcards, like "nick*"? |
|
| Back to top |
|
|
SpiKe^^
Owner
Joined: 12 May 2006
Posts: 792
Location: Tennessee, USA
|
| Posted: Fri Jun 03, 2016 8:10 am Post subject: |
|
|
Fix your if checks like..
($nickname eq "nick1") || ($nickname eq "nick2")
_________________
SpiKe^^
Get BogusTrivia 2.06.4.7 at www.mytclscripts.com
or visit the New Tcl Acrhive at www.tclarchive.org
. |
|
| Back to top |
|
|
willyw
Revered One
Joined: 15 Jan 2009
Posts: 1175
|
| Posted: Fri Jun 03, 2016 8:36 am Post subject: |
|
|
| SpiKe^^ wrote: | Fix your if checks like..
($nickname eq "nick1") || ($nickname eq "nick2") |
ouch... I didn't see the [ ] in there. 
_________________
For a fun (and popular) Trivia game, visit us at: irc.librairc.net #science-fiction . Over 300K Q & A to play in BogusTrivia ! |
|
| Back to top |
|
|
|
FAQ
Search
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
