alias wrdnick { .timernick 0 1 dowierd }
alias dowierd {
var %nick.line = 1
var %nick.col = 2
while (%nick.line <= $nick($chan,0)) {
inc %nick.line
set %nick.r $nick($chan,%nick.line)
if (%nick.r == $null) { .timernick off | unset %nick.r | HALT }
cline %nick.col $chan %nick.r
inc %nick.col
if (%nick.col == 14) { var %nick.col = 2 }
}
}
alias stopwrd { .timernick off }