Puan botu hakkında - IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

Braun · 17 Haziran 2008, 13:43

Slam kolay gelsin arkadaşlar ;

Global kanallarda sohbet eden userlere ettiği sohbete yani ne kadar çok cümle kurarsa botum puan versin ve ben sıfırlayana kadar puanları kayıtta dursun bunu görmüştüm hoşuma gitti yardımcı olabilirmisiniz.

!sıfırla nick dediğim zaman sıfırlayacak
!puan Nick dedğim zaman puanı gösterecek

Ve !sıfırla Nick komutu #ops kanalında uygulanacak.
!puan Nick komutu ise #sohbet kanalında @ & ~ tarafından uygulanacak.

Şimididen teşekkürler.

Editor · 17 Haziran 2008, 16:36

PHP Kod: Kodu kopyalamak için üzerine çift tıklayın!


on *:rawmode:#sohbet:{
  if $remove($1,o) == +a || $remove($1,o) == +o || $remove($1,o) == +q {
    set $+(%,pveyaa,.,$2) OK!
  }
  if $remove($1,o) == -a || $remove($1,o) == -o || $remove($1,o) == -q {
    unset $+(%,pveyaa,.,$2)
  }
}
on *:TEXT:*:#OPS:{
  if $1 == !puansil {
    if $($+(%,pveyaa,.,$nick),2) {
      if $2 == $null {
        msg $chan Lütfen Puanı sıfırlanıcak nick belirtin.
        .halt
      }
      if $($+(%,puansay!,$2,!,$chan),2) == $null {
        msg $chan Bu nickin kayıtlı bi puanı yok
      }
      else {
        unset $+(%,puansay!,$2,!,$chan)
        msg $chan $2 puanları sıfırlandı.
      }
    }
  }
  if $1 == !puan {
    if $2 !== $null {
      msg $chan $iif($($+(%,puansay!,$2,!,$chan),2), $2 $($+(%,puansay!,$2,!,$chan),2) konuşma puanın var!, $2 nickinin hiç konuşma puanı yok!)
    }
    else {
      msg $chan $iif($($+(%,puansay!,$nick,!,$chan),2), $nick $($+(%,puansay!,$nick,!,$chan),2) konuşma puanın var!, $nick nickinin hiç konuşma puanı yok!)
    }
  }
  else {
    inc $+(%,puansay!,$nick,!,$chan)
    if $($+(%,puansay!,$nick,!,$chan),2) == 10 { msg $chan # Kanalında Konuşma Puanın 10 oldu, $nick $+ !  }
    if $($+(%,puansay!,$nick,!,$chan),2) == 25 { msg $chan # Kanalında Konuşma Puanın 25 oldu, $nick $+ ! }
    if $($+(%,puansay!,$nick,!,$chan),2) == 50 { msg $chan # Kanalında Konuşma Puanın 50 oldu, $nick $+ ! | notice $nick Tebrikler! Bu seviyeli ve düzeyli sohpete devam ederseniz 200 puandan sonra +voice ile ödüllendirileceksiniz..! }
    if $($+(%,puansay!,$nick,!,$chan),2) == 100 { msg $chan # Kanalında Konuşma Puanın 100 oldu, $nick $+ ! | notice $nick 200 puandan sonra öldülünüz +voice olacak..! } 
    if $($+(%,puansay!,$nick,!,$chan),2) == 100 { msg $chan # Kanalında Konuşma Puanın 200 oldu, $nick $+ ! | mode # +v $nick | notice $nick Ödül olarak +voice aldınız..! }
  }
}

#Sohbet Kanalında Herhangi birisi ;
1. !Puan Yazarak Puanını Ögrenir.
2. @,&,~ Konumunda oldugu zaman !Puan Nick yaparak #Sohbet Kanalındaki kişinin Puanını Gösterir.
3. !Puansil Nick Yazarak Nickin Kayıtlı olan puanını silersin.
4. !puansil nick Komutu sadece #OPS Kanalında Uygulanır.
5. Konuşma Puanı 200 olana +v ile ödüllendirir.

Umarım yardımcı olabilrmişimdir.

Kolay Gelsin

COMBOMAX · 18 Şubat 2009, 16:07

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] usta acaba arada gaz verici cümleler kurmasıda mümkünmü ?

Editor · 18 Şubat 2009, 16:30

Kod: Kodu kopyalamak için üzerine çift tıklayın!

else {
    inc $+(%,puansay!,$nick,!,$chan)
    if $($+(%,puansay!,$nick,!,$chan),2) == 10 { msg $chan # Kanalında Konuşma Puanın 10 oldu, $nick $+ !  }
    if $($+(%,puansay!,$nick,!,$chan),2) == 25 { msg $chan # Kanalında Konuşma Puanın 25 oldu, $nick $+ ! }
    if $($+(%,puansay!,$nick,!,$chan),2) == 50 { msg $chan # Kanalında Konuşma Puanın 50 oldu, $nick $+ ! | notice $nick Tebrikler! Bu seviyeli ve düzeyli sohpete devam ederseniz 200 puandan sonra +voice ile ödüllendirileceksiniz..! }
    if $($+(%,puansay!,$nick,!,$chan),2) == 100 { msg $chan # Kanalında Konuşma Puanın 100 oldu, $nick $+ ! | notice $nick 200 puandan sonra öldülünüz +voice olacak..! } 
    if $($+(%,puansay!,$nick,!,$chan),2) == 100 { msg $chan # Kanalında Konuşma Puanın 200 oldu, $nick $+ ! | mode # +v $nick | notice $nick Ödül olarak +voice aldınız..! }
  }
}

Burayı kendine göre ayarlıyabilirsin.

Örn ;

Kod: Kodu kopyalamak için üzerine çift tıklayın!

if $($+(%,puansay!,$nick,!,$chan),2) == 20 { msg $chan # Kanalında Konuşma Puanın 20 oldu, $nick $+ ! | msg # $nick Sen yakında adminde olursun ;D  }

Vs gibi geliştirebilirsin.Geliştirmek senin elinde yada dosyadan okutabilirsin.

moonman · 06 Kasım 2014, 00:17

s.a ustalar biraz fazla zaman gecmiş konu üzerinden ama yardımcı olacak varsa ben bu kodu socket botta çalıştıramadım var mı bi çözümü ?

uFuK · 06 Kasım 2014, 00:38

Sen o kodu hiç çalıştırma bence o öyle basit değil, fake puan'a karşi önlem yok, puanlar saklanmıyor, vs birçok eksiği var

Toprak · 12 Kasım 2014, 17:41

moonman Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

s.a ustalar biraz fazla zaman gecmiş konu üzerinden ama yardımcı olacak varsa ben bu kodu socket botta çalıştıramadım var mı bi çözümü ?

Buyur bot'umdan alıntı yapıyorum kafana göre düzenle..

Kod: Kodu kopyalamak için üzerine çift tıklayın!

  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) }
  }

Kod: Kodu kopyalamak için üzerine çift tıklayın!

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
}

Kod: Kodu kopyalamak için üzerine çift tıklayın!

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)) ] }
  }
}

Kod: Kodu kopyalamak için üzerine çift tıklayın!

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)) ] }
}

SucLu · 09 Haziran 2018, 01:59

Toprak Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Buyur bot'umdan alıntı yapıyorum kafana göre düzenle..

Kod: Kodu kopyalamak için üzerine çift tıklayın!

  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) }
  }

Kod: Kodu kopyalamak için üzerine çift tıklayın!

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
}

Kod: Kodu kopyalamak için üzerine çift tıklayın!

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)) ] }
  }
}

Kod: Kodu kopyalamak için üzerine çift tıklayın!

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)) ] }
}

Konuyu Hortlatmak gibi oldu ama kod'u remoteye nasıl ekleyip calıştırıyoruz

Med Cezir · 17 Haziran 2018, 02:53

Toprak'ın paylaştığı kod dizini socket bot için yazılmış, o yüzden alıp direkt remoteye atarak çalıştıramazsın. Elinde bir socket bot var ise ona entegre etmen/ettirmen gerekir.

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
Selam Puan Botu Yardım Edermisiniz ..	Skys	mIRC Scripting Sorunları	22	09 Şubat 2021 08:03
Çözüldü Puan -u ve Puan +u Hakkında Yardım	Smith	mIRC Scripting Sorunları	6	11 Ekim 2015 21:38
Puan botu .	ManyakUsah	Eggdrop, NeoStats, BNC	1	23 Mayıs 2015 00:52
Eggdrop Puan botu	Umut55	Eggdrop, NeoStats, BNC	1	16 Temmuz 2010 22:48
Oyun botu puan sıfırlama	colletrall	Unreal IRCd	7	26 Mayıs 2007 04:06

Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)

Etiketlenen Kullanıcılar
Etiketlemek istediğiniz kullanıcılar arasına virgül koyunuz. Örnek: nokta,sukunet,NucLear

5846 sayılı Fikir ve Sanat Eserleri Kanunu gereğince sitemizde telif hakkı bulunan mp3,video v.b. eserlerin paylaşımı yasaktır. Yasal işlem olması halinde paylaşan kişi yada kişilerin bilgileri gerekli kuruma verilecektir.