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

WeiLSiDe · 28 Şubat 2009, 03:24

sLm arkadaşlar iki adet koruma var bende 1 ncisi badnick diğeri küfür Koruması.
Sorun Şu:
-Badnick : Kullanıcı listesindeki 8 tanımlı nick girerse atıyor. ben Kullanıcı listesindeki tüm nickleri siliyorum ama hala kanala girenleri badnick şeklinde atıyo.
-Küfür
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
unun sorunu da aynı gibi. Bu da Veriablesden okuyo Tüm küfürleri siliyorum ancak bazı kelimeler gecerse çalışıyo. Nedeni ni Çözemedim.

Yardımlarınız için Şimdiden Tşk ederim.

badnick

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

on *:NICK:{
  if ($level($newnick) == 8) {
    if (%bShun == on) { shun $newnick +1d %blogo }
    if (%bkill == on) { kill $newnick %blogo }
    if (%bakill == on) { os killclones $newnick }
    if (%bK-Line == on) { kline $newnick +1d %blogo }
    var %Cnk = 1
    while $comchan($newnick,%Cnk) {
      var %e = $v1
      if $me isop %e {
        if (%bkick == on) { kick %e $newnick %blogo }
        if (%bban == on) { ban %e $newnick 2 }
        if (%bSamode == on) { samode %e +b $newnick  }
      }
      inc %Cnk
    }
  }
}
on @8:join:#:{ 
  if (%bkick == on) { kick # $nick %blogo }
  if (%bban == on) { ban # $nick }
  if (%bShun == on) { shun $nick +1d %blogo }
  if (%bSamode == on) { samode # +b $nick  }
  if (%bakill == on) { os killclones $nick }
  if (%bkill == on) { kill $nick %blogo }
  if (%bK-Line == on) { kline $nick +1d %blogo }
}
dialog baddn {
  title "Karadeniz TEAM"
  size -1 -1 151 82
  option dbu
  box "Eklenecek Kelimeyi Girin", 1, 86 2 64 79
  combo 2, 89 10 57 53, size
  button "Ekle", 3, 89 69 25 9
  button "Sil", 4, 122 69 25 9
  box "", 6, 88 65 28 15
  check " K-Line ", 8, 56 37 27 10
  check " KiLL", 9, 56 27 21 10
  edit "", 10, 9936 30 23 12, disable
  text "Saniye", 11, 562 32 21 8, disable
  box "Ayir", 12, 3 2 82 18
  box "Badnick Ceza", 112, 2 20 83 40
  check "@plar", 13, 5 8 34 10
  check "+v", 14, 47 8 30 10
  check " AKiLL", 7, 56 47 27 10
  check " Kick", 15, 5 37 21 10
  check " Ban", 16, 5 27 21 10
  check " Shun", 17, 29 36 26 10
  check "Samode +b", 18, 5 47 40 10
  box "", 5, 121 65 28 15
  icon 19, 3 65 80 14,  usr\avatar\WeiL.jpg, 0
  box "", 20, 2 59 83 22
}

alias baddn { .dialog -m baddn baddn }
on *:dialog:baddn:init:*:{
  if %b@plar == on { did -c $dname 13 }
  if %b+v == on  { did -c $dname 14 }
  if %bK-Line == on { did -c $dname 8 }
  if %bkill == on { did -c $dname 9 } 
  if %bakill == on { did -c $dname 7 }
  if %bShun == on { did -c $dname 17 }
  if %bban == on { did -c $dname 16 }
  if %bKick == on  { did -c $dname 15 }
  if %bSamode == on { did -c $dname 18 }
  did -a $dname 10 %banvaxt
  if ($ulist(*,8,0) != $null) {  var %i = 1 | while $ulist(*,8,%i) { did -a $dname 2 $v1 | inc %i  } } 
}
on *:dialog:baddn:sclick:*:{
  if $istok(7 8 9 13 14 15 16 17 18,$did,32) {  $iif($did($did).state == 1,set %b $+ $gettok($did($did).text,1,32) on,.set %b $+ $gettok($did($did).text,1,32) off) }
  if ($did == 3) {  if ($did(2) != $null) { did -a $dname 2 $did(2) |  .auser 8 $did(2)  } }
  if ($did == 4) { if $did(2).seltext { .ruser 8 $did(2).seltext | did -d $dname 2 $did(2).sel } }
}
on *:dialog:baddn:edit:*:{
  %banvaxt = $did(10)
}

bu da küfür

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

on 1:text:*:#: {
  if ($nick isop #) && (%@plar == on) { return }
  if ($nick isvo #) && (%+v == on) { return }
  kfur $1-
}

alias kfur {
  var %x $strip($1-) , %i $numtok(%soyush,444)
  while (%i) {
    if ($gettok(%soyush,%i,444) iswm %x) || ($gettok(%soyush,%i,444) isin %x) {
      if (%kick == on) { kick # $nick %kfurlogo }
      if (%ban == on) { ban # $nick 2 }
      if (%shun == on) { shun $nick +1d %kfurlogo }
      if (%samode == on) { samode # +b $nick }
      if (%akill == on) { os killclones $nick }
      if (%kill == on) { kill $nick %kfurlogo }
      if (%K-Line == on) { kline $nick +1d %kfurlogo }
      return
    }
    dec %i
  }
}

dialog kfur {
  title "Karadeniz TeaM"
  size -1 -1 151 82
  option dbu
  box "Eklenecek Kelimeyi Girin", 1, 86 2 64 79
  combo 2, 89 10 57 53, size
  button "Ekle", 3, 89 69 25 9
  button "Sil", 4, 122 69 25 9
  box "", 6, 88 65 28 15
  check " K-Line ", 8, 56 37 27 10
  check " KiLL", 9, 56 27 21 10
  edit "", 10, 9936 30 23 12, disable
  text "Saniye", 11, 562 32 21 8, disable
  box "Ayir", 12, 3 2 82 18
  box "Küfür Ceza", 112, 2 20 83 40
  check "@plar", 13, 5 8 34 10
  check "+v", 14, 47 8 30 10
  check " AKiLL", 7, 56 47 27 10
  check " Kick", 15, 5 37 21 10
  check " Ban", 16, 5 27 21 10
  check " Shun", 17, 29 36 26 10
  check "Samode +b", 18, 5 47 40 10
  box "", 5, 121 65 28 15
  icon 19, 3 65 80 14, usr\avatar\WeiL.jpg, 0
  box "", 20, 2 59 83 22
}

alias kfur { .dialog -m kfur kfur }
on *:dialog:kfur:init:*:{
  if %@plar == on { did -c $dname 13 }
  if %+v == on { did -c $dname 14 }
  if %K-Line == on { did -c $dname 8 }
  if %KiLL == on { did -c $dname 9 } 
  if %AKiLL == on { did -c $dname 7 }
  if %Shun == on { did -c $dname 17 }
  if %Ban == on { did -c $dname 16 }
  if %Kick == on { did -c $dname 15 }
  if %Samode == on { did -c $dname 18 }
  if (%soyush) didtok $dname 2 444 $ifmatch
  did -a $dname 10 %banvaxt
}
on *:dialog:kfur:sclick:*:{
  if $istok(7 8 9 13 14 15 16 17 18,$did,32) { var %d = % $+ | $iif($did($did).state == 1,set % $+ $gettok($did($did).text,1,32) on,.set % $+ $gettok($did($did).text,1,32) off) }
  if ($did == 3) { if ($did(2) != $null) { set -u %artir $did(2) | if (%artir) && (!$istok(%soyush,%artir,444)) { .set %soyush $addtok(%soyush,%artir,444) | did -a $dname 2 %artir } } }
  if ($did == 4) { if ($did(2).sel > 0) { .set %soyush $remtok(%soyush,$did(2).seltext,1,444) | did -d $dname 2 $did(2).sel | did -c $dname 2 1 } }
}
on *:dialog:kfur:edit:*:{ %banvaxt = $did(10) }