This extends the $network identifier to
act simular to the $server identifier
and also includes a list function.

Example: $network(0)
Returns: Total Number of Networks

Example: $network(1)
Returns: First Networks Name

Example: $network(list)
Returns: Comma separated List of Network Names

Hint: Use $cand($network(list)) together for
use in a sentence. (see my $cand identifier)

alias network {
  var %i 1,%n
  while $scon(%i) {
    scid $v1
    if ($status = connected) %n = $addtok(%n,$network,44)
    inc %i
  }
  if ($1 = 0) %n = $numtok(%n,44)
  elseif ($1 isnum 1- $scon(0)) %n = $gettok(%n,$1,44)
  elseif ($1 != list) %n = ""
  return %n
}