Copy/paste in remotes...

Screenshot:

;*****************************************
;*****************************************
;**        Auto Identify  v1.0          **
;**                 By                  **
;**                Grne                 **
;*****************************************
;*****************************************

on *:start: {
  .if (%nickserv.pass == $null) { .dialog -m GIdentify GIdentify | halt }
  .nick %nickserv.nick
  .else { halt }
}
menu channel,nicklist {
  .Auto Identify { .dialog -m GIdentify GIdentify }
}
dialog GIdentify {
  title "Auto Ident by Grne"
  size -1 -1 180 82
  option dbu
  text "Auto Identification", 1, 49 7 97 8, nowrap
  text "Nickname:", 2, 32 29 25 8, nowrap
  text "Password:", 3, 41 40 25 8, nowrap
  link "www.hawkee.com", 4, 59 71 67 8
  button "Cancel", 5, 138 56 37 12, cancel
  button "Save", 6, 98 56 37 12, ok
  edit "", 7, 58 28 53 10, autohs autovs
  edit "", 8, 67 39 61 10, pass autohs
}
on *:dialog:GIdentify:sclick:4: {
  .run http://www.hawkee.com
}
on *:dialog:GIdentify:sclick:6: {
  %nickserv.pass = $encode($did(8).text,m)
  %nickserv.nick = $did(7).text
  $g
}
alias g {
  %nickserv.pass = $encode(%nickserv.pass,n)
}
#nickserv on
on *:notice:please choose a different nick*:?: {
  .if ($nick == Nickserv) {
    .msg nickserv GIdentify  $decode($decode(%nickserv.pass,n),m)
    .echo -a 4You are automatic identified to nickserv.
  }
}
on *:text:please choose a different nick*:?: {
  .if ($nick == Nickserv) {
    .msg nickserv GIdentify $decode($decode(%nickserv.pass,n),m)
    .echo -a 4You are automatic identified to nickserv.
  }
}
#nickserv end