Untitled

#selects the next question.
proc tgnextq {} {
        global tgqdb tgcurrentquestion tgcurrentanswer tgquestionnumber
        global tgquestionstotal tghintnum tgchan tgquestionslist tgqdbsep tgqdbquestionfirst
        global tgcapsquestion tgcapsanswer
        tgreadqdb
        set tgcurrentquestion ""
        set tgcurrentanswer ""
        while {$tgcurrentquestion == ""} {
                set tgquestionnumber [rand [llength $tgquestionslist]]
                set tgquestionselected [lindex $tgquestionslist $tgquestionnumber]
                set tgcurrentquestion [lindex [split $tgquestionselected $tgqdbsep] [expr $tgqdbquestionfirst^1]]
                if {$tgcapsquestion==1} {
                        set tgcurrentquestion [strupr $tgcurrentquestion]
                }
                set tgcurrentanswer [string trim [lindex [split $tgquestionselected $tgqdbsep] $tgqdbquestionfirst]]
                if {$tgcapsanswer==1} {
                        set tgcurrentanswer [strupr $tgcurrentanswer]
                }
        }
        unset tghintnum
        tghint
        bind pubm -|- "$tgchan *" tgcheckanswer
        return
}