on *:join:#: {
if ($nick == $me) {
var %systime = $ctime
.timercalltime $+ $chan 1 $calc(3600 - %systime + $floor($calc(%systime / 3600)) * 3600 + 5) calltime $chan
}
}
on *:part:#: {
if ($nick == $me) {
.timercalltime $+ $chan off
}
}
on *:quit: {
if ($nick == $me) {
.timercalltime* off
}
}
on *:disconnect: {
.timercalltime* off
}
alias calltime {
var %systime = $ctime
var %syshour = $left($time(%systime), 2)
msg $1 It is $iif(%syshour == 0, midnight, $iif(%syshour >= 13, $calc(%syshour - 12), $iif(%syshour >= 10, %syshour, $right(%syshour, 1))) o'clock)
.timercalltime $+ $1 1 $calc(3600 - %systime + $floor($calc(%systime / 3600)) * 3600 + 5) calltime $1
}