IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

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/)
-   -   Küfüre Ayrı Pencere (https://www.ircforumlari.net/mirc-scripting-sorunlari/400531-kufure-ayri-pencere.html)

StanteaR 14 Temmuz 2011 15:45
Küfüre Ayrı Pencere
 
Merhaba Arkadaslar Bır Sey SOrmak Istıyordum..
Scriptimde Küfür Koruması Var O Koruma Textten Okutmalı. Mesela O Listedekı Küfür Edınce Ayrı Bır Pencere Acılıp şu Şekıl

»Kullandığı Küfür: Salak KaNaL: #test BaN Süresi: Süresiz Zaman: 15:28:15

Gibi Ayrı Bır Pencerede Belırmesını Istıyorum bu şekıl ayrı bır kod mumkunmu yoksa kufur korumasına ek olarak bır kodmu eklememız gerek. Yardımlarınızı Beklıyorum.

WingmaN 14 Temmuz 2011 17:43
Cevap: Küfüre Ayrı Pencere
 
Kodunu düzeltmemizi, değiştirmemizi istiyorsan, elinde ki sabit-kodu buraya paylaşıp, ne istediğini belirtmen gerekir.

StanteaR 14 Temmuz 2011 18:35
Cevap: Küfüre Ayrı Pencere
 
Elimde Bır Kufur Koruması Var Şu ŞekıL.. Bu Kufur Edıldıgınde Ayrı Bır Kufur Penceresı Acılıyor. Edılen Kufuru Saatı Kufur Edenın Nıckını Belırtıyor.

Alıntı:
on @*:TEXT:*:#:{
if ($istok(%muafnickler,$nick,32)) { halt }
if $nick ison %muafkanallar { 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) {
msg $nick 7 $chan 10 kanalında 2Küfür10 sebebinden dolayı tarafımdan atıldınız. 5Kullandığınız kelime: (7 $+ $gettok($1-,%p,32),32) $+ 5)14 Eğer bir hata olduğunu düşünüyorsanız ŞİMDİ özelime bunu bildiriniz.
ban # $nick 2
kick # $nick 2Küfür5 tespit edildi!. 10 Kullandığınız kelime özelinize gönderildi. 2Eğer bir hata olduğunu düşünüyorsanız özelime bunu bildiriniz. | Window -e @Küfür | titlebar @Küfür Kanal Korumasından gelen suç ve ceza raporları | echo 4 @Küfür »7 Kullandığı Kelime :(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:*:#:{
if ($istok(%muafnickler,$nick,32)) { halt }
if $nick ison %muafkanallar { 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) {
msg $nick 7 $chan 10 kanalında 2Küfür10 sebebinden dolayı tarafımdan atıldınız. 5Kullandığınız kelime: (7 $+ $gettok($1-,%p,32),32) $+ 5)14 Eğer bir hata olduğunu düşünüyorsanız ŞİMDİ özelime bunu bildiriniz.
ban # $nick 2
kick # $nick 2Küfür5 tespit edildi!. 10 Kullandığınız kelime özelinize gönderildi. 2Eğer bir hata olduğunu düşünüyorsanız özelime bunu bildiriniz. | Window -e @Küfür | titlebar @Küfür Kanal Korumasından gelen suç ve ceza raporları | echo 4 @Küfür »7 Kullandığı Kelime :(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:*:#:{
if ($istok(%muafnickler,$nick,32)) { halt }
if $nick ison %muafkanallar { 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) {
msg $nick 7 $chan 10 kanalında 2Küfür10 sebebinden dolayı tarafımdan atıldınız. 5Kullandığınız kelime: (7 $+ $gettok($1-,%p,32),32) $+ 5)14 Eğer bir hata olduğunu düşünüyorsanız ŞİMDİ özelime bunu bildiriniz.
ban # $nick 2
kick # $nick 2Küfür5 tespit edildi!. 10 Kullandığınız kelime özelinize gönderildi. 2Eğer bir hata olduğunu düşünüyorsanız özelime bunu bildiriniz. | Window -e @Küfür | titlebar @Küfür Kanal Korumasından gelen suç ve ceza raporları | echo 4 @Küfür »7 Kullandığı Kelime :(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 Küfür Listesi Boşaltıldı..!
}
if ($1 == list) {
if ($window(@KüfürListesi) == $null) {
window -ab @KüfürListesi
}
if ($numtok(%badwords,32) == 0) { aline @KüfürListesi 14»1»15»1 Listede Hicbir Kelime YoK..! | halt }
aline @KüfürListesi 14»1»14»1 KüfürLü Kelimeler Listeleniyor... 10ToPLam Küfür : ( $+ $numtok(%badwords,32) $+ )
var %n = 1
while (%n <= $numtok(%badwords,32)) {
aline $color(info 2) @KüfürListesi 2»»» 10 $gettok(%badwords,%n,32)
inc %n
}
aline @KüfürListesi 14»1»15»1 LisTe Sonu ..
}
}

alias Badword dialog -m Badword Badword
dialog Badword {
title "Küfür Koruma"
size -1 -1 355 179
option pixels
button "Kapat", 2, 25 125 300 25, ok
button "Küfür Korumasını Çalıştır", 3, 25 25 150 25
button "Küfür Korumasını Kapat", 4, 175 25 150 25
button "Kelime Ekle", 5, 25 50 150 25
button "Kelime Sil", 6, 175 50 150 25
button "Listedeki Tüm Kelimeleri Sil", 7, 25 75 300 25
button "Küfür Listesine Bak", 8, 25 100 300 25
box "Küfür Koruması ", 9, 2 1 350 168
}






on 1:dialog:Badword:sclick:*:{
if ($did == 3) { /set %badword.detect on | echo -a 0> 2[ 10Küfür Koruması 7Açıldı. 2] }
if ($did == 4) { /unset %badword.detect | echo -a 0> 2[ 10Küfür Koruması 7Kapatıldı. 2] }
if ($did == 5) { /badword add $$?="Listeye eklemek istediğiniz Küfürü giriniz:" }
if ($did == 6) { /badword del $$?="Listeden silmek istediğiniz Küfürü giriniz:" }
if ($did == 7) { /badword delall }
if ($did == 8) { /badword list }
}
Ben Bu Kufur Penceresını şu Korumayada Eklemek Istıyorumda.


Alıntı:
on @*:TEXT:*:#:{
if ($istok(%muafnickler,$nick,32)) { halt }
if $nick ison %muafkanallar { halt }
if ($nick isreg #) && !$istok(#operhelp #Help #yönetim,#,32) && $nick !ison #Ops {
var %i $lines(küfür.txt)
while (%i > 0) {
if ($read(küfür.txt,%i) iswm $1-) {
var %k $comchan($nick,0)
while (%k > 0) {
if ($nick !isop $comchan($nick,%k)) { mode $chan +b $wildsite | kick $comchan($nick,%k) $nick %küfür }
dec %k
}
}
dec %i
}
}
}
}
}

xwerswoodx 14 Temmuz 2011 19:03
Cevap: Küfüre Ayrı Pencere
 
Kod:
msg $nick 7 $chan 10 kanalında 2Küfür10 sebebinden dolayı  tarafımdan atıldınız. 5Kullandığınız kelime: (7 $+  $gettok($1-,%p,32),32) $+ 5)14 Eğer bir hata olduğunu düşünüyorsanız  ŞİMDİ özelime bunu bildiriniz.
Bu kısımların hepsini

Kod:
msg $nick 7 $chan 10 kanalında 2Küfür10 sebebinden dolayı  tarafımdan atıldınız. 5Kullandığınız kelime: (7 $+  $gettok($1-,%p,32),32) $+ 5)14 Eğer bir hata olduğunu düşünüyorsanız  ŞİMDİ özelime bunu bildiriniz.
if !$window(@Küfür) { window -a @Küfür } | aline @Küfür »Kullandığı Küfür: $gettok($1-,%p,32),32) KaNaL: $chan BaN Süresi: Süresiz Zaman: $time
olarak değiş.

StanteaR 14 Temmuz 2011 19:33
Cevap: Küfüre Ayrı Pencere
 
»Kullandığı Küfür: KaNaL: #dene BaN Süresi: Süresiz Zaman: 19:19:44

Bu şekil çıktı yani küfürü göstermedi Küfürüde Göstersin İstiyorumda.

xwerswoodx 14 Temmuz 2011 21:58
Cevap: Küfüre Ayrı Pencere
 
$gettok($1-,%p,32),32)

kısmını

$gettok($1-,%p,32)

olarak denermisiniz.

StanteaR 14 Temmuz 2011 22:49
Cevap: Küfüre Ayrı Pencere
 
Olmadı Onuda Denedım Aynısını Yaptı. Ama iLk Verdiğim Korumada %badword yazıyor sanırım kufuru okuyarak alıyor oyle yazıor kufur %badwords,$gettok($1-,%p,32),32)) benım korumam texten okutmalı %badword yerıne $read dosya uzantısımı kullanıcam acaba

xwerswoodx 15 Temmuz 2011 17:13
Cevap: Küfüre Ayrı Pencere
 
$gettok($1-,%p,32)

yaptığımı kısmı

$istok(%badwords,$gettok($1-,%p,32),32))

olarak denermisiniz.

StanteaR 15 Temmuz 2011 22:49
Cevap: Küfüre Ayrı Pencere
 
Alıntı:
on @*:TEXT:*:#:{
if ($istok(%muafnickler,$nick,32)) { halt }
if $nick ison %muafkanallar { halt }
if ($nick isreg #) && !$istok(#operhelp #Help #yönetim,#,32) && $nick !ison #Ops {
var %i $lines(küfür.txt)
while (%i > 0) {
if ($read(küfür.txt,%i) iswm $1-) {
var %k $comchan($nick,0)
while (%k > 0) {
if ($nick !isop $comchan($nick,%k)) { mode $chan +b $wildsite | kick $comchan($nick,%k) $nick %küfür }
dec %k
}
}
dec %i
}
}
}
}
}
demek ıstedıgım ben bu korumaya senın verdıgın kodu ekledım.

Alıntı:

msg $nick 7 $chan 10 kanalında 2Küfür10 sebebinden dolayı tarafımdan atıldınız. 5Kullandığınız kelime: (7 $+ $gettok($1-,%p,32) $+ 5)14 Eğer bir hata olduğunu düşünüyorsanız ŞİMDİ özelime bunu bildiriniz.
if !$window(@Küfür) { window -a @Küfür } | aline @Küfür »Kullandığı Küfür: $gettok($1-,%p,32)) KaNaL: $chan BaN Süresi: Süresiz Zaman: $time
Verdıgın koduda ekledım orda küfürü göstermedi ben ılk verdıgım kufur korumasında şöyle bır kısım var..

if ($istok(%badwords,$gettok($1-,%p,32),32))

yanı veriabless de %badwords da eklı olan kufuru oraya yazıyor.

benım kullanmak ıstedıgım kufur korumasında %badwords da degılde text ten okutmalı bır küfür koruması acaba şu şekılmı olması gerek

if ($istok($read(küfür.txt,$gettok($1-,%p,32),32))

yani kısaca şöyle oluyor

Alıntı:

msg $nick 7 $chan 10 kanalında 2Küfür10 sebebinden dolayı tarafımdan atıldınız. 5Kullandığınız kelime: (7 $+ $istok($read(küfür.txt,$gettok($1-,%p,32),32)) $+ 5)14 Eğer bir hata olduğunu düşünüyorsanız ŞİMDİ özelime bunu bildiriniz.
if !$window(@Küfür) { window -a @Küfür } | aline @Küfür »Kullandığı Küfür: $istok($read(küfür.txt,$gettok($1-,%p,32),32)) KaNaL: $chan BaN Süresi: Süresiz Zaman: $time
bu şekılmı olması gerek yanı ?

WingmaN 16 Temmuz 2011 03:18
Cevap: Küfüre Ayrı Pencere
 
Kod:
on *:TEXT:*:#:{
  if ($istok(%muafnickler,$nick,32)) { .halt } | if $nick ison %muafkanallar { .halt }
  if ($nick isreg #) && !$istok(#operhelp #Help #yönetim,#,32) && $nick !ison #Ops {
    var %i $lines(küfür.txt)
    while (%i > 0) {
      if ($read(küfür.txt,%i) isin $1-) {
        var %_bword $read(küfür.txt,%i)
        var %k $comchan($nick,0)
        while (%k > 0) {
          if ($nick !isop $comchan($nick,%k)) {
            mode $chan +b $wildsite
            kick $comchan($nick,%k) $nick 4,4 %_bword  Kelimesini, kullandığınızdan dolayı, kanaldan uzaklaştırıldınız.
            window -e @Küfür | .echo -t @Küfür »Küfür tespit edildi, Nick: $nick Küfür: %_bword Kanal: $chan Ban Süresi: Süresiz Zaman: $time 
          }
          dec %k
        }
      }
      dec %i
    }
  }
}
Konu gereğinden fazla uzamış, değiştirmek/eklemek istediğin kodun düzeltilmiş ve @Küfür penceresine yansıtılmış hali.

Deneme Satırları;
@Küfür Penceresi
Alıntı:
[03:11] »Küfür tespit edildi, Nick: Deneme Küfür: anan Kanal: #deneme Ban Süresi: Süresiz Zaman: 03:11:06

ve Kanal içerisinde işlevi;
Alıntı:
[03:11] <Deneme> bu bir deneme yazısıdr anan kelimesi kullandım at beni ok.
[03:11] * WingmaN sets mode: +b *!*@deneme.***.com
[03:11] * Deneme was kicked by WingmaN ( anan Kelimesini, kullandığınızdan dolayı, kanaldan uzaklaştırıldınız.)

Not: Kick atarken, küfürlü kelimeyi, kırmızı bir kutu haline getirir, görünmeyecek şekilde.

StanteaR 16 Temmuz 2011 09:24
Cevap: Küfüre Ayrı Pencere
 
Denedim Koruma Çalısmadı Hatada Vermedi Ne Pencere Cıktı Nede Kanaldan Attı.

WingmaN 16 Temmuz 2011 16:31
Cevap: Küfüre Ayrı Pencere
 
PHP- Kodu:
  if ($istok(%muafnickler,$nick,32)) { .halt } | if $nick ison %muafkanallar { .halt }
  if ($nick isreg #) && !$istok(#operhelp #Help #yönetim,#,32) && $nick !ison #Ops { 
Denediğin nick, bu üstte geçen listeden herhangi birine denk geliyorsa, elbette hiç bişi yapmaz.

-1 %muafnickler 'de bulunmuyorsa,
-2 %muafkanallar 'da bulunmuyorsa,
-3 Nick kayıtlı değil ise
-4 OperHelp, help, yonetim kanalları değil ise
-5 Nick #Ops kanalında değil ise

Koruma, çalışacaktır.

StanteaR 18 Temmuz 2011 00:27
Cevap: Küfüre Ayrı Pencere
 
Verdıgın Kodu Duz Mircda Denedim Olmadı Dedıklerını Uyguladım Yıne Olmadı Bakdım Şu Kısımları Sildim...

if ($istok(%muafnickler,$nick,32)) { .halt } | if $nick ison %muafkanallar { .halt }
if ($nick isreg #) && !$istok(#operhelp #Help #yönetim,#,32) && $nick !ison #Ops {

Yine Olmadı Acaba Bendemı Bır Hata Var Anlamadım..

TİGeR 06 Ağustos 2011 06:16
Cevap: Küfüre Ayrı Pencere
 
Elimde tam sana göre bi addon var
PHP- Kodu:
on @*:TEXT:*:#:{
  var %::chan = $chan
  var %::nick = $nick
  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) {
      mode %::chan +b %::nick | kick %::chan %::nick 5 Küfür arGo Yasak !    | 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 %::chan = $chan
  var %::nick = $nick
  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) {
      mode %::chan +b %::nick | kick %::chan %::nick 5 Küfür arGo Yok!  2    | 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 %::chan = $chan
  var %::nick = $nick
  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) {
      mode %::chan +b %::nick | kick %::chan %::nick 5 Küfür! ArGo  2 Aciz İnsanların İşidir  1 KeLimeLere Dikkat.! 7 Sizi ßanLıyan Nick  $me   2 ßanLanan nick : %::nick | 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,Status  {
  |-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 4 $chan 12 kanaLı 2Sohbet odalaSı kurallarına ( 4 Uygun bir nick KuLLanmama 2) sebebinden dolayı  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:#:{
  var %::chan = $chan
  var %::nick = $nick
  if (%nickkor == ON) {
    mode %::chan +b %::nick | kick %::chan %::nick 5 Küfür ! 
  }
}
#blacklist END 
remoteye ekliyosun kanalda sağ tıkladığında popups menu seklinde acılır
işlemleri @Rapor penceresinde bütün ayrıntısına kadar görebilirsin ancak vilcard olarak kelime eklenmior ama baya kullanıslıdır..

StanteaR 06 Ağustos 2011 21:29
Cevap: Küfüre Ayrı Pencere
 
TiGeR Konuyu Açarken Bu Korumayı Örnek Vermısdım :)

Difuzyon 06 Ağustos 2011 23:25
Cevap: Küfüre Ayrı Pencere
 
StanteaR,

WingmaN'ın size vermiş olduğu kodlama dizini çalışıyor.Bir pürüz dışında ki bunuda siz kodlamanızda belirtmişsiniz:
if $nick ison %muafkanallar çoğul olarak böyle bir operatör sorgusu olmaz.Buradaki muaf kanallar 1 den fazla ise kanalları tek tek if şartına bağlamalısınız.

Diğer çalışmama sebepleri:
1) Aynı sayfada birden fazla TEXT eventı mevcuttur.Remote sayfası hangisini uygulasın?
2) Kanala yazılan satırlardaki kelimeler Küfür.txt belgesinde mevcut değildir.Yada "isin" (içinde geçiyorsa) tanımına uygun değildir.
3) Mevcut şartlara baktığımızda;
Kod:
on @*:TEXT:*:#:{
if ($istok(%muafnickler,$nick,32)) { halt }
if ($nick isreg #) && !$istok(#operhelp #Help #yönetim,#,32) && $nick !ison #Ops {
var %i $lines(küfür.txt)
while (%i > 0) {
if ($read(küfür.txt,%i) iswm $1-) {
var %k $comchan($nick,0)
while (%k > 0) {
if ($nick !isop $comchan($nick,%k))
................
.....
a) Olayın geçtiği kanalda @ değilseniz,
b) Kanala yazan nick %muafnickler'den biriyse,
c) Kanala yazan nick herhangi bir prefix'e (.&@%+) sahipse,
d) Olayın geçtiği kanal #operhelp #help #yönetim kanallarından biriyse,
e) Kanala yazan nick #Ops kanalında bulunuyorsa
f) Kanala yazan nick,ortak bulunduğum kanallarda op ise,

koruma bu durumlara müdahele etmiyecektir.Kısacası "herkes küfür edebilir ama yetkisi olmayan sıradan bir user edemez" demek istemişsiniz.IRC'ye gönül veren bireyler olarak bu kısmı da tartışmak gerekir aslında.
4) Remote kısmı kapalı olabilir.
5) WingmaN'ın size sunmuş olduğu kodlama dizininde "isin" operatörü var iken siz bunu kendinize göre "iswm" operatörü ile değiştirmişsiniz.Hatırlatalım:

"isin" operatörü içinde geçiyorsa şartına denk gelir: if (salak isin asalaklar)
Bu örnekte "salak" kelimesi asalaklar kelimesi içerisinde geçtiğinden şartlandırma pozitif olarak döner.

"iswm" operatörü,wildcard tanımına bağlı olarak içinde geçiyorsa şartına denk gelir: if (*salak* iswm asalaklar)
Burada eşleştirmenin pozitif dönüşümünü sağlamak için wildcard(*) kullanılması zorunludur.Aksi takdirde if (salak iswm asalaklar) sağlaması negatif dönecektir.

Şimdi,yapmış olduğunuz bu değişikliğe göre devam etmek istiyorsanız küfür.txt belgenizi *kelime* , kelime* , *kelime , k?l?m? vb. durumlarına göre (wildcard tanımı getirecek şekilde) yeniden düzenlemelisiniz.

TİGeR 07 Ağustos 2011 04:17
Cevap: Küfüre Ayrı Pencere
 
Alıntı:
StanteaR Nickli Üyeden Alıntı (Mesaj 1040782361)
TiGeR Konuyu Açarken Bu Korumayı Örnek Vermısdım :)
Eminmisin ? ikisi aynı addon deil kontrol et;s1

dabanonline 02 Mayıs 2013 13:33
Cevap: Küfüre Ayrı Pencere
 
slm bende yardim istiyom bi sunucuda opum kanala kufur yazana söle bisi yapabilirmisiniz bota attırmam icin adam kufur yazdimi /msg $chan !sus $$1 0,1 KuraLLara Aykırı Davranışınız Tespit EdiLdi! 0,4 20 dk susturuldunuz0,1 KuraLLar icin /ruLes yazIn.
PHP- Kodu:
on @*:TEXT:*:#:{
var %::chan = $chan
var %::nick = $nick
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) {
mode %::chan +b %::nick | kick %::chan %::nick 5 Küfür arGo Yasak ! | Window -e @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] | titlebar @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Kanal Korumalarından gelen suc ve ceza raporları | echo 4 @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] »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 %::chan = $chan
var %::nick = $nick
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) {
mode %::chan +b %::nick | kick %::chan %::nick 5 Küfür arGo Yok! 2 | Window -e @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] | titlebar @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Kanal Korumalarından gelen suc ve ceza raporları | echo 4 @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] »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 %::chan = $chan
var %::nick = $nick
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) {
mode %::chan +b %::nick | kick %::chan %::nick 5 Küfür! ArGo 2 Aciz İnsanların İşidir 1 KeLimeLere Dikkat.! 7 Sizi ßanLıyan Nick $me 2 ßanLanan nick : %::nick | Window -e @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] | titlebar @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Kanal Korumalarından gelen suc ve ceza raporları | echo 4 @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] »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,Status {
|-Kufur Koruma-|:/dialog -m Badword Badword
}
alias badnick { Window -e @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] | titlebar @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Kanal Korumalarından gelen suc ve ceza raporları | echo 4 @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] »10 10Suç:7BaDnick 10Nick:7 $nick 10KaNaL:7 # 10 BaN Süresi:7 Süresiz 10 Zaman:7 $time | ban # $nick 2 | kick # $nick 4 $chan 12 kanaLı 2Sohbet odalaSı kurallarına ( 4 Uygun bir nick KuLLanmama 2) sebebinden dolayı 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:#:{
var %::chan = $chan
var %::nick = $nick
if (%nickkor == ON) {
mode %::chan +b %::nick | kick %::chan %::nick 5 Küfür !
}
}
#blacklist END
bu addona ayarlarsaniz cok mutesekkur olurum ben yaptim kufure yapiyo kufuru edene yapmasini istiyom yani nicke

Med Cezir 03 Mayıs 2013 01:45
Cevap: Küfüre Ayrı Pencere
 
Ban uygulaması yerine, kanala mesaj olarak uygulatırsan istedigin olur.
Kod:
on @*:TEXT:*:#:{
var %::chan = $chan
var %::nick = $nick
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) {
/msg $chan !sus $nick 0,1 KuraLLara Aykırı Davranışınız Tespit EdiLdi! 0,4 20 dk susturuldunuz0,1 KuraLLar icin /ruLes yazIn.  | Window -e @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] | titlebar @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Kanal Korumalarından gelen suc ve ceza raporları | echo 4 @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] »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 %::chan = $chan
var %::nick = $nick
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) {
/msg $chan !sus $nick 0,1 KuraLLara Aykırı Davranışınız Tespit EdiLdi! 0,4 20 dk susturuldunuz0,1 KuraLLar icin /ruLes yazIn.  | Window -e @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] | titlebar @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Kanal Korumalarından gelen suc ve ceza raporları | echo 4 @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] »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 %::chan = $chan
var %::nick = $nick
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) {
/msg $chan !sus $nick 0,1 KuraLLara Aykırı Davranışınız Tespit EdiLdi! 0,4 20 dk susturuldunuz0,1 KuraLLar icin /ruLes yazIn.  | Window -e @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] | titlebar @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Kanal Korumalarından gelen suc ve ceza raporları | echo 4 @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] »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,Status {
|-Kufur Koruma-|:/dialog -m Badword Badword
}
alias badnick { Window -e @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] | titlebar @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Kanal Korumalarından gelen suc ve ceza raporları | echo 4 @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] »10 10Suç:7BaDnick 10Nick:7 $nick 10KaNaL:7 # 10 BaN Süresi:7 Süresiz 10 Zaman:7 $time | ban # $nick 2 | kick # $nick 4 $chan 12 kanaLı 2Sohbet odalaSı kurallarına ( 4 Uygun bir nick KuLLanmama 2) sebebinden dolayı 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:#:{
var %::chan = $chan
var %::nick = $nick
if (%nickkor == ON) {
mode %::chan +b %::nick | kick %::chan %::nick 5 Küfür !
}
}
#blacklist ENDon @*:TEXT:*:#:{
var %::chan = $chan
var %::nick = $nick
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) {
/msg $chan !sus $nick 0,1 KuraLLara Aykırı Davranışınız Tespit EdiLdi! 0,4 20 dk susturuldunuz0,1 KuraLLar icin /ruLes yazIn.  | Window -e @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] | titlebar @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Kanal Korumalarından gelen suc ve ceza raporları | echo 4 @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] »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 %::chan = $chan
var %::nick = $nick
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) {
/msg $chan !sus $nick 0,1 KuraLLara Aykırı Davranışınız Tespit EdiLdi! 0,4 20 dk susturuldunuz0,1 KuraLLar icin /ruLes yazIn.  | Window -e @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] | titlebar @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Kanal Korumalarından gelen suc ve ceza raporları | echo 4 @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] »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 %::chan = $chan
var %::nick = $nick
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) {
/msg $chan !sus $nick 0,1 KuraLLara Aykırı Davranışınız Tespit EdiLdi! 0,4 20 dk susturuldunuz0,1 KuraLLar icin /ruLes yazIn.  | Window -e @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] | titlebar @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Kanal Korumalarından gelen suc ve ceza raporları | echo 4 @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] »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,Status {
|-Kufur Koruma-|:/dialog -m Badword Badword
}
alias badnick { Window -e @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] | titlebar @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Kanal Korumalarından gelen suc ve ceza raporları | echo 4 @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] »10 10Suç:7BaDnick 10Nick:7 $nick 10KaNaL:7 # 10 BaN Süresi:7 Süresiz 10 Zaman:7 $time | ban # $nick 2 | kick # $nick 4 $chan 12 kanaLı 2Sohbet odalaSı kurallarına ( 4 Uygun bir nick KuLLanmama 2) sebebinden dolayı 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:#:{
var %::chan = $chan
var %::nick = $nick
if (%nickkor == ON) {
mode %::chan +b %::nick | kick %::chan %::nick 5 Küfür !
}
}
#blacklist END


Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 00:58.

Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2025, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2025 IRCForumlari.Net Sparhawk