####################################################
# What is the minimum access someone needs check ontime?
set ontime(acc) "-|-"
####################################################

bind pub $ontime(acc) "!ontime" ontime:nick

proc ontime:nick { nickname hostname handle channel arguments } {
global ontime
set nickname [lindex [split $arguments] 0]
if {$nickname == ""} {
putquick "PRIVMSG $channel :I need a nick to check it."
return 0
}
if {[string length $nickname] >= "16"} {
putquick "PRIVMSG $channel :Nickname too long."; return
}
putquick "whois $nickname $nickname"
set ::ontimechannel $channel
set ::ontimenickname $nickname
bind RAW - 401 ontime:nosuch
bind RAW - 317 ontime:idle
}

proc ontime:putmsg { channel arguments } {
putquick "PRIVMSG $channel :$arguments"
}

proc ontime:nosuch { from keyword arguments } {
set channel $::ontimechannel
set nickname $::ontimenickname
ontime:putmsg $channel "No such nickname \"$nickname\""
unbind RAW - 401 ontime:nosuch
}

proc ontime:idle { from keyword arguments } {
set channel $::ontimechannel
set nickname $::ontimenickname
set idletime [lindex [split $arguments] 2]
set signon [lindex [split $arguments] 3]
ontime:putmsg $channel "$nickname has been idle for [duration $idletime], signed on [ctime $signon]"
if {$signon >= "1196691738"} {
putserv "PRIVMSG $channel :$nickname have NOT big uptime and deserve flowers."
} else {
putserv "MODE $channel +v $nickname"
putserv "PRIVMSG $channel :$nickname have big uptime and deserve voice. $signon"
}
unbind RAW - 317 ontime:idle
}

putlog "Public ontime script Loaded"

Statistics: Posted by Getodacul — Mon Dec 10, 2007 9:55 am

Statistics: Posted by rosc2112 — Mon Dec 10, 2007 9:00 am