IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası - Tekil Mesaj gösterimi

MesqeN · 25 Aralık 2014, 21:16

moonman Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Kod: Kodu kopyalamak için üzerine çift tıklayın!

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

Selamlar kolay gelsin yukarıda vermiş olduğum kod da şu sorun var yasak ident ekleme yapabiliyorum ama silme işlemini gerçekleştiremiyorum tam olarak sil yerinde hata nerededir yardım edermisiniz rica etsem iyi günler.

selam.. bunu denermisin..

Kod: Kodu kopyalamak için üzerine çift tıklayın!

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