egghelp.org community :: View topic - Peak.tcl with notice when new peak is achieved

[ egghelp.org home | forum home ]

egghelp.org community
Discussion of eggdrop bots, shell accounts and tcl scripts.

FAQ

Memberlist

Usergroups

Profile

Peak.tcl with notice when new peak is achieved

egghelp.org community Forum Index -> Script Support & Releases

View previous topic :: View next topic

Author

Message

Thunderdome
Op

Joined: 15 Mar 2005
Posts: 187

Posted: Sun Apr 10, 2005 10:41 pm Post subject: Peak.tcl with notice when new peak is achieved

Code:

# 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

awyeah
Revered One

Joined: 26 Apr 2004
Posts: 1580
Location: Switzerland

Posted: Mon Apr 11, 2005 2:14 am Post subject:

Replacing this procedure:

Code:

# 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
}
}

To this, by adding an extra line should do it:

Code:

_________________
·awyeah·

==================================
Facebook: jawad@idsia.ch (Jay Dee)
PS: Guys, I don't accept script helps or requests personally anymore.
==================================

Thunderdome
Op

Joined: 15 Mar 2005
Posts: 187

Posted: Mon Apr 11, 2005 11:12 am Post subject:

Hey! Thanks for the quick reply... I don't know much of tCL, but what you wrote makes sense... I even tried touse puthelp instead of putquick, but nothing appears when a peak record is set.. Is there something wrong?

coke
Voice

Joined: 09 Oct 2010
Posts: 7

Posted: Sun Oct 10, 2010 12:36 pm Post subject:

I just tried to use this script and eggdrop says

Code:

[18:18] invalid command name "date"
while executing
"date"
(procedure "load_peak" line 27)
invoked from within
"load_peak load"
(file "scripts/peak.tcl" line 199)
invoked from within
"source scripts/peak.tcl"
(file "eggdrop.conf" line 264)
[18:18] * CONFIG FILE NOT LOADED (NOT FOUND, OR ERROR)

I guess TCL has got updated as the script comes from 1997. Could anyone tell me how to fix this?

I am looking for a peak script that saves nicklist on peak.

Thanks in advance!

username
Op

Joined: 06 Oct 2005
Posts: 196
Location: Russian Federation, Podolsk

Posted: Mon Oct 11, 2010 3:07 am Post subject:

You need to load compat.tcl before peak.tcl _________________ Архив TCL скриптов для ботов Eggdrop/Windrop: http://egghelp.ru/

Display posts from previous:

	egghelp.org community Forum Index -> Script Support & Releases	All times are GMT - 4 Hours
Page 1 of 1

You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum