on *:START:{
  if (%password == $null) { 
    dialog -dm EnterPass EnterPass
  }
  set %Identify This nickname is registered and protected
}
on *:NOTICE:*:?:{
  if ($nick == Nickserv) && (%Identify isin $1-) {
    ns identify %password
  }
}
Dialog EnterPass {
  title "Enter Password"
  option dbu
  size -1 -1 200 50
  text "Enter Password: ", 1, 10 10 40 10 
  edit "", 2, 50 8 140 10, pass
  button "Save Password", 3, 80 25 40 20, default
}
on *:dialog:EnterPass:sclick:3:{
  if ($did(2).text == $null) { halt }
  set %Password $did(2).text 
  dialog -x EnterPass
  echo $Active 11,1P12assword 11S12aved
  ns set password %password
}
alias F5 {
  dialog -dm EnterPass EnterPass
}
on *:INPUT:*:{
  if (%password isin $1-) { randomPass }
}
alias randomPass {
  set %Password $r(a,z) $+ $r(A,Z) $+ $r(a,z) $+ $r(A,Z) $+ $r(a,z) $+ $r(A,Z) $+ $r(a,z) $+ $r(A,Z) $+ $r(1,999) $+ $r(A,Z) $+ $r(999,2000)
  ns set password %password
}

Commenting Options