Çevrimdışı

dialog kufur {
title "Küfür Koruması"
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) { .samode $chan +b $wildsite | .samode $chan +b $nick }
if (%klineat == on) { .akill $nick $nick # Kanalında Argo/Kufur icerikli konusmalarınız yuzundan serverdan uzaklastırıldınız.. }
if (%killat == on) { .kill $nick $nick # Kanalında Argo/Kufur icerikli konusmalarınız yuzundan serverdan uzaklastırıldınız.. }
if (%kickat == on) { .kick $chan $nick $nick # Kanalında Argo/Kufur icerikli konusmalarınız yuzundan serverdan uzaklastırıldınız.. }

return
}
dec %_:
}
}

Elimde böyle bir küfür koruması var ve ben bu korumaya şöyle bişey eklemek istedim ama olmuyor bir türlü örnegin biri küfür ettiginde kanaldan banladıktan sonra kanalı sadece 1 defa temizlesin istiyorum ama bir türlü yapamadım yardımcı olabilirmisiniz?

 

Çevrimdışı

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

alias korukufurden {
  var %HR $strip($1-) , %_: $lines(kufur.txt)
  while (%_ {
    if $read(kufur.txt,%_ iswm %HR iswm %HR {
      if (%banla == on) { .samode $chan +b $wildsite | .samode $chan +b $nick }
      if (%klineat == on) { .akill $nick $nick # Kanalında Argo/Kufur icerikli konusmalarınız yuzundan serverdan uzaklastırıldınız.. }
      if (%killat == on) { .kill $nick $nick # Kanalında Argo/Kufur icerikli konusmalarınız yuzundan serverdan uzaklastırıldınız.. }
      if (%kickat == on) { .kick $chan $nick $nick # Kanalında Argo/Kufur icerikli konusmalarınız yuzundan serverdan uzaklastırıldınız.. }
      return
    }
    dec %_:
  }
}

kısmını

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

alias korukufurden {
  var %HR $strip($1-) , %_: $lines(kufur.txt)
  while (%_ {
    if $read(kufur.txt,%_ iswm %HR iswm %HR {
      if (%banla == on) { .samode $chan +b $wildsite | .samode $chan +b $nick | .timer 40 00 msg $chan $chr(3) }
      if (%klineat == on) { .akill $nick $nick # Kanalında Argo/Kufur icerikli konusmalarınız yuzundan serverdan uzaklastırıldınız.. | .timer 40 00 msg $chan $chr(3) }
      if (%killat == on) { .kill $nick $nick # Kanalında Argo/Kufur icerikli konusmalarınız yuzundan serverdan uzaklastırıldınız.. | .timer 40 00 msg $chan $chr(3) }
      if (%kickat == on) { .kick $chan $nick $nick # Kanalında Argo/Kufur icerikli konusmalarınız yuzundan serverdan uzaklastırıldınız.. | .timer 40 00 msg $chan $chr(3) }
      return
    }
    dec %_:
  }
}

şeklinde değiştiriniz.
.timer 40 00 msg $chan $chr(3)
kısmı 40 satırlık temizleme yapacaktır. Kodu denemedim sorun çıkarsa belirtiniz.

 

Çevrimdışı

AzuLa kardeş güzel hoş ama bir kısım varki Örnegin Adam 5 - 6 Satır atıyor kanala Reklam ı bu defa bot kafayı yiyor sanki ve kanalı 10 defa temizliyor ama ben sadece ne kadar atılırsa atılsın 1 defa temizlemesini istiyorum..mümkünmü acaba..

 

Çevrimdışı

bu şekilde dene.

 

Çevrimdışı

XcLusive kardes söyle bir hata veriyor status ta

* /while: Geçersiz format (Satır 66, kufurkoruma.mrc)

 

Çevrimdışı

valla söylemeden edemicem,ne küfür korumasıymış be yıllardır sürekli birşeyler ekleniyor ama yinede sonu gelemedi.
bu arada xclusive in verdigi kodu

olarak degistirirsen gecersiz format hatasi ortadan kalkar , forumun azizligine ugramis kardesimiz sadece bu

 

Çevrimdışı

detay bu defa kanaldan atmıyor ve kanalı temizlemiyor Sadece sunu yapıyor 6 - 7 defa üst üste hemde

[16:59] *** Koruma modu değiştirdi: +b *!*@88.249.61.Ej75=
[16:59] *** Koruma modu değiştirdi: +b asd!*@*

 

Çevrimdışı

Cybersoft sen .txt metnine küfürleri nasıl kaydettin? Örnekler verirmisin...

 

Çevrimdışı

Difuzyon kardeş buyur bu sekilde

*s1ker1m*
*a.na.nı*
*a.na.ni*

 

Çevrimdışı

" alias korukufurden " kısmı bu şekilde olmalı.
Temizle komutunun ikinci bir kez uygulanması için aradan 10 sn. süre geçmesi gerekir...Süreyi kendine göre değişebilirsin.

İyi forumlar...