Addon oto nick ve oto oper girme addonu

[KaLpSizZz]

harika bir Addondur denedim ben gayet güzel çalışıyor sorunsuzdur .

menu * {
  Oto Şifre Girici :dialog -m sifremm sifremm
}

alias mdx { return $dll(dll\mdx.dll,$1,$2-) }
alias mdx.dll { return $dll(dll\mdx.dll,$1,$2-) }
alias setup.sifremm { dialog -m sifremm sifremm }
on *:LOAD:{
  echo -a 4Otomatik Oper Girisi yüklediğiniz için teşekkür ederiz...
}
#sifre on
;on *:notice:*Nickserv*IDENTIFY*:*: { if ($nick == Nickserv) .dialog -m sifremm sifremm }
#sifre end
alias sifremm { .dialog -m sifremm sifremm }
dialog sifremm {
  title "Otomatik Oper Sifre"
  size -1 -1 130 130
  option dbu
  box , 2, 4 2 122 50
  text " Sifre Gir: ", 3, 10 12 50 10
  text " Nick Degistir:", 4, 10 24 50 10
  edit "", 5, 70 12 50 10, pass autohs
  edit "", 6, 70 24 50 10, autohs
  button "Uygula", 8, 10 38 110 10, ok
  box "", 9, 4 54 122 60
  check "Oto Nick Identify Ac Kapat", 10, 10 60 110 8
  text " Sifre Gir;", 11, 10 70 50 10
  edit "", 12, 70 70 50 10, pass autohs
  check "Oto Oper nick Oper Pass Ac Kapat", 13, 10 82 110 8
  text " Oper Nick Gir;", 14, 10 92 50 8
  text " Oper Pass Gir;", 15, 70 92 50 8
  edit "", 16, 10 102 50 10, flat
  edit "", 17, 70 102 50 10, pass autohs
  button "Tamam", 18, 10 117 110 10, cancel
}
on 1:dialog:sifremm:sclick:*: {
  if ($did(10).state == 1) { .enable #otonick | .disable #sifre } | else { .disable #otonick | .enable #sifre }
  if ($did(13).state == 1) { .enable #operpasta } | else { .disable #operpasta }
  if ($did == 8) { if ($null != $did(6)) .nick $did(6) | .ns identify $did(5)
    else {
      .ns identify $did(5)
    }
  }
}
on 1:dialog:sifremm:*:*:{
  if ($devent == edit) {
    if ($did == 12) { set %oto-nick-sifre $did(12) }
    if ($did == 16) { set %oper-nick $did(16) }
    if ($did == 17) { set %oper-pass $did(17) }
  }
  if ($devent == init) {
    mdx.dll MarkDialog $dname
    mdx.dll SetColor $dname 1,2,3,14,16,18,20,21,22 background $rgb(010,180,255)
    mdx SetColor $dname 1,16,18 textbg $rgb(010,180,255)
    mdx SetDialog [ $dname ] bgcolor $rgb(010,180,255)
    idset
    if ($group(#otonick) == on) { did -c sifremm 10 }
    if ($group(#operpasta) == on) { did -c sifremm 13 }
    did -ra $dname 12 %oto-nick-sifre
    did -ra $dname 16 %oper-nick
    did -ra $dname 17 %oper-pass
  }
}
#otonick off
on *:notice:*:*:{
  if ($nick == NickServ) {
    if (*Nickserv*IDENTIFY* iswm $1-) {
      .dialog -m sifremm sifremm
      .ns identify %oto-nick-sifre
    }
    if (*Sifre*kabul*edildi* iswm $1-) {
      echo -a 14,14l15,1  $me Şifreniz Kabul Edildi.14,14l %logo
      .dialog -x sifremm sifremm
      .halt
    }
  }
}
#otonick end
#operpasta off
on *:connect:{
  .oper %oper-nick %oper-pass
}