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

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

- - harf uzatma sorunu (https://www.ircforumlari.net/mirc-scripting-sorunlari/40449-harf-uzatma-sorunu.html)

harf uzatma sorunu

Forumda bulduğum bir kodu opta değilken aşağıdan atacak şekilde ayarladım ama oyuncu botunu uyarıyor. $nick == botnicki { halt }
Bu kodu ekleyip botu muaf tutamadım hatam nerede?

PHP- Kodu:

   on *:text:*:#: {
  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
  }
}

Cevap: harf uzatma sorunu

on *:text:*:#: { if $nick != bot-nick { kod-devamı } }

Yanıt: harf uzatma sorunu

PHP- Kodu:

   on *:text:*:#: { 
  if $nick != Oyuncu {
    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
    }

Yanlış ekledim sanırım statüste karşımdakinin yazdıkları çıkıyor

* /goto: 'yazdıklarımız' bulunamadı (Satır 14, uzatma.txt)

nasıl eklemeliyim yada kodmu hatalı oldu?

Cevap: harf uzatma sorunu

Evet ilk kod'da, bir adet bracket hatası var.
2. kod'dada 1 adet var.
Yani ilk kod'un ve ikinci kod'un en altına; "}" eklersen sorun düzelir.

Cevap: harf uzatma sorunu

Ki aklıma gelmişken şöyle basit bir kod yazılabilir;

on *:text:*:#: { if $regex($1-,/([[:print:]])\1/gi) >= 15 { hinc -m tt $+($nick,½,#) 1 | if $hget(tt,$+($nick,½,#)) == 1 { msg # $+($nick,$chr(58)) 1. uyarı mesajı. } | if $hget(tt,$+($nick,½,#)) == 2 { msg # $+($nick,$chr(58)) 2. uyarı mesajı. } | if $hget(tt,$+($nick,½,#)) == 3 { ban -k # $nick 2 kick-sebebin. | hdel tt $+($nick,½,#) } } }

Buradaki 15, harf limiti. Diğerleri açık zaten anlamıyacak birşey yok.
Daha kısa, daha hızlı, daha mantıklı.