Selam Puan Botu Yardım Edermisiniz .. - IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

Skys · 22 Ocak 2009, 21:23

Selam Arkadaşlar ;
Sizden Isteğim Olucaktı Sunucuma Güzel Bir Puan Botu Yapmak Istiyorum
Botun adı ; YPB
Userin kanalda konuştuğunda puan alması
Kanalda Konuşan Userlere her 20 puanda bir
Bot ( gaz verici kelimeler kullansı )
-
Abicim o puanları Bot txt'e kaydedicek her user kendi puanını !puan yazdığında bilicek
-
1000 Puana ulaşan userlerin nicklerini
Bot
Ornek: 1000 puanlı userlerimizden ahmet kanala geldi gibi espirili SÖylemesini istiyorum Lütfen yardımcı olunuz.
[ Difusyon ve SAYIN Coderlerimiz ]

22 Ocak 2009, 21:51

Velhasılkelam benim mIRCTurk.Com için yazdığım MPB yi istiyorsun (:

OperServ · 22 Ocak 2009, 23:58

senin dedigin gibi bise yok bende ama size bole bi kod verebilirim kulanimi

!puan nick yazarak kanalda konusanin puanini gosterir bide 1000 puani olunca bot ona voice verecek

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

on *:text:*:#: {
  if !$hget(kns,$nick) { hadd -m kns $nick 1 | hsave -i kns kns.db }
  else { if $hmatch(kns,$nick) { hinc -m kns $v1 1 | hsave -i kns kns.db } }
  if $hget(kns,$nick) == 1000 { msg # $+($nick,:) 2TeßrikLer 1000 Puan oLduğunuz için;  Voice Kazandınız. Hadi Yine iyisin :) | mode # +v $nick | hadd -m vnick $nick 1 | hsave -i vnick vnick.db }
  if $1 == !puan {
    if $2 == $me { msg # $+($nick,:) ßenim Puanmımı ßoşver, Sen Sohbetine ßak :) | halt }
    if !$hmatch(kns,$2) { msg # $+($nick,:) $qt($2) Listetede bulunamadı. }
    else { msg # $+($nick,:) 12 $2  2Nickin Puanı; $hget(kns,$2) }
  }
}
on *:start: { if $isfile(vnick.db) { hmake vnick 1000 | hload -i vnick vnick.db } | if $isfile(kns.db) { hmake kns 1000 | hload -i kns kns.db } }

bu kod sezar a ait

SiberShell · 08 Mart 2009, 19:54

CipriX Üstadim Botu PayLasirsan Seviniriz
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

toXic · 09 Mart 2009, 16:43

Birde Kullanıcıya Puanı swhois olarak eklense X Nick'inin Puanı 10 şeklinde Mnp mi ne bu işlev vardı sanırım
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

MeteHaN · 10 Mart 2009, 17:12

güzlemiş ya paylaşırmısınız.

07 Ağustos 2009, 15:53

ciprix sizlere ömür
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Zanay · 29 Kasım 2018, 13:38

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

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

mys_35 · 23 Eylül 2019, 16:22

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

[16:14:59] <Extra> [ #kanal ] Kanalında En Çok Sohbet Eden Kullanıcılar
[16:14:59] <Extra> 1. 38 nick1
[16:14:59] <Extra> 2. 20 nick1
[16:14:59] <Extra> 3.
[16:14:59] <Extra> 4.
[16:15:00] <Extra> 5.
[16:15:00] <Extra> 6.
[16:15:00] <Extra> 7.
[16:15:00] <Extra> 8.
[16:15:00] <Extra> 9.
[16:15:00] <Extra> 10.

böyle çıkıyor benim istedigim ise böyle çıkması

[15:44:11] <Extra> *** #kanal Kanalı Günün Gevezeleri ***
[15:44:11] <Extra>
[15:44:11] <Extra> 1) jhgfj ---> Satır : 494
[15:44:11] <Extra> 2) hfadhfd ---> Satır : 296
[15:44:11] <Extra> 3) hfahf ---> Satır : 241
[15:44:11] <Extra> 4) dvdvv ---> Satır : 236
[15:44:11] <Extra> 5) hfdhfd ---> Satır : 153
[15:44:11] <Extra> 6) vbnbf ---> Satır : 150
[15:44:11] <Extra> 7) fbfbf ---> Satır : 142
[15:44:11] <Extra> 8) bbfbFBV ---> Satır : 125
[15:44:11] <Extra> 9) bfbbfs ---> Satır : 112
[15:44:11] <Extra> 10) vgdvb ---> Satır : 110

Zalimsin · 25 Eylül 2019, 21:29

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

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

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

Bu kod çalışyor ama durduk yere kanalda listede olana birini adını tablıyor neden olabilir

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
Yardım edermisiniz	Xadd1	mIRC Scripting Sorunları	3	09 Temmuz 2016 16:40
Çö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
Takip Botu için Lütfen Yardım Edermisiniz.	Skys	mIRC Scripting Sorunları	2	08 Eylül 2009 11:23
yardım edermisiniz..	kanarya034	Eggdrop, NeoStats, BNC	4	08 Aralık 2008 21:39

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.