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/)
-   -   Ban degilde gline atsın istiyorum (https://www.ircforumlari.net/mirc-scripting-sorunlari/440012-ban-degilde-gline-atsin-istiyorum.html)

boyner 01 Ocak 2012 03:12
Ban degilde gline atsın istiyorum
 
Kod:
on 1:text:*:#:{
if (!$istok(#kanal1 #kanal2 #kanal3,$chan,32) && !$istok(Nick1 Nick2 Nick3,$chan,32)) {
  var %::text = $1-
  if $hfind(kufur,$1-,1,W).data && $nick {
    mode # +b $nick | kick # $nick kötü söz kullandınız
  }
}
Merhaba bunun gline atmasını istiyorum nasıl degiştirebilirim

toXic 01 Ocak 2012 03:20
Cevap: Ban degilde gline atsın istiyorum
 
Kod:
on 1:text:*:#:{
if (!$istok(#kanal1 #kanal2 #kanal3,$chan,32) && !$istok(Nick1 Nick2 Nick3,$chan,32)) {
  var %::text = $1-
  if $hfind(kufur,$1-,1,W).data && $nick {
    gline $nick Kötü söz kullandiniz.
  }
}
Bu şekil deneyin.

boyner 01 Ocak 2012 03:29
Cevap: Ban degilde gline atsın istiyorum
 
teşekkür ederim canım

boyner 01 Ocak 2012 03:55
Cevap: Ban degilde gline atsın istiyorum
 
* /hmake: Böyle Bir Tablo 'kufur' Zaten Var (Satır 2, kfr1.txt)

böyle bir hata verdi

toXic 01 Ocak 2012 04:00
Cevap: Ban degilde gline atsın istiyorum
 
Ayri olarakmi attin 1.'sinden?

boyner 01 Ocak 2012 04:03
Cevap: Ban degilde gline atsın istiyorum
 
Kod:
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 | kick # $nick kötü söz kullandınız
  }
  if $chan == #kontroL {
    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.
}

;Coded by WingmaN Başlangıç ve Bitiş : 03:50 - 04:07


kod bu fakat yapamadım

toXic 01 Ocak 2012 04:34
Cevap: Ban degilde gline atsın istiyorum
 
Böyle bir kod verilmiş kullanabilirsin.

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
    gline $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
}
/kufur ekle <kufur> belirtilen kufuru tablomuza ekler
/kufur sil <kufur> belirtilen kufuru tablodan siler
/kufur list eklenmis tum kufurleri listeler
kufur eklerken wildcad kullanilabilir
/kufur ekle *sokar*
seklinde eklendiginde sokarim sokrlar sokarak gibi kelimeler de de uyarilacak ve kanaldan atilacaktir.

Toprak 01 Ocak 2012 12:27
Cevap: Ban degilde gline atsın istiyorum
 
Alıntı:
boyner Nickli Üyeden Alıntı (Mesaj 1040980849)
* /hmake: Böyle Bir Tablo 'kufur' Zaten Var (Satır 2, kfr1.txt)

böyle bir hata verdi
Hata Degilki O, Sadece "kufur" Tablosu Yükliyken Yeniden Yüklemeye Calışmıs,


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

Powered by vBulletin® Version 3.8.8 Beta 3
Copyright ©2000 - 2024, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2024 IRCForumlari.Net