If your nickname is registered the login box will pop up.
Great if you hate auto loggers.

Screen shot:

;
; NickServ login box v0.2
; Created by Hrki
;

on *:NOTICE:*:?:{
  if (this nickname is registered isin $1-) && (NickServ == $nick) { login }
  if (password incorrect isin $1-) && (NickServ == $nick) { echo -a 4*** Wrong password! | login }
  if (password accepted isin $1-) && (NickServ == $nick) { echo -a 4*** Password accepted! }
  if (already identified isin $1-) && (NickServ == $nick) { echo -a 4*** You are already identified! }
}

alias -l login { dialog $iif($dialog(si),-v,-m si) si }

dialog si {
  title "NickServ identify"
  size -1 -1 107 61
  option dbu
  text Nickname: $me, 1, 5 7 79 10
  edit , 2, 39 23 55 10, pass autohs
  button Identify, 3, 6 45 37 10, default ok
  button Close, 4, 58 45 37 10, cancel
  text Password:, 5, 5 24 32 10
}

on *:dialog:si:sclick:3:{ if ($server) { if $did(2) { nickserv identify $v1 } | else { echo -a 4*** Blank password?! WTF!!! | halt } } | else echo -a 4*** You are not connected to IRC server! }

;
; EOF
;