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

Zalimsin · 31 Mart 2020, 01:06

[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

Merhaba umarim isine yarar kullanimi .kelime
Kirmizi renkle belirledigim yerler muaf kanal ve muafnickler icin gecersiz kilar cogaltabilirsin

Iyi forumlar..

Kod: Kodu kopyalamak için üzerine çift tıklayın!

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

ben kurdum ama calışmadı neden olabilr kanal !kelime yazdım ama hiç birsey olmadı

Subzero · 05 Nisan 2020, 00:06

off Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

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

!sohbet yazdıgımız cıksa olmaz mı !kelime #kanal degilde

Hesapsiz33 · 05 Nisan 2020, 02:52

off Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

!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

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***
}

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
Tarih oluyor ( Kanalın adı değişiyor )	Wizard	Spor Haberleri	0	03 Kasım 2016 20:24
Kanalın üstüne icon eklemek	iSyan21	mIRC Scripting Sorunları	0	27 Mart 2009 21:22
En büyük 10 kanalın topic'ini değiştirmek?	Gates	mIRC Scripting Sorunları	4	01 Ocak 2009 21:34
Kanalın Adı # Olmadan Çıkmıyor.	Smith	mIRC Scripting Sorunları	10	26 Ekim 2008 23:20

Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)

5846 sayılı Fikir ve Sanat Eserleri Kanunu gereğince sitemizde telif hakkı bulunan mp3,video v.b. eserlerin paylaşımı yasaktır. Yasal işlem olması halinde paylaşan kişi yada kişilerin bilgileri gerekli kuruma verilecektir.