if $2 == PRIVMSG && $istok($_puan,$3,44) {
    if $token($1,1,58) == Toprak!ibr@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] && $remove($4,:) == !sıfırla { .sıfırla $3 }
    if $remove($4,:) == !top10 { if $hget(Flodtop10,$3) >= 1 { return } | .hinc -msu2 Flodtop10 $3 | $top10($3) | return }
    if $remove($4,:) == !puan {
      if $istok($_pmuaf,$strip($5),32) { return } 
      if $hget(Flod!puan,$_nick($1)) >= 1 { return }
      .hinc -msu5 Flod!puan $_nick($1) 
      if !$strip($5) || $strip($5) == $_nick($1) { 
        if $hget(Puan,$_nick($1)) { swpubot privmsg $3 :[ $_nick($1) ] Konuşma Puanınız; [ $hget(Puan,$_nick($1)) ] | return } 
        else { swpubot privmsg $3 :[ $_nick($1) ] Konuşma puan'ınız bulunmamaktadır. | return }
      }
      if $strip($5) {
        if $hget(Puan,$strip($5)) { swpubot privmsg $3 :[ $strip($5) ] Konuşma Puanı; [ $hget(Puan,$strip($5)) ] | return }
        else { swpubot privmsg $3 :[ $strip($5) ] Nick'inin konuşma puan'ı bulunmamaktadır. | return } 
      }
    } 
    if $hget(anick,$_nick($1)) { return }
    if $istok($_pmuaf,$_nick($1),32) { return }
    if $hget(Flodpuan,$_nick($1)) >= 1 { return }
    .hinc -msu1 Flodpuan $_nick($1) 
    if $hget(Puan,$_nick($1)) { .hinc -m konus $_nick($1) 1 | .hsave -i konus Puan/konus.mercy | swpubot os raw swhois $_nick($1) :Rütbe [ $rütbe($hget(Puan,$_nick($1))) ] Konuşma Puani = [ $hget(Puan,$_nick($1)) ] } 
    else { .hadd -m Puan $_nick($1) 1 | .hsave -i Puan Puan/Puan.mercy }
    if $hget(konus,$_nick($1)) == 50 {
      .hinc -m Puan $_nick($1) 1 | .hsave -i Puan Puan/Puan.mercy 
      .hdel konus $_nick($1) | .hsave -i konus Puan/konus.mercy
      swpubot os raw swhois $_nick($1) :Rütbe [ $rütbe($hget(Puan,$_nick($1))) ] Konuşma Puani = [ $hget(Puan,$_nick($1)) ] 
    } 
    if $hget(Puan,$_nick($1)) == 10 { swpubot privmsg $3 :Konuşma Puanın [ $hget(Puan,$_nick($1)) ] oldu $_nick($1) | .hinc -m Puan $_nick($1) 1 | hsave -i Puan Puan/Puan.mercy }
    if $hget(Puan,$_nick($1)) == 20 { swpubot privmsg $3 :Konuşma Puanın [ $hget(Puan,$_nick($1)) ] oldu $_nick($1) | .hinc -m Puan $_nick($1) 1 | hsave -i Puan Puan/Puan.mercy }
    if $hget(Puan,$_nick($1)) == 30 { swpubot privmsg $3 :Konuşma Puanın [ $hget(Puan,$_nick($1)) ] oldu $_nick($1) | .hinc -m Puan $_nick($1) 1 | hsave -i Puan Puan/Puan.mercy }
    if $hget(Puan,$_nick($1)) == 40 { swpubot privmsg $3 :Konuşma Puanın [ $hget(Puan,$_nick($1)) ] oldu $_nick($1) | .hinc -m Puan $_nick($1) 1 | hsave -i Puan Puan/Puan.mercy }
    if $hget(Puan,$_nick($1)) == 50 { swpubot privmsg $3 :Konuşma Puanın [ $hget(Puan,$_nick($1)) ] oldu $_nick($1) | .hinc -m Puan $_nick($1) 1 | hsave -i Puan Puan/Puan.mercy }
    if $hget(Puan,$_nick($1)) == 60 { swpubot privmsg $3 :Konuşma Puanın [ $hget(Puan,$_nick($1)) ] oldu $_nick($1) | .hinc -m Puan $_nick($1) 1 | hsave -i Puan Puan/Puan.mercy }
    if $hget(Puan,$_nick($1)) == 70 { swpubot privmsg $3 :Konuşma Puanın [ $hget(Puan,$_nick($1)) ] oldu $_nick($1) | .hinc -m Puan $_nick($1) 1 | hsave -i Puan Puan/Puan.mercy }
    if $hget(Puan,$_nick($1)) == 80 { swpubot privmsg $3 :Konuşma Puanın [ $hget(Puan,$_nick($1)) ] oldu $_nick($1) | .hinc -m Puan $_nick($1) 1 | hsave -i Puan Puan/Puan.mercy }
    if $hget(Puan,$_nick($1)) == 90 { swpubot privmsg $3 :Konuşma Puanın [ $hget(Puan,$_nick($1)) ] oldu $_nick($1) | .hinc -m Puan $_nick($1) 1 | hsave -i Puan Puan/Puan.mercy }
    if $hget(Puan,$_nick($1)) == 100 { swpubot privmsg $3 :Konuşma Puanın [ $hget(Puan,$_nick($1)) ] oldu $_nick($1) | .hinc -m Puan $_nick($1) 1 | hsave -i Puan Puan/Puan.mercy }
    if $hget(Puan,$_nick($1)) == 150 { swpubot privmsg $3 :Konuşma Puanın [ $hget(Puan,$_nick($1)) ] oldu $_nick($1) | .hinc -m Puan $_nick($1) 1 | hsave -i Puan Puan/Puan.mercy }
    if $hget(Puan,$_nick($1)) == 200 { swpubot privmsg $3 :Konuşma Puanın [ $hget(Puan,$_nick($1)) ] oldu $_nick($1) | .hinc -m Puan $_nick($1) 1 | hsave -i Puan Puan/Puan.mercy }
    if $hget(Puan,$_nick($1)) == 250 { swpubot privmsg $3 :Konuşma Puanın [ $hget(Puan,$_nick($1)) ] oldu $_nick($1) | .hinc -m Puan $_nick($1) 1 | hsave -i Puan Puan/Puan.mercy | .hadd -m vnick $_nick($1) 1 | .hsave -i vnick Puan/vnick.mercy | swpubot mode $3 +v $_nick($1) | swpubot chghost $_nick($1) Vip. $+ $gettok($_sunucu,2-,46) }                                       
    if $hget(Puan,$_nick($1)) == 300 { swpubot privmsg $3 :Konuşma Puanın [ $hget(Puan,$_nick($1)) ] oldu $_nick($1) | .hinc -m Puan $_nick($1) 1 | hsave -i Puan Puan/Puan.mercy }
    if $hget(Puan,$_nick($1)) == 350 { swpubot privmsg $3 :Konuşma Puanın [ $hget(Puan,$_nick($1)) ] oldu $_nick($1) | .hinc -m Puan $_nick($1) 1 | hsave -i Puan Puan/Puan.mercy }
    if $hget(Puan,$_nick($1)) == 400 { swpubot privmsg $3 :Konuşma Puanın [ $hget(Puan,$_nick($1)) ] oldu $_nick($1) | .hinc -m Puan $_nick($1) 1 | hsave -i Puan Puan/Puan.mercy }
    if $hget(Puan,$_nick($1)) == 450 { swpubot privmsg $3 :Konuşma Puanın [ $hget(Puan,$_nick($1)) ] oldu $_nick($1) | .hinc -m Puan $_nick($1) 1 | hsave -i Puan Puan/Puan.mercy }
    if $hget(Puan,$_nick($1)) == 500 { swpubot privmsg $3 :Konuşma Puanın [ $hget(Puan,$_nick($1)) ] oldu $_nick($1) | .hinc -m Puan $_nick($1) 1 | hsave -i Puan Puan/Puan.mercy | .hdel vnick $_nick($1) | .hsave -i vnick Puan/vnick.mercy | .hadd -m hnick $_nick($1) 1 | .hsave -i hnick Puan/hnick.mercy | swpubot mode $3 +h $_nick($1) | swpubot chghost $_nick($1) Bronz. $+ $gettok($_sunucu,2-,46) }
    if $hget(Puan,$_nick($1)) == 550 { swpubot privmsg $3 :Konuşma Puanın [ $hget(Puan,$_nick($1)) ] oldu $_nick($1) | .hinc -m Puan $_nick($1) 1 | hsave -i Puan Puan/Puan.mercy }
    if $hget(Puan,$_nick($1)) == 600 { swpubot privmsg $3 :Konuşma Puanın [ $hget(Puan,$_nick($1)) ] oldu $_nick($1) | .hinc -m Puan $_nick($1) 1 | hsave -i Puan Puan/Puan.mercy }
    if $hget(Puan,$_nick($1)) == 650 { swpubot privmsg $3 :Konuşma Puanın [ $hget(Puan,$_nick($1)) ] oldu $_nick($1) | .hinc -m Puan $_nick($1) 1 | hsave -i Puan Puan/Puan.mercy }
    if $hget(Puan,$_nick($1)) == 700 { swpubot privmsg $3 :Konuşma Puanın [ $hget(Puan,$_nick($1)) ] oldu $_nick($1) | .hinc -m Puan $_nick($1) 1 | hsave -i Puan Puan/Puan.mercy }
    if $hget(Puan,$_nick($1)) == 750 { swpubot privmsg $3 :Konuşma Puanın [ $hget(Puan,$_nick($1)) ] oldu $_nick($1) | .hinc -m Puan $_nick($1) 1 | hsave -i Puan Puan/Puan.mercy | swpubot chghost $_nick($1) Gold. $+ $gettok($_sunucu,2-,46) }
    if $hget(Puan,$_nick($1)) == 800 { swpubot privmsg $3 :Konuşma Puanın [ $hget(Puan,$_nick($1)) ] oldu $_nick($1) | .hinc -m Puan $_nick($1) 1 | hsave -i Puan Puan/Puan.mercy }
    if $hget(Puan,$_nick($1)) == 850 { swpubot privmsg $3 :Konuşma Puanın [ $hget(Puan,$_nick($1)) ] oldu $_nick($1) | .hinc -m Puan $_nick($1) 1 | hsave -i Puan Puan/Puan.mercy }
    if $hget(Puan,$_nick($1)) == 900 { swpubot privmsg $3 :Konuşma Puanın [ $hget(Puan,$_nick($1)) ] oldu $_nick($1) | .hinc -m Puan $_nick($1) 1 | hsave -i Puan Puan/Puan.mercy }
    if $hget(Puan,$_nick($1)) == 950 { swpubot privmsg $3 :Konuşma Puanın [ $hget(Puan,$_nick($1)) ] oldu $_nick($1) | .hinc -m Puan $_nick($1) 1 | hsave -i Puan Puan/Puan.mercy }
    if $hget(Puan,$_nick($1)) == 999 { .hinc -m Puan $_nick($1) 1 | hsave -i Puan Puan/Puan.mercy | swpubot privmsg $3 :Konuşma Puanın [ $hget(Puan,$_nick($1)) ] oldu $_nick($1) | .hadd -m anick $_nick($1) 1 | .hsave -i anick Puan/anick.mercy |  swpubot chghost $_nick($1) Platinium. $+ $gettok($_sunucu,2-,46) }
  }

alias rütbe {
  if ($1 <= 75) { return Caylak }
  if ($1 >= 76 && $1 <= 150) { return Star }
  if ($1 >= 151 && $1 <= 250) { return Super Star }
  if ($1 >= 251 && $1 <= 350) { return Multi Star ( VIP Üye ) }
  if ($1 >= 351 && $1 <= 500) { return Super ChatterBox ( VIP Üye ) }
  if ($1 >= 501 && $1 <= 650) { return Vezir ( Bronz Üye ) }
  if ($1 >= 651 && $1 <= 800) { return Lord ( Gold Üye ) }
  if ($1 >= 801 && $1 <= 1001) { return KraL ( Platinium Üye ) }
  if ($1 == 1907) { return 8,2 Fener Bahçe  }
}
on *:start:{ 
  .remote on 
  if (!$hget(Puan)) { hmake Puan | hload -i Puan Puan/Puan.mercy  }
  if (!$hget(konus)) { hmake konus | hload -i konus Puan/konus.mercy  }
  if (!$hget(vnick)) { hmake vnick | hload -i vnick Puan/vnick.mercy  }
  if (!$hget(hnick)) { hmake hnick | hload -i hnick Puan/hnick.mercy  }
  if (!$hget(onick)) { hmake onick | hload -i onick Puan/onick.mercy  }
  if (!$hget(anick)) { hmake anick | hload -i anick Puan/anick.mercy  }
}
alias top10 {
  var %:ibo = 1
  while %:ibo <= $hget(Puan,0).data {
    var %:top10 $addtok(%:top10,$hget(Puan,%:ibo).data,191)
    inc %:ibo 
  }
  var %:sira = $sorttok(%:top10,191,nr)
  var %:top10 = $gettok(%:sira,1-10,191)
  var %t = 1 | while %t <= $gettok(%:top10,0,191) { .fazlaise $gettok(%:top10,%t,191) | inc %t }
  var %1 = 14,1#10,1 $iif($token($gettok(%:tops10,1,191),1,32),$token($gettok(%:tops10,1,191),1,32),Nobody) 4,1( $+ $iif($token($gettok(%:tops10,1,191),2,32),$token($gettok(%:tops10,1,191),2,32),0) $+ )
  var %2 = 14,1 #20,1 $iif($token($gettok(%:tops10,2,191),1,32),$token($gettok(%:tops10,2,191),1,32),Nobody) 4,1( $+ $iif($token($gettok(%:tops10,2,191),2,32),$token($gettok(%:tops10,2,191),2,32),0) $+ )
  var %3 = 14,1 #30,1 $iif($token($gettok(%:tops10,3,191),1,32),$token($gettok(%:tops10,3,191),1,32),Nobody) 4,1( $+ $iif($token($gettok(%:tops10,3,191),2,32),$token($gettok(%:tops10,3,191),2,32),0) $+ )
  var %4 = 14,1 #40,1 $iif($token($gettok(%:tops10,4,191),1,32),$token($gettok(%:tops10,4,191),1,32),Nobody) 4,1( $+ $iif($token($gettok(%:tops10,4,191),2,32),$token($gettok(%:tops10,4,191),2,32),0) $+ )
  var %5 = 14,1 #50,1 $iif($token($gettok(%:tops10,5,191),1,32),$token($gettok(%:tops10,5,191),1,32),Nobody) 4,1( $+ $iif($token($gettok(%:tops10,5,191),2,32),$token($gettok(%:tops10,5,191),2,32),0) $+ )
  var %6 = 14,1 #60,1 $iif($token($gettok(%:tops10,6,191),1,32),$token($gettok(%:tops10,6,191),1,32),Nobody) 4,1( $+ $iif($token($gettok(%:tops10,6,191),2,32),$token($gettok(%:tops10,6,191),2,32),0) $+ )
  var %7 = 14,1 #70,1 $iif($token($gettok(%:tops10,7,191),1,32),$token($gettok(%:tops10,7,191),1,32),Nobody) 4,1( $+ $iif($token($gettok(%:tops10,7,191),2,32),$token($gettok(%:tops10,7,191),2,32),0) $+ )
  var %8 = 14,1 #80,1 $iif($token($gettok(%:tops10,8,191),1,32),$token($gettok(%:tops10,8,191),1,32),Nobody) 4,1( $+ $iif($token($gettok(%:tops10,8,191),2,32),$token($gettok(%:tops10,8,191),2,32),0) $+ )
  var %9 = 14,1 #90,1 $iif($token($gettok(%:tops10,9,191),1,32),$token($gettok(%:tops10,9,191),1,32),Nobody) 4,1( $+ $iif($token($gettok(%:tops10,9,191),2,32),$token($gettok(%:tops10,9,191),2,32),0) $+ )
  var %10 = 14,1 #100,1 $iif($token($gettok(%:tops10,10,191),1,32),$token($gettok(%:tops10,10,191),1,32),Nobody) 4,1( $+ $iif($token($gettok(%:tops10,10,191),2,32),$token($gettok(%:tops10,10,191),2,32),0) $+ )
  swpubot privmsg $1 :0,1 Top10 %1 %2 %3 %4 %5 %6 %7 %8 %9 %10 
  .unset %:tops10
}
alias fazlaise { var %:10 = 1 | while %:10 <= $hfind(Puan,$1,0).data { .set %:tops10 $addtok(%:tops10,$hfind(Puan,$1,%:10,w).data,191) $1 | inc %:10 } }
alias sıfırla {
  .hfree -sw Puan | .hmake Puan | .hsave -i Puan Puan/Puan.mercy
  .hfree -sw konus | .hmake konus | .hsave -i Puan Puan/Konus.mercy
  .hfree -sw vnick | .hmake vnick | .hsave -i Puan Puan/vnick.mercy
  .hfree -sw hnick | .hmake hnick | .hsave -i Puan Puan/hnick.mercy
  .hfree -sw anick | .hmake anick | .hsave -i Puan Puan/anick.mercy
  swpubot privmsg $1 :Bütün puanlar sıfırlanmıştır.
  return
}

if ($2 == JOIN) {
  if $istok($_puan,$right($3,-1),44) {
    if $hget(vnick,$_nick($1)) {
      swpubot mode $right($3,-1) +v $_nick($1) | swpubot chghost $_nick($1) Vip. $+ $gettok($_sunucu,2-,46)
      swpubot privmsg $right($3,-1) :[ $_nick($1) ] Önce'den 250 puan'ı aştıgınız için oto voice listemdesiniz.
    } 
    if $hget(hnick,$_nick($1)) {
      swpubot mode $right($3,-1) +h $_nick($1) | swpubot chghost $_nick($1) Bronz. $+ $gettok($_sunucu,2-,46)
      swpubot privmsg $right($3,-1) :[ $_nick($1) ] Önce'den 500 puan'ı aştıgınız için oto halfop listemdesiniz.
    } 
    if $hget(anick,$_nick($1)) { swpubot chghost $_nick($1) Platinium. $+ $gettok($_sunucu,2-,46) } 
    if $hget(Puan,$_nick($1)) { swpubot os raw swhois $_nick($1) :Rütbe [ $rütbe($hget(Puan,$_nick($1))) ] Konuşma Puani = [ $hget(Puan,$_nick($1)) ] }
  }
}

if ($2 == NICK) { 
  if $hget(Puan,$right($3,-1)) { swpubot os raw swhois $right($3,-1) :Rütbe [ $rütbe($hget(Puan,$right($3,-1))) ] Konuşma Puani = [ $hget(Puan,$right($3,-1)) ] }
}