menu @TBC.bp.Connect {
New Ser&ver Window:/server -n
-
Recent Servers
.server info here:noop
.-
.&Clear History:noop
-
$submenu($TBC.bp.ListServers($1))
}
alias TBC.bp.ListServers {
if ($1 == begin) {
var %serverdata = $readini(servers.ini, n, servers, n0)
var %desc = $left($gettok(%serverdata,1,58), $calc($len($gettok(%serverdata,1,58)) - 6))
var %serv = $gettok(%serverdata,2,58)
var %port = $left($gettok(%serverdata,3,58), $calc($len($gettok(%serverdata,3,58)) - 5))
var %group = $gettok(%serverdata,4,58)
return %group $+ $($+($,chr(58)),2) %desc :/server %serv %port
}
if ($1 isnum 1-15) {
var %serverdata = $readini(servers.ini, n, servers, n $+ $1)
var %desc = $left($gettok(%serverdata,1,58), $calc($len($gettok(%serverdata,1,58)) - 6))
var %serv = $gettok(%serverdata,2,58)
var %port = $left($gettok(%serverdata,3,58), $calc($len($gettok(%serverdata,3,58)) - 5))
var %group = $gettok(%serverdata,4,58)
return %group $+ $($+($,chr(58)),2) %desc :/server %serv %port
}
}