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/)
-   -   Kanalın gevezesi bulma (https://www.ircforumlari.net/mirc-scripting-sorunlari/863353-kanalin-gevezesi-bulma.html)

Zalimsin 31 Mart 2020 01:06
Kanalın gevezesi bulma
 
[0:52]<NoMercy>*** #sohbet Kanalı Günün Gevezeleri ***
[0:52]<NoMercy>
[0:52]<NoMercy>
[0:52]<NoMercy>1 ) sveynanınsyjzsi ---» Satır : 40
[0:52]<NoMercy>2 ) SokakGitaristi ---» Satır : 35
[0:52]<NoMercy>3 ) xyjz ---» Satır : 32
[0:52]<NoMercy>4) CarLs ---» Satır : 25
[0:52]<NoMercy>5) xyjzninsveynası ---» Satır : 23
[0:52]<NoMercy>6) nanehatun ---» Satır : 21
[0:52]<NoMercy>7) TÜRKAN ---» Satır : 20
[0:52]<NoMercy>8) sveynanınxyjzsi ---» Satır : 17
[0:52]<NoMercy>9) birisi_ ---» Satır : 16
[0:52]<NoMercy>10) BeLa ---» Satır : 8

Ben böyle birsey istiyorum ama sunucuyu gezdim boyle göremedim sadece userleri tanıyacak botları muaf tutacak bir kod arıyorum 24 saat sonra sıfırlancak ama sunucuda var kodlar ama tam benim istedigim gibi degil yardımcı ol bilcek arkadaş var mı?

OperServ 01 Nisan 2020 14:40
Cevap: Kanalın gevezesi bulma
 
Merhaba umarim isine yarar kullanimi .kelime
Kirmizi renkle belirledigim yerler muaf kanal ve muafnickler icin gecersiz kilar cogaltabilirsin

Iyi forumlar..

Kod:
menu * {
  .Kelime İstatistiği
  ..Aç:!if $group(#kelime).status = on { echo 4 -tgae Kelime Sayacı Zaten AÇIK } | else { /.enable #kelime | echo 4 -tgae Kelime Sayacı AÇILDI }
  ..Kapat:!if $group(#kelime).status = off { echo 4 -tgae Kelime Sayacı Zaten KAPALI } | else { /.disable #kelime | echo 4 -tgae Kelime Sayacı KAPATILDI }
  ..Durum < $replace($group(#kelime).status, off, Kapalı, on, Açık) >:.
}
#kelime on
on *:text:*:#:{ if $regex($1-,/^[.!]kel[iİı]me\s+[#]\S+$/Si) {
    if $hget(konusma,$2) {
      var %rvl 1 | while %rvl <= 10 { var %see = $addtok(%see,$regsubex(is,$+($hmatch(konusma,$+($2,$chr(11),*),%rvl),:,$hget(konusma,$+($2,$chr(11),$gettok($hmatch(konusma,$+($2,$chr(11),*),%rvl),2,11)))),/^\x23\S+\xB(\S+)\x3A(\d+)$/,$+(\2,$chr(11),\1)),32) | inc %rvl }
      msg # En Fazla Kelime Yazan İlk $iif($numtok(%see,11) < 10, $calc($v1 - 1), $v2) Kişi: $regsubex(cl,$regsubex(ciao,$replace($sorttok(%see,32,rn),$chr(11),:-),/(\d+)\x3A\x2D(\S+)/g,$+($chr(40),Nick:\2,$chr(32),Kelime:\1,$chr(41))),/(.+)[:]$/,\1)
      msg # $+(,$qt($2),) Kanalında Toplam Yazılan Kelime Sayısı: $+(,$hget(konusma,$2),)
    }
    else { msg # $+(,$qt($2),) Kanalına Ait İstatistik Yok! }
  }
  elseif !$istok(#muafkanal #muafkanal1, $chan, 32) && !$istok(muafnick muafnick1, $nick, 32) { !.hinc -m konusma $chan $numtok($1-,32) | !.hinc -m konusma $+($chan,$chr(11),$nick) $numtok($1-,32) }
}
#kelime end

Zalimsin 04 Nisan 2020 19:11
Cevap: Kanalın gevezesi bulma
 
ben kurdum ama calışmadı neden olabilr kanal !kelime yazdım ama hiç birsey olmadı

Subzero 05 Nisan 2020 00:06
Cevap: Kanalın gevezesi bulma
 
Alıntı:
off Nickli Üyeden Alıntı (Mesaj 1042279122)
ben kurdum ama calışmadı neden olabilr kanal !kelime yazdım ama hiç birsey olmadı
Ben Denedim Çalıştı !kelime #Kanal yaz çalısıcaktır

Zalimsin 05 Nisan 2020 02:04
Cevap: Kanalın gevezesi bulma
 
!sohbet yazdıgımız cıksa olmaz mı !kelime #kanal degilde

Hesapsiz33 05 Nisan 2020 02:52
Cevap: Kanalın gevezesi bulma
 
Alıntı:
off Nickli Üyeden Alıntı (Mesaj 1042279314)
!sohbet yazdıgımız cıksa olmaz mı !kelime #kanal degilde

on *:text:*:#:{ if $regex($1-,/^[.!]kel[iİı]me\s+[#]\S+$/Si) {
Burayı

on *:text:*:#:{ if $regex($1-,/^[.!]sohbet\s+[#]\S+$/Si) {
Olarak degişip dener misin

mys_35 05 Nisan 2020 08:54
Cevap: Kanalın gevezesi bulma
 
on *:text:*:#:{
if ($1 == !sohbet
) { top10 $chan | goto t0p10 }
if $1 == !puan {
elseif !$read($+(puan,$chan,.txt),w,$+(*,$2,*)) { msg $chan $2 puan listesinde yok }
if $2 == $me { msg $chan $+($nick, Benim puanmımı boşver, sen sohbetine bak. | goto t0p10 }
elseif ($2 == $nick && $read($+(puan,$chan,.txt),w,$+(*,$2,*))) { msg $chan $read(puan.txt,$readn) puanın var | goto t0p10 }
}
if !$read($+(puan,$chan,.txt),w,$+(*,$nick,*)) { write $+(puan,$chan,.txt) $nick 1 | halt }
else {
var %dify $readn
var %yeah = $calc($token($read($+(puan,$chan,.txt),%dify),2,32 ) +1)
write $+(-l,%dify) $+(puan,$chan,.txt) $nick %yeah
if %yeah == 100000 { mode $chan +v $nick | msg $chan Tebrikler $nick 100000 puanın oldu }
}
:t0p10
}
alias top10 {
var %cnk = @dify, %hit = 10, %e = $+(puan,$1,.txt), %top10 = 1
window -hn %cnk
filter -fwcteu 2 32 %e %cnk
msg $1 4*** 2 $1 Kanalı Günün Gevezeleri 4***
msg $1 
while %top10 <= %hit { msg $1 1 $(%top10)) 4 $gettok($line(%cnk,%top10),1,32) 1---> Satır : 2 $gettok($line(%cnk,%top10),2,32) | inc %top10 }
window -c %cnk
msg $1 
msg $1 4*** 2 $1 Kanalı Extra Puan Systemi 4***
}


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

Powered by vBulletin® Version 3.8.8 Beta 3
Copyright ©2000 - 2024, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2024 IRCForumlari.Net