IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası
Sayfa 2 Toplam 3 Sayfadan 1 2 3
Konuya ait 40 Mesajı başka Sayfada göster

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)

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


Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 18:50.
Sayfa 2 Toplam 3 Sayfadan 1 2 3
Konuya ait 40 Mesajı başka Sayfada göster

Powered by vBulletin® Version 3.8.8 Beta 3
Copyright ©2000 - 2024, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2024 IRCForumlari.Net