on *:text:!yasakident *:%operkanali: {
  if $2 == list {
    var %i = 1, %end = $ulist(*,yasakident,0)
    .msg $chan - Toplam Yasak İdent: %end
    while %i <= %end  {
      .msg $chan $+(%i,$chr(41)) $iif($ulist(*,yasakident,%i) == $nick,$+(,$v1,),$v1)
      inc %i 1
    }
  }
  elseif $2 == ekle { 
    if $3 == $null { .msg $chan Lutfen eklenecek ident'i yaziniz | return }
    if $ulist($3,yasakident,1) { .msg $chan Belirtiginiz kritere uyan $v1 zaten mevcut | return }
    if $istok(AynaWeb ,$3,32) { .msg $chan $nick Bu ident eklenemez | return }
    .auser yasakident $3 
    .msg $chan " $3 " Identi Basariyla ident liste eklendi
  }
  elseif $2 == sil { 
    if $3 == $null { .msg $chan Lutfen silinecek ident'i yazınız | return }
    if !$ulist($3,yasakident,1) { .msg $chan $nick Belirtiginiz kritere uyan $3 listede mevcut degil | return }
    .ruser yasakident $3
    .msg $chan " $3 " Identi Basariyla ident listten silindi
  }
  else { .msg $chan Kullanılabilecek komutlar: !Yasakident list , !Yasakident ekle , !Yasakident sil }
}

#yasakident on
on *:snotice:*: {
  if ($level($9) == muafnlist) { halt }
  if ($level($9) == muafclist) { halt }
  if (connecting isin $1-) {
    if $level($remove($gettok($10,1,64),$chr(40))) = yasakident { gzline $9  Network'a saldiri nick/ident/reklam lamerizm girisimleri yasaktir ([X-Bot]) }
  }                                                                                           
}  
#yasakident end

on *:text:*:#adminchan:{
  if ($1 == !identekle) {
    if !$2 { msg # Lütfen ekliyeceginiz identi belirtiniz. | return }
    if $read(identlist.txt,w,$strip($2-)) { msg # 2ident listede ZATEN ekli ! | return }
    if $istok(AynaWeb ,$3,32) { .msg $chan $nick Bu ident eklenemez | return }
    .write identlist.txt $strip($2-)
    msg # 4[ $strip($2-) ] 2 ident listesine Eklenmisdir.
  }
  if ($1 == !identsil) {
    if !$2 { msg # Lütfen sileceginiz identi Belirleyiniz | return }
    if $read(identlist.txt,w,$strip($2-)) { .write $+(-dl,$readn) identlist.txt | msg # [ $strip($2-) ]  2ident listesinden Silinmistir. | return }
    else { msg # 2Belirttiginiz ident listem'de bulunmamaktadir. | return }
  }
  if ($1 == !identlist) {
    if $lines(identlist.txt) == 0 { msg # 2Belirtiginiz ident listede bulunamadi. | return }
    var %t = 1 | while %t <= $lines(identlist.txt) {
      msg # 4 $+(%t,.)  $read(identlist.txt,%t)
      inc %t
    }
  }
}

#yasakident on
on *:snotice:*: {
  if ($level($9) == muafnlist) { halt }
  if ($level($9) == muafclist) { halt }
  if (connecting isin $1-) {
    if $level($remove($gettok($10,1,64),$chr(40))) = yasakident { gzline $9  Network'a saldiri nick/ident/reklam lamerizm girisimleri yasaktir ([X-Bot]) }
  }                                                                                           
}  
#yasakident end