Op time counter

2013-08-06T07:18:44-04:00

Modifyed this version of mine to look only on channels where +timespent is set and the users have +C channel flag

Code:

#### ++++ Author: MadaliN ### +++ Website: www.Ascenture.ro## +++ TCL Name: TimeSpent# +++ Version: 2.0## Commands:#   /msg BOTNICK timespent activate <$chan>       (local or global owner)#   /msg BOTNICK timespent deactivate <$chan>(local or global owner)#   /msg BOTNICK timespent <$nickname> <$chan>(local or global owner)###### +++ Created: 6/8/2013####bind MSGM - * timespent:msgsetudef flag timespentproc egghelp:timespent {min hour day month year} {global timespent announce noaset list ""foreach chan [channels] {if {[channel get $chan timespent]} {foreach u [chanlist $chan] {if {[matchattr $u -|C $chan] && [isop $u $chan]} {putlog "Found \002$u"set host [lindex [split [getchanhost $u $chan] @] 1]if {![info exists timespent($chan,$host)]} {set timespent($chan,$host) "60 $u"timespent:save} else {set timespent($chan,$host) "[expr [lindex [split $timespent($chan,$host)] 0] + 60] $u"timespent:save}}}}}}proc timespent:msg {nick uhost hand arg} {global timespentif {[lindex [split $arg] 2] != ""} {set chan [lindex [split $arg] 2]set host [lindex [split [getchanhost [lindex [split $arg] 1] $chan] @] 1]}switch -exact -- [lindex [split $arg] 0] {timespent {switch -exact -- [lindex [split $arg] 1] {activate {if {[matchattr $hand n]} {channel set $chan +timespentputserv "PRIVMSG $chan :\002$nick\002 - TIMESPENT script \00312activated\003 succesfully"}}deactivate {if {[matchattr $hand n]} {channel set $chan -timespentputserv "PRIVMSG $chan :\002$nick\002 - TIMESPENT script \00304deactivated\003 succesfully"}}reset {if {[matchattr $hand n]} {unset -nocomplain timespentputserv "PRIVMSG $nick :\002$nick\002 - Timespent with @ was RESET for everyone"}}default {if {[matchattr $hand n]} {if {[string match -nocase "#*" [lindex [split $arg] 2]]} {if {![info exists timespent([lindex [split $arg] 2],$host)]} {putserv "PRIVMSG $nick :\002$nick\002 - Nickname \00303[lindex [split $arg] 1]\003 has no info on \00312[lindex [split $arg] 2]"} else {putserv "PRIVMSG $nick :\002$nick\002 - Nickname \00303[lindex [split $arg] 1]\003 idled with @ on \00312[lindex [split $arg] 2]\003 for \00303[duration [lindex [split $timespent([lindex [split $arg] 2],$host)] 0]]"}}}}}}}}proc timespent:save {} {global timespentset ofile [open timespent w]puts $ofile "array set timespent [list [array get timespent]]"close $ofile}catch {source timespent}putlog "+++ Succesfully loaded: \00312Timpespent TCL Script"

Original script can be found at http://forum.egghelp.org/viewtopic.php?t=19314

Statistics: Posted by Madalin — Tue Aug 06, 2013 7:18 am

Op time counter

2013-08-06T06:06:54-04:00

Hello. I would like to request a script but i dont know how easy it is to make.

The script i need is one that counts how many hours per day/week each of the users that match the +C flag ops in a channel. To make it more clear:

All the ops in my channel let's say #channel have the global +C flag on the bot. I want the script to count how many hours each person has opped in one day and in the week. As for how the bot will give me the hours can it create a webpage or let me know on request by a command i send in pvt?

For example if the report is given by command i type in pvt: !optimes and the bot will respond:

Oper1: Opped today: 1hr 23mins Opped this week: 14hrs 23mins.
Oper2: Opped today: 1hr 23mins Opped this week: 14hrs 23mins.

But please make it look ONLY #channel!!! cause bot sits in many chans irrelevant to #channel or perhaps the ops channel.

I appreciate if anyone takes the time to deal with this request

Statistics: Posted by Cr0ntab — Tue Aug 06, 2013 6:06 am

egghelp/eggheads community

Op time counter

Op time counter