on *:text:*:#oyun: { 
  var %< = $+(%,Puan.,#,.,$nick) 
  if ($1 == !Puan) {  if (!$2 || $2 == $nick) { msg # 1[4 $nick 1]3 $Chan 1Kanalındaki Toplam Puanınız 1[4 $(%<,2) 1] }    
    else { msg # 1[4 $2 1] Nickinin Puanına Bakamazsınız. 3!lider 1Komutu İle Genel Puanlamayı Listeleyiniz. }
  } 
  elseif ($1 == !Lider) { 
    var %a = $var($($+(%,Puan.,#,.*)),0),%c 
    while (%a > 0) { var %b = $var($($+(%,Puan.,#,.*)),$v1),%n = $gettok(%b,-1,46),%c = $addtok($(%b,2) %n,%c,160),%a = $calc(%a -1) } 
    %c = $sorttok(%c,160,rn) 
    tokenize 160 %c 
    .msg # 1[3 $Chan 1]  Kanalında En Çok Sohbet Eden Kullanıcılar
    .msg # 1. 4 $1 1
    .msg # 2. 4 $2 1
    .msg # 3. 4 $3 1
    .msg # 4. 4 $2 1
    .msg # 5. 4 $2 1  
  } 
  else { 
    inc $(%<,1) 
    if ($istok(10 30 40 45 60 75 100 120 135 150 175 200 225 250 275 300,$(%<,2),32) && $(%<,2)) { .msg $chan $nick $read(Puan.txt,wn,$+($v1,$chr(32),*)) } 
    if $(%<,2) == 300 { .mode $chan +v $nick $+ }
  } 
}