Procházet zdrojové kódy

try to clear the output queue when someone gets it right

James Seward před 20 roky
rodič
revize
58fc10d8c4
1 změnil soubory, kde provedl 2 přidání a 0 odebrání
  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
 	}