alias sorubot { .enable #sorugroup | unset %soru* | msg $chan 0,1Oyun basliyor hazirlanin. Toplam soru :  $+ $lines(sorukaynak.txt)  | /karistir }

alias durdur { msg %sorukanal 0,1Oyun durduruldu. | .disable #sorugroup | .timersoru* off }

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 off
alias soru {
if %sorusayi == $null {
set %sorusayi 1
goto start
}
else if %sorusayi < $lines(karisik.txt) {
inc %sorusayi
:start
set %sorukanal $chan
set %soru $gettok($read(karisik.txt,%sorusayi),1,191)
set %cevap $gettok($read(karisik.txt,%sorusayi),2,191)
.timer 1 5 msg %sorukanal 0,1Soru %sorusayi $+ :  $+ $gettok($read(karisik.txt,%sorusayi),1,191)
.timersoru 1 30 msg %sorukanal 10Kimse bilemedi dogru cevap: 4 %cevap
.timersorusor 1 30 /soru
}
else {
unset %sorusayi
.timer 1 2 msg %sorukanal 0,1Sorular 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 10Tebrikler 4 $nick 10 $+ , dogru cevap4 %cevap , 10Toplam puanın: 4 $eval($+(%,$nick),2)
unset %cevap
.timersoru* off
/soru
}
else if %cevap == $1- && $chan == %sorukanal {
inc $+(%,$nick)
msg %sorukanal 10Tebrikler 4 $nick 10 $+ , dogru cevap4 %cevap , 10Toplam puanın: 4 $eval($+(%,$nick),2)
unset %cevap
.timersoru* off
/soru
}
}
#sorugroup end

________________

• • • 
      
      
      
      Alıntı:

      ÖzeL Sitem: [Link Görmek ve Forumumuzdan Yararlanmak İçin Üye Olmasınız. ]
      
      

Alıntı:

+18 [Link Görmek ve Forumumuzdan Yararlanmak İçin Üye Olmasınız. ]