dialog MSID {
  title "Multi-Server Identify"
  size -1 -1 106 91
  option dbu
  tab "Server 1", 1, 0 -2 108 100
  button "Set Nick, Password, and Server", 4, 2 14 102 11, tab 1
  edit "", 10, 5 54 96 10, tab 1 center
  box "Password", 13, 2 68 102 22, tab 1
  box "Server", 22, 2 25 102 21, tab 1
  edit "", 23, 5 33 95 10, tab 1 center
  edit "", 17, 5 76 96 10, tab 1 pass center
  tab "Server 2", 2
  button "Set Nick, Password, and Server", 5, 2 14 102 11, tab 2
  edit "", 11, 5 54 96 10, tab 2 center
  box "Server", 19, 2 25 102 21, tab 2
  box "Password", 20, 2 68 102 22, tab 2
  edit "", 24, 5 33 95 10, tab 2 center
  edit "", 26, 5 76 96 10, tab 2 pass center
  tab "Server 3", 3
  button "Set Nick, Password, and Server", 6, 2 14 102 11, tab 3
  box "Server", 7, 2 25 102 21, tab 3
  edit "", 12, 5 54 96 10, tab 3 center
  box "Password", 21, 2 68 102 22, tab 3
  edit "", 25, 5 33 95 10, tab 3 center
  edit "", 27, 5 76 96 10, tab 3 pass center
  box "NickName", 18, 2 46 102 22
}
on *:dialog:msid:sclick:4:{
  if (did == 4) {
    if (!$did(10) !$did(23) !$did(17) ) 
  }
  else {
    set %msodsvr1 $did(23)
    set %msodnick1 $did(10)
    set %msodpassw1 $did(17)
  }
}
on *:dialog:msid:sclick:5:{
 
  if (did == 5) {
    if (!$did(24) !$did(11) !$did(26) ) 
  }
  else {
    set %msodsvr2 $did(24)
    set %msodnick2 $did(11)
    set %msodpassw2 $did(26)
  }
}
on *:dialog:msid:sclick:6:{
  if (did == 6) {
    if (!$did(25) !$did(27) !$did(12) ) 
  }
  else {
    set %msodsvr3 $did(25)
    set %msodnick3 $did(12)
    set %msodpassw3 $did(27)
  }
}
on *:connect:{
  close -mm
  set %server $server
  if ( %server == %msodsvr1 ) { nick %msodnick1 
  ns identify %msodpassw1 }
  if ( %server == %msodsvr2 ) { nick %msodnick2 
  ns identify %msodpassw2 }
  if ( %server == %msodsvr3 ) { nick %msodnick3 
  ns identify %msodpassw3 }
}
menu * {
  Multi-Server ID
  .Multi-Server ID: dialog -m msid msid 
  .Find Server Name: echo $me The Name Of This Server is ( $server )
}

Commenting Options