Nickserv system! created by me ;P if you find a bug let me know thanks :)

dialog Nickserv {
  title "Nickserv Dialog"
  size -1 -1 110 127
  option dbu
  edit %NIdentify, 1, 50 86 51 10, pass multi return autohs
  text "Nickserv Identify:", 2, 4 87 45 8
  edit %NRNick, 3, 51 10 50 10, multi return autohs
  edit %NRPass, 4, 51 23 50 10, pass multi return autohs
  box "Nickserv registration:", 5, 3 4 103 56
  text "Nickname Reg:", 6, 9 11 41 8
  edit %NREmail, 7, 51 37 50 10, multi return autohs
  text "Nickname Pass:", 8, 9 25 42 8
  text "Nickserv E-mail:", 9, 10 39 40 8
  button "Register!", 10, 37 48 37 10
  box "Nickserv Identifier:", 11, 3 63 104 50
  edit %NNick, 12, 50 71 51 10, multi return autohs
  text "Nickserv Nick??:", 13, 4 73 45 8
  button "Identify!", 14, 4 100 37 10
  button "Auto ID On", 15, 44 96 60 7
  button "Ok", 16, 3 114 37 12, ok
  text "IWWE's Nickserv dialog made it by charltonj", 17, 44 112 63 14, disable center
  button "Auto ID Off", 18, 45 104 58 7
}
on *:dialog:Nickserv:edit:*: {
  if ($did == 1) { /set %NIdentify $did(nickserv,1) }
  if ($did == 3) { /set %NRNick $did(nickserv,3) }
  if ($did == 4) { /set %NRPass $did(nickserv,4) }
  if ($did == 7) { /set %NREMail $did(nickserv,7) }
  if ($did == 12) { /set %NNick $did(nickserv,12) }

}
on *:dialog:Nickserv:sclick:*: {
  if ($did == 10) { /nick %NRNick | /msg nickserv register %NRPass %NREmail  }
  if ($did == 14) { /msg nickserv identify %Nidentify }
  if ($did == 15) { /set %AID On }
  if ($did == 18) { /set %AID Off }
}
on *:connect:{
  if (%AID == On) {
    /nick %NRNick
    /msg nickserv identify %NIdentify
    halt
  }
}
menu * {
  -
  [Nickserv System]:/dialog -m nickserv nickserv
  -
}