Changeset 35 for TriviaEngine/TriviaEngine-sqlite.tcl

Timestamp:

11/16/06 09:27:09 (6 years ago)

Author:

james

Message:

tell people when they're quick

File:

• TriviaEngine/TriviaEngine-sqlite.tcl (modified) (8 diffs)

TriviaEngine/TriviaEngine-sqlite.tcl

@@ -34 +34 @@
 set trivia_guesser_count 0
 set trivia_last_qid 0
-
+set trivia_q_timestamp 0
 if [info exists trivia_must_rehash] {
   if {$trivia_must_rehash == 1} {
@@ -364 +364 @@
         global trivia_q_id trivia_q_cat trivia_q_question trivia_q_answer trivia_q_hint trivia_q_attempts trivia_channel trivia_status
         global trivia_timer trivia_delay trivia_db_handle trivia_unanswered trivia_run_qty trivia_run_last trivia_run_nick trivia_c
-        global trivia_score_time trivia_time_left_warning trivia_asking_question trivia_current_leader
+        global trivia_score_time trivia_time_left_warning trivia_asking_question trivia_current_leader trivia_q_timestamp
 
         if {$trivia_status != 1} {
@@ -377 +377 @@
         set trivia_asking_question 0
 
+        set speed [expr [clock seconds] - $trivia_q_timestamp]
+
+        set speedword ""
+        if {$speed <= 1} {
+                set speedword [trivia_random_element [list "POW! 0 to correct in under a second!" "Faster than a speeding fast thing!" "Even I didn't get it that quick, and I've just got to do a database lookup!"]]
+        } elseif {$speed < 7} {
+                set speedword [trivia_random_element [list "WHOOSH! 0 to correct in $speed seconds!" "%% shows their unassailable knowledge of whatever that question was about by getting it in $speed seconds" "Set course for correctsville, Commander %%. Ahead warp [expr 10 - $speed]!" "Caffeine abuse pays off for %% with a speedy time of $speed seconds" "Faster than a speeding triviabullet!"]]
+        }
+
         set uid [trivia_get_uid $nick]
         if {$uid == 0} {
@@ -390 +399 @@
         trivia_incr_score $uid
 
+        regsub -all -nocase "%%" $speedword "$trivia_c(purple)$nick$trivia_c(off)" speedword
+
         putquick "PRIVMSG $trivia_channel :Congratulations $trivia_c(purple)$nick$trivia_c(off)! The answer was$trivia_c(purple) $answer$trivia_c(off)."
+        if {$speedword != ""} {
+                putquick "PRIVMSG $trivia_channel :$speedword"
+        }
 
         trivia_bmotion_send "winner" "$nick $answer"
@@ -468 +482 @@
                 }
                 4 {
-                        puthelp "PRIVMSG $trivia_channel :$trivia_c(realblue)QUAD DAMAGE!"
+                        putquick "PRIVMSG $trivia_channel :$trivia_c(realblue)QUAD DAMAGE!"
                         return "is on a roll ..."
                 }
@@ -917 +931 @@
 #<<<
         global trivia_q_id trivia_q_cat trivia_q_question trivia_q_answer trivia_q_hint trivia_q_attempts trivia_channel trivia_status trivia_last_qid
-        global trivia_asking_question trivia_delay botnick
+        global trivia_asking_question trivia_delay botnick trivia_q_timestamp
 
         if {$trivia_status != 1} {
@@ -951 +965 @@
 
         trivia_bmotion_send "start" "$trivia_channel $trivia_delay $botnick"
+        set trivia_q_timestamp [clock seconds]
 
         trivia_round
@@ -988 +1003 @@
         }
 
-        putserv "PRIVMSG $trivia_channel :$trivia_c(red)--== Trivia ==--$trivia_c(off) \[category: \002$trivia_q_cat\002\]"
-        #\[question id: \002$trivia_q_id\002\]"
         set split_question [trivia_question_split $trivia_q_question]
+
+        putquick "PRIVMSG $trivia_channel :$trivia_c(red)--== Trivia ==--$trivia_c(off) \[category: \002$trivia_q_cat\002\]"
         foreach q $split_question {
                 if {$q != ""} {
-                        putserv "PRIVMSG $trivia_channel :$trivia_c(blue) [trivia_question_inject $q]"
+                        putquick "PRIVMSG $trivia_channel :$trivia_c(blue) [trivia_question_inject $q]"
                 }
         }
         #set new_question [trivia_question_inject $trivia_q_question]
-        #putserv "PRIVMSG $trivia_channel :$trivia_c(blue) $new_question"
-        putserv "PRIVMSG $trivia_channel :Hint$hint: [trivia_explode $trivia_q_hint]"
+        #putquick "PRIVMSG $trivia_channel :$trivia_c(blue) $new_question"
+        putquick "PRIVMSG $trivia_channel :Hint$hint: [trivia_explode $trivia_q_hint]"
 
         incr trivia_q_attempts