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/)

- - Küfür ve Argo Cümle İçinde (https://www.ircforumlari.net/mirc-scripting-sorunlari/212453-kufur-ve-argo-cumle-icinde.html)

Cihandar

23 Mayıs 2009 19:06

Küfür ve Argo Cümle İçinde

SaLykm .
Ustalar Bi Script Çalışması Yapıyorumda Yalnız Bir Sorunum Var .
Küfür Koruması ve Argo Kelime Koruması Gerektiği Gibi Çalışmıyor .
Cümle İçinde Bir Küfür veya Argo Kelime Kullanıldığında Atmıyor .
Txt İçinden Okuyan Bir Koruma Yapmıştım Oda Selam Yazsan Atıyordu .
Sizden Ricam Sağlam Bir KÜFÜR KORUMASI Sağlam Çalışan Varsa Bir Yardımcı Olurmusunuz .

Serhat

23 Mayıs 2009 20:19

Cevap: Küfür ve Argo Cümle İçinde

Alıntı:

on *:load:{
.set %kiket on
.set %oplar on
.set %banvaxt 200
.set %kickmsj BAD-WORD Detected. Please stop swearing-
.set %soyush fuck,shit,bitch,idiot
.echo -a 2Swear4 protection...
.echo -a 4Type 2/bad4 to open !
.echo -a 7 Good luck!! 4:12>
}

on @*:text:*:#: {
if ($nick isop #) && (%oplar == on) { return }
if ($nick isvo #) && (%vlar == on) { return }
_swer_ $1-
}
on @*:action:*:#: {
if ($nick isop #) && (%oplar == on) { return }
if ($nick isvo #) && (%vlar == on) { return }
_swer_ $1-
}
on @*:notice:*:#: {
if ($nick isop #) && (%oplar == on) { return }
if ($nick isvo #) && (%vlar == on) { return }
_swer_ $1-
}
alias _swer_ {
var %x $strip($1-) , %i $numtok(%soyush,44)
while (%i) {
if ($gettok(%soyush,%i,44) iswm %x) || ($gettok(%soyush,%i,44) isin %x) {
if (%kiket == on) { .kick # $nick $iif(%kickmsj != $null,%kickmsj ,BAD-WORD Detected. Please stop swearing- 1[4 $gettok(%soyush,%i,44) 1]) }
if (%banet == on) { .ban # $nick 2 }
return
}
dec %i
}
}

dialog swear {
title "Swear protection"
size -1 -1 185 111
option dbu
box "List of Bad Words", 1, 90 1 94 79
combo 2, 94 10 87 53, size
button "Add", 3, 98 66 31 10
button "Del", 4, 144 65 31 10
box "", 5, 96 60 36 18
box "", 6, 142 60 36 18
box "Penalty", 7, 2 2 84 45
check "Kick ", 8, 5 13 39 10
check "Ban ", 9, 5 31 32 10
edit "", 10, 36 30 23 12, disable
text "Seconds", 11, 62 32 21 8, disable
box "Except", 12, 2 49 84 31
check "@ps", 13, 6 57 77 10
check "+Voices", 14, 6 68 75 10
box "Kick Message", 15, 2 81 182 27
edit "", 16, 6 90 174 13, autohs
}
alias bad { .dialog -m swear swear }
on *:dialog:swear:init:*:{
if (%soyush) didtok $dname 2 44 $ifmatch
if (%kiket) { .did -c $dname 8 }
if (%banet) { .did -c $dname 9 | did -e $dname 10,11 }
if (%oplar) { .did -c $dname 13 }
if (%vlar) { .did -c $dname 14 }
did -a $dname 10 %banvaxt
did -a $dname 16 %kickmsj
}
on *:dialog:swear:sclick:*:{
if ($did == 3) {
if ($did(2) != $null) { set -u %artir $did(2) | if (%artir) && (!$istok(%soyush,%artir,44)) { .set %soyush $addtok(%soyush,%artir,44) | did -a $dname 2 %artir } }
}
if ($did == 4) { if ($did(2).sel > 0) { .set %soyush $remtok(%soyush,$did(2).seltext,1,44) | did -d $dname 2 $did(2).sel | did -c $dname 2 1 } }
if ($did == 8) { if ($did(8).state == 1) { .set %kiket on } | else { .unset %kiket } }
if ($did == 9) { if ($did(9).state == 1) { .set %banet on | did -e $dname 10,11 } | else { .unset %banet | did -b $dname 10,11 } }
if ($did == 13) { if ($did(13).state == 1) { .set %oplar on } | else { .unset %oplar } }
if ($did == 14) { if ($did(14).state == 1) { .set %vlar on } | else { .unset %vlar } }
}
on *:dialog:swear:edit:*:{
%kickmsj = $did(16)
%banvaxt = $did(10)
}
menu status,menubar {
BAD-WORD:.bad
}

Bunu remotene yükledikten sonra,

/bad komutu ile diyalogu açıp ekleme/silme v.b yapabilirsin. Ben kullanıyorum sağlam çalışıyor.

Difuzyon

23 Mayıs 2009 20:49

Cevap: Küfür ve Argo Cümle İçinde

Serhat paylaşım yapmış ama bende can sıkıntısından ufak birşeyler hazırlamıştım,belki kullanmak isteyenlere lazım olur.

Kod:

#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) { ban -k $chan $nick 2 Argo\Küfür sebebiyle atıldın. | 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 Koruması

  ..Aç:.enable #difiprotect | echo 04 -a Koruma Açık | 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 Kapalı

}

Hoşca paylaşımlar...

Gulsum

16 Kasım 2009 23:39

Cevap: Küfür ve Argo Cümle İçinde

*salak
salak*
salak
sa*lak
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
verdiği kode de yukardaki gibi ekliyebiliyormuyuz denedim calışmadıda.

neobre

17 Kasım 2009 19:37

Cevap: Küfür ve Argo Cümle İçinde

Kod:

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:*: {

  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 $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 (%_:) {

    if $read(kufur.txt,%_:) iswm %HR iswm %HR {

      if (%banla == on) { .mode $chan +b $wildsite }

      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 %_:

  }

}

Kod:

alias argosil {

if ($read(Argo.txt,w,$+(*,$1-,*))) {

write -dl $+ $readn argo.txt

echo -a $1- Argo veri tabanindan çıkarıldı

}

}

alias argoekle { write argo.txt $1- | echo -a $1- argosu veri tabanina eklendi }

#Argo on

on *@:text:*:#:{

var %i 1

while $read(Argo.txt,%i) {

if ($read(Argo.txt,%i) iswm $1-) {  ban -k $chan $nick Argo kelime kullandığınız için atıldınız. [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]   }

inc %i

}

}

#Argo end

Yukarıdaki argo codesini mIRC’inize alt+r yaparak ekleyiniz.
Küfür – Argo Remotesinin Kullanımı
/argoekle mesaj şeklinde eklenmektedir.
/argosil mesaj şeklinde silinmektedir.

Gulsum

17 Kasım 2009 19:58

Cevap: Küfür ve Argo Cümle İçinde

polye arkadaşım tşk ederim yardım etmeye çalışıyosun fakat addon istemedim veya başka bi kode . yinede denedim senin verdiklerini calışmıyor;frown

neobre

17 Kasım 2009 20:01

Cevap: Küfür ve Argo Cümle İçinde

Alıntı:

Gulsum Nickli Üyeden Alıntı (Mesaj 874278)

polye arkadaşım tşk ederim yardım etmeye çalışıyosun fakat addon istemedim veya başka bi kode . yinede denedim senin verdiklerini calışmıyor;frown

ßen Kullanabilecegin Addon Verdim soru Soran Arkadasa Cvb Vermıstım :)

Artı Calısıyor Ornek /argoekle eklicenyazi /argosil sileceginyazi seklınde dene gorursun argo ve txt'nin icine atıyor.

Küfür Koruması İcinde /kufur Yazarsan Dialog cıkacaktır Karsına Gorursun Zaten;)

ExrimCi

18 Aralık 2009 06:39

Cevap: Küfür ve Argo Cümle İçinde

SevgiLi PoLye ßu güzeL payLaşımın için iLk önce teşekkür £diyorum. Tam aradığım ßi addon türü, fakat ben bu addon üzerinde değişikLik yaptım. DeğişikLik yapma sebebim ise muaf nickLer ve muaf kanaLLarıda ayrı txt dosyasına yazdırmak istememdir. Addon üzerinde değişikLik yaptım değişmesi gereken yerLeri değiştirdim ve oLduda, fakat remote kısmını akşamdan beri uğraşiyorum bir türLü yapamadım senden ricam bu addonu mircine ekLeyip bi bakabiLirmisin acaba nerede hata yapmışım küfür Listesindeki küfürLeri yazınca atmıyor başarıLarının devamını diLerim.

Kod:

dialog kufr {

  title "Küfür Koruması [ NaTSuKa ]"

  size -1 -1 131 178

  option dbu

  edit "", 1, 6 11 61 11

  list 2, 6 22 61 50, size

  button "Ekle", 3, 9 74 23 9, flat

  button "Sil", 4, 39 74 23 9, flat

  check "Opları (@)", 5, 80 21 41 10, flat

  check "Voiceler (@)", 6, 80 10 42 10, flat

  button "Ekle", 8, 11 163 23 9, flat

  button "Sil", 9, 39 163 23 9, flat

  box "Küfür Listesi", 13, 3 2 68 86

  box "Muaf NickLer", 14, 3 90 68 86

  box "Muaf KanaLLar", 15, 73 90 56 86

  box "SeçiLenLeri Koru", 16, 73 2 56 33

  button "Sil", 10, 102 163 23 9, flat

  button "Ekle", 11, 77 163 23 9, flat

  box "işLemLer", 17, 73 35 56 53

  radio "Opersem Kline", 18, 78 45 47 10, flat

  radio "Opersem Kill", 19, 78 55 47 10, flat

  radio "Opsam Kick", 20, 78 65 47 10, flat

  check "Banla", 21, 78 75 27 10, flat

  list 7, 6 110 61 50, size

  edit "", 23, 6 99 61 11

  edit "", 12, 75 99 51 11

  list 24, 75 110 51 50, size

}

alias kufr { /dialog -m kufr kufr }

on *:dialog:kufr:init:*: {

  if ($isfile(a/kufur.txt) == $false) { write -c a/kufur.txt } | else { loadbuf -o $dname 2 a/kufur.txt }

  if ($isfile(a/muafnick.txt) == $false) { write -c a/muafnick.txt } | else { loadbuf -o $dname 7 a/muafnick.txt }

  if ($isfile(a/muafkanallar.txt) == $false) { write -c a/muafkanallar.txt } | else { loadbuf -o $dname 24 a/muafkanallar.txt }

  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:kufr: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 a/kufur.txt $did(1) | did -a $dname 2 $did(1) | did -r $dname 1 }

  if ($did == 4) { write -dl $+ $did(2).sel a/kufur.txt | did -d $dname 2 $did(2).sel } 

  if ($did == 8) { write a/muafnick.txt $did(23) | did -a $dname 7 $did(23) | did -r $dname 23 } 

  if ($did == 9) { write -dl $+ $did(7).sel a/muafnick.txt | did -d $dname 7 $did(7).sel } 

  if ($did == 11) { write a/muafkanallar.txt $did(12) | did -a $dname 24 $did(12) | did -r $dname 12 }

  if ($did == 10) { write -dl $+ $did(24).sel a/muafnick.txt | did -d $dname 24 $did(24).sel }

  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 ($nick isop #) && (%oplar == on) { return }

  if ($nick isvo #) && (%vlar == on) { return }

  korukufurden $1-

}

alias korukufurden {

  var %HR $strip($1-) , %_: $lines(a/kufur.txt)

  var %mn $strip($1-) , %_: $lines(a/muafnick.txt)

  var %mk $strip($1-) , %_: $lines(a/muafkanallar.txt)

  while (%_:) {

      if $read(a/kufur.txt,%_:) iswm %HR iswm %HR

      if $read(a/muafnick.txt,%_:) iswm %mn iswm %mn

      if $read(a/muafkanallar.txt,%_:) iswm %mk iswm %mk {

      if (%banla == on) { .mode $chan +b $wildsite }

      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 %_:

  }

}

ExrimCi

21 Aralık 2009 20:09

Cevap: Küfür ve Argo Cümle İçinde

sevgiLi PoLye anLaşıLan senin bu konuLardan pek biLgin yok cevap vernediğine göre. Peki diğer arkadaşLara sesLeniyorum yokmu içinizde yardımcı oLacak biri ?

LanetLy

16 Ocak 2010 03:34

Cevap: Küfür ve Argo Cümle İçinde

PoLye'nin verdiği addonu biLiyorum aynısını uzun yaziLar icin kuLLanıyorum fakat küfür oLarak ayarLadığımda çaLısmıyordu burda görünce burdan aLdım aynısı fakat yine çaLışmıyor aynı kod

yawer

10 Kasım 2011 20:13

Cevap: Küfür ve Argo Cümle İçinde

Alıntı:

LanetLy Nickli Üyeden Alıntı (Mesaj 1040296957)

arkadaşlar kusura bakmayın karısmamam lazım ama faydam olsun ıstıyorum

bende paylaşım bendekını guzel opers ve ops olarak ayarladım her ıkısındede calısıyor buyurun kulanın

#golge on
on *:text:*:#: {
if ($nick isop #) && (%oplari == on) { return }
if ($nick isvoice #) && (%vlar == on) { return }
if (*buraya muaf tutulacak serveri yazınız iswm $fulladdress) && (%operler == on) { return }
kelimelerim $1-
}
on *:action:*:#: {
if ($nick isop #) && (%oplari == on) { return }
if ($nick isvoice #) && (%vlar == on) { return }
if (*buraya muaf tutulacak serveri yazınız iswm $fulladdress) && (%operler == on) { return }
kelimelerim $1-
}
on *:notice:*:#: {
if ($nick isop #) && (%oplari == on) { return }
if ($nick isvoice #) && (%vlar == on) { return }
if (*buraya muaf tutulacak serveri yazınız iswm $fulladdress) && (%operler == on) { return }
kelimelerim $1-
}
alias kelimelerim {
var %x $strip($1-) , %i $numtok(%soybakalim,44)
while (%i) {
if ($gettok(%soybakalim,%i,44) iswm %x) || ($gettok(%soybakalim,%i,44) isin %x) {
if (%kiketi == on) { /kick $chan $nick %kuralmsg 4(2 $server 4) }
if (%baneti == on) { /shun $nick 1800s 4Dostluk ortamını 2bozmaya calıştıgınızdan uzaklaştırıldınız.! 1 $me }
if (%killeti == on) { /kill $nick 4Dostluk ortamını 2bozmaya calıştıgınızdan uzaklaştırıldınız.! 1 $me }
if (%banlt == on) { /raw -q mode $chan +b $mask($fulladdress,2) | /banac }
if (%zileti == on) { /zline $nick 1800s 4Dostluk ortamını 2bozmaya calıştıgınızdan uzaklaştırıldınız.! 1 $me }
return
}
dec %i
}
}
dialog kelimelerim {
title "Küfür-Reklam Koruma"
size -1 -1 105 183
option dbu
box "Eklenecek Kelimeyi Girin", 1, 5 1 94 79
combo 2, 9 10 87 53, size
button "Ekle", 3, 13 66 31 10
button "Sil", 4, 60 65 31 10
box "", 5, 11 60 36 18
box "", 6, 58 60 36 18
check "Kick ", 8, 62 100 28 10
check "Shun ", 9, 62 111 32 10
edit "", 10, 9936 30 23 12, disable
text "Saniye", 11, 562 32 21 8, disable
check "@plar", 13, 6 98 33 10
check "@perler", 17, 6 87 31 10
check "voice", 14, 6 109 30 10
box "Ayır", 7, 1 80 41 44
check "Ban", 12, 62 122 25 10
check "Kill", 15, 62 133 32 10
check "Z-Line", 16, 62 90 29 8
button "Kapat", 19, 27 155 53 20, ok
box "Ceza-Tipi", 18, 55 82 46 67
}
alias bad { .dialog -m kelimelerim kelimelerim }
on *:dialog:kelimelerim:init:*:{
if (%soybakalim) didtok $dname 2 44 $ifmatch
if (%kiketi) { .did -c $dname 8 }
if (%baneti) { .did -c $dname 9 }
if (%banlt) { .did -c $dname 12 }
if (%oplari) { .did -c $dname 13 }
if (%vlar) { .did -c $dname 14 }
if (%killeti) { .did -c $dname 15 }
if (%zileti) { .did -c $dname 16 }
if (%operler) { .did -c $dname 17 }
did -a $dname 10 %banvaxti
}
on *:dialog:kelimelerim:sclick:*:{
if ($did == 3) {
if ($did(2) != $null) { set -u %artir $did(2) | if (%artir) && (!$istok(%soybakalim,%artir,44)) { .set %soybakalim $addtok(%kifirler,%artir,44) | did -a $dname 2 %artir } }
}
if ($did == 4) { if ($did(2).sel > 0) { .set %soybakalim $remtok(%soybakalim,$did(2).seltext,1,44) | did -d $dname 2 $did(2).sel | did -c $dname 2 1 } }
if ($did == 8) { if ($did(8).state == 1) { .set %kiketi on } | else { .unset %kiketi } }
if ($did == 9) { if ($did(9).state == 1) { .set %baneti on | did -e $dname 10,11 } | else { .unset %baneti | did -b $dname 10,11 } }
if ($did == 12) { if ($did(12).state == 1) { .set %banlt on | did -e $dname 10,11 } | else { .unset %banlt | did -b $dname 10,11 } }
if ($did == 15) { if ($did(15).state == 1) { .set %killeti on | did -e $dname 10,11 } | else { .unset %killeti | did -b $dname 10,11 } }
if ($did == 16) { if ($did(16).state == 1) { .set %zileti on | did -e $dname 10,11 } | else { .unset %zileti | did -b $dname 10,11 } }
if ($did == 13) { if ($did(13).state == 1) { .set %oplari on } | else { .unset %oplari } }
if ($did == 14) { if ($did(14).state == 1) { .set %vlar on } | else { .unset %vlar } }
if ($did == 17) { if ($did(17).state == 1) { .set %operler on } | else { .unset %operler } }
}
on *:dialog:kelimelerim:edit:*:{
%banvaxti = $did(10)
}
#golge end

xwerswoodx

10 Kasım 2011 23:13

Cevap: Küfür ve Argo Cümle İçinde

On *:text:*:#: {
var %:kelimeler $lines(kelime.txt)
while %:kelimeler {
if $read(kelime.txt,%:kelimeler) iswm $1- {
kick $chan Kötü kelime kullandınız!
}
dec %:kelimeler
}
}

alias kelime {
if $1 == ekle && $2 {
write kelime.txt $2
}
elseif $1 == sil && $2 {
if $read(kelime.txt,w,$2) {
write $+(-dl,$readn) kelime.txt
}
}
}

kısa bir kod, geliştirmek size kalmış, tabi ben burda öyle text kullandım ama tavsiyem, hash veya users kullanmanızdır.

AttackZone

29 Aralık 2013 14:04

Cevap: Küfür ve Argo Cümle İçinde

Alıntı:

Difuzyon Nickli Üyeden Alıntı (Mesaj 717443)

Serhat paylaşım yapmış ama bende can sıkıntısından ufak birşeyler hazırlamıştım,belki kullanmak isteyenlere lazım olur.

Kod:

#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) { ban -k $chan $nick 2 Argo\Küfür sebebiyle atıldın. | 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 Koruması

  ..Aç:.enable #difiprotect | echo 04 -a Koruma Açık | 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 Kapalı

}

Hoşca paylaşımlar...

Arkadaşlar kod güzel çalışıyor ama kelimeleri tam olarak nasıl eklememiz gerekiyor? Bu kod hakkında bilgi verebilecek arkadaş var mı? yani
Örnek ; /küfürekle salak şeklinde mi? yoksa /küfüekle *salak* gibi mi eklemek gerekiyo

muratsonuc

11 Eylül 2014 11:14

Cevap: Küfür ve Argo Cümle İçinde

Alıntı:

Difuzyon Nickli Üyeden Alıntı (Mesaj 717443)

Serhat paylaşım yapmış ama bende can sıkıntısından ufak birşeyler hazırlamıştım,belki kullanmak isteyenlere lazım olur.

Kod:

#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) { ban -k $chan $nick 2 Argo\Küfür sebebiyle atıldın. | 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 Koruması

  ..Aç:.enable #difiprotect | echo 04 -a Koruma Açık | 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 Kapalı

}

Hoşca paylaşımlar...

bu kode muaf kanal ve muaf nick eklenebilir mi ?

aLone

11 Eylül 2014 12:15

Cevap: Küfür ve Argo Cümle İçinde

Kod:

#difiprotect on

on @*:text:*:#:{ if $istok(#kanal #kanal1,#,32) || $istok(nick nick1 nick2,$nick,32) { return } 

var %jnk = 0, %cenk | while %jnk <= $numtok($1-,32) { %cenk = $strip($token($1-,$v1,32)) | if $hregex(Küfürler,%cenk,0) { ban -k $chan $nick 2 Argo\Küfür sebebiyle atıldın. | 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 Koruması

  ..Aç:.enable #difiprotect | echo 04 -a Koruma Açık | 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 Kapalı

}

Buyrun

eXLove

18 Eylül 2014 15:27

Cevap: Küfür ve Argo Cümle İçinde

on *:text:$(* $+ salak $+ *):#: /kick sebep $nick
on *:text:$(* $+ manyak $+ *):#: /kick sebep $nick

bu şekilde uzata bilirsin denemedim buna benzer bişey yapmıştım ondan editledim dene haber ver

İstediğin kadar uzun cümle içerisinde yukarıdakilerden biri yazsa dahi işlem yapar

q0kh4n

18 Eylül 2014 18:25

Cevap: Küfür ve Argo Cümle İçinde

Alıntı:

eXLove Nickli Üyeden Alıntı (Mesaj 1041494333)

on *:text:$(* $+ salak $+ *):#: /kick # $nick Sebep-
on *:text:$(* $+ manyak $+ *):#: /kick # $nick Sebep-

bu şekilde uzata bilirsin denemedim buna benzer bişey yapmıştım ondan editledim dene haber ver

İstediğin kadar uzun cümle içerisinde yukarıdakilerden biri yazsa dahi işlem yapar

doğrusu böyle olucak

Feragat

18 Eylül 2014 21:30

Cevap: Küfür ve Argo Cümle İçinde

Kod:

on *:text:$(* $+ salak $+ *):#: /kick # $nick Sebep-

on *:text:$(* $+ manyak $+ *):#: /kick # $nick Sebep-

Text event'ında bir tanım(identifier), alias vb. kullanmıyorsanız $() evaluate etmeye gerek yok.

Örnek:

Kod:

on *:text:*salak*:#: /kick # $nick Sebep-

üstteki şekilde kullanabilirsiniz.

Ayrıca text event'ında matchtext(eşleşen/yakalanan metin) kısmında regex ile çoklu kelime belirtebilirsiniz. Bu sayede birden fazla event kullanılmamış olur.

Örnek:

Kod:

on $*:text:/salak|manyak|aptal/Si:#: /kick # $nick Sebep-

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