Revise paste Bot List

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 }
  }
}