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

2Beğeni(ler)

Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 16 Şubat 2009, 00:06   #11
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: kufur koruması




SaGoPa-mİRCKanka Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Kod:   Kodu kopyalamak için üzerine çift tıklayın!
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.

bu koda op olduğum şekilde ayarladım ben oper değilim.@ olduğum kanalda çalışıyo ama op deilsem Kanala Seviyeli oL Nick i die bi mesaj nasıl yollariyani Ali nici küfür ettiğinde opsam banlıcam deilsem kanala Seviyeli oL Ali die mesaj yollıcam.

 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları sohbet odaları Yazgulu Sohbet
Alt 16 Şubat 2009, 00:21   #12
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: kufur koruması




Alıntı:
on *:TEXT:*:#:{
if ($istok(#Oper #help #oplar,$chan,32)) { halt }
if ($me !isop $chan) { msg $nick Lütfen küfürlü kelimeler kullanmayın yoksa banlanıcaksınız.. }
if ($me isop $chan) {
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
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 15 Dk 10 Zaman:7 $time }
}
}
}
}

Kırmızı bölgelerde yaptığım editle bahsettiğin olayı gerçekleştirdim..
sadece text eventinde yaptım bunu, action badwork vb. leride bakıp kendin editleyebilirsin..

İyi kullanımlar..

 
Alıntı ile Cevapla

Alt 16 Şubat 2009, 00:23   #13
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: kufur koruması




Alıntı:
on *:TEXT:*:#:{
if ($istok(#Oper #help #oplar,$chan,32)) { halt }
if ($me !isop $chan) { msg $nick Lütfen küfürlü kelimeler kullanmayın yoksa banlanıcaksınız.. }
if ($me isop $chan) {

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
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 15 Dk 10 Zaman:7 $time }
}
}
}
on *:action:*:#:{
if ($istok(#Oper #help #oplar,$chan,32)) { halt }
if ($me !isop $chan) { msg $nick Lütfen küfürlü kelimeler kullanmayın yoksa banlanıcaksınız.. }
if ($me isop $chan) {

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
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 15 Dk 10 Zaman:7 $time }
}
}
}
on *:notice:*:#:{
if ($istok(#Oper #help #oplar,$chan,32)) { halt }
if ($me !isop $chan) { msg $nick Lütfen küfürlü kelimeler kullanmayın yoksa banlanıcaksınız.. }
if ($me isop $chan) {

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

Yada ben yaptım hepsini
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Alıp direkt remotene kopyala yapacağın bir edit yok..

 
Alıntı ile Cevapla

Alt 07 Ekim 2011, 14:58   #14
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: kufur koruması




Teşekkürler

 
Alıntı ile Cevapla

Alt 09 Nisan 2013, 03:27   #15
TİGeR
Guest
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Yüzdesi:(%)
Cevap: kufur koruması




Bunu hem op (@) hemde halfop (%) ikende calısması için ne yapmamız lazım ?
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

 
Alıntı ile Cevapla

Alt 10 Nisan 2013, 01:43   #16
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: kufur koruması




Kod:   Kodu kopyalamak için üzerine çift tıklayın!
if ($me isop $chan) {

yazan satırları

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
if ($me isop $chan) || ($me ishop $chan) {

gibi değiştir.

 
Alıntı ile Cevapla

Cevapla

Etiketler
koruması, kufur, mirc, mirc download, mirc indir


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
Kufur korumaSı AsCi ramizdayi mIRC Scripting Sorunları 6 25 Mayıs 2010 23:18
Kufur Koruması Hakkında Hesna mIRC Scripting Sorunları 9 24 Mart 2009 23:29
Kufur Koruması Hakkında Cybersoft mIRC Scripting Sorunları 9 14 Şubat 2009 03:27
Kufur koruması morveotesii mIRC Scripting Sorunları 14 21 Eylül 2006 20:35
Flood ve Kufur Koruması Wolfram mIRC Scripting Sorunları 15 18 Temmuz 2006 05:23