boxer.rb

# -*- coding: utf-8 -*-
# boxer tweet
#
# e.g. :boxer $aa  => hoge (^ωﾟ(o-('-'o ｲｪｲ!
#      :boxer user => foo (^ωﾟ(6('-'o)
#
class String
  def punch
    arms  = ["=≡-","-","-=≡","≡","=","～"]
    lface = ["(o'-')","o'-')","ｲｪｲ! o'-')"].sample
    rface = ["('-'o)","('-'o","('-'o ｲｪｲ!"].sample
    lrgxp = /^[^((\{]*[((\{]\s*\*?\s*(?:(?:´[・･])|(?:`[・･])|(?:கு)|[￣¦☉'´ு``◕´◕ﾟ^^・。◠著])/
    rrgxp = /(?:(?:´[・･])|(?:`[・･])|(?:கு)|[￣¦☉'´ு``◕´◕ﾟ^^・。◠=〓権≦])\s*\*?\s*[\}))][^))\}]*$/

    self.split("\n").inject(""){|sub, l|
      a = l.scan(rrgxp)
      sub << if a.size > 0
               l.sub(a[0],'ﾟ(' + arms.map{|e| 'o'  + e}.concat(['6','６']).sample + rface) + "\n"
             else
               a = l.scan(lrgxp)
               s = a.size > 0 ? l.sub(a[0],lface + arms.map{|e| e + 'o'}.concat(['9','９','∂']).sample + ')ﾟ') : l
               s + "\n"
             end
    }
  end
end

module Earthquake::Input
  def recent_status_id(name,index = -1)
    a = ("aa".."zz").to_a.inject([]){|s,v|
      break s unless id = var2id("$#{v}");
      next  s unless st = cache.read("status:#{id}");
      s << id if st["user"]["screen_name"] && st["user"]["screen_name"] == name
      s
    }
    a.empty? ? nil : a.sort[index]
  end
end


Earthquake.init do
  command %r|^:boxer\s+(.+)$|, :as => :boxer do |m|
    txt = (st = cache.read("status:#{m[1].to_i}")) ? st["text"] : nil
    txt ||= (id = recent_status_id(m[1])) ? cache.read("status:#{id}")["text"] : nil;
    if txt
      s = txt.punch
      if confirm(s)
        twitter.update s
      end
    else
      puts "Not found tweet."
    end
  end
end