소스 검색

try to clear the output queue when someone gets it right

James Seward 20 년 전
부모
커밋
58fc10d8c4
1개의 변경된 파일2개의 추가작업 그리고 0개의 파일을 삭제
  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
 	}