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/)
-   -   Harf uzatma uyarı sorunu :( (https://www.ircforumlari.net/mirc-scripting-sorunlari/28992-harf-uzatma-uyari-sorunu.html)

Micron 16 Mart 2007 21:32

Harf uzatma uyarı sorunu :(
 
PHP- Kodu:

on @*:text:*:#: {
  
if $me !isop $chan halt } | if $nick isop $chan halt }
  if (
$regex($1-,/([[:print:]])\1\1/ig) >= $calc($coconf(U.limit)/3)) {
    
inc $+(-u,$coconf(U.mem)) %uz [ $+ [ $nick ] ] 1
    
if (%uz [ $+ [ $nick ] ] >= $coconf(U.LM)) {
      .
ban $+(-ku,$calc($coconf(U.kbs)*60)) $chan $nick $coconf(U.sb)
      .unset %
uz [ $+ [ $nick ] ]
    }
    if (%
uz [ $+ [ $nick ] ] >= $coconf(U.AL)) {
      
msg $chan $nick $coconf(U.yr)
    }   
  }
}
alias coconf {
  goto $
1
  
:U.Limit {
    ;
# harf limiti 
    
RETURN 10
  
}
  :
U.LM {
    ;
# Kac kezde atsın..
    
RETURN 2
  
}
  :
U.AL {
    ;
# Uyarı limiti (üstteki deger ile aynı-yüksek olmamalıdır.)  
    
RETURN 1
  
}
  :
U.mem {
    ;
# Hatayı yapan nikc-Adres'in Hafızada kalacagı süre (sn)
    
RETURN 500
  
}
  :
U.sb {
    ;
# Kick Sebebi..
    
RETURN 2Kanal Genelinde 12Uzun Harf 4Kullanıp Kullanıcıları Rahatsız Ettiğiniz icin Kanaldan ,Uzaklastırıldınız !
  }
  :
U.yr {
    ;
# Uyarı mesajı
    
RETURN  2Uyarı 2Lutfen Harfleri Uzatmayın Aksi Taktirde Kanaldan Uzaklaştırılacaksınız!
  }
  :
U.kbs {
    ;
# kikc\ban süresi "Dk."
    
RETURN  15
  
}



Bu cocoriconun yazdığı harf uzatma kodu . İlk önce uyarıp 2. cide banlıyor . Ama ikide bir oyun botuna uyarı çekiyor . Oyun botunu uyarmamasını nasıl sağlarım ? bir kaç örnek buldum istok oyun gibi ama bu kod bir garip bir kaç yere yerleştirdim hata verdi nereye entegre etmemiz gerek. tşk ederim .

AsiL 17 Mart 2007 02:40

Yanıt: Harf uzatma uyarı sorunu :(
 
oyun botu kanalda @ degilmi peki ?

detay 25 Mart 2007 23:14

Yanıt: Harf uzatma uyarı sorunu :(
 
on @*:text:*:#: {
if $me !isop $chan { halt } || $nick isop $chan || $nick == botunnicki { halt }
if ($regex($1-,/([[:print:]])11/ig) >= $calc($coconf(U.limit)/3)) {

inc $+(-u,$coconf(U.mem)) %uz [ $+ [ $nick ] ] 1
if (%uz [ $+ [ $nick ] ] >= $coconf(U.LM)) {
.
ban $+(-ku,$calc($coconf(U.kbs)*60)) $chan $nick $coconf(U.sb)
.unset %
uz [ $+ [ $nick ] ]
}
if (%
uz [ $+ [ $nick ] ] >= $coconf(U.AL)) {
msg $chan $nick $coconf(U.yr)
}
}
}


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

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