IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası
  sohbet

 Kayıt ol  Topluluk
10Beğeni(ler)
  • 1 Post By Editor
  • 1 Post By Editor
  • 1 Post By uFuK
  • 5 Post By Toprak
  • 2 Post By Med Cezir

Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 17 Haziran 2008, 13:43   #1
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
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.

 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları sohbet odaları Benimmekan Mobil Sohbet
Alt 17 Haziran 2008, 16:36   #2
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Bot hakkında




PHP Kod:   Kodu kopyalamak için üzerine çift tıklayın!
on *:rawmode:#sohbet:{
  
if $remove($1,o) == +|| $remove($1,o) == +|| $remove($1,o) == +{
    
set $+(%,pveyaa,.,$2OK!
  }
  if 
$remove($1,o) == -|| $remove($1,o) == -|| $remove($1,o) == -{
    unset $+(%,
pveyaa,.,$2)
  }
}
on *:TEXT:*:#OPS:{
  
if $== !puansil {
    if $($+(%,
pveyaa,.,$nick),2) {
      if $
== $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 $
== !puan {
    if $
!== $null {
      
msg $chan $iif($($+(%,puansay!,$2,!,$chan),2), $$($+(%,puansay!,$2,!,$chan),2konuşma puanın var!, $2 nickinin hiç konuşma puanı yok!)
    }
    else {
      
msg $chan $iif($($+(%,puansay!,$nick,!,$chan),2), $nick $($+(%,puansay!,$nick,!,$chan),2konuş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

 
Alıntı ile Cevapla

Alt 18 Şubat 2009, 16:07   #3
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
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ü ?

 
Alıntı ile Cevapla

Alt 18 Şubat 2009, 16:30   #4
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Bot hakkında




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.

 
Alıntı ile Cevapla

Alt 06 Kasım 2014, 00:17   #5
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
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ü ?

 
Alıntı ile Cevapla

Alt 06 Kasım 2014, 00:38   #6
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
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

 
Alıntı ile Cevapla

Alt 12 Kasım 2014, 17:41   #7
Çevrimiçi
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (1)
IF Ticaret Yüzdesi:(%)
Cevap: Puan botu hakkında




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


 
Alıntı ile Cevapla

Alt 09 Haziran 2018, 01:59   #8
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (2)
IF Ticaret Yüzdesi:(%)
Cevap: Puan botu hakkında




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

 
Alıntı ile Cevapla

Alt 17 Haziran 2018, 02:53   #9
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
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.

 
Alıntı ile Cevapla

Cevapla

Etiketler
hakkında, mirc download, mirc indir


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

Yetkileriniz
Konu Acma Yetkiniz Yok
Cevap Yazma Yetkiniz Yok
Eklenti Yükleme Yetkiniz Yok
Mesajınızı Değiştirme Yetkiniz Yok

BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodu Kapalı
Trackbacks are Kapalı
Pingbacks are Açık
Refbacks are Açık


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
Eggdrop Puan botu Umut55 Eggdrop, NeoStats, BNC 1 16 Temmuz 2010 22:48
!puan Nick Hakkında Yardım . DaDaS mIRC Scripting Sorunları 7 15 Haziran 2010 22:06
SLm ArkadasLar PUAN BOTU ELinde OLan Varmı ? SiberShell Eggdrop, NeoStats, BNC 1 18 Ekim 2009 03:13
Oyun botu puan sıfırlama colletrall Unreal IRCd 7 26 Mayıs 2007 04:06