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

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

- - Buyuk Harf harf Uzatma (https://www.ircforumlari.net/mirc-scripting-sorunlari/199900-buyuk-harf-harf-uzatma.html)

Buyuk Harf harf Uzatma

selam arkadaslar arkadaslar Kanalimda Buyuk Harf Yazani Birinci Kez Yazdiğinda Mircin Otomatik uyarmasini ikinci yazdiğinda uyarmadan banlmasini + harf uzatmada`da ayni şekilde yapa bilirmiyiz?

Cevap: Buyuk Harf harf Uzatma

Kod ları aynı sayfaya koyma ayrı ayrı sayfalara koy

Büyük yazı

Kod:

on @*:text:*:#:{

  var %< = $remove($strip($1-),$chr(32)),%> = $int($calc(($regex(%<,/[A-ZÖÜŞİÇĞ]/g) / $len(%<)) * 100))

  if $nick isreg # && %> >= 75 && $len(%< >= 20) {

    inc -u600 $+(%,cc.,#,$nick) | var %' = $($+(%,cc.,#,$nick),2)

    if %' == 1 { msg $chan UYARI: $nick 4UYARI! 4Lütfen 4CapsLock 4Tuşunu 4Kapatarak 4Yazınız.4ßüyük 4Harf 4Kullanmayınız. 4Aksi 4Taktirde 4Kanaldan 4Uzaklaştırılıcaksınız. }

    if %' >= 2 { mode # +b $nick | kick # $nick <kickban mesajı> | unset $+(%,cc.,#,$nick) }

  }

}

uzunyazı

Kod:

on @*:text:*:#: {

  if ($regex($1-,/([[:print:]])\1\1/gi) >= 10) {

    hinc -mu20 uzunharf $+($chan,.,$nick) 1

    if $hget(uzunharf,$+($chan,.,$nick)) == 1 { 

      .msg # $nick :4UYARI! 4Lütfen 4UzuN 4Yazı 4Yazmayınız  4Aksi 4Taktirde 4Kanaldan 4Uzaklaştırılıcaksınız. 

    }

    if $hget(uzunharf,$+($chan,.,$nick)) == 2 { 

      .ban # $nick 5 

      .kick # $nick Harfleri uzattınız ve(Tekrar ettiniz) 

      .hdel -s uzunharf $+($chan,.,$nick)) 

    }

  }

}

alıntı

Cevap: Buyuk Harf harf Uzatma

selam arkadaslar yukardaki kodda 6 harf yan yana yazdiliğinda yani gggggg uyari atmasini ayarlayamadim oplara ircoplara adminlere ban atmasin kanalda harf uzatan kişiyi uyariyor gozkuyor ama uyarmiyor

6 gggggg yazani uyarsin 2 cide atsin oper admin op uyarmasin banlamasin lutfen yardim pls

Cevap: Buyuk Harf harf Uzatma

on @*:text:*:#: {
if ($regex($1-,/([[:print:]])\1\1/gi) >= 10) {
hinc -mu20 uzunharf $+($chan,.,$nick) 1
if $hget(uzunharf,$+($chan,.,$nick)) == 1 {
.msg # $nick :4UYARI! 4Lütfen 4UzuN 4Yazı 4Yazmayınız 4Aksi 4Taktirde 4Kanaldan 4Uzaklaştırılıcaksınız.
}
if $hget(uzunharf,$+($chan,.,$nick)) == 2 {
.ban # $nick 5
.kick # $nick Harfleri uzattınız ve(Tekrar ettiniz)
.hdel -s uzunharf $+($chan,.,$nick))
}
}
}

selam arkadaslar kodda uzatilacak harf veya sayilari ayarlayamadim birde kodda istediğim kanalda uyari yapmasin o tür bişeyler ekleye bilrimiyiz uyari rakamani kendim belirlemek istiyorum ama bulamadim nerden değişecem?

Cevap: Buyuk Harf harf Uzatma

Full Hash Mynet Koruma Menüsü.

Önce Uyarı ve Daha Sonrada Kick Seçeneği Mevcut.
İstediğin Nickleri Muaf Ekleme Seçeneği Mevcut.

Forumda hazırkodlar'da bulabilirsin.

Cevap: Buyuk Harf harf Uzatma

link veirmisin ustad uzun harf korumasi için?