alias add.server { 
  if (%aj.servers == $null) {
    set %aj.servers 1
    set %aj.server. [ $+ [ %aj.servers ] ] $$?="Server?"
  }
  else {
    inc %aj.servers 1 
    set %aj.server. [ $+ [ %aj.servers ] ] $$?="Server?"
    set %aj.server.pass. [ $+ [ %aj.servers ] ] $encode($$?="Nickserv Password?")
  }
}
alias remove.server {
  set %rm.server $$?="server?"
  set %x 0
  while (%x <= %aj.servers) {
    inc %x 1
    if (%rm.server isin %aj.server. [ $+ [ %x ] ]) {
      unset %aj.server. [ $+ [ %x ] ]
      unset %aj.server.pass. [ $+ [ %x ] ]
      unset %rm.server
    }
  }
}
alias id {
  set %id.server $server
  set %x 0
  while (%x <= %aj.servers) {
    inc %x 1
    if (%id.server isin %aj.server. [ $+ [ %x ] ]) {
      msg nickserv identify $decode(%aj.server.pass. [ $+ [ %x ] ])
    }
  }
}  
alias connect.servers {
  set %x 0
  while (%x <= %aj.servers) {
    if (%x == 0) {
      inc %x 1
      server %aj.server. [ $+ [ %x ] ]
    }
    else {
      inc %x
      if (%aj.server. [ $+ [ %x ] ] != $null) { 
        server -m %aj.server. [ $+ [ %x ] ]
      } 
    } 
  }
  unset %x
}