mIRC Scripting: Auto identify script

[Sponz]

Alias Ident { 
  If (!$Dialog(Ident)) { Dialog -m Ident Ident }
  Else { Echo -a ***14,1(4Auto Ident Is already Running14)*** }
}
Menu Channel {
  Ident: Ident
}
dialog Ident {
  title "Auto Ident"
  size -1 -1 166 84
  option dbu
  box "Password 1", 1, 1 14 106 27
  edit "", 2, 4 24 94 10, pass autohs
  box "Password 2", 3, 1 42 106 27
  edit "", 4, 4 53 94 10, pass autohs
  check "Chatspace", 5, 110 19 50 8
  check "iRCD", 6, 110 30 50 8
  check "Chatspace", 7, 110 47 50 8
  check "iRCD", 8, 109 58 50 8
  button "Set", 9, 2 70 76 12
  button "Finished", 10, 87 70 76 12
  radio "Auto Identify On", 11, 16 4 58 8
  radio "Auto Identify Off", 12, 84 4 65 8
}
On *:Dialog:Ident:*:*:{
  If ($devent == Init) {
    If (%AutoPass1 == Cs) { Did -c $dname 5 }
    If (%AutoPass1 == IRC) { Did -c $dname 6 }
    If (%AutoPass2 == CS) { Did -c $dname 7 }
    If (%AutoPass2 == IRC) { Did -c $dname 8 }
    If (%AutoId == On) { Did -c $dname 11 }
    If (%AutoId == Off) { Did -c $dname 12 }
    Did -a $dname 2 %AutoPass1.Pass
    Did -a $dname 4 %AutoPass2.Pass
  }
  If ($devent == Sclick) {
    If ($did = 5) { Set %AutoPass1 CS | Did -u $dname 6 }
    If ($did = 6) { Set %AutoPass1 IRC | Did -u $dname 5 }
    If ($did = 7) { Set %AutoPass2 CS | Did -u $dname 8 }
    If ($did = 8) { Set %AutoPass2 IRC | Did -u $dname 7 }
    If ($did = 9) { Set %AutoPass1.Pass $did(2) | Set %AutoPass2.Pass $did(4) }
    If ($did = 10) { Dialog -x $dname $dname }
    If ($did = 11) { Set %AutoId On }
    If ($did = 12) { Set %AutoId Off }
  }
}
Raw 512:*:{ 
  If (%AutoId == On) {
  If (%AutoPass1 == CS) { Pass %AutoPass1.Pass }
  If (%AutoPass2 == CS) { Pass %AutoPass2.Pass }
}
}
On *:Notice:*:*:{
  If (%AutoId == On) { 
If ($nick == Nickserv) && (Identify Isin $Strip($1-)) {
    If (%AutoPass1 == IRC) { Msg Nickserv Identify %AutoPass1.Pass }
    If (%AutoPass2 == IRC) { Msg Nickserv Identify %AutoPass2.Pass }
  }
}
}

Credits: D34th