Küfüre Ayrı Pencere - IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

StanteaR · 14 Temmuz 2011, 15:45

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

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

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
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
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
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
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
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
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
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
adword: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

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

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: Kodu kopyalamak için üzerine çift tıklayın!

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

»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

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

kısmını

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

olarak denermisiniz.

StanteaR · 14 Temmuz 2011, 22:49

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

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

yaptığımı kısmı

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

olarak denermisiniz.

StanteaR · 15 Temmuz 2011, 22:49

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

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

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.

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
Arkadaşlar @bankick ayrı pencere yardım	cihangarip	mIRC Scripting Sorunları	14	07 Temmuz 2015 00:42
küfür text den kick ve ayrı pencere	Dangerous123	mIRC Scripting Sorunları	3	14 Temmuz 2013 16:25

Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)

5846 sayılı Fikir ve Sanat Eserleri Kanunu gereğince sitemizde telif hakkı bulunan mp3,video v.b. eserlerin paylaşımı yasaktır. Yasal işlem olması halinde paylaşan kişi yada kişilerin bilgileri gerekli kuruma verilecektir.