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

- mIRC Scripting Sorunları (https://www.ircforumlari.net/mirc-scripting-sorunlari/)

- - küfür koruması. (https://www.ircforumlari.net/mirc-scripting-sorunlari/359224-kufur-korumasi.html)

küfür koruması.

Kolay gelsin IF'de baktım cok küfür koruması var Coğunu denedim bota mIRCScript Botuna ama coğu codu Botuma uygulayamadım.

!küfürekle
!küfürsil

eklediğim küfürü kanalda kullanan kullanıcın ban almasını istiyorum.

Cevap: küfür koruması.

Buraya bakmışmıdınız.

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Cevap: küfür koruması.

Suan ekledim yükledim denedim ama küfür koruması Çalışmadı..

on 1:start:{
hmake kufur
hload kufur kufur.bugra
}
on 1:text:*:#:{
var %::text = $1-
if $hfind(kufur,$1-,1,W).data && $nick {
mode # +b $nick
msg # $nick küfürlü konuştunuz Bu yuzden kanaldan uzaklaştırıldınız. yakalanan küfürünüz >4 $hget(kufur,$hfind(kufur,$1-,1,W).data)
}
if $chan == #ss {
if $gettok($1-,1,32) == !kotusoz {
hadd -m kufur $r(1000,999999) $gettok($1-,2-,32)
hsave kufur kufur.bugra
msg # Kötü Söz Eklendi: $gettok($1-,2-,32)
}
if $gettok($1-,1,32) == !kotusil {
if $hfind(kufur,$gettok($1-,2-,32),1,W).data {
hdel kufur $ifmatch
hsave kufur kufur.bugra
msg # Kötü Söz Silindi: ( $+ $ifmatch $+ ) $gettok($1-,2-,32)
}
}
}
}
on *:load:{
echo -a 4|2WingmaN4| 2 Küfür korumanız Yüklenmiştir.
echo -a 4<2WingmaN4> 2 Kurmak için > 4/kufurkur 2 yazabilirsiniz
}
alias kufurkur {
hmake kufur
hload kufur kufur.bugra
echo -a 4|2WingmaN4| 2: Küfür korumanız kurulmuştur.
}

kufur.bugra

50606
* şikeç *
227455
*a.g*
364469

Sekildede eklenmisti

Cevap: küfür koruması.

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Sorunun yanıtını burada bulman mümkün

Cevap: küfür koruması.

Kod:

on *:text:*:#kanal:{

  if !kufurekle* iswm $1- {  

    if ($read(oper.txt,w,$nick) || $read(admin.txt,w,$nick) || $read(root.txt,w,$nick)) {  

      if $read(kufurler.txt,w,$2-) { 

        .msg $chan  $2 1Küfür Listesinde zaten ekli.

      }

      else { 

        write kufurler.txt $2- 

        .msg $chan 1Kufurlu kelime eklendi: $2

      } 

    }

    else {

      msg $nick  $nick 1Bu Komuta Erişiminiz Yok.

    }

  }

  if !kufursil* iswm $1- {

    if ($read(oper.txt,w,$nick) || $read(admin.txt,w,$nick) || $read(root.txt,w,$nick)) {  

      if !$read(kufurler.txt,w,$2-) { 

        msg $chan  $2 1Kufur Listesinde yok. 

      } 

      else { 

        write $+(-,dw,$2-) kufurler.txt 

        msg $chan  $2 1Kufur Listesinden Silindi. 

      } 

    }

    else {

      msg $nick  $nick 1Bu Komuta Erişiminiz Yok.

    } 

  }

}

!kufurekle
!kufursil

Kod:

on *:text:!kufurlist:#kanal:{ kntrl }

alias wblist { 

  .msg # 1Hafızadaki Kufur Listesi Özelinize Verildi.

  .msg $nick 1Hafızadaki Kufur Listesi.

  .play $nick kufurler.txt 0

  .timer 1 2 .msg $nick 1Listeleme tamamlandı.

}

alias kntrl {

  if $istok($read(root.txt, w, $nick),$nick,32) == $true { wblist | halt }

  if $istok($read(root.txt, w, $nick),$nick,32) == $false { kntr2 } 

}

alias kntr2 {

  if $istok($read(admin.txt, w, $nick),$nick,32) == $true { wblist | halt }

  if $istok($read(admin.txt, w, $nick),$nick,32) == $false { kntr3 } 

}

alias kntr3 { 

  if $istok($read(oper.txt, w, $nick),$nick,32) == $true { wblist | halt }

  if $istok($read(oper.txt, w, $nick),$nick,32) == $false { .msg $nick 1Bu Komuta Erişiminiz Yok. | halt }

}

!kufurlist

Kod:

on *:TEXT:*:#:{ 
 if ($me isop $chan) {
 var %i 1 
 while $read(kufurler.txt,%i) { 
 if ($read(kufurler.txt,%i) iswm $remove($1-,$chr(32),*,/,\,.,$chr(44),-,_,!,;)) { /kick $chan $nick Küfür Etmek Yasaktır! | /mode $chan +b $nick } 
 inc %i 
 } 
 }
 }

kufurler.txt açmayı unutma.
kolay gelsin

Cevap: küfür koruması.

Bu kodların üçünüde remoteyemi eklicez_?

Cevap: küfür koruması.

Evet ayrı ayrı remote açıp ekliyoruz.