This is my simple server selection list it does have visual effects done by a dll called MDX.dll it will function without the effects to remove the effects remove the following code:

$mdxin
dll $mdx SetMircVersion $version
dll $mdx MarkDialog $dname
dll $mdx SetFont $dname 2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,2220,21,22,23,24, -15 400 Times New Roman
dll $mdx SetDialog $dname BGColor $color(1)
dll $mdx SetColor $dname 1,2,3,4,5,6,7, background $color(1)
dll $mdx SetColor $dname 1,2,3,4,5,6,7, textbg $color(1)
dll $mdx SetColor $dname 1,2,3,4,5,6,7, text $color(15)

Now when you add a server it will not pop up immediatly although it will popup the next time it opens also insure that you type it correctly for instance a alias for lack of better terms will not work
if i want to connect to chatcomplex from it you cannot add "Chatcompex" you must add chat.chatcomplex.com:6667 Insure you put the port else it will not work correcting

Alias Serv { Dialog -m Serv Serv }
dialog Serv {
  title "WraithRIOT Serv list"
  size -1 -1 137 148
  option dbu
  list 1, 2 29 131 105
  edit "", 2, 2 6 131 11
  box "", 3, 0 20 136 111
  box "", 4, 0 0 136 20
  button "Add", 5, 1 134 44 12
  button "Delete", 6, 46 134 44 12
  button "Connect", 7, 91 134 44 12
}
Menu * {
  Serv { Serv }
}
on *:Dialog:Serv:*:*:{
  if ($devent == InIt) {
    $mdxin
    dll $mdx SetMircVersion $version
    dll $mdx MarkDialog $dname
    dll $mdx SetFont $dname 2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,2220,21,22,23,24, -15 400 Times New Roman
    dll $mdx SetDialog $dname BGColor $color(1)
    dll $mdx SetColor $dname 1,2,3,4,5,6,7, background $color(1)
    dll $mdx SetColor $dname 1,2,3,4,5,6,7, textbg $color(1)
    dll $mdx SetColor $dname 1,2,3,4,5,6,7, text $color(15)
    var %Servl = 1
    while (%Servl <= $lines(Serv.txt)) {
      did -a $dname 1 $read(Serv.txt,%Servl))
      inc %Servl   
    }
  }
  if ($devent == sclick) {
    if ($did = 5) {
      Write Serv.txt $did(2)
      if ($did(2) == $read(serv.txt) { Halt | noop $Input(This has already been added) } 
    }
    if ($did = 6) {
      Write -d Serv.txt $did(2).sel
      did -d $dname 1 $did(1).sel Serv.txt
    }
    If ($did = 7) {
      Server -m $Did(1).seltext
    }
  }
  If ($Devent == Dclick) {
    If ($did = 1) {
      Server -m $did(1).seltext 
    }
  }
}