Çevrimdışı

alias TBtrivqnormal {
set %TBtrivqtype NORMAL
unset %TBtriv2a2
TBtrivw settings qtype normal
TBtrivw settings TBtrivstatus question
var %tmp = $TBtriv(settings, count)
inc %tmp
TBtrivw settings count %tmp
TBtrivgetpoints
if (%TBtrivforceq == 1) { set %TBtrivquest %TBtrivnextq $+ * $+ %TBtrivnexta }
else {
if (%TBtrivtype == MEGA) { set %TBtrivquest $TBtrivgetqmega }
else { set %TBtrivquest $TBtrivgetq }
}
set %TBtrivq $replace($gettok(%TBtrivquest,1,42),$chr(32),$chr( 160))
set %TBtriva $gettok(%TBtrivquest,2,42)
set %TBtriv2a $gettok(%TBtrivquest,3,42)

if (%TBtrivq == $NULL) {
set %TBtrivq
//echo 4 -s Error in question (no question): %TBtrivquest
//echo 4 -a Error in question (no question): %TBtrivquest
}
if (%TBtriva == $NULL) {
set %TBtriva Hatali text, lutfen siradaki metini bekleyin.. Duzeltmek icin Ornek; !duzelt Fatih sultan mehmet.
//echo 4 -s Error in question (no answer): %TBtrivquest
//echo 4 -a Error in question (no answer): %TBtrivquest
}
if ($TBtriv(settings, lenient) == 1) {
set %TBtriva2 $gettok(%TBtrivquest,2,42)
.echo -q $regsub(%TBtriva2,/([^a-zA-Z0-9])/ig,$NULL,%TBtriva2)
if (%TBtriv2a != $NULL) {
set %TBtriv2a2 $gettok(%TBtrivquest,3,42)
.echo -q $regsub(%TBtriv2a2,/([^a-zA-Z0-9])/ig,$NULL,%TBtriv2a2)
}
}
TBtrivw settings currentq %TBtriva
TBtrivsendmsg 0,4 Yaz: 0,1 $lower($degistir(%TBtrivq)) ¿  $len(%TBtriva) krktr. 2Ekleyen:4 %TBtriv2a
if ($TBtriv(settings, echoqa) == 1) {
//echo %TBtrivchannel Cevap: %TBtriva
}
set %TBtrivqstart $ticks
var %gap = $TBtriv(settings, hintpregap)
if (%gap < 1000) { TBtrivhint1 }
else {
.timerTBtrivprehint1 -m 1 %gap TBtrivhint1
}
}