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

1Beğeni(ler)

Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 30 Ocak 2011, 19:17   #1
Çevrimiçi
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (1)
IF Ticaret Yüzdesi:(%)
Kufur koruma ve temizleme kodu lazım




Sa Arkadaslar bana bir code lazım ama code şu sekılde olacak mesela salona birisi uzun bir yazı yazdı ve ıcınde küfür var ornek merhaba nasılsın kimimben .... ederim gibi kelimede uzun cumlenin ortassında bile küfür oldugu zaman bunu kanaldan mirc otomatik zline gline kline ile atıp hemen arkasından otomatik mirc salonu temizleyecek kelimeyi ben ekledik birisi salonda küfür ederse uzun cümle icinde bile olsa ona gline zline kline ile atıp hemen salonu temizleyecek bir code lazım elinde olan arkadas varsa bi zahmet yardımcı olsun Tsk.

 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları sohbet odaları Yazgulu Sohbet
Alt 30 Ocak 2011, 22:52   #2
Çevrimiçi
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (1)
IF Ticaret Yüzdesi:(%)
Cevap: Kufur koruma ve temizleme kodu lazım




hiç kimsenin bu konuda hakkında bilgisi yok mu arkadaslar

 
Alıntı ile Cevapla

Alt 30 Ocak 2011, 23:17   #3
Çevrimdışı
~ IRCTR.Org ~
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (1)
IF Ticaret Yüzdesi:(%)
Cevap: Kufur koruma ve temizleme kodu lazım




Kod:   Kodu kopyalamak için üzerine çift tıklayın!
on 1:TEXT:*:#: { if ($nick isop #) || ($istok(#admin #Ops #help #operhelp,#,32)) return if (
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
iswm $fulladdress) { halt } if (
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
iswm $fulladdress) { halt } if (--- isin $1-) || (AMINA isin $1-) || (AMINI isin $1-) || (kavat isin $1-) || (sike isin $1-) || (avradını isin $1-) || (sikti isin $1-) || (sokarım isin $1- ) || (pezevenk isin $1-) || (sikiyim isin $1-) || (sikis isin $1-) || (----- isin $1-) || (siker isin $1-) || (****** isin $1-) || (------ isin $1-) || (fahişe isin $1-) || (ananı isin $1-) || (topunuzun isin $1-) || (sikik isin $1-) || (-------- isin $1-) || (shit isin $1-) || (sevişecek isin $1-) || (sux isin $1-) || (götden isin $1-) || (götün isin $1-) || (fahişe isin $1-) || (--- isin $1-) || (
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
isin $1-) || (.net isin $1-) || (.org isin $1-) || (tr.gg isin $1-) || (irc. isin $1-) || (http:// isin $1-) || (.com isin $1-) || (hotmail isin $1-) || (a.q isin $1-) || .temizle { if $me !isop $chan { halt } if $nick isop $chan { halt } .samode $chan +b $wildsite .samode $chan +b $nick .kick $chan $nick 7 $chan Kanalında 14Sohbet Kurallarina 7Aykiri 7Kelime Kullandiniz. 14 $date 7 $time  .msg #bilgi 14 » 4 $nick 14 « 12 $chan 1 odasinda 12 reklam/küfür 1 sebebinden atildi. | .msg #bilgi 5 Tespit edilen reklam veya küfür mesaji: 4,4 $1- }  } }

denemedım ama muhtemelen calısacaktır.

 
Alıntı ile Cevapla

Alt 31 Ocak 2011, 00:24   #4
Çevrimiçi
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (1)
IF Ticaret Yüzdesi:(%)
Cevap: Kufur koruma ve temizleme kodu lazım




peki bu kodda zline gline kline herhangi birisini atıyor mu ve kanalı hemen arkasına temızlıyor mu arkadasım

----------

yok bu dedigim deyil denedim ben kelime yazıldıgı zaman zline gline kline herhangi birisni atacak ve hemen arkasından salonu temizleyecek bi code istiyorum

 
Alıntı ile Cevapla

Alt 31 Ocak 2011, 08:22   #5
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Kufur koruma ve temizleme kodu lazım




Alıntı:
dialog kufur {
title "Küfür Koruması [ NaTSuKa ]"
size -1 -1 138 186
option dbu
edit "", 1, 7 10 61 10
list 2, 7 22 60 50, size
button "Ekle", 3, 7 74 27 12, flat
button "Sil", 4, 39 74 27 12, flat
check "Opları (@)", 5, 85 21 41 10, flat
check "Voiceler (@)", 6, 85 10 42 10, flat
combo 7, 7 102 52 51, size
button "Ekle", 8, 7 154 24 9, flat
button "Sil", 9, 35 154 23 9, flat
box "Küfür listesi", 13, 3 2 71 88
box "Ayrılan Nickler", 14, 3 92 63 76
box "Ayrılan Kanallar", 15, 73 92 62 76
box "Ayır", 16, 78 2 56 33
button "Sil", 10, 106 154 23 9, flat
button "Ekle", 11, 78 154 24 9, flat
combo 12, 78 102 52 51, size
box "İşlemler", 17, 78 37 56 53
radio "Opersem Zline", 18, 83 47 47 10, flat
radio "Opersem Gline", 19, 83 57 47 10, flat
radio "Opsam Kick", 20, 83 67 47 10, flat
check "Banla", 21, 83 77 27 10, flat
button "Kapat", 22, 97 171 37 12, flat ok
}
alias kufur { /dialog -m kufur kufur }
on *:dialog:kufur:init:*: {
if ($isfile(kufur.txt) == $false) { write -c kufur.txt } | else { loadbuf -o $dname 2 kufur.txt }
if (%knickler) .didtok $dname 7 32 $ifmatch
if (%kufkanal) .didtok $dname 12 32 $ifmatch
if (%klineat) { .did -c $dname 18 }
if (%killat) { .did -c $dname 19 }
if (%kickat) { .did -c $dname 20 }
if (%banla) { .did -c $dname 21 }
if (%oplar) { .did -c $dname 5 }
if (%vlar) { .did -c $dname 6 }
}
on *:dialog:kufur:sclick:*: {
if ($did == 18) { if ($did(18).state == 1) { .set %klineat on | .unset %killat | .unset %kickat } | else { .unset %klineat } }
if ($did == 19) { if ($did(19).state == 1) { .set %killat on | .unset %klineat | .unset %kickat } | else { .unset %killat } }
if ($did == 20) { if ($did(20).state == 1) { .set %kickat on | .unset %killat | .unset %klineat } | else { .unset %kickat } }
if ($did == 21) { if ($did(21).state == 1) { .set %banla on } | else { .unset %banla } }
if ($did == 3) { write kufur.txt $did(1) | did -a $dname 2 $did(1) | did -r $dname 1 }
if ($did == 4) { write -dl $+ $did(2).sel kufur.txt | did -d $dname 2 $did(2).sel }
if ($did == 8) { if ($did(7) != $null) { set -u %sk $did(7) | if (%sk) && (!$istok(%knickler,%sk,32)) { .set %knickler $addtok(%knickler,%sk,32) | did -a $dname 7 %sk } } }
if ($did == 9) { if ($did(7).sel > 0) { .set %knickler $remtok(%knickler,$did(7).seltext,1,32) | did -d $dname 7 $did(7).sel | did -c $dname 7 1 } }
if ($did == 11) { if ($did(12) != $null) { set -u %ek $did(12) | if (%ek) && (!$istok(%kufkanal,%ek,32)) { .set %kufkanal $addtok(%kufkanal,%ek,32) | did -a $dname 12 %ek } } }
if ($did == 10) { if ($did(12).sel > 0) { .set %kufkanal $remtok(%kufkanal,$did(12).seltext,1,32) | did -d $dname 12 $did(12).sel | did -c $dname 12 1 } }
if ($did == 5) { if ($did(5).state == 1) { .set %oplar on } | else { .unset %oplar } }
if ($did == 6) { if ($did(6).state == 1) { .set %vlar on } | else { .unset %vlar } }
}
on *:text:*:#: {
if (*!*@*.sunucuadın.com iswm $fulladdress) { halt }
if (*@irc.sunucuadın.com iswm $fulladdress) { halt }

if $istok(%kufkanal,#,32) == $true { halt }
if $istok(%knickler,$nick,32) == $true { halt }
if ($nick isop #) && (%oplar == on) { return }
if ($nick isvo #) && (%vlar == on) { return }
korukufurden $1-
}
alias korukufurden {
var %HR $strip($1-) , %_: $lines(kufur.txt)
while (%_
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
{
if $read(kufur.txt,%_
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
iswm %HR iswm %HR {
if (%banla == on) { .mode $chan +b $wildsite | .timer 35 00 /msg #  }
if (%klineat == on) { .zline $nick Lutfen kufur etmeyin | .timer 35 00 /msg #  }
if (%killat == on) { .gline $nick Lutfen kufur etmeyin | .timer 35 00 /msg #  }
if (%kickat == on) { .kick $chan $nick Lutfen kufur etmeyin }
return
}
dec %_:
}
}



Bu Natsuka Nıcklı Kısının Kufur Koruması Bu Korumada Bıraz Oynama Yaptım Zline Ve Gline Ekledım Ban Sonlarına Timer İle Otomatık Temızleme Yapacak Ve Ek Olarakda Sunucu Hostunu Koruması Icın Kod Ekledım Eklenen Yerler Ve Duzenlemen Gereken Yerler Kırmızı Isaretlı Hadı Iyı IFLer

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

Alt 06 Şubat 2011, 08:53   #6
Çevrimiçi
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (1)
IF Ticaret Yüzdesi:(%)
Cevap: Kufur koruma ve temizleme kodu lazım




Yok denedim buda olmuyor Kardes zline gline herhangi birisini atıp hemen arkasından salonu temızleme yapacak bir code lazım

 
Alıntı ile Cevapla

Alt 06 Şubat 2011, 12:47   #7
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Kufur koruma ve temizleme kodu lazım




on *:text:*:#: {
if $nick !isop $chan && $nick !ishop $chan && $nick !isvop $chan && $nick !ison #opers {
if *küfürr* iswm $1- {
gline $nick sunucu rahatsizlik sebebi ile uzaklaştırıldınız
.timer 1 01 play $chan temizle.txt 300
}
if *küfür.* iswm $1- {
gline $nick sunucu rahatsizlik sebebi ile uzaklaştırıldınız
.timer 1 01 play $chan temizle.txt 300
}
if *küfür* iswm $1- {
gline $nick sunucu rahatsizlik sebebi ile uzaklaştırıldınız
.timer 1 01 play $chan temizle.txt 300
}
if *küfür* iswm $1- {
gline $nick Reklam rahatsizlik sebebi ile uzaklaştırıldınız
.timer 1 01 play $chan temizle.txt 300

}
if *küfür* iswm $1- {
gline $nick Reklam rahatsizlik sebebi ile uzaklaştırıldınız
.timer 1 01 play $chan temizle.txt 300

}
if *küfür* iswm $1- {
gline $nick Reklam rahatsizlik sebebi ile uzaklaştırıldınız
.timer 1 01 play $chan temizle.txt 300

}
if *küfür* iswm $1- {
gline $nick Reklam sebebi ile uzaklaştırıldınız
.timer 1 01 play $chan temizle.txt 300

}
if *küfür* iswm $1- {
gline $nick Reklam sebebi ile uzaklaştırıldınız
.timer 1 01 play $chan temizle.txt 300

}
if *küfür* iswm $1- {
gline $nick Reklam sebebi ile uzaklaştırıldınız
.timer 1 01 play $chan temizle.txt 300
}
}
}
küfür yazan yerlere istemediğin kelimeleri yazman gerekiyor
temizle.txt ekle mircinin ana klasörüne
temizle.txt içersine kanalını nasıl temizlemek istiyorsan onu ekle alt alta
örnk:
.
.
.
.
.
.
.
.
.
.
.


Konu muratt_aziz tarafından (06 Şubat 2011 Saat 12:58 ) değiştirilmiştir.
 
Alıntı ile Cevapla

Alt 06 Şubat 2011, 21:08   #8
Çevrimiçi
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (1)
IF Ticaret Yüzdesi:(%)
Cevap: Kufur koruma ve temizleme kodu lazım




Olmadı kardes bu kodu oldugu gıbı mrc de ALT R yaparak remoteye attım sonra Mirc ana klasorune temizle.txt koydum ve ıcını doldurdum yıne olmadı hem bunda kufur ekleme sılme ve listesini nereden bulacaz maus ıle sag tıkladım kufur ıle ılgılı bi seyde cıkmadı sonrada bu kodların ıcınde if *küfür* iswm $1- { burdaki küfür yazan yere denemek ıcınde küfür kelimesi koydum yine olmadı Bunları deneyerek mi yaptın yoksa tahmını bi kode mi verdin

 
Alıntı ile Cevapla

Alt 06 Şubat 2011, 22:29   #9
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Kufur koruma ve temizleme kodu lazım




Aslinda Forumu aramaniz yeterliydi
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.


Difuzyon Arkadasimizdan böyle bir Kod vardi, Kodu degistirip Kick yerine zline yazsin diye degistirdim.

Ve Argo Kelimeden Sonra Kanal temizlemesi icin timer ekledim.

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
#difiprotect on on *:text:*:#:var %jnk = 0, %cenk | while %jnk <= $numtok($1-,32) { %cenk = $strip($token($1-,$v1,32)) | if $hregex(Küfürler,%cenk,0) { zline $nick : Argo\Küfür sebebiyle Sunucudan uzaklastirildin | /timer 50 0 /msg $chan 0,0. | halt } | inc %jnk } #difiprotect end alias küfürekle { if $hget(Küfürler,$1) { echo 06 -a $1 listede mevcut. } else { hadd -m Küfürler $1 1 hsave -i Küfürler Küfürler.data echo 07 -a $1 Argo\Küfür listesine eklendi. } } alias küfürsil { if !$hget(Küfürler,$1) { echo 06 -a $1 listede yok } else { hdel Küfürler $1 hsave -i Küfürler Küfürler.data echo 07 -a $1 Argo\Küfür listesinden silindi. } } alias küfürlist { $iif(!$window(@Küfürler),window -nz @Küfürler,clear @Küfürler) aline 04 @Küfürler Küfür Listesi var %dify 1 | while %dify <= $hget(Küfürler,0).item { aline -h 02 @Küfürler $hget(Küfürler,%dify).item | inc %dify } aline -h 05 @Küfürler Toplam $hget(Küfürler,0).item veri mevcut. } on *:start:.hload Küfürler Küfürler.data menu channel { .Küfür Korumasi ..Aç:.enable #difiprotect | echo 04 -a Koruma Açik | echo 02 -a Küfür eklemek için /küfürekle kelime | echo 02 -a Küfür silmek için /küfürsil kelime | echo 02 -a Liste için /küfürlist ..Kapa:.disable #difiprotect | echo 12 -a Koruma Kapali }

Ben denedim ve bende oldu.

Bu Kodu alip ALT+R yapip Remote kisminda yeni Sayfa acip icine yapistiriniz ardından scriptinizi tamamen kapayıp yeniden açınız(bir defaya mahsus).

Sag fareye tikladiginiz zaman Küfür Korumasi yaziyor ordan acip kapata biliyorsunuz.

Küfür eklemek icin

/küfürekle KELIME

silmek icin

/küfürsil KELIME

Listeyi görmek icin

/küfürlist

Hepinize Hayirli Forumlar dilerim

NefeS


Konu Difuzyon tarafından (07 Şubat 2011 Saat 09:16 ) değiştirilmiştir. Sebep: on *:start başlangıç değeri olduğundan script Aç-Kapa bilgisi girildi.
 
Alıntı ile Cevapla

Alt 06 Şubat 2011, 23:29   #10
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Kufur koruma ve temizleme kodu lazım




kod calışıyor denedim mircinde /remote on yazıp dene birde mircle alakalı birşey sanıyorum sorununu arkadaşların kodlarıda güzel kodlar

----------

if $nick !isop $chan && $nick !ishop $chan && $nick !isvop $chan && $nick !ison #opers {
şu satırı ve en alttan
} aytac silip dene bakalım ne cvp verecek

 
Alıntı ile Cevapla

Cevapla

Etiketler
kodu, koruma, kufur, temizleme, ve


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 koruma AyazGeceLer mIRC Scripting Sorunları 2 19 Şubat 2009 02:13
kufur koruma ile ilgili ahmet_corum mIRC Scripting Sorunları 6 13 Şubat 2009 00:09
Kufur Koruma AyazGeceLer mIRC Scripting Sorunları 2 06 Şubat 2009 22:53
Kufur Koruma Yardim AyazGeceLer mIRC Scripting Sorunları 2 29 Ocak 2009 20:29
kufur koruma temizlik Heavenly mIRC Scripting Sorunları 13 27 Ocak 2009 22:23