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 botu hakkında (https://www.ircforumlari.net/mirc-scripting-sorunlari/118564-puan-botu-hakkinda.html)

Braun 17 Haziran 2008 13:43
Puan botu hakkında
 
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
Cevap: Bot hakkında
 
PHP- Kodu:
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
Cevap: Bot hakkında
 
[Ü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
Cevap: Bot hakkında
 
Kod:
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:
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
Cevap: Puan botu hakkında
 
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
Cevap: Puan botu hakkında
 
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
Cevap: Puan botu hakkında
 
Alıntı:
moonman Nickli Üyeden Alıntı (Mesaj 1041532365)
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:
  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:
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:
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:
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
Cevap: Puan botu hakkında
 
Alıntı:
Toprak Nickli Üyeden Alıntı (Mesaj 1041540060)
Buyur bot'umdan alıntı yapıyorum kafana göre düzenle..

Kod:
  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:
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:
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:
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
Cevap: Puan botu hakkında
 
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.


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

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