Why did you make several while loops when one will do:

alias nets {
  var %ctr = 0, %tot = $scon(0)
  while (%ctr < %tot) {
    inc %ctr
  }
  if ($$1 == n) {
    msg $active 3*14 7Connected To:4 $scon(%ctr).network 7As:4 $scon(%ctr).me $+ 
  }
  elseif ($$1 == c) {
    msg $active 3*14 7Connected To:4 $scon(%ctr).network 8( $+ 7In14 $scon(%ctr).chanz $+ 8) 7As:4 $scon(%ctr).me $+ 
  }
  elseif ($$1 == a) {
    msg $active 3*14 7Connected To:4 $scon(%ctr).network 7As:4 $scon(%ctr).me 7and marked as:4 $iif($scon(%ctr).away == $true,Away,$iif($scon(%ctr).away == $false,Here))  $+ 
  }
  elseif ($$1 == S) { 
    msg $active 3*14 7Connected To:4 $scon(%ctr).server 7As:4 $scon(%ctr).me $+ 
  }
}

Saves you 248 bytes, excluding the chanz alias.