Changeset 27

Timestamp:

11/03/06 11:07:45 (5 years ago)

Author:

cow

Message:

fix delete command and try to fix EOW

File:

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

TriviaEngine/TriviaEngine-sqlite.tcl

@@ -195 +195 @@
 
 #<<< handle reports
-                if [regexp -nocase {^report (help|list|fix|view|done)?( .+)?} $cmd matches func arg] {
+                if [regexp -nocase {^report (help|list|fix|view|done|delete)?( .+)?} $cmd matches func arg] {
                         if {($func == "") || ($func == "help")} {
                                 puthelp "PRIVMSG $nick :Use: report (list|view|fix|done|delete)"
@@ -424 +424 @@
         } 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!"
+                        set diff [expr $trivia_score_time - [clock seconds]]
+                        set diff $diff.0
+                        set nearness [expr $diff / $trivia_time_left_warning * 100]
+                        set chance [rand 100]
+                        putlog "diff = $diff, nearness = $nearness, chance = $chance"
+                        if {$chance < $nearness} {
+                                putserv "PRIVMSG $trivia_channel :[trivia_score_time_left] until the end of this game!"
+                        }
                 }
         }
@@ -1118 +1125 @@
                         trivia_end_week
                 } else {
-                        if {[expr $trivia_score_time - [clock seconds]] < $trivia_time_left_warning} {
+                if {[expr $trivia_score_time - [clock seconds]] < $trivia_time_left_warning} {
+                        set diff [expr $trivia_score_time - [clock seconds]]
+                        set diff $diff.0
+                        set nearness [expr $diff / $trivia_time_left_warning * 100]
+                        set chance [rand 100]
+                        putlog "diff = $diff, nearness = $nearness, chance = $chance"
+                        if {$chance < $nearness} {
                                 putserv "PRIVMSG $trivia_channel :[trivia_score_time_left] until the end of this game!"
                         }
+                }
                 }
                 trivia_check_rehash
@@ -1651 +1665 @@
                 set trivia_score_time [clock scan "next saturday"]
         }
+        set trivia_score_time [expr $trivia_score_time - ( 5 * 3600)]
         putloglev d * "setting next score rotation to [clock format $trivia_score_time]"
 }