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

3Beğeni(ler)

Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 14 Temmuz 2011, 15:45   #1
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
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.

__________________
Benim En Kötü Hikaye'mi En Güvendiğim İnsanlar Yazdı..
Erhan İle Hüzünlü Saatler Etka..
 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları sohbet odaları Yazgulu Sohbet
Alt 14 Temmuz 2011, 17:43   #2
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
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.

 
Alıntı ile Cevapla

Alt 14 Temmuz 2011, 18:35   #3
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
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
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
}
}
}
}
}


__________________
Benim En Kötü Hikaye'mi En Güvendiğim İnsanlar Yazdı..
Erhan İle Hüzünlü Saatler Etka..
 
Alıntı ile Cevapla

Alt 14 Temmuz 2011, 19:03   #4
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Küfüre Ayrı Pencere




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

 
Alıntı ile Cevapla

Alt 14 Temmuz 2011, 19:33   #5
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
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.

__________________
Benim En Kötü Hikaye'mi En Güvendiğim İnsanlar Yazdı..
Erhan İle Hüzünlü Saatler Etka..
 
Alıntı ile Cevapla

Alt 14 Temmuz 2011, 21:58   #6
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Küfüre Ayrı Pencere




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

kısmını

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

olarak denermisiniz.


Konu xwerswoodx tarafından (15 Temmuz 2011 Saat 17:14 ) değiştirilmiştir.
 
Alıntı ile Cevapla

Alt 14 Temmuz 2011, 22:49   #7
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
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

__________________
Benim En Kötü Hikaye'mi En Güvendiğim İnsanlar Yazdı..
Erhan İle Hüzünlü Saatler Etka..
 
Alıntı ile Cevapla

Alt 15 Temmuz 2011, 17:13   #8
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Küfüre Ayrı Pencere




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

yaptığımı kısmı

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

olarak denermisiniz.

 
Alıntı ile Cevapla

Alt 15 Temmuz 2011, 22:49   #9
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
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ı ?

__________________
Benim En Kötü Hikaye'mi En Güvendiğim İnsanlar Yazdı..
Erhan İle Hüzünlü Saatler Etka..
 
Alıntı ile Cevapla

Alt 16 Temmuz 2011, 03:18   #10
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Küfüre Ayrı Pencere




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.


Konu WingmaN tarafından (16 Temmuz 2011 Saat 03:26 ) değiştirilmiştir.
 
Alıntı ile Cevapla

Cevapla

Etiketler
ayrı, küfüre, pencere


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

Yetkileriniz
Konu Acma Yetkiniz Yok
Cevap Yazma Yetkiniz Yok
Eklenti Yükleme Yetkiniz Yok
Mesajınızı Değiştirme Yetkiniz Yok

BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodu Kapalı
Trackbacks are Kapalı
Pingbacks are Açık
Refbacks are Açık


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