IRCForumu.NET - Türkiye'nin IRC ve mIRC Kullanıcılarının Buluştuğu Forum muhabbet


ircforumu reklam ircforumu reklamdamlasu bizimkiler sihirlisohbet sohbetelit


Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 04 Haziran 2016, 16:08   #1
Çevrimdışı
Gelme, burası çok derin.

immortaL - ait Kullanıcı Resmi (Avatar)
Mirc Puan Botu Yapımı


Kod:   Kodu kopyalamak için üzerine çift tıklayın!
on *:text:*:#:{ var %< = $+(%,kp.,#,.,$nick) if $1 == !puan { if !$2 || $2 == $nick { msg # $nick 4 $(%<,2) Konuşma puanın var! } elseif $2 == $me { msg # 4 Benim Konuşma puanımı neden merak ediyorsun? :-) } else { msg # 4 $2 nickinin $iif($($+(%,kp.,#,$2),2),$v1 Konuşma puanı var.,hiç Konuşma puanı yok!) } } else { inc $(%<,1) if $(%<,2) == 10 { .msg $chan Konuşma Puanın 10 oldu,LaLa ;D $nick $+ ! } if $(%<,2) == 35 { .msg $chan Konuşma Puanın 35 oldu, Cok yavaşSın doStum :P $nick $+ ! } if $(%<,2) == 70 { .msg $chan Konuşma Puanın 70 oldu, Pöff Ekonomi gibisin hep aşalarda :D $nick $+ ! } if $(%<,2) == 100 { .msg $chan Konuşma Puanın 100 Puanın oldu :d $nick $+ ! } if $(%<,2) == 125 { .msg $chan Konuşma Puanın 125 oldu, Ki 500 milyar ister gibiSin Puanları Sana veresim var :Dd $nick $+ ! } if $(%<,2) == 150 { .msg $chan Konuşma Puanın 150 oldu, OSS PuanLama sistemigibisn moruk:D $nick $+ ! } if $(%<,2) == 200 { .msg $chan Konuşma Puanın 200 oldu, $nick $+ ! } if $(%<,2) == 250 { .msg $chan Konuşma Puanın 250 oldu, $nick $+ ! } if $(%<,2) == 300 { .msg $chan Konuşma Puanın 300 oldu, İlerleme var gibi :d $nick $+ ! } } }

Arkadaşımın ricası üzerine geliştirmiş oldugum ve işine yarayacak olan arkadaşların olduğunu düşündüğümden ötürü paylaştıgım kücük bir kod.
umarım işinize yarar.

Kullanılabilir komutlar:
!Puan – Konuşma puanı
!Puan – Nick Kişinin puanı
Kişi puanına göre botun kullanıcya mesaj atması
!Liderkim – Aktif kanal’da en çok konuşan ilk 4 kullanıcı

Puan mesajı orneği için ekten Puan.txt’i indirip mIRC Ana dizinine atmanız gerekir.

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
Kod: on *:text:*:#database,#kanal2,#kanal3vb: { var %< = $+(%,Puan.,#,.,$nick) if ($1 == !Puan) { if (!$2 || $2 == $nick) { msg # $nick $Chan kanalındaki toplam Puanınız 4 $(%<,2) } else { msg # 4 $2 nickinin $iif($($+(%,Puan.,#,$2),2),$v1 puanı var.,hiç puanı yok!) } } elseif ($1 == !Liderkim) { 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 # 4 $Chan 1 Kanalında En Çok Sohbet Eden Kullanıcı : $1 .msg # Sırası ile Onu Takip eden Kullanıcılar : $2-4 } else { inc $(%<,1) if ($istok(20 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 $+ } } }

Yukarıdaki ADD ON u kendinize göre düzenleyebilir Mircinize Entegre edebilirsiniz...
Kod:   Kodu kopyalamak için üzerine çift tıklayın!
on *:text:*:#:{ var %< = $+(%,kp.,#,.,$nick) if $1 == !puan { if !$2 || $2 == $nick { msg # $nick 4 $(%<,2) Konuşma puanın var! } elseif $2 == $me { msg # 4 Benim Konuşma puanımı neden merak ediyorsun? :-) } else { msg # 4 $2 nickinin $iif($($+(%,kp.,#,$2),2),$v1 Konuşma puanı var.,hiç Konuşma puanı yok!) } } else { inc $(%<,1) if $(%<,2) == 10 { .msg $chan Konuşma Puanın 10 oldu,LaLa ;D $nick $+ ! } if $(%<,2) == 35 { .msg $chan Konuşma Puanın 35 oldu, Cok yavaşSın doStum :P $nick $+ ! } if $(%<,2) == 70 { .msg $chan Konuşma Puanın 70 oldu, Pöff Ekonomi gibisin hep aşalarda :D $nick $+ ! } if $(%<,2) == 100 { .msg $chan Konuşma Puanın 100 Puanın oldu :d $nick $+ ! } if $(%<,2) == 125 { .msg $chan Konuşma Puanın 125 oldu, Ki 500 milyar ister gibiSin Puanları Sana veresim var :Dd $nick $+ ! } if $(%<,2) == 150 { .msg $chan Konuşma Puanın 150 oldu, OSS PuanLama sistemigibisn moruk:D $nick $+ ! } if $(%<,2) == 200 { .msg $chan Konuşma Puanın 200 oldu, $nick $+ ! } if $(%<,2) == 250 { .msg $chan Konuşma Puanın 250 oldu, $nick $+ ! } if $(%<,2) == 300 { .msg $chan Konuşma Puanın 300 oldu, İlerleme var gibi :d $nick $+ ! } } }

Arkadaşımın ricası üzerine geliştirmiş oldugum ve işine yarayacak olan arkadaşların olduğunu düşündüğümden ötürü paylaştıgım kücük bir kod.
umarım işinize yarar.

Kullanılabilir komutlar:
!Puan – Konuşma puanı
!Puan – Nick Kişinin puanı
Kişi puanına göre botun kullanıcya mesaj atması
!Liderkim – Aktif kanal’da en çok konuşan ilk 4 kullanıcı

Puan mesajı orneği için ekten Puan.txt’i indirip mIRC Ana dizinine atmanız gerekir.

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
Kod: on *:text:*:#database,#kanal2,#kanal3vb: { var %< = $+(%,Puan.,#,.,$nick) if ($1 == !Puan) { if (!$2 || $2 == $nick) { msg # $nick $Chan kanalındaki toplam Puanınız 4 $(%<,2) } else { msg # 4 $2 nickinin $iif($($+(%,Puan.,#,$2),2),$v1 puanı var.,hiç puanı yok!) } } elseif ($1 == !Liderkim) { 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 # 4 $Chan 1 Kanalında En Çok Sohbet Eden Kullanıcı : $1 .msg # Sırası ile Onu Takip eden Kullanıcılar : $2-4 } else { inc $(%<,1) if ($istok(20 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 $+ } } }

Yukarıdaki ADD ON u kendinize göre düzenleyebilir Mircinize Entegre edebilirsiniz...
  Alıntı ile Cevapla

IRCForumu.Net - Reklam Alanı

Cevapla

Etiketler
botu, mirc, puan, yapımı
IRCForumu.Net - Sponsor Bağlantılar



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 Açık
Pingbacks are Açık
Refbacks are Açık