IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası
Sayfa 1 Toplam 2 Sayfadan 1 2
Konuya ait 40 Mesajı başka Sayfada göster

IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası (https://www.ircforumlari.net/)
-   mIRC Scripting Sorunları (https://www.ircforumlari.net/mirc-scripting-sorunlari/)
-   -   kufur koruması (https://www.ircforumlari.net/mirc-scripting-sorunlari/160347-kufur-korumasi.html)

Heavenly 25 Kasım 2008 20:56
kufur koruması
 
Kod:
on *:TEXT:*:#:{
  var %p = 0
  while (%p < $numtok($1-,32)) {
    inc %p
    if ($nick !isop $chan) {
      if ($istok(%badwords,$gettok($1-,%p,32),32)) && (%badword.detect == on) {
        /samode $chan +b $nick | kline $nick $nick Argo Yada Yasakli Kelime : Kullandınız (kline Yediniz) 2 | Window -e /.timer 1 60 /samode $chan -b $nick
      @RAPOR | titlebar @RAPOR Kanal Korumalarından gelen suc ve ceza raporları | echo 4 @RAPOR »10 Suç:7 KüFüR :(4 $+ $gettok($1-,%p,32),32) $+ ) 10nick:7 $nick 10KaNaL:7 $chan 10 BaN Süresi:7 15 Dk 10 Zaman:7 $time }
    }
  }
}
on *:action:*:#:{
  var %p = 0
  while (%p < $numtok($1-,32)) {
    inc %p
    if ($nick !isop $chan) {
      if ($istok(%badwords,$gettok($1-,%p,32),32)) && (%badword.detect == on) {
        /samode $chan +b $nick | kline $nick $nick Argo Yada Yasakli Kelime : Kullandınız (kline Yediniz) 2 | Window -e /.timer 1 60 /samode $chan -b $nick
      @RAPOR | titlebar @RAPOR Kanal Korumalarından gelen suc ve ceza raporları | echo 4 @RAPOR »10 Suç:7 KüFüR :(4 $+ $gettok($1-,%p,32),32) $+ ) 10nick:7 $nick 10KaNaL:7 $chan 10 BaN Süresi:7 15 Dk 10 Zaman:7 $time }
    }
  }
}
on *:notice:*:#:{
  var %p = 0
  while (%p < $numtok($1-,32)) {
    inc %p
    if ($nick !isop $chan) {
      if ($istok(%badwords,$gettok($1-,%p,32),32)) && (%badword.detect == on) {
        /samode $chan +b $nick | kline $nick $nick Argo Yada Yasakli Kelime : Kullandınız (kline Yediniz) 2 | Window -e /.timer 1 60 /samode $chan -b $nick
      @RAPOR | titlebar @RAPOR Kanal Korumalarından gelen suc ve ceza raporları | echo 4 @RAPOR »10 Suç:7 KüFüR :(4 $+ $gettok($1-,%p,32),32) $+ ) 10nick:7 $nick 10KaNaL:7 $chan 10 BaN Süresi:7 15 Dk 10 Zaman:7 $time }
    }
  }
}

alias badword {
  if ($1 == add) {
    set %badwords $addtok(%badwords,$2,32)
    echo -a 14»1»15»1 Listeye $2 Eklendi..!
  }
  if ($1 == del) {
    if ($istok(%badwords,$2,32)) {
      set %badwords $remtok(%badwords,$2,32)
      echo -a 14»1»15»1 Listeden $2 Silindi..!
    }
  }
  if ($1 == delall) {
    unset %badwords
    echo -a 14»1»15»1 Kufur Listesi Boşaltıldı..!
  }
  if ($1 == list) {
    if ($window(@Kufur-List) == $null) {
      window -ab @Kufur-List
    }
    if ($numtok(%badwords,32) == 0) { aline @Kufur-List 14»1»15»1 Listede Hicbir Kelime YoK..! | halt }
    aline @Kufur-List 14»1»14»1 KufurLu Kelimeler Listeleniyor... 4ToPLam Kufur : ( $+ $numtok(%badwords,32) $+ )
    var %n = 1
    while (%n <= $numtok(%badwords,32)) {
      aline $color(info 2) @Kufur-List 4»»» $gettok(%badwords,%n,32)
      inc %n
    }
    aline @Kufur-List 14»1»15»1 LisTe Sonu ..
  }
}

alias Badword dialog -m Badword Badword
dialog Badword {
  title "Kufur Koruma"
  size -1 -1 355 200
  button "«:KaPaT:»"2, 25 125 300 25,ok
  button "«:Kufur Korumayı Aktif Yap:»"3, 25 25 150 25
  button "«:Kufur Korumayı KapaT:»"4, 175 25 150 25
  button "«:Kelime EkLe:»"5, 25 50 150 25
  button "«:KeLime SiL:»"6, 175 50 150 25
  button "«:Listedeki Tum Kelimeleri SiL:»"7, 25 75 300 25
  button "«:Kufur Listesine Bak:»"8, 25 100 300 25
  box "Kufur Koruma Yazan "9, 2 1 350 190
pC'mde ßoyLE bı kod buLdum kodun sOn ßoLumu yOk ama kendım yapamaya caLıstım beceremedım bu kodun sonunu tamamLarmısınız Rıca etSem

Heavenly 28 Kasım 2008 21:28
Cevap: kufur koruması
 
yok mu kımse yaf :(

WeiLSiDe 30 Kasım 2008 00:39
Cevap: kufur koruması
 
Alıntı:
on 1:text:*:#: {
if ($nick isop #) && (%@plar == on) { return }
if ($nick isvo #) && (%+v == on) { return }
_swer_ $1-
}


alias _swer_ {
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 "Korumalar"
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\blacksea.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) }
Küfür korumanı düzeltemem ama bu kodun işini göreceği kanaatindeyim umarım işine yarar.
bu kodu scriptine yükledikten sonra veriables' a %kfurlogo eklemeyi unutma.
Örneğin:
%kfurlogo küfür etmek yasaktır (gibi)
İyi forumlar...

StanteaR 30 Kasım 2008 10:53
Cevap: kufur koruması
 
TheCoLLOfDark O Verdiğin Kod Aslında Cok Eskı Bır Scripte Ait 1997 Cıvarları Sanırım Ben Bu Kodu Ilk Sempati Script Vardı Onda Gormusdum Bu Bır Op Icın Kanal Kufur Koruması Degıstırılmıs Opere Gore Uyarlanmıs Bende Opa Olanı Gore Olanı Var Umarım Isıne Yarar..


Alıntı:
on @*:TEXT:*:#:{
var %p = 0
while (%p < $numtok($1-,32)) {
inc %p
if ($nick !isop $chan) {
if ($istok(%badwords,$gettok($1-,%p,32),32)) && (%badword.detect == on) {
ban # $nick 2
kick # $nick 4[7Swr4~7Küfür4] 4E1ttiqinizden 4D1olayı 154[7KanaL4]1'dan 4G1ecici 4O1larak 4U1zaklastirildiniz! 3[4ß1anned3] | Window -e @RAPOR | titlebar @RAPOR Kanal Korumalarından gelen suc ve ceza raporları | echo 4 @RAPOR »10 Suç:7 KüFüR :(4 $+ $gettok($1-,%p,32),32) $+ ) 10nick:7 $nick 10KaNaL:7 $chan 10 BaN Süresi:7 süresiz 10 Zaman:7 $time }
}
}
}
on @*:action:*:#:{
var %p = 0
while (%p < $numtok($1-,32)) {
inc %p
if ($nick !isop $chan) {
if ($istok(%badwords,$gettok($1-,%p,32),32)) && (%badword.detect == on) {
ban # $nick 2
kick # $nick 4[7Swr4~7Küfür4] 4E1ttiqinizden 4D1olayı 154[7KanaL4]1'dan 4G1ecici 4O1larak 4U1zaklastirildiniz! 3[4ß1anned3] | Window -e @RAPOR | titlebar @RAPOR Kanal Korumalarından gelen suc ve ceza raporları | echo 4 @RAPOR »10 Suç:7 KüFüR :(4 $+ $gettok($1-,%p,32),32) $+ ) 10nick:7 $nick 10KaNaL:7 $chan 10 BaN Süresi:7 süresiz 10 Zaman:7 $time }
}
}
}
on @*:notice:*:#:{
var %p = 0
while (%p < $numtok($1-,32)) {
inc %p
if ($nick !isop $chan) {
if ($istok(%badwords,$gettok($1-,%p,32),32)) && (%badword.detect == on) {
ban # $nick 2
kick # $nick 4[7Swr4~7Küfür4] 4E1ttiqinizden 4D1olayı 154[7KanaL4]1'dan 4G1ecici 4O1larak 4U1zaklastirildiniz! 3[4ß1anned3] | Window -e @RAPOR | titlebar @RAPOR Kanal Korumalarından gelen suc ve ceza raporları | echo 4 @RAPOR »10 Suç:7 KüFüR :(4 $+ $gettok($1-,%p,32),32) $+ ) 10nick:7 $nick 10KaNaL:7 $chan 10 BaN Süresi:7 süresiz 10 Zaman:7 $time }
}
}
}
alias badword {
if ($1 == add) {
set %badwords $addtok(%badwords,$2,32)
echo -a 14»1»15»1 Listeye $2 Eklendi..!
}
if ($1 == del) {
if ($istok(%badwords,$2,32)) {
set %badwords $remtok(%badwords,$2,32)
echo -a 14»1»15»1 Listeden $2 Silindi..!
}
}
if ($1 == delall) {
unset %badwords
echo -a 14»1»15»1 Kufur Listesi Boşaltıldı..!
}
if ($1 == list) {
if ($window(@Kufur-List) == $null) {
window -ab @Kufur-List
}
if ($numtok(%badwords,32) == 0) { aline @Kufur-List 14»1»15»1 Listede Hicbir Kelime YoK..! | halt }
aline @Kufur-List 14»1»14»1 KufurLu Kelimeler Listeleniyor... 4ToPLam Kufur : ( $+ $numtok(%badwords,32) $+ )
var %n = 1
while (%n <= $numtok(%badwords,32)) {
aline $color(info 2) @Kufur-List 4»»» $gettok(%badwords,%n,32)
inc %n
}
aline @Kufur-List 14»1»15»1 LisTe Sonu ..
}
}
alias Badword dialog -m Badword Badword
dialog Badword {
title "Kufur Koruma"
size -1 -1 355 200
button "«:KaPaT:»"2, 25 125 300 25,ok
button "«:Kufur Korumayı Aktif Yap:»"3, 25 25 150 25
button "«:Kufur Korumayı KapaT:»"4, 175 25 150 25
button "«:Kelime EkLe:»"5, 25 50 150 25
button "«:KeLime SiL:»"6, 175 50 150 25
button "«:Listedeki Tum Kelimeleri SiL:»"7, 25 75 300 25
button "«:Kufur Listesine Bak:»"8, 25 100 300 25
box "Kufur Koruma "9, 2 1 350 190


}


on 1:dialog:Badword:sclick:*:{
if ($did == 3) { /set %badword.detect on | echo -a 3«(14 *** Kufur Koruması Simdi ACIK 3)» }
if ($did == 4) { /unset %badword.detect | echo -a 3«(14 *** Kufur Koruması Simdi KAPALI 3)» }
if ($did == 5) { /badword add $$?="Kufur Gir:" }
if ($did == 6) { /badword del $$?="Kufur Gir:" }
if ($did == 7) { /badword delall }
if ($did == 8) { /badword list }
}

Menu Channel {
Kufur Koruma:/dialog -m Badword Badword
}
alias badnick { Window -e @RAPOR | titlebar @RAPOR Kanal Korumalarından gelen suc ve ceza raporları | echo 4 @RAPOR »10 10Suç:7BaDnick 10Nick:7 $nick 10KaNaL:7 # 10 BaN Süresi:7 Süresiz 10 Zaman:7 $time | ban # $nick 2 | kick # $nick 4My12Net 2Sohbet odaları kurallarına ( 4 Uygun bir nick KuLLanmama 2) sebebinden dolayı uymadıgınız icin 4 $chan 2 odasından 4 Süresiz 2 uzakla$tırıldınız.Daha fazla bilgi icin 4/motd 2yazınız ! | halt }
#blacklist on
on karaliste:JOiN:#:{
if (%nickkor == ON) {
Ban # $nick | badnick $nick dsdds
}
}
#blacklist END

Narsinha 30 Kasım 2008 14:52
Cevap: kufur koruması
 
Kod:

on *:TEXT:*:#:{
  var %p = 0
  while (%p < $numtok($1-,32)) {
    inc %p
    if ($nick !isop $chan) {
      if ($istok(%badwords,$gettok($1-,%p,32),32)) && (%badword.detect == on) {
        /samode $chan +b $nick | kline $nick $nick Argo Yada Yasakli Kelime : Kullandınız (kline Yediniz) 2 | Window -e /.timer 1 60 /samode $chan -b $nick
      @RAPOR | titlebar @RAPOR Kanal Korumalarından gelen suc ve ceza raporları | echo 4 @RAPOR »10 Suç:7 KüFüR :(4 $+ $gettok($1-,%p,32),32) $+ ) 10nick:7 $nick 10KaNaL:7 $chan 10 BaN Süresi:7 15 Dk 10 Zaman:7 $time }
    }
  }
}
on *:action:*:#:{
  var %p = 0
  while (%p < $numtok($1-,32)) {
    inc %p
    if ($nick !isop $chan) {
      if ($istok(%badwords,$gettok($1-,%p,32),32)) && (%badword.detect == on) {
        /samode $chan +b $nick | kline $nick $nick Argo Yada Yasakli Kelime : Kullandınız (kline Yediniz) 2 | Window -e /.timer 1 60 /samode $chan -b $nick
      @RAPOR | titlebar @RAPOR Kanal Korumalarından gelen suc ve ceza raporları | echo 4 @RAPOR »10 Suç:7 KüFüR :(4 $+ $gettok($1-,%p,32),32) $+ ) 10nick:7 $nick 10KaNaL:7 $chan 10 BaN Süresi:7 15 Dk 10 Zaman:7 $time }
    }
  }
}
on *:notice:*:#:{
  var %p = 0
  while (%p < $numtok($1-,32)) {
    inc %p
    if ($nick !isop $chan) {
      if ($istok(%badwords,$gettok($1-,%p,32),32)) && (%badword.detect == on) {
        /samode $chan +b $nick | kline $nick $nick Argo Yada Yasakli Kelime : Kullandınız (kline Yediniz) 2 | Window -e /.timer 1 60 /samode $chan -b $nick
      @RAPOR | titlebar @RAPOR Kanal Korumalarından gelen suc ve ceza raporları | echo 4 @RAPOR »10 Suç:7 KüFüR :(4 $+ $gettok($1-,%p,32),32) $+ ) 10nick:7 $nick 10KaNaL:7 $chan 10 BaN Süresi:7 15 Dk 10 Zaman:7 $time }
    }
  }
}
alias badword {
  if ($1 == add) {
    set %badwords $addtok(%badwords,$2,32)
    echo -a 14»1»15»1 Listeye $2 Eklendi..!
  }
  if ($1 == del) {
    if ($istok(%badwords,$2,32)) {
      set %badwords $remtok(%badwords,$2,32)
      echo -a 14»1»15»1 Listeden $2 Silindi..!
    }
  }
  if ($1 == delall) {
    unset %badwords
    echo -a 14»1»15»1 Kufur Listesi Boşaltıldı..!
  }
  if ($1 == list) {
    if ($window(@Kufur-List) == $null) {
      window -ab @Kufur-List
    }
    if ($numtok(%badwords,32) == 0) { aline @Kufur-List 14»1»15»1 Listede Hicbir Kelime YoK..! | halt }
    aline @Kufur-List 14»1»14»1 KufurLu Kelimeler Listeleniyor... 4ToPLam Kufur : ( $+ $numtok(%badwords,32) $+ )
    var %n = 1
    while (%n <= $numtok(%badwords,32)) {
      aline $color(info 2) @Kufur-List 4»»» $gettok(%badwords,%n,32)
      inc %n
    }
    aline @Kufur-List 14»1»15»1 LisTe Sonu ..
  }
}
alias Badword dialog -m Badword Badword
dialog Badword {
  title "Kufur Koruma"
  size -1 -1 355 200
  button "«:KaPaT:»"2, 25 125 300 25,ok
  button "«:Kufur Korumayı Aktif Yap:»"3, 25 25 150 25
  button "«:Kufur Korumayı KapaT:»"4, 175 25 150 25
  button "«:Kelime EkLe:»"5, 25 50 150 25
  button "«:KeLime SiL:»"6, 175 50 150 25
  button "«:Listedeki Tum Kelimeleri SiL:»"7, 25 75 300 25
  button "«:Kufur Listesine Bak:»"8, 25 100 300 25
  box "Kufur Koruma Yazan "9, 2 1 350 190
}
 
on 1:dialog:Badword:sclick:*:{
  if ($did == 3) { /set %badword.detect on | echo -a 3«(14 *** Kufur Koruması Simdi ACIK 3)» }
  if ($did == 4) { /unset %badword.detect | echo -a 3«(14 *** Kufur Koruması Simdi KAPALI 3)» }
  if ($did == 5) { /badword add $$?="Kufur Gir:" }
  if ($did == 6) { /badword del $$?="Kufur Gir:" }
  if ($did == 7) { /badword delall }
  if ($did == 8) { /badword list }
}
Menu Channel {
  Kufur Koruma:/dialog -m Badword Badword
}

Heavenly 30 Kasım 2008 15:11
Cevap: kufur koruması
 
eyw ıLqınız ıcın cok teSekkurLer suppersınız cok ısıme yaradı

uld_tec 09 Aralık 2008 14:12
Cevap: kufur koruması
 
S.a arkadaşlar bu dosyayı hangi dizine oluşturıcaz ve nasıl aktif hale getireceğiz. küfür listesini bir txt içindemi oluşturacağız.? Bu konuda yardımcı olursanızçok sevinirim. teşekkürler.

Birde Şu komutu daha kullanışlı hale getirmek için ne yapabilirim.
yazılan kelime geçmesi hailnde kanadan atar atar.

/msg Botserv badwords #kanal add kelime single

buraya yazılan kelimeleri nereye kaydediyor. o kısıma ftp'den girerek mevcut olan bi küfür listesini kopi paste yaparak liste oluşturabilirmiyiz.

Editor 09 Aralık 2008 14:34
Cevap: kufur koruması
 
Kodların mIRC'a yüklenişi

1.yoL

En Son verilmiş Olan Kodları alıyorsun ve Daha Sonra mIRC'i açarak ALT + R tuşlarına beraber basıyorsun Sol üst köşede yeni sekmesini buluyorsun ve yeni Sayfaya Kodları Pasteliyorsun ve tamam Diyorsun.

2.yoL

mIRC'in Bulunduğu Dosyanın içine birtane metin belgesi açıyorsun ve Daha Sonra verilmiş olan kodları metin belgesinin içine pasteliyorsun ve mIRC'i açarak Örn ; /load -rs küfür.txt Şeklinde yüklemeni yapıyorsun Tamam Diyorsun Olay Bukadar.

Eğer Dahada anlamadım Diyorsan Kodların mIRC'a Pastelenişi Dersini Okuyorsun.

Diger Sorunda İse while Döngüsü Kullanıyorsun Kelimenin Geçmesi Halinde atar.
Hızlı olmasını istiyorsan hash Tablosuyla işlem yapıyorsun.

Karadenizliyim 03 Şubat 2009 21:38
Cevap: kufur koruması
 
Alıntı:
o1star Nickli Üyeden Alıntı (Mesaj 595958)
Kod:

on *:TEXT:*:#:{
  var %p = 0
  while (%p < $numtok($1-,32)) {
    inc %p
    if ($nick !isop $chan) {
      if ($istok(%badwords,$gettok($1-,%p,32),32)) && (%badword.detect == on) {
        /samode $chan +b $nick | kline $nick $nick Argo Yada Yasakli Kelime : Kullandınız (kline Yediniz) 2 | Window -e /.timer 1 60 /samode $chan -b $nick
      @RAPOR | titlebar @RAPOR Kanal Korumalarından gelen suc ve ceza raporları | echo 4 @RAPOR »10 Suç:7 KüFüR :(4 $+ $gettok($1-,%p,32),32) $+ ) 10nick:7 $nick 10KaNaL:7 $chan 10 BaN Süresi:7 15 Dk 10 Zaman:7 $time }
    }
  }
}
on *:action:*:#:{
  var %p = 0
  while (%p < $numtok($1-,32)) {
    inc %p
    if ($nick !isop $chan) {
      if ($istok(%badwords,$gettok($1-,%p,32),32)) && (%badword.detect == on) {
        /samode $chan +b $nick | kline $nick $nick Argo Yada Yasakli Kelime : Kullandınız (kline Yediniz) 2 | Window -e /.timer 1 60 /samode $chan -b $nick
      @RAPOR | titlebar @RAPOR Kanal Korumalarından gelen suc ve ceza raporları | echo 4 @RAPOR »10 Suç:7 KüFüR :(4 $+ $gettok($1-,%p,32),32) $+ ) 10nick:7 $nick 10KaNaL:7 $chan 10 BaN Süresi:7 15 Dk 10 Zaman:7 $time }
    }
  }
}
on *:notice:*:#:{
  var %p = 0
  while (%p < $numtok($1-,32)) {
    inc %p
    if ($nick !isop $chan) {
      if ($istok(%badwords,$gettok($1-,%p,32),32)) && (%badword.detect == on) {
        /samode $chan +b $nick | kline $nick $nick Argo Yada Yasakli Kelime : Kullandınız (kline Yediniz) 2 | Window -e /.timer 1 60 /samode $chan -b $nick
      @RAPOR | titlebar @RAPOR Kanal Korumalarından gelen suc ve ceza raporları | echo 4 @RAPOR »10 Suç:7 KüFüR :(4 $+ $gettok($1-,%p,32),32) $+ ) 10nick:7 $nick 10KaNaL:7 $chan 10 BaN Süresi:7 15 Dk 10 Zaman:7 $time }
    }
  }
}
alias badword {
  if ($1 == add) {
    set %badwords $addtok(%badwords,$2,32)
    echo -a 14»1»15»1 Listeye $2 Eklendi..!
  }
  if ($1 == del) {
    if ($istok(%badwords,$2,32)) {
      set %badwords $remtok(%badwords,$2,32)
      echo -a 14»1»15»1 Listeden $2 Silindi..!
    }
  }
  if ($1 == delall) {
    unset %badwords
    echo -a 14»1»15»1 Kufur Listesi Boşaltıldı..!
  }
  if ($1 == list) {
    if ($window(@Kufur-List) == $null) {
      window -ab @Kufur-List
    }
    if ($numtok(%badwords,32) == 0) { aline @Kufur-List 14»1»15»1 Listede Hicbir Kelime YoK..! | halt }
    aline @Kufur-List 14»1»14»1 KufurLu Kelimeler Listeleniyor... 4ToPLam Kufur : ( $+ $numtok(%badwords,32) $+ )
    var %n = 1
    while (%n <= $numtok(%badwords,32)) {
      aline $color(info 2) @Kufur-List 4»»» $gettok(%badwords,%n,32)
      inc %n
    }
    aline @Kufur-List 14»1»15»1 LisTe Sonu ..
  }
}
alias Badword dialog -m Badword Badword
dialog Badword {
  title "Kufur Koruma"
  size -1 -1 355 200
  button "«:KaPaT:»"2, 25 125 300 25,ok
  button "«:Kufur Korumayı Aktif Yap:»"3, 25 25 150 25
  button "«:Kufur Korumayı KapaT:»"4, 175 25 150 25
  button "«:Kelime EkLe:»"5, 25 50 150 25
  button "«:KeLime SiL:»"6, 175 50 150 25
  button "«:Listedeki Tum Kelimeleri SiL:»"7, 25 75 300 25
  button "«:Kufur Listesine Bak:»"8, 25 100 300 25
  box "Kufur Koruma Yazan "9, 2 1 350 190
}
 
on 1:dialog:Badword:sclick:*:{
  if ($did == 3) { /set %badword.detect on | echo -a 3«(14 *** Kufur Koruması Simdi ACIK 3)» }
  if ($did == 4) { /unset %badword.detect | echo -a 3«(14 *** Kufur Koruması Simdi KAPALI 3)» }
  if ($did == 5) { /badword add $$?="Kufur Gir:" }
  if ($did == 6) { /badword del $$?="Kufur Gir:" }
  if ($did == 7) { /badword delall }
  if ($did == 8) { /badword list }
}
Menu Channel {
  Kufur Koruma:/dialog -m Badword Badword
}
ARkadaşlar bu kod güzel ama bu kodu #oper #help #oplar kanalında nasıl devre dışı bırakırız.yanı bu kanallarda eklediğim küfürler yazılsa bile kod işlem yapmayacak.

Editor 04 Şubat 2009 00:53
Cevap: kufur koruması
 
Kod:
on *:TEXT:*:#:{
  if ($istok(#Oper #help #oplar,$chan,32)) { halt }
  var %p = 0
  while (%p < $numtok($1-,32)) {
    inc %p
    if ($nick !isop $chan) {
      if ($istok(%badwords,$gettok($1-,%p,32),32)) && (%badword.detect == on) {
        /samode $chan +b $nick | kline $nick $nick Argo Yada Yasakli Kelime : Kullandınız (kline Yediniz) 2 | Window -e /.timer 1 60 /samode $chan -b $nick
      @RAPOR | titlebar @RAPOR Kanal Korumalarından gelen suc ve ceza raporları | echo 4 @RAPOR »10 Suç:7 KüFüR :(4 $+ $gettok($1-,%p,32),32) $+ ) 10nick:7 $nick 10KaNaL:7 $chan 10 BaN Süresi:7 15 Dk 10 Zaman:7 $time }
    }
  }
}
on *:action:*:#:{
  if ($istok(#Oper #help #oplar,$chan,32)) { halt }
  var %p = 0
  while (%p < $numtok($1-,32)) {
    inc %p
    if ($nick !isop $chan) {
      if ($istok(%badwords,$gettok($1-,%p,32),32)) && (%badword.detect == on) {
        /samode $chan +b $nick | kline $nick $nick Argo Yada Yasakli Kelime : Kullandınız (kline Yediniz) 2 | Window -e /.timer 1 60 /samode $chan -b $nick
      @RAPOR | titlebar @RAPOR Kanal Korumalarından gelen suc ve ceza raporları | echo 4 @RAPOR »10 Suç:7 KüFüR :(4 $+ $gettok($1-,%p,32),32) $+ ) 10nick:7 $nick 10KaNaL:7 $chan 10 BaN Süresi:7 15 Dk 10 Zaman:7 $time }
    }
  }
}
on *:notice:*:#:{
  if ($istok(#Oper #help #oplar,$chan,32)) { halt }
  var %p = 0
  while (%p < $numtok($1-,32)) {
    inc %p
    if ($nick !isop $chan) {
      if ($istok(%badwords,$gettok($1-,%p,32),32)) && (%badword.detect == on) {
        /samode $chan +b $nick | kline $nick $nick Argo Yada Yasakli Kelime : Kullandınız (kline Yediniz) 2 | Window -e /.timer 1 60 /samode $chan -b $nick
      @RAPOR | titlebar @RAPOR Kanal Korumalarından gelen suc ve ceza raporları | echo 4 @RAPOR »10 Suç:7 KüFüR :(4 $+ $gettok($1-,%p,32),32) $+ ) 10nick:7 $nick 10KaNaL:7 $chan 10 BaN Süresi:7 15 Dk 10 Zaman:7 $time }
    }
  }
}
alias badword {
  if ($1 == add) {
    set %badwords $addtok(%badwords,$2,32)
    echo -a 14»1»15»1 Listeye $2 Eklendi..!
  }
  if ($1 == del) {
    if ($istok(%badwords,$2,32)) {
      set %badwords $remtok(%badwords,$2,32)
      echo -a 14»1»15»1 Listeden $2 Silindi..!
    }
  }
  if ($1 == delall) {
    unset %badwords
    echo -a 14»1»15»1 Kufur Listesi Boşaltıldı..!
  }
  if ($1 == list) {
    if ($window(@Kufur-List) == $null) {
      window -ab @Kufur-List
    }
    if ($numtok(%badwords,32) == 0) { aline @Kufur-List 14»1»15»1 Listede Hicbir Kelime YoK..! | halt }
    aline @Kufur-List 14»1»14»1 KufurLu Kelimeler Listeleniyor... 4ToPLam Kufur : ( $+ $numtok(%badwords,32) $+ )
    var %n = 1
    while (%n <= $numtok(%badwords,32)) {
      aline $color(info 2) @Kufur-List 4»»» $gettok(%badwords,%n,32)
      inc %n
    }
    aline @Kufur-List 14»1»15»1 LisTe Sonu ..
  }
}
alias Badword dialog -m Badword Badword
dialog Badword {
  title "Kufur Koruma"
  size -1 -1 355 200
  button "«:KaPaT:»"2, 25 125 300 25,ok
  button "«:Kufur Korumayı Aktif Yap:»"3, 25 25 150 25
  button "«:Kufur Korumayı KapaT:»"4, 175 25 150 25
  button "«:Kelime EkLe:»"5, 25 50 150 25
  button "«:KeLime SiL:»"6, 175 50 150 25
  button "«:Listedeki Tum Kelimeleri SiL:»"7, 25 75 300 25
  button "«:Kufur Listesine Bak:»"8, 25 100 300 25
  box "Kufur Koruma Yazan "9, 2 1 350 190
}
on 1:dialog:Badword:sclick:*:{
  if ($did == 3) { /set %badword.detect on | echo -a 3«(14 *** Kufur Koruması Simdi ACIK 3)» }
  if ($did == 4) { /unset %badword.detect | echo -a 3«(14 *** Kufur Koruması Simdi KAPALI 3)» }
  if ($did == 5) { /badword add $$?="Kufur Gir:" }
  if ($did == 6) { /badword del $$?="Kufur Gir:" }
  if ($did == 7) { /badword delall }
  if ($did == 8) { /badword list }
}
Menu Channel {
  Kufur Koruma:/dialog -m Badword Badword
}
Bu Şekilde #Oper , #help , #oplar Kanalında küfür edildiğinde Korumalar çalışmaz.


Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 19:33.
Sayfa 1 Toplam 2 Sayfadan 1 2
Konuya ait 40 Mesajı başka Sayfada göster

Powered by vBulletin® Version 3.8.8 Beta 3
Copyright ©2000 - 2024, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2024 IRCForumlari.Net