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ına uyarı eklemek (https://www.ircforumlari.net/mirc-scripting-sorunlari/307640-kufur-korumasina-uyari-eklemek.html)

küfür korumasına uyarı eklemek

Kod:

on @*:TEXT:*:#: {

  ; +o +h +v ler bu degerden etkilenmeyecekler

  if ($nick !isreg #) return

  var %l = $strip($1-)

  if ($hmatch(kufur,%l)) {

    ban -u300 # $nick 3

    kick # $nick Kotu kelimeler kullandığınız için girişiniz Yasaklanmıştır!

  }

}

alias kufur {

  if ($1 == ekle) && ($regex($2,[A-Za-z])) {

    hadd kufur $2

    secho  $2  veritabanina başarıyla eklendi

  }

  elseif ($1 == sil) {

    if ($hfind(kufur,$2)) {

      hdel kufur $2

      secho $2 veritabanindan başarıyla silindi

    }

    else { secho $2 veritabaninda bulunamadi }

  }

  elseif ($1 == list) {

    var %x = 1 

    while (%x <= $hget(kufur,0).item) {

      set %hkufur $addtok(%hkufur,$hget(kufur,%x).item,1)

      if ($numtok(%hkufur,32) >= 7) { secho $replace(%hkufur,$chr(1),$+($chr(32),-,$chr(32))) | unset %hkufur }

      inc %x

    }

    if ($numtok(%hkufur,32) >= 1) { secho $replace(%hkufur,$chr(1),$+($chr(32),-,$chr(32)))  | unset %hkufur }

  }

  else { secho hatali islem }

}

alias secho {

  ;echo -a $1-

  if (!$window(@kufur)) { window -e @kufur }

  echo @kufur $+($chr(40),$time,$chr(41),$chr(32),$1-)

}

on *:EXIT: hsave -o kufur kufur.htb 

on *:start: { 

  hmake kufur 1000 

  if ($exists(kufur.htb)) { hsave -o kufur kufur.htb } 

  hload kufur kufur.htb 

}

Bu kod ilk küfürde ban atıyor, ilkinde uyari ikincide banlamasi icin eklenti duzenleyebilir miyiz ?

Cevap: küfür korumasına uyarı eklemek

TEXT Event'ını

Kod:

on @*:TEXT:*:#: {

  if ($nick !isreg #) return

  var %l = $strip($1-)

  if ($hmatch(kufur,%l)) {

    if (!%_ [ $+ [ $nick ] ]) { inc %_ [ $+ [ $nick ] ] | msg # $+($nick,:) Bu bir uyarıdır ikincisinde banlarım  }

    else { if (%_ [ $+ [ $nick ] ] >= 1) {

        ban -u300 # $nick 3 | kick # $nick Kotu kelimeler kullandığınız için girişiniz Yasaklanmıştır!

      }

    }

  }

}

Bu şekilde kullanıp deneyin.

Cevap: küfür korumasına uyarı eklemek

tesekkurler calisti yanliz ufak bir problem var
mesela *deli* olarak kufur eklersem * yazani uyariyor bunu nasil duzeltebiliriz ?