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

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

- - !topten (https://www.ircforumlari.net/mirc-scripting-sorunlari/173379-topten.html)

s.a
!topten yazarak Kanalda en cok konusan ilk on kisiyi gosteren kod varmi?

Kod:

on *:text:*:#kanal:{

  ;muaf nickler buraya

  if ($istok(nick1 nick2 nick3,$nick,32)) { halt }

  if (!$hget(topten)) { hmake topten }

  if ($1 == !toplist) { msg $chan $toplist | halt }

  if ($1 == !puan) { msg $chan $nick Senin Puanın: $iif($hget(topten,$nick),$hget(topten,$nick),Yok) | halt }

  if ($len($1-) <= 50) { hinc topten $nick 1 | hsave -o topten $shortfn($mircdirtopten.data) }

}

on *:start:{

  if (!$hget(topten)) { hmake topten | hload topten $shortfn($mircdirtopten.data) }

}

on *:exit:hsave -o topten $shortfn($mircdirtopten.data)

on *:disconnect:hsave -o topten $shortfn($mircdirtopten.data)

alias toplist {

  unset %top10puan

  hsave topten $shortfn($mircdirtopten.data)

  .hfree -sw topten | hmake topten | hload topten $shortfn($mircdirtopten.data)

  var %xc = $hget(topten,0).data,%ss = 1

  while (%ss <= %xc) {

    set %top10puan $addtok(%top10puan,$hget(topten,%ss).data,46)

    inc %ss 1

  }

  var %sira = $sorttok(%top10puan,46,nr)

  var %1 = 1,%2 = 1,%3 = 1,%4 = 1,%5 = 1,%6 = 1,%7 = 1,%8 = 1,%9 = 1,%10 = 1

  %1 = $fazlaise($gettok(%sira,1,46)) $gettok(%sira,1,46)

  %2 = $fazlaise($gettok(%sira,2,46)) $gettok(%sira,2,46)

  %3 = $fazlaise($gettok(%sira,3,46)) $gettok(%sira,3,46)

  %4 = $fazlaise($gettok(%sira,4,46)) $gettok(%sira,4,46)

  %5 = $fazlaise($gettok(%sira,5,46)) $gettok(%sira,5,46)

  %6 = $fazlaise($gettok(%sira,6,46)) $gettok(%sira,6,46)

  %7 = $fazlaise($gettok(%sira,7,46)) $gettok(%sira,7,46)

  %8 = $fazlaise($gettok(%sira,8,46)) $gettok(%sira,8,46)

  %9 = $fazlaise($gettok(%sira,9,46)) $gettok(%sira,9,46)

  %10 = $fazlaise($gettok(%sira,10,46)) $gettok(%sira,10,46)

  return 0,10Top10 Puan $+(0,$chr(44),4,#10,$chr(44),10,$chr(32),%1) $+(0,$chr(44),4,#20,$chr(44),10,$chr(32),%2) $+(0,$chr(44),4,#30,$chr(44),10,$chr(32),%3) $+(0,$chr(44),4,#40,$chr(44),10,$chr(32),%4) $+(0,$chr(44),4,#50,$chr(44),10,$chr(32),%5) $+(0,$chr(44),4,#60,$chr(44),10,$chr(32),%6) $+(0,$chr(44),4,#70,$chr(44),10,$chr(32),%7) $+(0,$chr(44),4,#80,$chr(44),10,$chr(32),%8) $+(0,$chr(44),4,#90,$chr(44),10,$chr(32),%9) $+(0,$chr(44),4,#100,$chr(44),10,$chr(32),%10)
 

}

alias -l fazlaise {

  unset %y | unset %w

  var %i = $hfind(topten,$1,0,w).data

  while (%i) {

    %y = $hfind(topten,$1,%i,w).data

    %w = %y %w

    dec %i

  }

  return $replace($sorttok(%w,32,a),$chr(32),$chr(44))

}

sagol ama benim aradigim userlere acik olsun bota atacamda ondan

yardim eden kimse yokmu?

ben userlere yasak demedim ki o nereden çıktı?

Cesuryurek arama yaptim ve halilin verdigi kod var bu ama calismiyor :(

!puan
!toplist
50 karakterden uzun yazarsa 1 puan artacak birkaç kere test ettim çalışıyor.. genede hata falan olursa bildirin.

kod calısıyor denedim kendi mircinizde değil bot ta deneyin
bota
!puan
!toplist

yazarsanız calıstıgını göreceksiniz..

Kendi mircinizde kullanmak icin ilk satırı

Kod:

on *:input:#:{

olarak değiştiriniz..

Çok güzel bişey ama biraz daha geliştirilimezmi mesala Oyun kanallarını ve botları muaf tutalım tüm kanallarda çalışsın çokta güzel olur hemde rekabet yaratır..

[CODE]
on *:text:*:#Turkiye:{
if $1 == !puan {
if ($2 == list) { top10 | goto t0p10 }
elseif !$read(puan.txt,w,$+(*,$2,*)) { msg $chan $2 puan listesinde yok }
if $2 == $me { msg # $+($nick,:) Benim puanmımı boşver, sen sohbetine bak. | goto t0p10 }
elseif ($2 == $nick && $read(puan.txt,w,$+(*,$2,*))) { msg $chan $read(puan.txt,$readn) puanın var | goto t0p10 }
}
if !$read(puan.txt,w,$+(*,$nick,*)) { write puan.txt $nick 100 | halt }
else {
var %dify $readn
var %yeah = $calc($token($read(puan.txt,%dify),2,32) +1)
write $+(-l,%dify) puan.txt $nick %yeah
if %yeah == 1000 { mode $chan +v $nick | msg $chan Tebrikler $nick 1.000 puanın oldu }
}
:t0p10
}
alias top10 {
var %cnk = @dify, %hit = 10, %e = puan.txt, %top10 = 1
window -hn %cnk
filter -fwcteu 2 32 %e %cnk
msg #turkiye 7,17,1 14«15««7 Turkiye Kanalında En Cok Konusma Puanına Sahip Olan 10 Kişi: 15»»14»
while %top10 <= %hit { msg #turkiye 12 $ord(%top10) $line(%cnk,%top10) | inc %top10 }
window -c %cnk
}
[CODE]