Explorar o código

try to clear the output queue when someone gets it right

James Seward %!s(int64=20) %!d(string=hai) anos
pai
achega
58fc10d8c4
Modificáronse 1 ficheiros con 2 adicións e 0 borrados
  1. 2 0
      TriviaEngine/TriviaEngine-sqlite.tcl

+ 2 - 0
TriviaEngine/TriviaEngine-sqlite.tcl

@@ -166,6 +166,8 @@ proc trivia_input { nick host handle channel arg } {
 	set arg [string tolower $arg]
 	set arg [string trim $arg]
 	if {$arg == [string tolower $trivia_q_answer]} {
+		# try to stop any other output
+		clearqueue server
 		trivia_correct $nick
 		return 0
 	}