:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
:::::               XcLusive Script                       :::::
:::::               Bütün Kodlar Kendime Aittir           :::::
:::::               Coded By HaLiL                        :::::
:::::               HaLiL@AhKalbim.Net                    :::::
:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
alias xcsifre dialog -m xcsifre  xcsifre
dialog xcsifre {
  title "XcLusive Şifre"
  size -1 -1 79 118
  option dbu
  icon $mircdirikon\key.ico, 0
  button "Şifreyi Kapat", 1, 11 33 55 15
  button "Şifreyi Aç", 2, 11 13 55 15
  box "XcLusive Şifre", 3, 4 3 70 111
  button "Şifreyi Gir", 4, 11 53 55 15
  button "Şifreyi Değiştir", 5, 11 73 55 15
  button "Kapat", 6, 11 93 55 15, cancel
}

on 1:dialog:xcsifre:*:*:{
  if $devent == init {
    idset 6
  }
  if $devent == sclick {
    if $did == 1 {
      if (!%xcpasswd) { $err0r(Bilgi,İlk Önce Bir Şifre Girmeniz Gerek) | halt }
      set %xcsifre off
      $err0r(Bilgi,XcLusive Script Şifreleme Kapalı)
    }
    if $did == 2 {
      if (!%xcpasswd) { $err0r(Bilgi,İlk Önce Bir Şifre Girmeniz Gerek) | halt }
      set %xcsifre on
      $err0r(Bilgi,XcLusive Script Şifreleme Açık)
    }
    if $did == 4 {
      if (%xcpasswd) { $err0r(Bilgi,Daha Önce Bir Şifre Belirlemişsiniz) | halt }
      xcsifre2
    }
    if $did == 5 {
      if (!%xcpasswd) { $err0r(Bilgi,İlk Önce Bir Şifre Girmeniz Gerek) | halt }
      xcsifre3
    }
  }
  if $devent == close { unset %pass* }
}

alias xcsifre2 dialog -m xcsifre2 xcsifre2 
dialog xcsifre2 {
  title "XcLusive Şifre"
  size -1 -1 145 63
  option dbu
  icon $mircdirikon\key.ico, 0
  box "XcLusive Script Şifre Ayarı", 1, 4 3 137 56
  text "Şifre:", 2, 9 13 33 8, right
  text "Tekrar:", 3, 9 25 32 8, right
  edit "", 4, 45 12 91 10, autohs, pass
  edit "", 5, 45 24 91 10, autohs, pass
  button "Şifreyi Gir", 6, 28 39 40 15
  button "Kapat", 7, 79 39 40 15, cancel
}

on 1:dialog:xcsifre2:*:*:{
  if $devent == init {
    idset 7
  }
  if $devent == sclick {
    if $did == 6 {
      if (!$did(4).text) { $err0r(Bilgi,Şifre Kısmı Boş Bırakılamaz) | halt }
      if (!$did(5).text) { $err0r(Bilgi,Şifre Kısmı Boş Bırakılamaz) | halt }
      if $did(4).text != $did(5).text { $err0r(Bilgi,Şifreler Birbirleri ile Uyuşmuyor) | halt }
      if $did(5).text != $did(4).text { $err0r(Bilgi,Şifreler Birbirleri ile Uyuşmuyor) | halt }
      if $did(4).text == $did(5).text { set %xcpasswd $did(4).text | unset %pass2 | $err0r(Bilgi,XcLusive Şifre Girildi! $crlf $+ Şifreniz " $did(4).text " Unutmamak İçin Not Alın!) | halt }
    }
  }
}
alias xcsifre3 dialog -m xcsifre3 xcsifre3
dialog xcsifre3 {
  title "XcLusive Şifre"
  size -1 -1 187 75
  option dbu
  icon $mircdirikon\key.ico, 0
  box "XcLusive Script Şifre Değiştirme", 1, 4 3 179 68
  text "Yeni Şifre:", 2, 9 27 49 8
  text "Şifreyi Tekrar Girin:", 3, 9 39 68 8
  edit "", 4, 85 26 91 10, autohs, pass
  edit "", 5, 85 38 91 10, autohs, pass
  button "Değiştir", 6, 50 51 40 15
  button "Kapat", 7, 101 51 40 15, cancel
  text "Eski Şifre:", 8, 9 15 46 8
  edit "", 9, 85 14 91 10, autohs, pass
}
on 1:dialog:xcsifre3:*:*:{
  if $devent == init {
    idset 10 
  }
  if $devent == edit {
    if $did == 4 { set %passnew $did(4).text }
    if $did == 5 { set %passnew2 $did(5).text }
  }
  if $did == 6 {
    if (%passnew2 <= 5) { $err0r(Uyarı,Şifreniz En Az 6 Karakter Olmalıdır!) | halt }
    if (%passnew <= 5) { $err0r(Uyarı,Şifreniz En Az 6 Karakter Olmalıdır!) | halt }
    if ($did(9).text == $null) { $err0r(Uyarı,Eski Şifreyi Girmediniz!) | halt }
    if ($did(9).text != %xcpasswd)  { $err0r(Uyarı,Eski Şifreyi Yanlış Girdiniz!) | halt }
    if (%passnew != %passnew2) { $err0r(Uyarı,Yeni Şifre Birbirleri İle Uyuşmuyor) | halt }
    if (%passnew == $null) { $err0r(Uyarı,Şifre Kısmı Boş Bırakılamaz!) | halt }
    if (%passnew2 == $null) { $err0r(Uyarı,Şifre Kısmı Boş Bırakılamaz!) | halt }
    if (%passnew2 != %passnew) { $err0r(Uyarı,Yeni Şifre Birbirleri İle Uyuşmuyor) | halt }
    if (%xcpasswd == %passnew) { $err0r(Uyarı,Eski Şifre İle Yeni Şifreniz Aynı Olamaz!) | halt }
    if (%xcpasswd == %passnew2) { $err0r(Uyarı,Eski Şifre İle Yeni Şifreniz Aynı Olamaz!) | halt }
    if ($did(9).text == %xcpasswd) && (%passnew == %passnew2) { set %xcpasswd %passnew | dx | $err0r(DIKKAT,Şifre Değişimi Başarıyla Tamamlandı $crlf $+ Yeni Şifreniz " %passnew " Lütfen Not Alın!) }
  }
}
alias dpasswd { dialog -md passwd passwd }
dialog passwd {
  title "XcLusive Şifre"
  size -1 -1 119 56
  option dbu
  box "Script'i Açmak İçin Şifreyi Girin", 1, 4 3 111 49
  edit "", 2, 8 15 103 12,pass
  button "Tamam", 3, 35 32 50 15
}

on 1:dialog:passwd:*:*:{
  if $devent == init {
    idset 3
  }
  if $devent == sclick {
    if $did == 3 {
      if %xcpasswd != $did(2).text { did -ra $dname 1 Yanlış Şifre! | halt }
      if %xcpasswd == $did(2).text { .timermirc off | showmirc -x | if $(!dialog(baglan)) { baglan } | dx }
    }
  }
  ;if $devent == close { exit }
}
#omsg off
on 1:text:*:?:{
  set %i3 0
  :checking3
  inc %i3 1
  set %currentsword3 $read -l $+ %i3 $mircdir\omsg.txt 
  if (%currentsword3 == $null) { .unset %i3 | halt }
  else {
    if (%currentsword3 isin $1-) || (%currentsword3 iswm $nick) { goto offense3 }
    else { goto checking3 }
  }
  :offense3
  %x = 0 
  :loop 
  inc %x 
  if ($comchan($nick,%x)) && ($me isop $comchan($nick,%x)) { mode $comchan($nick,%x) +b $address($nick,2) | kick $comchan($nick,%x) $nick $x3(omsgset,kmsg) } 
  if ($comchan($nick,%x)) { goto loop }
  tfkick $chan $nick kmsg umsg omsgset
}
#omsg end
