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

3Beğeni(ler)

Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 24 Eylül 2019, 19:37   #11
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Selam Puan Botu Yardım Edermisiniz ..




Kod:   Kodu kopyalamak için üzerine çift tıklayın!
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


Konu Feragat tarafından (27 Eylül 2019 Saat 23:06 ) değiştirilmiştir. Sebep: mIRC Kodlarını CODE tagı içerisinde paylaşınız.
 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları sohbet odaları Yazgulu Sohbet
Alt 25 Eylül 2019, 21:29   #12
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Selam Puan Botu Yardım Edermisiniz ..




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

 
Alıntı ile Cevapla

Alt 26 Eylül 2019, 21:19   #13
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Selam Puan Botu Yardım Edermisiniz ..




off Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
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.

__________________
TurkSohbet.NET | #XPass
 
Alıntı ile Cevapla

Alt 27 Eylül 2019, 22:15   #14
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Selam Puan Botu Yardım Edermisiniz ..




diEfoRyoU Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
nicki sadece tablıyor mu yoksa kodda geçen bir mesajla birlikte mi tablıyor.

nick yazıyor sadece

 
Alıntı ile Cevapla

Alt 28 Eylül 2019, 03:05   #15
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
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,
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
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

 
Alıntı ile Cevapla

Alt 28 Eylül 2019, 18:12   #16
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Selam Puan Botu Yardım Edermisiniz ..




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

o halde nicki tablayan başka bir kod var diğer kodları kontrol etmelisin bence.

__________________
TurkSohbet.NET | #XPass
 
Alıntı ile Cevapla

Alt 05 Ocak 2021, 05:29   #17
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Selam Puan Botu Yardım Edermisiniz ..




mys_35 Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
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,
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
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.

 
Alıntı ile Cevapla

Alt 06 Ocak 2021, 04:49   #18
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
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:   Kodu kopyalamak için üzerine çift tıklayın!
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

 
Alıntı ile Cevapla

Alt 08 Şubat 2021, 03:25   #19
Çevrimiçi
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Selam Puan Botu Yardım Edermisiniz ..




cinaryigit Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Bu kodu ilk kim yapmış bilmiyorum.
Paylaşılan hali ile bende çalışmadı, böyle çalışıyor.

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
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.

 
Alıntı ile Cevapla

Alt 08 Şubat 2021, 06:59   #20
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
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:   Kodu kopyalamak için üzerine çift tıklayın!
on *:connect: { .timerveri 0 1 .verisil } alias verisil { if ($time(HH:nn) == 00:00) { .write -c geveze.txt }

Keyifli İF'ler

 
Alıntı ile Cevapla

Cevapla

Etiketler
botu, edermisiniz, mirc download, mirc indir, puan, selam, yardim


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

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
Puan botu hakkında Braun mIRC Scripting Sorunları 8 17 Haziran 2018 02:53
Eggdrop Puan botu Umut55 Eggdrop, NeoStats, BNC 1 16 Temmuz 2010 22:48
Takip Botu için Lütfen Yardım Edermisiniz. Skys mIRC Scripting Sorunları 2 08 Eylül 2009 11:23