on *:join:#: {
if ($nick = $me) {
var %l $nick(#,0)
if (!%l) { return }
var %i 1
while (%i <= %l) {
var %nick $nick(#,%i)
$+(.timercoins.,#,.,%nick) 0 3600 add.pts $+(#,.,%nick)
add.pts $+(#,.,%nick)
inc %i
}
$+(.timercoins.,#,.,$nick) 0 3600 add.pts $+(#,.,$nick)
add.pts $+(#,.,$nick)
}
}