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

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

- - Çözüldü Kelime Dağarcığı (https://www.ircforumlari.net/mirc-scripting-sorunlari/1053450-kelime-dagarcigi.html)

Kelime Dağarcığı

Arkadaşlar merhaba

Sunucu içerisisinde en çok kullandığımız rutin kelimeleri gösteren remote kod var mıdır bunu nasıl yapabiliriz fikri olan varmı?

Bugün en çok kullanılan kelimeler;

1- Slm 100

2- Hg 80

3- Nbr 55

4- Nerden 76

5-
6
7
8
9
10

Önerilerinizi de yazın.

Cevap: Kelime Dağarcığı

Alıntı:

Giant Nickli Üyeden Alıntı (Mesaj 1042975761)

Merhaba @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...], sizin için şöyle birşey hazırladım. Sanırım işinizi görecektir.

Kod:

alias kelime_frekanslari {

  if (!$hget(kelime_frekanslari)) {

    hmake kelime_frekanslari 100

  }

}
 

on *:text:*:#: {

  if $regex($1,/[\.!]rapor/Si) {

    if ($2 isnum) {

      var %sayi = $2

      var %kelimeler

      var %sayilar
 

      var %i = 1

      while ($hget(kelime_frekanslari, %i).data != $null) {

        var %kelime = $hget(kelime_frekanslari, %i).item

        var %kelime_sayi = $hget(kelime_frekanslari, %i).data

        %kelimeler = %kelimeler $+ %kelime $+ |

        %sayilar = %sayilar $+ %kelime_sayi $+ |

        inc %i

      }
 

      var %j = 1

      while (%j <= %sayi) {

        var %en_cok = 0

        var %kelime = $null

        var %k = 1

        while ($gettok(%sayilar, %k, 124) != $null) {

          var %gecerli_sayi = $gettok(%sayilar, %k, 124)

          if (%gecerli_sayi > %en_cok) {

            %en_cok = %gecerli_sayi

            %kelime = $gettok(%kelimeler, %k, 124)

          }

          inc %k

        }

        if (%kelime && %en_cok) {

          msg # %kelime : %en_cok

          %kelimeler = $remtok(%kelimeler, %kelime, 1, 124)

          %sayilar = $remtok(%sayilar, %en_cok, 1, 124)

        }

        inc %j

      }

    } 

    else {

      msg # Lütfen raporlamak istediğiniz kelime sayısını belirtin. Örnek: !rapor 10

    }

  } 

  else {

    var %mesaj = $strip($1-)

    var %i = 1

    while ($gettok(%mesaj, %i, 32) != $null) {

      var %kelime = $gettok(%mesaj, %i, 32)

      hadd -mu100 kelime_frekanslari %kelime $calc($hget(kelime_frekanslari, %kelime) + 1)

      inc %i

    }

  }

}

Örnek Görünüm;

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

İyi forumlar dilerim.

Cevap: Kelime Dağarcığı

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] beceremedim.

<Nick> Lütfen raporlamak istediğiniz kelime sayısını belirtin. Örnek: !rapor 10

selam selam selam bu komut işlemedi. mirc'i kapatıp açmadım

TRsohbet.com 'dayım. Sohbet kanalı !rapor 'da karşındayım.

Ya da !rapor selam gibi bişey de arar mı bu

!rapor selam kelimesi 10 defa kullanılmıştır vs.

Cevap: Kelime Dağarcığı

Alıntı:

Giant Nickli Üyeden Alıntı (Mesaj 1042975919)

Kelimeyi aramaz, sadece belirttiğiniz kanalda kelimelerin kaç defa yazıldığını belirtir.

Kullanım;

!rapor 10

Text eventi ile yazıldığı için kendiniz kullanamazsınız. Kendinize eklerseniz bir başkası kullanmalı. İyi forumlar.