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

- 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)

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.

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.

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
}
}
}
}
}

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ş.

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.

Cevap: Küfüre Ayrı Pencere

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

kısmını

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

olarak denermisiniz.

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

Cevap: Küfüre Ayrı Pencere

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

yaptığımı kısmı

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

olarak denermisiniz.

Cevap: Küfüre Ayrı Pencere

Alıntı:

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ı ?

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.