Çevrimdışı

sorucevap.txt'de Soru|cevap|puan şeklinde yazarsın,

;/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,%:),1,124)
;%p değişkenine soru puanı yükle
set %p $gettok($read(sorucevap.txt,%:),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,%:),2,124)
;SENYANITLA 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.