Bladeren bron

try to clear the output queue when someone gets it right

James Seward 20 jaren geleden
bovenliggende
commit
58fc10d8c4
1 gewijzigde bestanden met toevoegingen van 2 en 0 verwijderingen
  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
 	}