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

Spectral 26 Aralık 2009 06:19

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 ?

Ajan 26 Aralık 2009 18:41

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.

Spectral 26 Aralık 2009 23:20

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 ?


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

Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2025, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2025 IRCForumlari.Net Sparhawk