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/)
-   -   !puan Nick Hakkında Yardım . (https://www.ircforumlari.net/mirc-scripting-sorunlari/339156-puan-nick-hakkinda-yardim.html)

DaDaS 14 Haziran 2010 15:14
!puan Nick Hakkında Yardım .
 
Kod:
on *:text:*:#turkiye: {
  if !$hget(kns,$nick) { hadd -m kns $nick 1 | hsave -i kns kns.db }
  else { if $hmatch(kns,$nick) { hinc -m kns $v1 1 | hsave -i kns kns.db } }
  if $hget(kns,$nick) == 1000 { msg # $+($nick,:) 0,1Tebrikler 1000 puan olduğunuz için; +voice kazandınız. | mode # +v $nick | hadd -m vnick $nick 1 | hsave -i vnick vnick.db }
  if $1 == !puan {
    if $2 == $me { msg # $+($nick,:) Benim puanmımı boşver, sen sohbetine bak. | halt }
    if !$hmatch(kns,$2) { msg # $+($nick,:) $qt($2) Listetede bulunamadı. }
    else { msg # $+($nick,:) 13 $2 Rumuzunun Konusma Puani; $hget(kns,$2) }
  }
}
on *:start: { if $isfile(vnick.db) { hmake vnick 100 | hload -i vnick vnick.db } | if $isfile(kns.db) { hmake kns 100 | hload -i kns kns.db } }

Arkadaslar Sole Bı KOD Var
Bunu Soyle Yapbılırmıyız !Puan List Yaptıgımızda Konusan Nıcklerın Puanlarına Gore Sıralamasını

[15:12] <DaDaS> !puan DaDaS
[15:12] <@KoRuMa> DaDaS: DaDaS Rumuzunun Konusma Puani; 350
Bunu Dıyo AYRICA


!puan list Yazdıgımıza Yarısan ilk 10 kısınin Nıcklerın Sıralamısını Verıcek Yapabılırmıyız Arkadaslar Sımdıden Tesekurler. :)

Doktrin 14 Haziran 2010 21:37
Cevap: !puan Nick Hakkında Yardım .
 
if $1 == !puan {

bu satırın altına aşağıdaki kodu ekleyerek bir dene bakalım.

if $2 == !list { var %x 1 | while %x <= 10 { msg # $hget(kns,%x).item | inc %x } }

Difuzyon 14 Haziran 2010 23:50
Cevap: !puan Nick Hakkında Yardım .
 
Kod:
on *:text:*:#Kanal:{
  if $1 == !puan {
    if ($2  == list) { top10 | goto t0p10 }
    elseif !$read(puan.txt,w,$+(*,$2,*)) { msg $chan $2 puan listesinde yok }
    elseif ($2 == $me) { msg $chan  Beni boşver,kendi puanına bak  | goto t0p10 }
    elseif ($2 == $nick && $read(puan.txt,w,$+(*,$2,*))) { msg $chan $read(puan.txt,$readn) puanı 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) +100)
    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 #Kanal (Top 10) Puan listesi:
  while %top10 <= %hit { msg #Kanal $ord(%top10) $line(%cnk,%top10) | inc %top10 }
  window -c %cnk
}
Paylaştığın kodda ki cevaplara göre dizayn etmeye çalıştım,faydalı olur umarım...

DaDaS 15 Haziran 2010 10:20
Cevap: !puan Nick Hakkında Yardım .
 
cok Tesekur ederım emegıne Saglık

Difuzyon 15 Haziran 2010 11:27
Cevap: !puan Nick Hakkında Yardım .
 
Alıntı:
DaDaS Nickli Üyeden Alıntı (Mesaj 1040440799)
!puan list Yazdıgımıza Yarısan ilk 10 kısınin Nıcklerın Sıralamısını Verıcek Yapabılırmıyız Arkadaslar Sımdıden Tesekurler. :)
Yukarıdaki isteğinde !puan list demişsin ?

Bende burdaki komut isteğine göre hareket ettim.

Yani #kanal'a !TOP10 yerine !puan list yazman gerekiyor.

DaDaS 15 Haziran 2010 11:53
Cevap: !puan Nick Hakkında Yardım .
 
!puan list yaptım ama calısmadı kardesım cok sagolasın tekrar duzenleme sansın varsa yardımcı ol tesekurler.
Artı puan.txt dıye bı dosya acmıyor acması lazım bu koda gore hareket edersek.

Lucifer 15 Haziran 2010 15:26
Cevap: !puan Nick Hakkında Yardım .
 
Difuzyon 'nun yaptığı kod gayet iyi çalışıyor. Kendim test ettim çalışdırdım çokta güzel çalışıyor mesela;

[15:23] <syuqf9> !puan Stoporplay
[15:23] <Stoporplay> Stoporplay puan listesinde yok

[15:23] <syuqf9> !puan syuqf9
[15:23] <Stoporplay> syuqf9 200 puanı var

[15:23] <syuqf9> !puan list
[15:23] <Stoporplay> (Top 10) Puan listesi:
[15:23] <Stoporplay> 1st dasdada 2600
[15:23] <Stoporplay> 2nd asdsad 300
[15:23] <Stoporplay> 3rd syuqf9 200
[15:23] <Stoporplay> 4th
[15:23] <Stoporplay> 5th
[15:23] <Stoporplay> 6th
[15:23] <Stoporplay> 7th
[15:23] <Stoporplay> 8th
[15:23] <Stoporplay> 9th
[15:23] <Stoporplay> 10th

Herhangi bir sorun görünmüyor. Puan.txt diyede ana klasör içinde, dosya açıyor. Kodu tekrar deneyin birde, Difuzyon 'nun dediği gibi top10 yerine, !puan list yaptığınızda, olacaktır.

DaDaS 15 Haziran 2010 22:06
Cevap: !puan Nick Hakkında Yardım .
 
Arkadaslar Kodlarda Sorun Yokmus Oldu Cok Tessekkur Ederım Kolay Gelsın


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

Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2025, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2025 IRCForumlari.Net Sparhawk