Otomatik Oper ve Nick Şifresi Remotesi

sifre on
;on *:notice:*Nickserv*IDENTIFY*:*: { if ($nick == Nickserv) .dialog -m sifre sifre }
;on *:notice:*Kayıt*nick*:*: { if ($nick == Nickserv) .dialog -m sifre sifre }
#sifre end
alias sifre { .dialog -m sifre sifre }
dialog sifre {
  title "Otomatik Oper Sifre"
  size -1 -1 130 130
  option dbu
  box $me Kayitli bir Nicktir., 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 Aç Kapat", 10, 10 60 110 8
  text " Şifre Gir;", 11, 10 70 50 10
  edit "", 12, 70 70 50 10, pass autohs
  check "Oto Oper nick Oper Pass Aç 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:sifre: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:sifre:*:*:{
  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) {
    idset
    if ($group(#otonick) == on) { did -c sifre 10 }
    if ($group(#operpasta) == on) { did -c sifre 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 sifre sifre
      .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 sifre sifre
      .halt
    }
  }
}
#otonick end
#operpasta off
on *:connect:{
  .oper %oper-nick %oper-pass
}