on me:*:join:#:{
var %a = 1, %b = $nick($chan,0)
while %a <= %b {
.hadd -m Time $+($network,.,$chan,.,$nick($chan,%a)) $ctime
inc %a
}
}
on !*:join:#:{
.hadd -m Time $+($network.,.$chan,.,$nick) $ctime
}
on *:text:!uptime:#:{
.notice $nick You have been in $chan for $duration($calc($ctime - $hget(Time,$+($network,.,$chan,.,$nick))))
}
on *:start:{
.scon -at1 init_time $!cid
}
alias -l init_time {
.scid $1
var %a = 1, %b = $chan(0)
while %a <= %b {
var %c = 1, %d = $nick($chan(%a),0)
while %c <= %d {
.hadd -m Time $+($network,.,$chan(%a),.,$nick($chan(%a),%c)) $ctime
inc %c
}
inc %a
}
}