Răsfoiți Sursa

try to clear the output queue when someone gets it right

James Seward 20 ani în urmă
părinte
comite
58fc10d8c4
1 a modificat fișierele cu 2 adăugiri și 0 ștergeri
  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
 	}