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/)
-   -   Selam Puan Botu Yardım Edermisiniz .. (https://www.ircforumlari.net/mirc-scripting-sorunlari/173908-selam-puan-botu-yardim-edermisiniz.html)

Skys 22 Ocak 2009 21:23
Selam Puan Botu Yardım Edermisiniz ..
 
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 ]

CipriX 22 Ocak 2009 21:51
Cevap: Selam Puan Botu Yardım Edermisiniz ..
 
Velhasılkelam benim mIRCTurk.Com için yazdığım MPB yi istiyorsun (:

OperServ 22 Ocak 2009 23:58
Cevap: Selam Puan Botu Yardım Edermisiniz ..
 
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:
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
Cevap: Selam Puan Botu Yardım Edermisiniz ..
 
CipriX Üstadim Botu PayLasirsan Seviniriz :)

toXic 09 Mart 2009 16:43
Cevap: Selam Puan Botu Yardım Edermisiniz ..
 
Birde Kullanıcıya Puanı swhois olarak eklense X Nick'inin Puanı 10 şeklinde Mnp mi ne bu işlev vardı sanırım:)

MeteHaN 10 Mart 2009 17:12
Cevap: Selam Puan Botu Yardım Edermisiniz ..
 
güzlemiş ya paylaşırmısınız.

Supernova 07 Ağustos 2009 15:53
Cevap: Selam Puan Botu Yardım Edermisiniz ..
 
ciprix sizlere ömür :)

Zanay 29 Kasım 2018 13:38
Cevap: Selam Puan Botu Yardım Edermisiniz ..
 
Kod:
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
Cevap: Selam Puan Botu Yardım Edermisiniz ..
 
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

Emrehan 24 Eylül 2019 18:45
Cevap: Selam Puan Botu Yardım Edermisiniz ..
 
Konuşma puan/satırlarını kayıtlayan kodu da paylaşın ona binaen bu kod düzeltilebilir @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

mys_35 24 Eylül 2019 19:37
Cevap: Selam Puan Botu Yardım Edermisiniz ..
 
Kod:
on *:text:*:#:{
  if $1 == !puan {
    if ($2 == !geveze) { top10 | goto t0p10 }
    elseif !$read(puan.txt,w,$+(*,$2,*)) { msg $chan $2 puan listesinde yok }
    if $2 == $me { msg $chan $+($nick,:) Benim puanmımı boşver, sen sohbetine bak. | goto t0p10 }
    elseif ($2 == $nick && $read(puan.txt,w,$+(*,$2,*))) { msg $chan $read(puan.txt,$readn) puanın var | goto t0p10 }
  }
  if !$read(puan.txt,w,$+(*,$nick,*)) { write puan.txt $nick 1 | halt }
  else {
    var %dify $readn
    var %yeah = $calc($token($read(puan.txt,%dify),2,32) +1)
    write $+(-l,%dify) puan.txt $nick %yeah
    if %yeah == 100000 { mode $chan +v $nick | msg $chan Tebrikler $nick 100000 puanın oldu }
  }
  :t0p10
}
alias top10 {
  var %cnk = @dify, %hit = 10, %e = puan.txt, %top10 = 1
  window -hn %cnk
  filter -fwcteu 2 32 %e %cnk
  msg $chan 4*** 2 #Marmara Kanalı Günün Gevezeleri 4***
  msg $chan 
  while %top10 <= %hit { msg $chan 4 $(%top10) )2 $line(%cnk,%top10) | inc %top10 }
  window -c %cnk
}


--IRCForumlari.NET ; Flood Engellendi -->-> Yeni yazılan mesaj 19:37 -->-> Daha önceki mesaj 19:29 --

[19:30:31] <Extra> 4*** 2#Marmara Kanalı Günün Gevezeleri 4***
[19:30:31] <Extra>
[19:30:31] <Extra> 4 11)4 MihriSaH 1---> Satır :4 748
[19:30:31] <Extra> 4 21) 4istila 1---> Satır :5 591
[19:30:31] <Extra> 4 31) 4ImDifferent 1---> Satır :4 575
[19:30:31] <Extra> 1 41) 2Bip -2--> Satır :5 417
[19:30:31] <Extra> 1 51) 2Byaşıti_ 2---> Satır :5 309
[19:30:31] <Extra> 1 61) 2Syzop 2---> Satır : 223
[19:30:31] <Extra> 1 71) 2Şövalye 2---> Satır :5 211
[19:30:31] <Extra> 1 81) 2sedat-isttttt 2---> Satır :5 204
[19:30:31] <Extra> 1 91) 2BuCaLI ---> Satır :5 177
[19:30:31] <Extra> 1 110) 2yusufff 2---> Satır :5 176

Çıkacak Sonuçlar Böyle Çıkabilirmi Birde 24 Satte bi Sıfırlanabilirimi Sonuclar

Zalimsin 25 Eylül 2019 21:29
Cevap: Selam Puan Botu Yardım Edermisiniz ..
 
Alıntı:
Zanay Nickli Üyeden Alıntı (Mesaj 1042004510)
Kod:
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

diEfoRyoU 26 Eylül 2019 21:19
Cevap: Selam Puan Botu Yardım Edermisiniz ..
 
Alıntı:
off Nickli Üyeden Alıntı (Mesaj 1042161140)
Bu kod çalışyor ama durduk yere kanalda listede olana birini adını tablıyor neden olabilir
nicki sadece tablıyor mu yoksa kodda geçen bir mesajla birlikte mi tablıyor.

Zalimsin 27 Eylül 2019 22:15
Cevap: Selam Puan Botu Yardım Edermisiniz ..
 
Alıntı:
diEfoRyoU Nickli Üyeden Alıntı (Mesaj 1042161723)
nicki sadece tablıyor mu yoksa kodda geçen bir mesajla birlikte mi tablıyor.
nick yazıyor sadece

mys_35 28 Eylül 2019 03:05
Cevap: Selam Puan Botu Yardım Edermisiniz ..
 
on *:text:*:#marmara:{
if $1 == !puan {
if ($2 == !geveze) { top10 | goto t0p10 }
elseif !$read(puan.txt,w,$+(*,$2,*)) { msg $chan $2 puan listesinde yok }
if $2 == $me { msg $chan $+($nick,:) Benim puanmımı boşver, sen sohbetine bak. | goto t0p10 }
elseif ($2 == $nick && $read(puan.txt,w,$+(*,$2,*))) { msg $chan $read(puan.txt,$readn) puanın var | goto t0p10 }
}
if !$read(puan.txt,w,$+(*,$nick,*)) { write puan.txt $nick 1 | halt }
else {
var %dify $readn
var %yeah = $calc($token($read(puan.txt,%dify),2,32) +1)
write $+(-l,%dify) puan.txt $nick %yeah
if %yeah == 100000 { mode $chan +v $nick | msg $chan Tebrikler $nick 100000 puanın oldu }
}
:t0p10
}
alias top10 {
var %cnk = @dify, %hit = 10, %e = puan.txt, %top10 = 1
window -hn %cnk
filter -fwcteu 2 32 %e %cnk
msg $chan 4*** 2 #Marmara Kanalı Günün Gevezeleri 4***
msg $chan 
while %top10 <= %hit { msg $chan 1 $(%top10)) 4 $gettok($line(%cnk,%top10),1,32) 1---> Satır : 2 $gettok($line(%cnk,%top10),2,32) | inc %top10 }
window -c %cnk
msg $chan 
msg $chan 4*** 2#Marmara Kanalı Extra Puan Systemi 4***
}



!geveze yazdıgında kanalda konusan ilk 10 kişiyi gösteriyor mircbot için uygundur

diEfoRyoU 28 Eylül 2019 18:12
Cevap: Selam Puan Botu Yardım Edermisiniz ..
 
Alıntı:
off Nickli Üyeden Alıntı (Mesaj 1042162238)
nick yazıyor sadece
o halde nicki tablayan başka bir kod var diğer kodları kontrol etmelisin bence.

cinaryigit 05 Ocak 2021 05:29
Cevap: Selam Puan Botu Yardım Edermisiniz ..
 
Alıntı:
mys_35 Nickli Üyeden Alıntı (Mesaj 1042162287)
on *:text:*:#marmara:{
if $1 == !puan {
if ($2 == !geveze) { top10 | goto t0p10 }
elseif !$read(puan.txt,w,$+(*,$2,*)) { msg $chan $2 puan listesinde yok }
if $2 == $me { msg $chan $+($nick,:) Benim puanmımı boşver, sen sohbetine bak. | goto t0p10 }
elseif ($2 == $nick && $read(puan.txt,w,$+(*,$2,*))) { msg $chan $read(puan.txt,$readn) puanın var | goto t0p10 }
}
if !$read(puan.txt,w,$+(*,$nick,*)) { write puan.txt $nick 1 | halt }
else {
var %dify $readn
var %yeah = $calc($token($read(puan.txt,%dify),2,32) +1)
write $+(-l,%dify) puan.txt $nick %yeah
if %yeah == 100000 { mode $chan +v $nick | msg $chan Tebrikler $nick 100000 puanın oldu }
}
:t0p10
}
alias top10 {
var %cnk = @dify, %hit = 10, %e = puan.txt, %top10 = 1
window -hn %cnk
filter -fwcteu 2 32 %e %cnk
msg $chan 4*** 2 #Marmara Kanalı Günün Gevezeleri 4***
msg $chan 
while %top10 <= %hit { msg $chan 1 $(%top10)) 4 $gettok($line(%cnk,%top10),1,32) 1---> Satır : 2 $gettok($line(%cnk,%top10),2,32) | inc %top10 }
window -c %cnk
msg $chan 
msg $chan 4*** 2#Marmara Kanalı Extra Puan Systemi 4***
}



!geveze yazdıgında kanalda konusan ilk 10 kişiyi gösteriyor mircbot için uygundur
Selam. Bu kod bu hali ile çalışıyor mu !geveze yapınca yani. Çünkü bende çalışmıyor da. Başka türlü çalıştırdım.

cinaryigit 06 Ocak 2021 04:49
Cevap: Selam Puan Botu Yardım Edermisiniz ..
 
Bu kodu ilk kim yapmış bilmiyorum.
Paylaşılan hali ile bende çalışmadı, böyle çalışıyor.

Kod:
on *:text:*:#kanal:{
  if $istok(NoMercy Nickserv Chanserv,$nick,32) { return }
  if $nick == $nick {
    if ($1 == !geveze) { top10 | goto t0p10 }
  }
  if !$read(geveze.txt,w,$+(*,$nick,*)) { write geveze.txt $nick 1 | halt }
  else {
    var %dify $readn
    var %yeah = $calc($token($read(geveze.txt,%dify),2,32) +1)
    write $+(-l,%dify) geveze.txt $nick %yeah
  }
  :t0p10
}
alias top10 {
  var %cnk = @dify, %hit = 10, %e = geveze.txt, %top10 = 1
  window -hn %cnk
  filter -fwcteu 2 32 %e %cnk
  msg $chan 2 #KANAL Kanalı Günün Gevezeleri
  msg $chan 
  while %top10 <= %hit { msg $chan 1 $(%top10)) 4 $gettok($line(%cnk,%top10),1,32) 1---> Satır : 2 $gettok($line(%cnk,%top10),2,32) | inc %top10 }
  window -c %cnk
  msg $chan 
  msg $chan  2#KANAL Kanalı Extra Puan Systemi
}
mirc klasöründe geveze.txt oluşturun gereken bilgileri kendisi toplar.
Keyifli İF'ler

Subzero 08 Şubat 2021 03:25
Cevap: Selam Puan Botu Yardım Edermisiniz ..
 
Alıntı:
cinaryigit Nickli Üyeden Alıntı (Mesaj 1042417664)
Bu kodu ilk kim yapmış bilmiyorum.
Paylaşılan hali ile bende çalışmadı, böyle çalışıyor.

Kod:
on *:text:*:#kanal:{
  if $istok(NoMercy Nickserv Chanserv,$nick,32) { return }
  if $nick == $nick {
    if ($1 == !geveze) { top10 | goto t0p10 }
  }
  if !$read(geveze.txt,w,$+(*,$nick,*)) { write geveze.txt $nick 1 | halt }
  else {
    var %dify $readn
    var %yeah = $calc($token($read(geveze.txt,%dify),2,32) +1)
    write $+(-l,%dify) geveze.txt $nick %yeah
  }
  :t0p10
}
alias top10 {
  var %cnk = @dify, %hit = 10, %e = geveze.txt, %top10 = 1
  window -hn %cnk
  filter -fwcteu 2 32 %e %cnk
  msg $chan 2 #KANAL Kanalı Günün Gevezeleri
  msg $chan 
  while %top10 <= %hit { msg $chan 1 $(%top10)) 4 $gettok($line(%cnk,%top10),1,32) 1---> Satır : 2 $gettok($line(%cnk,%top10),2,32) | inc %top10 }
  window -c %cnk
  msg $chan 
  msg $chan  2#KANAL Kanalı Extra Puan Systemi
}
mirc klasöründe geveze.txt oluşturun gereken bilgileri kendisi toplar.
Keyifli İF'ler
Bu kod 24 saatte bir sıfırlıyormu acaba.

cinaryigit 08 Şubat 2021 06:59
Cevap: Selam Puan Botu Yardım Edermisiniz ..
 
@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] şöyle bir şey işini görecektir.

Kod:
on *:connect: { .timerveri 0 1 .verisil }
alias verisil { if ($time(HH:nn) == 00:00)  { .write -c geveze.txt }
Keyifli İF'ler

cinaryigit 08 Şubat 2021 09:06
Cevap: Selam Puan Botu Yardım Edermisiniz ..
 
Uykulu uykulu...

Kod:
on *:connect: { .timerveri 1 1 .verisil }
alias verisil { if ($time(HH:nn) == 00:00)  { .write -c geveze.txt }
Şöyle düzelteyim.

Subzero 08 Şubat 2021 17:07
Cevap: Selam Puan Botu Yardım Edermisiniz ..
 
Alıntı:
cinaryigit Nickli Üyeden Alıntı (Mesaj 1042438162)
@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] şöyle bir şey işini görecektir.

Kod:
on *:connect: { .timerveri 0 1 .verisil }
alias verisil { if ($time(HH:nn) == 00:00)  { .write -c geveze.txt }
Keyifli İF'ler
bunu ayrı bir sayfayamı atayım teşekkürler.

cinaryigit 09 Şubat 2021 08:03
Cevap: Selam Puan Botu Yardım Edermisiniz ..
 
0 1 olan timer kısmını 1 1 yap farklı sayfaya at @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
Keyifli İF'ler


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

Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2026, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2025 IRCForumlari.Net Sparhawk