Changeset 23 for TriviaEngine/TriviaEngine-sqlite.tcl

Timestamp:

10/15/06 18:25:40 (6 years ago)

Author:

james

Message:

new scoring stuff

File:

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

TriviaEngine/TriviaEngine-sqlite.tcl

@@ -16 +16 @@
 # allow new categories to be created?
 set trivia_allow_new_cats 0
+
+# time before end of round to start counting down
+set trivia_time_left_warning 86400
 
 # hold the current question info <<<
@@ -51 +54 @@
 set trivia_watchdog_timer ""
 set trivia_last_ts 0
+set trivia_score_time 0
+set trivia_debug_mode 0
+set trivia_warned 0
+set trivia_asking_question 0
+set trivia_current_leader -1
 
 #colours <<<
@@ -147 +155 @@
 #>>>
 
+#<<< debug
+                if [regexp -nocase {^debug (.+)} $cmd matches func] {
+                        global trivia_debug_mode
+                        
+                        if {$trivia_debug_mode == 0} {
+                                putquick "PRIVMSG $nick :Debug mode is disabled. Cannot use debug commands."
+                                return 0
+                        }
+
+                        if {$func == "endweek"} {
+                                putquick "PRIVMSG $nick :Ending this week in 10 seconds..."
+                                global trivia_score_time
+                                set trivia_score_time [expr [clock seconds] + 10]
+                                return 0
+                        }
+                }
+#>>>
+
+
 #<<< handle reports
                 if [regexp -nocase {^report (help|list|fix|view|done)?( .+)?} $cmd matches func arg] {
@@ -309 +336 @@
         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
 
         if {$trivia_status != 1} {
@@ -319 +347 @@
         set trivia_q_answer ""
         set newuser 0
+        set trivia_asking_question 0
 
         set uid [trivia_get_uid $nick]
@@ -329 +358 @@
         putlog "$nick has uid $uid"
 
+        set old_leader [trivia_leader]
+
         trivia_incr_score $uid
 
@@ -335 +366 @@
           putquick "PRIVMSG $trivia_channel :Welcome to our newest player,  $trivia_c(purple)$nick$trivia_c(off) :)"
         }       
-        putquick "PRIVMSG $trivia_channel :rank0rs: [trivia_near_five2 $uid]"
+        putquick "PRIVMSG $trivia_channel :Rankings: [trivia_near_five2 $uid]"
+
+        set leader [trivia_leader]
+
+        if {($leader != $old_leader) && ($leader != -1) && ($old_leader != -1)} {
+                putquick "PRIVMSG $trivia_channel :$trivia_c(purple) $nick $trivia_c(off) has taken the lead!"
+        }
 
         #set score [trivia_get_score $uid]
@@ -361 +398 @@
         }
 
+        if {$trivia_score_time <= [clock seconds]} {
+                trivia_end_week
+        } else {
+                if {[expr $trivia_score_time - [clock seconds]] < $trivia_time_left_warning} {
+                        putserv "PRIVMSG $trivia_channel :[trivia_score_time_left] until the end of this game!"
+                }
+        }
 
         trivia_check_rehash
@@ -385 +429 @@
                         return "is on a winning spree!"
                 }
+                4 {
+                        puthelp "PRIVMSG $trivia_channel :QUAD DAMAGE!"
+                        return "is on a roll ..."
+                }
                 5 {
                         return "is on a rampage!"
@@ -407 +455 @@
 # Escape stuff for SQL
 proc trivia_sqlite_escape { text } {
+#<<<
         return [string map {' ''} $text]
 }
+#>>>
 
 # Get someone's user ID from their nick
@@ -460 +510 @@
 proc trivia_get_userinfo { user_id } {
 #<<<
-        global trivia_db_handle
+        global trivia_db_handle trivia_channel
 
         putloglev 4 * "trivia_get_userinfo ($user_id)"
-
-        set sql "SELECT user_score, user_last, user_reg FROM users WHERE user_id = '$user_id'"
+        set donestats 0
+
+        set sql "SELECT user_name, user_score, user_last, user_reg FROM users WHERE user_id = '$user_id'"
+
         trivia_db_handle eval $sql {
                 if {$user_last == ""} {
@@ -478 +530 @@
                 }
 
-                return "$user_score|$last|$reg"
-        } 
-        return "No stats"
+                putserv "PRIVMSG $trivia_channel :Trivia stats for $user_name:"
+                putserv "PRIVMSG $trivia_channel :   Current score: $user_score"
+                putserv "PRIVMSG $trivia_channel :      First seen: $reg"
+                putserv "PRIVMSG $trivia_channel :     Last scored: $last"
+                set donestats 1
+        }
+
+        set sql "SELECT COUNT(dt) AS score FROM scores WHERE dt > [trivia_get_period] AND user_id = '$user_id'"
+        if {$donestats} {
+                trivia_db_handle eval $sql {
+                        putserv "PRIVMSG $trivia_channel :Points this week: $score"
+                        putserv "PRIVMSG $trivia_channel :  Weekly Ranking: [trivia_get_rank $user_id]"
+                }
+        } else {
+                putserv "PRIVMSG $trivia_channel :No stats found"
+        }
 }
 #>>>
@@ -491 +556 @@
         set uid [trivia_get_uid $user_name]
         if {$uid == 0} {
-                putserv "PRIVMSG $trivia_channel :Unknown user '$user_name'"
+                putserv "PRIVMSG $trivia_channel :Unknown user '$user_name' (is the case right?)"
                 return
         }
-        set stats [trivia_get_userinfo $uid]
-        if {$stats == "No stats"} {
-                putserv "PRIVMSG $trivia_channel :No stats available."
-                return
-        }
-
-        set stats2 [split $stats "|"]
-        putserv "PRIVMSG $trivia_channel :Trivia stats for $user_name:"
-        putserv "PRIVMSG $trivia_channel :  Current score: [lindex $stats2 0]"
-        putserv "PRIVMSG $trivia_channel :        Ranking: [trivia_get_rank $uid]"
-        putserv "PRIVMSG $trivia_channel :     First seen: [lindex $stats2 2]"
-        putserv "PRIVMSG $trivia_channel :    Last scored: [lindex $stats2 1]"
+
+        trivia_get_userinfo $uid
 }
 #>>>
@@ -516 +571 @@
         putloglev 4 * "trivia_incr_score ($id, $howmuch)"
 
-        set sql "UPDATE users SET user_last = [clock seconds] WHERE user_id = '$id'"
+        set sql "UPDATE users SET user_last = [clock seconds], user_points = user_points + 1 WHERE user_id = '$id'"
         trivia_db_handle eval $sql
 
@@ -532 +587 @@
 
         set nick [trivia_sqlite_escape $nick]
-        set sql "INSERT INTO users VALUES (null, '$nick', '', 0, [clock seconds], [clock seconds])"
+        set sql "INSERT INTO users VALUES (null, '$nick', '', 0, [clock seconds], [clock seconds], 0)"
         trivia_db_handle eval $sql
 
@@ -586 +641 @@
         }
 
+        if {$param == "countdown"} {
+                trivia_countdown
+                return 0
+        }
+
   if {![matchattr $handle |$trivia_flag $channel]} {
-    putserv "PRIVMSG $nick :use: !trivia \[score|top10|start\]"
+    putserv "PRIVMSG $nick :use: !trivia \[score|top10|start|report\]"
     return 0
   }
@@ -695 +755 @@
 proc trivia_make_hint { hint answer } {
 #<<<
+        global trivia_debug_mode
+
         set hint [string toupper $hint]
         set answer [string toupper $answer]
@@ -772 +834 @@
         }
         set final_hint [string trim $final_hint]
+        if {$trivia_debug_mode == 1} {
+                return $answer
+        }
+
         return $final_hint
 }
@@ -813 +879 @@
 #<<<
         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
 
         if {$trivia_status != 1} {
@@ -842 +909 @@
 
         set trivia_last_qid $trivia_q_id
+
+        set trivia_asking_question 1
 
         trivia_round
@@ -983 +1052 @@
         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
-        global trivia_run_last trivia_run_nick trivia_run_qty trivia_c
+        global trivia_run_last trivia_run_nick trivia_run_qty trivia_c trivia_score_time trivia_asking_question trivia_time_left_warning
 
         if {$trivia_status != 1} {
@@ -989 +1058 @@
                 return 0
         }
+
+        set trivia_asking_question 0
 
         set trivia_q_answer [string toupper $trivia_q_answer]
@@ -1007 +1078 @@
 
         if {$trivia_unanswered > 3} {
-                putserv "PRIVMSG $trivia_channel :Three unanswered in a row, stopping the game."
+                putserv "PRIVMSG $trivia_channel :Four unanswered in a row, stopping the game."
+                putserv "PRIVMSG $trivia_channel :You can restart it with $trivia_c(purple)!t start"
                 set trivia_status 0
         } else {
                 set trivia_timer [utimer $trivia_delay trivia_start_round]
+                if {$trivia_score_time <= [clock seconds]} {
+                        trivia_end_week
+                } else {
+                        if {[expr $trivia_score_time - [clock seconds]] < $trivia_time_left_warning} {
+                                putserv "PRIVMSG $trivia_channel :[trivia_score_time_left] until the end of this game!"
+                        }
+                }
                 trivia_check_rehash
         }
@@ -1020 +1099 @@
 #<<<
         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
+        global trivia_timer trivia_delay trivia_db_handle trivia_unanswered trivia_score_time
 
         if {$trivia_status != 1} {
@@ -1039 +1118 @@
         putserv "PRIVMSG $trivia_channel :Skipping this question by $nick's request."
         set trivia_timer [utimer $trivia_delay trivia_start_round]
+        if {$trivia_score_time <= [clock seconds]} {
+                trivia_end_week
+        }
 }
 #>>>
@@ -1076 +1158 @@
         #trivia_stats
 
+        putquick "PRIVMSG $trivia_channel :[trivia_score_time_left] left until end of this game!"
+
+        #try to find last week's winner
+        set sql "SELECT winners.user_id, users.user_name FROM winners LEFT JOIN users USING(user_id) ORDER BY dt DESC, score DESC LIMIT 1"
+        putloglev d * $sql
+        trivia_db_handle eval $sql {
+                putquick "PRIVMSG $trivia_channel :Last week's winner was$trivia_c(purple) [string toupper $user_name]$trivia_c(off)!"
+        }
+
         set trivia_unanswered 0
         set trivia_run_last 0
@@ -1091 +1182 @@
 
         if {$trivia_status == 1} {
+                clearqueue server
                 putserv "PRIVMSG $trivia_channel :Trivia game stopped."
                 set trivia_status 0
@@ -1165 +1257 @@
         }
 
-        set output "The top $index players are... $output"
+        if {$index == 0} {
+                set output "No scores so far, everyone is equal first! \\o/"
+        } else {
+                set output "The top $index players are... $output"
+        }
         return $output
 }
@@ -1295 +1391 @@
 }
 #>>>
+
+# Get the current leader's UID
+proc trivia_leader { } {
+        global trivia_db_handle
+
+        set dt [trivia_get_period]
+        set sql "SELECT user_id, count(dt) AS user_score FROM scores WHERE dt > $dt GROUP BY user_id ORDER BY COUNT(dt) DESC LIMIT 1"
+        set uid -1
+        trivia_db_handle eval $sql {
+                set uid $user_id
+        }
+
+        return $uid
+}
 
 # Get some stats from the DB
@@ -1423 +1533 @@
       killutimer $t_name
                 }
+
+                if {$t_function == "trivia_score_rot_timer"} {
+                        putloglev d * "killing timer $t_name"
+                        killutimer $t_name
+                }
   }
 
@@ -1433 +1548 @@
 #>>>
 
+#<<< SCORE ROTATION STUFF
+
+#take this week's scores and figure out this week's winners
+proc trivia_score_winners { } {
+        #<<<
+        global trivia_db_handle trivia_channel
+
+        set winners [list]
+
+        set now [clock seconds]
+
+        set updates [list]
+        
+        #knock off a week
+        set cutoff [expr $now - 604800]
+        
+        set sql "SELECT user_id, COUNT(*) AS score FROM scores WHERE dt > $cutoff GROUP BY user_id ORDER BY score DESC LIMIT 5"
+        putloglev d * $sql
+
+        trivia_db_handle eval $sql {
+                lappend winners [list $user_id $score]
+        }
+
+        set winner_name [list]
+
+        foreach winner $winners {
+                set sql "SELECT user_name FROM users WHERE user_id = '[trivia_sqlite_escape [lindex $winner 0]]'"
+                putloglev d * $sql
+                trivia_db_handle eval $sql {
+                        lappend winner_name [list $user_name [lindex $winner 0] [lindex $winner 1]]
+                }
+        }
+                
+        putlog $winners
+        putlog $winner_name
+
+        putserv "PRIVMSG $trivia_channel :This week's winners are:"
+        set position 1
+        foreach winner $winner_name {
+                #smudge woz ere
+                putserv "PRIVMSG $trivia_channel :$position[trivia_ordinal $position] place: [lindex $winner 0] with [lindex $winner 2] points"
+                set sql "INSERT INTO winners VALUES ([lindex $winner 1], $now, [expr 6 - $position])"
+                putloglev d * $sql
+                trivia_db_handle eval $sql
+
+                set sql "UPDATE users SET user_score = user_score + [expr 6 - $position]"
+                putloglev d * $sql
+                trivia_db_handle eval $sql
+
+                incr position
+        }
+
+        set sql "DELETE FROM scores"
+        putloglev d * $sql
+        trivia_db_handle eval $sql
+}
+
+#>>>
+
+#get the timestamp for next cutoff
+proc trivia_score_get_time { } {
+#<<<
+        global trivia_score_time
+
+        set trivia_score_time [clock scan "saturday"]
+        if {$trivia_score_time < [clock seconds]} {
+                set trivia_score_time [clock scan "next saturday"]
+        }
+        putloglev d * "setting next score rotation to [clock format $trivia_score_time]"
+}
+#>>>
+
+#figure out how long is left until the score rotation
+proc trivia_score_time_left { } {
+        #<<<
+        global trivia_score_time
+
+        set now [clock seconds]
+        if {$now > $trivia_score_time} {
+                #erk
+                putloglev d * "trivia_score_time_left: oops!"
+                putloglev d * "now: $now, time: $trivia_score_time"
+                putloglev d * [clock format $now]
+                putloglev d * [clock format $trivia_score_time]
+                return
+        }
+        
+        set diff [expr $trivia_score_time - $now]
+        putloglev d * "trivia_score_time_left: difference is $diff seconds"
+
+        if {$diff > 60} {
+                return [trivia_time_to_words $diff]
+        } else {
+                return "less than a minute"
+        }
+}
+#>>>
+
+proc trivia_time_to_words { time } {
+#<<<
+        putloglev 2 * "trivia_time_to_words $time"
+        set output ""
+
+        if {$time > 86400} {
+                set days [expr $time / 86400]
+                append output $days
+                append output " day"
+                if {$days > 1} {
+                        append output "s"
+                }
+                set time [expr $time - [expr $days * 86400]]
+        append output " "
+        }
+
+        if {$time > 3600} {
+                set hours [expr $time / 3600]
+                append output $hours
+                append output " hour"
+                if {$hours > 1} {
+                        append output "s"
+                }
+                set time [expr $time - [expr $hours * 3600]]
+        append output " "
+        }
+
+        if {$time > 60} {
+                set mins [expr $time / 60]
+                append output $mins
+                append output " minute"
+                if {$mins > 1} {
+                        append output "s"
+                }
+        }
+
+        set output [string trim $output]
+        putloglev d * "trivia_time_to_words returing $output"
+        return $output
+}
+#>>>
+
+proc trivia_score_rot_timer { } {
+        global trivia_score_time trivia_channel trivia_c trivia_asking_question trivia_warned
+
+        putloglev 1 * "score_rot tick"
+        utimer 10 trivia_score_rot_timer
+
+        if {[clock seconds] > $trivia_score_time} {
+                #end of week!
+
+                putlog "trivia: end of week"
+
+                if {$trivia_asking_question == 1} {
+                        putlog "trivia: game is running"
+                        if {$trivia_warned == 0} {
+                                putlog "trivia: need to warn"
+                                putquick "PRIVMSG $trivia_channel :$trivia_c(red)### BING BONG ###"
+                                putquick "PRIVMSG $trivia_channel :I've started so I'll finish."
+                                set trivia_warned 1
+                        }
+                        return 0
+                } else {
+                        putlog "trivia: not running game, ending week now"
+                        trivia_end_week
+                        return 0
+                }
+        }
+        set trivia_warned 0
+}
+#>>>
+
+# handle end of week
+proc trivia_end_week { } {
+        global trivia_channel trivia_score_time
+
+        # set next week end
+        trivia_score_get_time
+
+        # move scores around
+        trivia_score_winners
+}
+
+# Announce the time remaining
+proc trivia_countdown { } {
+#<<<
+        global trivia_channel
+
+        putserv "PRIVMSG $trivia_channel :[trivia_score_time_left] left until end of this game."
+}
+#>>>
+
 trivia_connect
+trivia_score_get_time
+utimer 10 trivia_score_rot_timer
 
 putlog {TriviaEngine ENGAGED(*$£&($}