; HennesScript <NW> NickServ auto-identify|NickServ auto-identify|Automatic NickServ identifying on connect
;

; Recognition identifiers begin
alias hsnw_nickserv.ssf return NickServ auto-identify
alias hsnw__NickServ_auto-identify return hsnw_nickserv.ssf
alias menu_nickserv return 1
; end

alias menu_exp2 if ($prop == run) Xdialog -m DLGnickserv DLGnickserv | else return NickServ identify...

dialog DLGnickserv {
  title "NickServ auto identify"
  size -1 -1 150 86
  option dbu
  tab "General", 5, 3 1 137 69
  text "Password:", 4, 9 30 25 8, tab 5
  edit "password", 2, 40 28 90 10, tab 5 autohs
  edit "nickname", 3, 40 17 90 10, tab 5 autohs
  text "Nickname:", 1, 9 19 26 8, tab 5
  check "Auto identify on connect", 7, 9 55 111 10, tab 5
  tab "Advanced", 6
  text "NickServ identify code:", 10, 7 21 55 8, tab 6
  edit "/nickserv identify @password", 11, 7 34 129 10, tab 6 autohs
  text "@nick = nickname", 12, 8 48 45 8, tab 6
  text "@password = password", 13, 8 56 57 8, tab 6
  button "Done", 8, 56 73 45 12, ok
  button "Cancel", 9, 103 73 45 12, cancel
}

on *:DIALOG:DLGnickserv:init:*:{
  did -ra $dname 3 $Xr(nickserv,nickname)
  did -ra $dname 2 $Xr(nickserv,password)
  if ($Xr(nickserv,enable)) did -c $dname 7
  did -ra $dname 11 $Xr(nickserv,cmdline)
}

on *:DIALOG:DLGnickserv:sclick:8:{
  Xset nickserv nickname $did($dname,3)
  Xset nickserv password $did($dname,2)
  Xset nickserv enable $did($dname,7).state
  Xset nickserv cmdline $did($dname,11)
}

on *:CONNECT: {
  if ($Xr(nickserv,enable)) {
    .nick $Xr(nickserv,nickname)
    var %cmdline = $Xr(nickserv,cmdline)
    var %cmdline = $replace(%cmdline,@nick,$Xr(nickserv,nickname),@password,$Xr(nickserv,password))
    %cmdline
  }
}