[21:58] <deneme1> !puan list
[21:58] <Feragat> ,, ««« Sohbet Kanalında En Cok Konusma Puanına Sahip Olan 10 Kişi: »»»
[21:58] <Feragat>  1st deneme1 1017 KraL Gold Üye
[21:58] <Feragat>  2nd deneme5 600 Vezir Bronz Üye
[21:58] <Feragat>  3rd abuzer 5 Caylak
[21:58] <Feragat>  4th
[21:58] <Feragat>  5th
[21:58] <Feragat>  6th
[21:58] <Feragat>  7th
[21:58] <Feragat>  8th
[21:58] <Feragat>  9th
[21:58] <Feragat>  10th

alias top10 {
  var %cnk = @dify, %hit = 10, %e = puan.txt, %top10 = 1
  window -hn %cnk
  filter -fwcteu 2 32 %e %cnk
  msg %k 7,17,1 14«15««7 Sohbet Kanalında En Cok Konusma Puanına Sahip Olan 10 Kişi: 15»»14»
  while %top10 <= %hit { msg %k 12 $ord(%top10) $iif($line(%cnk,%top10), $rütbe($v1), $v1) | inc %top10 } 
  window -c %cnk
}  

alias böl return $token($strip($1),2,32)

alias rütbe {  
  $iif($böl($1) isnum 1-75, return $1 Caylak)
  $iif($böl($1) isnum 76-150, return $1 Star)   
  $iif($böl($1) isnum 151-250, return $1 Super Star)   
  $iif($böl($1) isnum 251-350, return $1 Multi Star VIP Üye)   
  $iif($böl($1) isnum 351-500, return $1 Super ChatterBox VIP Üye)   
  $iif($böl($1) isnum 501-650, return $1 Vezir Bronz Üye)   
  $iif($böl($1) isnum 651-800, return $1 Lord Gold Üye)   
  $iif($böl($1) isnum 801-1001, return $1 KraL Platinium Üye)  
  $iif($böl($1) isnum 1002-1906, return $1 KraL Gold Üye) 
  $iif($böl($1) == 1907, return $1 8,2 Fener Bahçe)
  $iif($böl($1) > 1907, return $1 KraL Üye)
}