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

IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası (https://www.ircforumlari.net/)
-   mIRC Scripting Sorunları (https://www.ircforumlari.net/mirc-scripting-sorunlari/)
-   -   Cümlede Geçen Küfürleri Atan Bir Addon ? (https://www.ircforumlari.net/mirc-scripting-sorunlari/30469-cumlede-gecen-kufurleri-atan-bir-addon.html)

tanerdino 20 Nisan 2007 09:20

Cümlede Geçen Küfürleri Atan Bir Addon ?
 
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

Yanıt: Cümlede Geçen Küfürleri Atan Bir Addon ?
 
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 (%_:) {
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

Cevap: Cümlede Geçen Küfürleri Atan Bir Addon ?
 
ekledigim zaman :

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

bu cıkıyor bu ne demek ?

BeLaLim 20 Nisan 2007 10:02

Yanıt: Cümlede Geçen Küfürleri Atan Bir Addon ?
 
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

Cevap: Cümlede Geçen Küfürleri Atan Bir Addon ?
 
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..

Silencer 20 Nisan 2007 10:09

Cevap: Cümlede Geçen Küfürleri Atan Bir Addon ?
 
kendi kullandigim kod,

Kod:

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

Cevap: Cümlede Geçen Küfürleri Atan Bir Addon ?
 
silencer ;

-ChanServ- [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] maskesi #asd kanalinin akick listesine eklendi.
-
-ChanServ- #vip icin AKICK ENFORCE tamamlandi; 0 kullanici bundan etkilendi.
-
-ChanServ- [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] #asd kanalinin akick listesinden silindi.

---

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

Silencer 20 Nisan 2007 10:18

Cevap: Cümlede Geçen Küfürleri Atan Bir Addon ?
 
Kod:

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

Cevap: Cümlede Geçen Küfürleri Atan Bir Addon ?
 
super oldu tesekkur ederim arkadasim


Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 23:28.

Powered by vBulletin® Version 3.8.8 Beta 3
Copyright ©2000 - 2024, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2024 IRCForumlari.Net