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

>
+
Etiketlenen Kullanıcılar

3Beğeni(ler)

Yeni Konu aç Cevapla
 
LinkBack Seçenekler Arama Stil
Alt 28 Eylül 2019, 03:05   #1
Ç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 05 Ocak 2021, 05:29   #2
Ç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

Cevapla

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


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
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