Tekil Mesaj gösterimi
Alt 04 Mayıs 2015, 15:26   #6
Çevrimdışı
djender
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Re: Soru cevap botu




el33t Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
sorucevap.txt'de Soru|cevap|puan şeklinde yazarsın,


Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
sorucevap aliası

alias sorucevap {
;%: değişkenine 1 ile sorucevap.txt dosyasının satır sayıları arasında bir sayı yükleniyor, %s değişkenine soru atanıyor. (Burdaki değişkenler local)
var %: = $r(1,$lines(sorucevap.txt)), %s = $gettok($read(sorucevap.txt,%
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
,1,124)

;%p değişkenine soru puanı yükle
set %p $gettok($read(sorucevap.txt,%
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
,3,124)

;Kanala soru, süre ve puan mesaj olarak atılıyor.
msg $1 Soru: %s - Süre: 45sn - Puan: %p
;%c değişkenine (global bir değişken) sorunun cevabı yükleniyor.
set %c $gettok($read(sorucevap.txt,%
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
,2,124)


Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
ENYANITLA adında 45 saniye sonra devreye girecek olan bir timer kuruluyor ve bu timer Kanala sorunun cevaplanmadığını bildiriyor, %c değişkenine kaldırıyor ve 45 saniyenin sonunda cevap gelmediğinde 3 saniye sonra yeni bir soru kanala gönderiyor.

.timerSENYANITLA 1 45 msg $1 Soruyu kimse bilemedi, cevap: %c olacaktı. Sıradaki soru için hazırlanın. $(|,2) unset %c $(|,2) .timer 1 3 sorucevap $1
}
;Önceden cevabı ayarladığımız %c değişkeni kanala yazıldığında bu event çalışıyor
on *:text:%c:#:{
;%sc.<kanal>.<nick> değişkeni %p değerince artar.
inc $($+(%,sc.,#,.,$nick),1) %p
;Kanala nickin soruyu bildiğini gösteriyor. (kaç saniye içinde ve kaç puan kazandığıyla ve toplam puanıyla birlikte)
msg # $nick soruyu $calc(45 - $timer(SENYANITLA).secs) saniye içinde bildi ve %p puan kazandı, cevap $1- - Toplam puan: $($+(%,sc.,#,.,$nick),2)
;%c değeri siliniyor, başkası cevabı verdiğinde çalışmaması için
unset %c
;soru sorulduktan 45 saniye sonra çalışacak olan SENYANITLA timerı kapatılıyor.
.timerSENYANITLA off
;3 saniye sonra yeni bir soru soruluyor.
.timer 1 3 sorucevap #
}


Ayrıca gelişmiş bir Trivia Soru Botu istiyorsan (incelemek, kullanmak) McKruger'in Trivia Soru botunu [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] adresinden indirebilirsin.

öncelikle teşekkür ederim güzel bir remote. fakat ipucu ekleyebilirmiyiz bu komuta yardımcı olurmusunuz?

 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları reklamver bizimmekan reklamver