Cümlede Geçen Küfürleri Atan Bir Addon ? - IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

tanerdino · 20 Nisan 2007, 09:20

baktım ama bulamadim. iyi ve sade bi küfür koruması var mi ? ama sadece kelime olarak degil cümle icinde de gecen küfürleri atabilen bi küfür koruması lazim. yardımcı olabilirmisiniz?

BeLaLim · 20 Nisan 2007, 09:26

Kod:

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 Kline", 18, 83 47 47 10, flat
radio "Opersem Kill", 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:*: {
var %~ $numtok(%kfr,32)
while %~ {
did -a $dname 2 $gettok(%kfr,%~,32)
dec %~
}
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) { if !$istok(%kfr,$did(1),32) { set %kfr $addtok(%kfr,$did(1),32) } | did -a $dname 2 $did(1) | did -r $dname 1 }
if ($did == 4) { if $istok(%kfr,$did(2).seltext,32) { set %kfr $remtok(%kfr,$did(2).seltext,32) } | 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 $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-) , %_: $numtok(%kfr,32)
while (%_
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
{
if $gettok(%kfr,%_:,32) iswm %HR iswm %HR || $gettok(%kfr,%_:,32) isin %HR iswm %HR {
if (%banla == on) { .mode $chan +b $wildsite | .mode $chan +b $nick }
if (%klineat == on) { .kline $nick Lutfen kufur etmeyin }
if (%killat == on) { .kill $nick Lutfen kufur etmeyin }
if (%kickat == on) { .kick $chan $nick Lutfen kufur etmeyin }
return
}
dec %_:
}
}

/kufur Yazarak Dialog'u Açabilirsin. + İyi Bir Arama Yapamamışsın.

Not:Kod NaTSuKa'Ya Aittir.

tanerdino · 20 Nisan 2007, 09:56

ekledigim zaman :

* /while: invalid format (line 67, script3.ini)

bu cıkıyor bu ne demek ?

BeLaLim · 20 Nisan 2007, 10:02

tanerdino , ALT+R Remoteye yapıştır kodu tamam de kapat. ben ekledim bir sorun yok gayet güzel çalışıyor kullanıyorum hatta...

tanerdino · 20 Nisan 2007, 10:05

acaba bende mı sorun var simdide küfürleri eklıyorum, daha sonra kapat dıyorum baska bi nickle küfür ediyorum atmıyor :s /remote on 'da yapmistim halbuki..

20 Nisan 2007, 10:09

kendi kullandigim kod,

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

on 1:TEXT:*:#: { if $me !isop $chan { halt } if $nick isop $chan { halt } if (fuck isin $1-) || (s2 isin $1-) || (avradını isin $1-) || (sikti isin $1-) || (sokarım isin $1- ) || (pezevenk isin $1-) || (siktir isin $1-) || (yarak isin $1-) || (****** isin $1-) || (sikiyim isin $1-) || (sikis isin $1-) || (***** isin $1-) || (siker isin $1-) || (****** isin $1-) || (****** isin $1-) || (fahişe isin $1-) || (ananı isin $1-) || (ibne isin $1-) || (ipne isin $1-) || (amına isin $1-) || (amcıgını isin $1-) || (***** isin $1-) || (amcik isin $1-) || (amina isin $1-) || (aminin isin $1-) || (topunuzun isin $1-) || (sikik isin $1-) || (götveren isin $1-) || (ANNENi isin $1-) || (sikerim isin $1-) || (sevişecek isin $1-) || (sux isin $1-) || (götden isin $1-) || (götün isin $1-) || (fahişe isin $1-) || (*** isin $1-) || (a.q isin $1-) { cs akick $chan add $address($nick,2) $chan you Are banned! | cs akick $chan enforce | cs akick $chan del $address($nick,2) } }

kly gelsin.

tanerdino · 20 Nisan 2007, 10:14

silencer ;

-ChanServ-
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
maskesi #asd kanalinin akick listesine eklendi.
-
-ChanServ- #vip icin AKICK ENFORCE tamamlandi; 0 kullanici bundan etkilendi.
-
-ChanServ-
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
#asd kanalinin akick listesinden silindi.

---

akick yerine ban kick ve sebep olarak nasık ayarlayabiliriz?

20 Nisan 2007, 10:18

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

on 1:TEXT:*:#: { if $me !isop $chan { halt } if $nick isop $chan { halt } if (fuck isin $1-) || (s2 isin $1-) || (avradını isin $1-) || (sikti isin $1-) || (sokarım isin $1- ) || (pezevenk isin $1-) || (siktir isin $1-) || (yarak isin $1-) || (****** isin $1-) || (sikiyim isin $1-) || (sikis isin $1-) || (sikiş isin $1-) || (siker isin $1-) || (****** isin $1-) || (****** isin $1-) || (fahişe isin $1-) || (ananı isin $1-) || (ibne isin $1-) || (ipne isin $1-) || (amına isin $1-) || (amcıgını isin $1-) || (amcık isin $1-) || (amcik isin $1-) || (amina isin $1-) || (aminin isin $1-) || (topunuzun isin $1-) || (sikik isin $1-) || (götveren isin $1-) || (ANNENi isin $1-) || (sikerim isin $1-) || (sevişecek isin $1-) || (sux isin $1-) || (götden isin $1-) || (götün isin $1-) || (fahişe isin $1-) || (piç isin $1-) || (a.q isin $1-) { .mode $chan +b $address($nick,5) | .kick $chan $nick sebep } }

Bu yeterli olur sanirim.

tanerdino · 20 Nisan 2007, 10:33

super oldu tesekkur ederim arkadasim

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
Taş atan çocuk dedikleri çocuklarla yumurta atan çocuklar aynı çocuklardır.	Hande	Genel Paylaşım	0	15 Aralık 2010 17:09
Çocuk KüfürLeri..	dreamy	Komedi ve Mizah	6	18 Nisan 2009 21:04
İlkokul KüfürLeri...	RoSa	Komedi ve Mizah	0	20 Kasım 2007 18:30
İlkokul küfürleri.	kont_dracula	Genel Paylaşım	0	18 Temmuz 2006 19:40

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.