dialog AID {
  title "Auto-Identify"
  size -1 -1 104 64
  option dbu
  tab "Auto-Identify", 6, -1 -2 109 128
  edit "", 8, 3 14 97 10, tab 6 center
  button "ADD", 9, 5 28 43 12, tab 6 flat
  button "REMOVE", 10, 52 28 44 12, tab 6 flat
  edit "", 11, 3 44 97 10, tab 6 read center
  tab "Other NS stuff", 7
  edit "", 12, 41 15 59 10, tab 7 read
  button "Change Nick", 13, 2 14 37 12, tab 7 flat
  button "Change Pass", 14, 2 36 37 12, tab 7 flat
  text "Made By : Pwnisher3", 15, 4 53 96 8, tab 7 center
  edit "", 16, 41 37 59 10, tab 7 read
}  
on *:dialog:aid:init:*:{
  did -ra aid 12 $me
  did -ra aid 16 %passw
  did -ra aid 11 %a-id
}
on *:dialog:aid:sclick:13:{
  set %nick $$?=" change you nick to?"
  nick %nick
}
on *:dialog:aid:sclick:14:{
  set %passw $$?=" change your password to?"
  ns set password %passw
}
on *:dialog:aid:sclick:*:{
  if (did == 9) {
    if (!$did(8).text || set %a-id $did(8).text) 
  }
  else {
    set %a-id $did(8).text
    did -ra aid 11 %a-id
  }
}    
on *:dialog:aid:sclick:10:{
  unset %a-id
}
on *:dialog:aid:init:*:{
  did -ra aid 11 %a-id
}
on *:connect:{
  ns identify %a-id
  close -mm
}
menu * {
  .A-ID: dialog -m aid aid
}

Commenting Options