Code: Select all
# peak.tcl
set peakv "23may97"
# Shows the peak usage of a given channel, optionally listing the
# users at that time
#
# Originally: zpeak.tcl
#
# - 10feb97: by zarni <zarni@weirdness.com>
# - 23may97: by Ernst <ernstde@sti.com.br>
# - changed name to "peak"
# - multi-channel support (egg1.0)
# - sorts peak userlist alfabetically
# - added '.peak' to DCC
# - added '.peak reset #channel'
# - added timezone var
# - don't save [ctime [unixtime]] but "[date] at [time] $timezone"
# (because I feel better this way :)
# - changed putserv to puthelp (because thats the way it should be)
# - changed PRIVMSG to NOTICE (because it's a bot) (configurable)
# - some other things I don't remember
#
# -- here you can change some things... ---------------------------------------
# files to be created to store peak info ($peakfile.#channel)
set peakfile ".peakfile"
# timezone your bot sits in
if {![info exists timezone]} {
set timezone "GMT-03"
}
# flag required to use '!peak' in a channel
set pubpeakflag v
# flag required to use '.peak reset'
set resetpeakflag n
# answer to queries via PRIVMSG? (1 = PRIVMSG, 0 = NOTICE)
set peak_privmsg 0
# show the nicks of the users on the channel at the peak time?
# the nicks are always saved so you can toggle at any time.
set shownicks 1
# -- and here comes the script ------------------------------------------------
if {$peak_privmsg} {set peakout "PRIVMSG"} {set peakout "NOTICE"}
# Little proc to compare string ignoring case, used in sorting
proc icompare {arg1 arg2} { return [string compare [string tolower $arg1] [string tolower $arg2]] }
# Loads peak data or resets it
proc load_peak { arg } {
# load_peak #chan - Resets channel
# load_peak reset - Resets all
# load_peak anything else - Loads everything
global peakfile peak timezone
if {[string index $arg 0] == "#"} {
set chanlist [lindex $arg 0]
if {[file exists ${peakfile}.$chanlist]} { file delete ${peakfile}.$chanlist }
} {
set chanlist [channels]
if {[string tolower $arg] == "reset"} {
foreach chan $chanlist {
if {[file exists ${peakfile}.$chan]} { file delete ${peakfile}.$chan }
}
}
}
foreach chan $chanlist {
set chan [string tolower $chan]
if {[file exists ${peakfile}.$chan]} {
set in [open ${peakfile}.$chan r]
set peak(nicks!$chan) [lsort -command icompare [gets $in]]
set peak(peak!$chan) [llength $peak(nicks!$chan)]
set peak(date!$chan) [gets $in]
close $in
} {
set peak(peak!$chan) [llength [chanlist $chan]]
set peak(date!$chan) "[date] at [time] $timezone"
set peak(nicks!$chan) [lsort -command icompare [chanlist $chan]]
}
}
}
# On join, check number of users and save it, if it is a peak
proc join_peak {nick userhost handle channel} {
global peakfile peak timezone
set channel [string tolower $channel]
set onchannel [llength [chanlist $channel]]
if {![info exist peak(peak!$channel)]} {
if {[file exists ${peakfile}.$channel]} {
set in [open ${peakfile}.$channel r]
set peak(nicks!$channel) [lsort -command icompare [gets $in]]
set peak(peak!$channel) [llength $peak(nicks!$channel)]
set peak(date!$channel) [gets $in]
close $in
} {
set peak(peak!$channel) $onchannel
set peak(date!$channel) "[date] at [time] $timezone"
set peak(nicks!$channel) [lsort -command icompare [chanlist $channel]]
}
}
if {$onchannel >= $peak(peak!$channel)} {
set peak(peak!$channel) $onchannel
set peak(date!$channel) "[date] at [time] $timezone"
set peak(nicks!$channel) [lsort -command icompare [chanlist $channel]]
set out [open ${peakfile}.$channel w]
puts $out $peak(nicks!$channel)
puts $out $peak(date!$channel)
close $out
}
}
# Answer to private peak-queries via NOTICEs
proc msg_peak {nick userhost handle args} {
global peak shownicks peakout
set channel [string tolower [lindex $args 0]]
if {$channel == ""} {
puthelp "$peakout $nick :Usage: 'peak <channel>'"
} {
puthelp "$peakout $nick :Peak statistics for $channel."
puthelp "$peakout $nick :Peaked at \002$peak(peak!$channel)\002 users on \002$peak(date!$channel)\002 "
if {$shownicks == 1} {
puthelp "$peakout $nick :Users present: $peak(nicks!$channel)"
}
}
}
# Answer to peak-queries via PUBLIC message
proc pub_peak {nick userhost handle channel args} {
global peak shownicks peakout
set channel [string tolower $channel]
puthelp "$peakout $channel :Peak statistics for $channel."
puthelp "$peakout $channel :Peaked at \002$peak(peak!$channel)\002 users on \002$peak(date!$channel)\002"
if {$shownicks == 1} {
puthelp "$peakout $channel :Users present: $peak(nicks!${channel})"
}
}
# Answer to peak-queries via DCC (or to reset peak data)
proc dcc_peak {hand idx arg} {
global peak shownicks resetpeakflag
set channel [string tolower [lindex $arg 0]]
if {$channel == "reset"} {
if {[matchattr $hand $resetpeakflag]} {
set chan [string tolower [lindex $arg 1]]
if { $chan == "all" } {
putdcc $idx "Reseting all peak statistics."
load_peak reset
return 1
} elseif {[string index $chan 0] == "#"} {
putdcc $idx "Reseting peak statistics for $chan."
load_peak $chan
return 1
} else {
putdcc $idx "Reseting peak statistics for [lindex [console $idx] 0]."
load_peak [lindex [console $idx] 0]
return 1
}
} {
putdcc $idx "You have no access to this."
return 0
}
} {
if {$channel == ""} { set channel [lindex [console $idx] 0] }
if {[lsearch [array names peak] peak!$channel] == -1} {
putdcc $idx "No peak statistics for $channel avaliable."
return 0
} {
putdcc $idx "Peak statistics for $channel."
putdcc $idx "Peaked at $peak(peak!$channel) users on $peak(date!$channel) "
if {$shownicks == 1} {
putdcc $idx "Users present: $peak(nicks!$channel)"
}
return 1
}
}
}
bind join - * join_peak
bind msg - peak msg_peak
bind pub $pubpeakflag !peak pub_peak
bind dcc - peak dcc_peak
# Sets variables when loading
foreach c [channels] {
set chan [string tolower $c]
if {![info exists peak(peak!${chan})]} { set peak(peak!${chan}) 0 }
if {![info exists peak(date!${chan})]} { set peak(date!${chan}) "" }
if {![info exists peak(nicks!${chan})]} { set peak(nicks!${chan}) "" }
}
# Loads current peak statistics for active channels
load_peak load
putlog "- Peak (v$peakv) by zarni and Ernst loaded"
Now, how do I make this one (quite a nice script!) to notice a channel when a new peak record is achieved?
This on records the peak record and persons when the peak was found.... all ok, but I would like a notice when that peak is achieved. Something like:
Peak on #channel with X users on DATE.
Can you help me out?
Greetz
