Kod: Kodu kopyalamak için üzerine çift tıklayın!
alias kanal return #as
alias baslat {
rands
.timerbaslat 0 60 /rands
}
alias rands {
set %:rand $rand(1,$lines(sorular.txt))
soru
}
alias soru {
if (%:rand == %rand) { var %:rand = $rand(1,$lines(sorular.txt)) }
unset %cevaplayan
set %rand %:rand
var %sorulacak = $read(sorular.txt,%:rand)
set %soru $gettok(%sorulacak,1,11)
set %cevap.a $gettok(%sorulacak,2,11)
set %cevap.b $gettok(%sorulacak,3,11)
set %cevap.c $gettok(%sorulacak,4,11)
set %cevap.d $gettok($gettok(%sorulacak,1,153),5,11)
if (%cevap.a == $gettok(%sorulacak,2,153)) { set %dogru A | set %yanlis b c d }
if (%cevap.b == $gettok(%sorulacak,2,153)) { set %dogru B | set %yanlis a c d }
if (%cevap.c == $gettok(%sorulacak,2,153)) { set %dogru C | set %yanlis a b d }
if (%cevap.d == $gettok(%sorulacak,2,153)) { set %dogru D | set %yanlis a b c }
msg $kanal 5 %:rand 4) SORU : %soru
msg $kanal -
msg $kanal A) %cevap.a
msg $kanal B) %cevap.b
msg $kanal C) %cevap.c
msg $kanal D) %cevap.d
msg $kanal -
msg $kanal 5 Cevap Verme Sureniz 4 60 5Saniyedir..
.timer20 1 20 msg $kanal 5Kalan Cevap Verme Suresi 4 40 5 Saniye.
.timer40 1 40 msg $kanal 5Kalan Cevap Verme Suresi 4 20 5 Saniye.
.timer59 1 59 msg $kanal 5Sure Bitmistir Dogru Cevap 4 %dogru 5 Sıkkıdır.
}
on *:text:*:#: {
if ($chan == $kanal) {
if ($istok(%cevaplayan,$nick,32)) { notice $nick Onceden Yanlis Cevap Vermisdiniz Bu Soruda Cevap Hakkiniz Yok ! | halt }
if ($istok(%yanlis,$1,32)) { msg # Yanlis Cevap $nick ! | %cevaplayan = $addtok(%cevaplayan,$nick,32) | halt }
if ($1 == %dogru) { msg # Dogru Cevap $nick Tebrikler.. | baslat }
}
}