alias tab {
var %tab.chan = #$$1, %x = 1
while (%x <= $nick(%tab.chan,0)) {
if ($left($nick(%tab.chan,%x),1) == %tab.chan) {
%token = $addtok(%token,$fline(%tab.chan,$nick(%tab.chan,%x),1,1),32)
}
inc %x
}
if ($numtok(%token,32) == 1) {
editbox $+($nick(%tab.chan,$gettok(%token,1,32)),:)
}
elseif ($numtok(%token,32) > 1) {
inc %names $calc($gettok(%token,1,32) - 1)
if ($istok(%token,%names,32)) {
editbox $+($nick(%tab.chan,%names),:)
}
if (%names == $gettok(%token,$numtok(%token,32),32)) unset %names
}
}