on *:text:!sorubot:#OYUNKANALIBURAYA:{ if $nick isop $chan { sorubot } }
on *:text:!durdur:#OYUNKANALIBURAYA:{ if $nick isop $chan { durdur } }
alias sorubot { unset %soru* | .enable #sorugroup | .set %sorukanal #OYUNKANALIBURAYA | msg %sorukanal Oyun basliyor hazirlanin. Toplam soru :  $+ $lines(sorukaynak.txt)  | /karistir }
alias durdur { .timersoru* off | msg %sorukanal Oyun durduruldu. | .disable #sorugroup | }
alias karistir {
.remove karisik.txt
.copy -o sorukaynak.txt sorutemp.txt
var %i $lines(sorutemp.txt)
while %i >= $lines(sorutemp.txt) {
var %silgi $rand(1,$lines(sorutemp.txt))
.write karisik.txt $read(sorutemp.txt,%silgi) 
.write -dl $+ %silgi sorutemp.txt
dec %i
}
.remove sorutemp.txt
/soru
}
#sorugroup on
alias soru {
if %sorusayi == $null {
set %sorusayi 1
goto start
}
else if %sorusayi < $lines(karisik.txt) { 
inc %sorusayi 
:start
set %soru $gettok($read(karisik.txt,%sorusayi),1,191)
set %cevap $gettok($read(karisik.txt,%sorusayi),2,191)
.timer 1 5 msg %sorukanal Soru %sorusayi $+ :  $+ $gettok($read(karisik.txt,%sorusayi),1,191)
.timersoru 1 30 msg %sorukanal Kimse bilemedi dogru cevap:  %cevap
.timersorusor 1 30 /soru
}
else { 
unset %sorusayi 
.timer 1 3 msg %sorukanal Sorular bitmiştir, Sorular karistirilarak Oyun baştan başlıyor. Toplam soru :  $lines(sorukaynak.txt)  
/karistir
}
}
on *:text:*:#: {
if $eval($+(%,$nick),2) == $null && $chan == %sorukanal && %cevap == $1- {
set $+(%,$nick) 1
msg %sorukanal Tebrikler  $nick  $+ , dogru cevap %cevap , Toplam puanın:  $eval($+(%,$nick),2)
unset %cevap
.timersoru* off
/soru
}
else if %cevap == $1- && $chan == %sorukanal {
inc $+(%,$nick) 
msg %sorukanal Tebrikler  $nick  $+ , dogru cevap %cevap , Toplam puanın:  $eval($+(%,$nick),2)
unset %cevap
.timersoru* off
/soru
}
}
#sorugroup end