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/)

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

Teori

04 Ağustos 2007 02:38

Buyuk Harf

Kod:

 

on *:text:*:#:{

  if $nick isop $chan { halt }

  if $nick == Soru-Cevap { halt }

  if $nick == Sessiz { halt }

  if ($len($1-) >= 15 ) {

    if ($int($calc($regex($1,/[A-ZÁ-ÙÄ]/g)/$len($1)*100)) >= 40 ) {

      inc -u30 %bharf. [ $+ [ $nick ] ] 1

      if %bharf. [ $+ [ $nick ] ] == 1 {

        msg $chan Uyarı : Lütfen büyük harf kullanmayınız     

      }

      if %bharf. [ $+ [ $nick ] ] == 2 {

        mode # +b $wildsite | kick $chan $nick 5 Buyuk Harf Kullandıgınız Icin Atıldınız.

      }

    }

  }

Arkadaslar Zamanında LeadeR'in Vermis Oldugu Bir Code'i Kendime Gore Editledim ve Kullanıyorum Fakat Sorun Su .
Buyuk Harf Yazanı Once Uyarıyor 2. Defada Atiyor .
Ama , Nickleri Buyuk Olan Kisilere Seslenildiginde Yine Uzaklastırıyor .
Yani User Buyuk Harfle Yazılan Bir Nicke Seslendiginde Calısmasın Sadece Yazılan Cumle veya Kelimelerde Calıssın Istiyorum Tşkler .

MavipikSeL

04 Ağustos 2007 03:14

Cevap: Buyuk Harf

Mantık olarak düşünürsek "ison" parametresi işe yarar herhalde. Büyük harf olarak %bharf. adında bir değer atıorsa if %bharf. ison # { halt } bunun gibi birşey olmalı. Yanlış düşünüyorsam düzeltilirse sevinirim.

detay

04 Ağustos 2007 10:43

Cevap: Buyuk Harf

Kod:

on *:text:*:#:{

  if $nick isop $chan { halt }

  if $nick == Soru-Cevap { halt }

  if $nick == Sessiz { halt }

  if ($len($1-) >= 15 ) {

    if ($int($calc($regex($1,/[A-ZÁ-ÙÄ]/g)/$len($1)*100)) >= 40 ) {

      var %t = $numtok($1-,32) | while %t { if $gettok($1-,%t,32) ison $chan { halt } | dec %t }

      inc -u30 %bharf. [ $+ [ $nick ] ] 1

      if %bharf. [ $+ [ $nick ] ] == 1 {

        msg $chan Uyarı : Lütfen büyük harf kullanmayınız     

      }

      if %bharf. [ $+ [ $nick ] ] == 2 {

        mode # +b $wildsite | kick $chan $nick 5 Buyuk Harf Kullandıgınız Icin Atıldınız.

      }

    }

  }

}

ison kanaldami degilmi kontrol edicegimiz icin banko var tabi kodda %bharf kullanmicaz cunku o kisi uyarilcakmi kicklenecekmi ona karar vermek icin var
suanki kod ise yaziyi tek tek kelimelere ayirip kelimelerden biri kanaldaki nickse kodu durduruyor

MeGaBytE

06 Ağustos 2007 04:20

Yanıt: Buyuk Harf

PHP- Kodu:

   on *:text:*:#:{
  if $nick isop $chan { halt }
  if $nick == Soru-Cevap { halt }
  if $nick == Sessiz { halt }
  if ($len($1-) >= 15 ) {
    if ($int($calc($regex($1,/[A-ZÁ-ÙÄ]/g)/$len($1)*100)) >= 40 ) {
      inc -u30 %bharf. [ $+ [ $nick ] ] 1
      if %bharf. [ $+ [ $nick ] ] == 1 {
        msg $chan UYARI: $nick $+ , Lütfen Büyük Harf Kullanmayınız
      }
      if %bharf. [ $+ [ $nick ] ] == 2 {
        mode # +b $wildsite | kick $chan $nick 5 Buyuk Harf Kullandıgınız Icin Atıldınız.
      }
    }
  }

Bu ŞekiLde Dener Misin ?

MeGaBytE

07 Ağustos 2007 19:04

Yanıt: Buyuk Harf

Alıntı:

on @*:text:*:#:{

Yalnız *'da önce '@' İşareti Olmadan Banlıyamazsin..
Kanalda Op iken çalışır

Eğer ki Oper isen;

Alıntı:

mode # +b $wildsite

Kısmını;

Alıntı:

samode # +b $wildsite

Şeklinde değiştiriniz..

By_GuRbey

28 Ağustos 2007 12:18

Yanıt: Cevap: Buyuk Harf

[quote=detay;243158]

Kod:

on *:text:*:#:{

  if $nick isop $chan { halt }

  if $nick == Soru-Cevap { halt }

  if $nick == Sessiz { halt }

  if ($len($1-) >= 15 ) {

    if ($int($calc($regex($1,/[A-ZÁ-ÙÄ]/g)/$len($1)*100)) >= 40 ) {

      var %t = $numtok($1-,32) | while %t { if $gettok($1-,%t,32) ison $chan { halt } | dec %t }

      inc -u30 %bharf. [ $+ [ $nick ] ] 1

      if %bharf. [ $+ [ $nick ] ] == 1 {

        msg $chan Uyarı : Lütfen büyük harf kullanmayınız     

      }

      if %bharf. [ $+ [ $nick ] ] == 2 {

        mode # +b $wildsite | kick $chan $nick 5 Buyuk Harf Kullandıgınız Icin Atıldınız.

      }

    }

  }

}

Güzel Bi Kod Fakat Bunu User Ikende KanaL'a Yansıtıyor, ßu Kodun Sadece Aop yada Operator Oldugu Zaman Işlem Gormesi Icın Ne Yapabiliriz..

CesuryureK

28 Ağustos 2007 14:13

Cevap: Yanıt: Cevap: Buyuk Harf

[quote=By_GuRbey;254218]

Alıntı:

detay Nickli Üyeden Alıntı (Mesaj 243158)

Kod:

on *:text:*:#:{

  if $nick isop $chan { halt }

  if $nick == Soru-Cevap { halt }

  if $nick == Sessiz { halt }

  if ($len($1-) >= 15 ) {

    if ($int($calc($regex($1,/[A-ZÁ-ÙÄ]/g)/$len($1)*100)) >= 40 ) {

      var %t = $numtok($1-,32) | while %t { if $gettok($1-,%t,32) ison $chan { halt } | dec %t }

      inc -u30 %bharf. [ $+ [ $nick ] ] 1

      if %bharf. [ $+ [ $nick ] ] == 1 {

        msg $chan Uyarı : Lütfen büyük harf kullanmayınız     

      }

      if %bharf. [ $+ [ $nick ] ] == 2 {

        mode # +b $wildsite | kick $chan $nick 5 Buyuk Harf Kullandıgınız Icin Atıldınız.

      }

    }

  }

}

Güzel Bi Kod Fakat Bunu User Ikende KanaL'a Yansıtıyor, ßu Kodun Sadece Aop yada Operator Oldugu Zaman Işlem Gormesi Icın Ne Yapabiliriz..

Kod:

on *:text:*:#:{

Kısmını

Kod:

on @*:text:*:#:{

Şekilde Değiştirirsen İstediğin Gerçekleşir.

SpecifiC

28 Ağustos 2007 15:05

Cevap: Buyuk Harf

Aslında küçük bir bug oluşmuş kod içerisinde. Yani kanalda bulunan herhangi bir nicki yazıp, bütün cümleyi büyük harfle yazabiliriz ve script bunu görmezden gelir...

Kod:

on @*:text:*:#: {

  if !$istok(Soru-Cevap Sessizi,$nick,32) && $nick !isop # {

    var %ntok = $numtok($1-,32)

    :loop

    if %ntok > 0 {

      var %rnick = $iif($gettok($1-,%ntok,32) ison #,$addtok(%rnick,$gettok($1-,%ntok,32),124),%rnick)

      dec %ntok

      goto loop

    }

    var %strip = $regsubex($strip($1-),/ %rnick /g,\1)

    if $calc($regex(%strip,/[A-ZÄÖÜĞÇİ]/g)/$len(%strip)*100) >= 70 {

      inc -eu60 $+(caps.,$nick)

      if $($+(caps.,$nick),2) == 1 {

        msg # uyarı $nick ; büyük harf kullanmayınız lütfen.

      }

      else {

        ban -k # $nick 2 Gereginden fazla büyük harf kullandınız.

      }

    }

  }

}

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