alias botsvlist {
did -r srvkdialog 1
did -b srvkdialog 2
window -h @refserv
if ($isfile(scripts\tmp\readserv.txt)) {
.fopen serv scripts\tmp\readserv.txt
var %title $remove($read(scripts\tmp\readserv.txt,1),$chr(58)),%parm = $iif(%vrange,- [[ %vrange ]],$null)
if ($wd(%bviewlist,1,32) != none) {
if (Bot list* iswmcs %title) { dialog -t srvkdialog %title for $wd(%bviewlist,1,32) %parm }
elseif (Lista de bots* iswmcs %title) { dialog -t srvkdialog %title para o $wd(%bviewlist,1,32) %parm }
else { dialog -t srvkdialog %title %parm }
}
else {
dialog -t srvkdialog %title %parm
}
noop $fread(serv)
while (!$feof) && ($fread(serv) != $null) {
var %v %v $v1
}
.fclose serv
noop $regsubex(%v,/(\S+) (\S+@\S+) ((?:.(?!\S+ \S+@\S+))*)/g,$botsvlistsub(\1,\2,\3))
}
close -@ @refserv
}
alias botsvlistsub {
if ($did(srvkdialog,7).text) {
if (* $+ $did(srvkdialog,7).text $+ * iswm $1-) { did -a srvkdialog 1 + 0 0 0 $1 + 0 0 0 $2 + 0 0 0 $iif($3,$3,n/a) }
}
else {
did -a srvkdialog 1 + 0 0 0 $1 + 0 0 0 $2 + 0 0 0 $iif($3,$3,n/a)
if ($nick($wd(%bviewlist,1,32),$1).pnick) { did -e srvkdialog 3 }
}
}