From cdb3d2609c8f0ff5c8fca3b5e6d73de8db40a40f Mon Sep 17 00:00:00 2001
From: Giuseppe Bilotta <giuseppe.bilotta@gmail.com>
Date: Thu, 25 Jan 2007 23:08:50 +0000
Subject: Initial attempt at scoring in azgame. scoring isn't kept yet, and
 it's calculated for cancels too

---
 data/rbot/plugins/azgame.rb | 45 +++++++++++++++++++++++++++++++++++++++++----
 1 file changed, 41 insertions(+), 4 deletions(-)

(limited to 'data/rbot/plugins')

diff --git a/data/rbot/plugins/azgame.rb b/data/rbot/plugins/azgame.rb
index 9d2cbe95..9721d8b8 100644
--- a/data/rbot/plugins/azgame.rb
+++ b/data/rbot/plugins/azgame.rb
@@ -6,9 +6,6 @@
 # (C) 2006 Giuseppe Bilotta
 #
 # TODO allow manual addition of words
-# TODO scoring: base score is t = ceil(100*exp(-(n-1)^2/50^))+p for n attempts
-#               done by p players; players that didn't win but contributed
-#               with a attempts will get t*a/n points
 
 AZ_RULES = {
   :italian => {
@@ -30,11 +27,15 @@ AZ_RULES = {
 class AzGame
 
   attr_reader :range, :word
+  attr_accessor :tries, :total_tries, :winner
   def initialize(plugin, lang, word)
     @plugin = plugin
     @lang = lang.to_sym
     @word = word.downcase
     @range = [AZ_RULES[lang][:first].dup, AZ_RULES[lang][:last].dup]
+    @total_tries = 0
+    @tries = Hash.new(0)
+    @winner = nil
     def @range.to_s
       return "%s -- %s" % self
     end
@@ -56,6 +57,28 @@ class AzGame
     return [:in, @range]
   end
 
+# TODO scoring: base score is t = ceil(100*exp(-(n-1)^2/50))+p for n attempts
+#               done by p players; players that didn't win but contributed
+#               with a attempts will get t*a/n points
+
+  include Math
+
+  def score
+    n = @total_tries
+    p = @tries.keys.length
+    t = (100*exp(-(n-1)**2/50**2)).ceil + p
+    debug "Total score: #{t}"
+    ret = Hash.new
+    @tries.each { |k, a|
+      ret[k] = [t*a/n, "%d tries" % a]
+    }
+    if @winner
+      debug "replacing winner score of %d with %d" % [ret[@winner].first, t]
+      ret[@winner] = [t, "winner"]
+    end
+    return ret.sort_by { |h| h.last.first }
+  end
+
 end
 
 class AzGamePlugin < Plugin
@@ -96,6 +119,13 @@ class AzGamePlugin < Plugin
     case isit.first
     when :bingo
       m.reply "#{Bold}BINGO!#{Bold}: the word was #{Underline}#{word}#{Underline}. Congrats, #{Bold}#{m.sourcenick}#{Bold}!"
+      @games[k].total_tries += 1
+      @games[k].tries[m.source] += 1
+      @games[k].winner = m.source
+      ar = @games[k].score.inject([]) { |res, kv|
+        res.push("%s: %d (%s)" % kv.flatten)
+      }
+      m.reply "The game was won after #{@games[k].total_tries} tries. Scores for this game:    #{ar.join('; ')}"
       @games.delete(k)
     when :out
       m.reply "#{word} is not in the range #{Bold}#{isit.last}#{Bold}" if m.address?
@@ -103,6 +133,8 @@ class AzGamePlugin < Plugin
       m.reply "#{word} doesn't exist or is not acceptable for the game"
     when :in
       m.reply "close, but no cigar. New range: #{Bold}#{isit.last}#{Bold}"
+      @games[k].total_tries += 1
+      @games[k].tries[m.source] += 1
     when :ignore
       m.reply "#{word} is already one of the range extrema: #{isit.last}" if m.address?
     else
@@ -129,6 +161,10 @@ class AzGamePlugin < Plugin
     k = m.channel.downcase.to_s # to_sym?
     if @games.key?(k)
       m.reply "the word in #{Bold}#{@games[k].range}#{Bold} was:   #{Bold}#{@games[k].word}"
+      ar = @games[k].score.inject([]) { |res, kv|
+        res.push("%s: %d (%s)" % kv.flatten)
+      }
+      m.reply "The game was cancelled after #{@games[k].total_tries} tries. Scores for this game would have been:    #{ar.join('; ')}"
       @games.delete(k)
     else
       m.reply "no A-Z game running in this channel ..."
@@ -155,7 +191,8 @@ class AzGamePlugin < Plugin
       m.reply "got it!"
       @games[k] = AzGame.new(self, lang, word)
     end
-    m.reply "A-Z: #{Bold}#{@games[k].range}#{Bold}"
+    tr = @games[k].total_tries
+    m.reply "A-Z: #{Bold}#{@games[k].range}#{Bold}" + (tr > 0 ? "(after #{tr} tries)" : "")
     return
   end
 
-- 
cgit v1.2.3