zetabot 0.0.1

data/lib/Zeta/plugins/russian_roulette.rb

@@ -0,0 +1,90 @@
+module Plugins
+  class RussianRoulette
+    include Cinch::Plugin
+    include Cinch::Helpers
+    enable_acl
+
+    set plugin_name: "Russian Roulette",
+        help: "In Soviet Russia, boolet shoots YOU!\nUsage: ?rr <nick>",
+        react_on: :channel
+
+    attr_reader :games
+
+    PHRASES = [
+        "\"BANG\" You're dead! ... Just kidding comrade... for now.",
+        "\"...BLAMMO!\" (hangfires are a bitch, aren't they?)",
+        "Are you scared yet, comrade?",
+        "Are you pissing your pants yet?",
+        "You are lucky, comrade. At least for now.",
+        "The chamber was as empty as your head.",
+        "Damn. And I thought that it had bullet too.",
+        "Lucky you, comrade.",
+        "Must be your lucky day, comrade.",
+        "\"BLAM!\" you can't play russian roulette with a tokarev, comrade.",
+        "... Looks like you get to live another day... or 5 second.",
+        "... Bad primer."
+    ]
+
+    def initialize(*args)
+      super
+      @games = []
+    end
+
+    match /rr(?: (.+))?/, method: :russian
+
+    def russian(m, nick)
+      #return m.reply "I am sorry comrade, but I do not have pistol on me." unless check_user(m.channel, @bot)
+      return m.user.notice "Sorry comrade, but there is already game going on." if @games.include?(m.channel.name)
+
+      # player setup
+      player = User(nick) || m.user
+      player = m.user if player == @bot
+      # be nice, don't force the game on the starter unless the user actually exists in the channel.
+      return m.reply "I am terribly sorry %s, but I don't know %s." % [m.user.nick, player.nick] unless m.channel.users.include?(player)
+
+      # start game
+      @games << m.channel.name
+
+      turns, round_location = Array.new(2) { |i| Random.new.rand(1..6) }
+      m.channel.action "starts a %d-turn game of Russian Roulette with %s." % [turns, player.nick]
+
+      phrases = PHRASES.dup.shuffle
+
+      sleep 5
+
+      turns.times do |chamber|
+        return end_game(m.channel, true) unless m.channel.users.include?(player)
+        if round_location == chamber.succ
+          m.reply "*click*"
+          sleep 5
+          m.channel.kick(player, "*BLAM*")
+          m.reply "*BLAM*"
+          m.channel.action "watches %s's brain splatter across the wall." % player.nick
+          break
+        else
+          phrase = phrases.pop
+          m.reply "*click* %s" % phrase
+        end
+        sleep 5
+      end
+
+      m.reply "Looks like you get to live another day." if turns < round_location
+      sleep 1 if turns < round_location
+      end_game(m.channel)
+    end
+
+    private
+
+    def end_game(channel, premature=false)
+      @games.delete channel.name
+      channel.msg "Oh vell, it vas fun vhile it lasted." if premature
+      sleep 1
+      channel.action "holsters the pistol."
+    end
+  end
+end
+
+
+# AutoLoad
+Bot.config.plugins.plugins.push Plugins::RussianRoulette
+

data/lib/Zeta/plugins/seen.rb

@@ -0,0 +1,77 @@
+require 'action_view'
+module Plugins
+  class Seen
+    class SeenStruct < Struct.new(:who, :where, :what, :time)
+      include ActionView::Helpers::DateHelper
+      def to_s
+        # "[#{time.asctime}] #{who} was seen in #{where} last saying #{what}"
+        time_ago = time_ago_in_words(Time.at(time))
+        "[ \x1F#{where.to_s.upcase}\x0F ] \x0304#{who}\x0F: \"\x0303#{what[0..300]}\x0F\" \x02#{time_ago}\x0F ago"
+      end
+    end
+
+    include Cinch::Plugin
+    include Cinch::Helpers
+
+    enable_acl(:nobody)
+
+    listen_to :channel
+    match /seen (.+)/
+    match /sync/, method: :sync
+
+    def initialize(*args)
+      super
+      @users = load_seen
+    end
+
+    def finalize
+      save_seen()
+    end
+
+    def listen(m)
+      @users[m.user.nick] = SeenStruct.new(m.user, m.channel, m.message, Time.now)
+    end
+
+    def execute(m, nick)
+      nick.rstrip!
+      if nick == @bot.nick
+        m.reply 'You are a Stupid human!'
+      elsif nick == m.user.nick
+        m.reply "Unfortunately, I see an idiot by the name of #{m.user.nick}"
+      elsif @users.key?(nick)
+        m.reply @users[nick].to_s
+      else
+        m.reply "I haven't seen #{nick}"
+      end
+    end
+
+    def sync(m)
+      save_seen()
+    end
+
+    def save_seen
+      File.open(File.join(Dir.home, '.zeta', 'cache', 'seen.rb'), 'w+') do |file|
+        Marshal.dump(@users, file)
+      end
+
+    end
+
+    def load_seen
+      if File.exists?(File.join(Dir.home, '.zeta', 'cache', 'seen.rb'))
+        File.open(File.join(Dir.home, '.zeta', 'cache', 'seen.rb')) do |file|
+          return Marshal.load(file)
+        end
+      else
+        return Hash.new
+      end
+    end
+
+    def clear_seen
+      @users = {}
+      File.delete(File.join(Dir.home, '.zeta', 'cache', 'seen.rb'))
+    end
+  end
+end
+
+# AutoLoad
+Bot.config.plugins.plugins.push Plugins::Seen

data/lib/Zeta/plugins/silly.rb

@@ -0,0 +1,183 @@
+# coding: utf-8
+
+require 'active_support/time'
+require 'active_support/core_ext/string'
+require 'active_support/core_ext/object/blank'
+require 'chronic_duration'
+require 'date'
+
+
+module Plugins
+  class Silly
+    include Cinch::Plugin
+    include Cinch::Helpers
+    enable_acl
+
+    set(
+        plugin_name: "Silly",
+        help: "You know, silly stuff.",
+    )
+
+    _seconds_in_a_day = 86400
+
+    attr_reader :pokers
+
+    def initialize *args
+      super
+      @pokers = {}
+    end
+
+    match /^pokes (.+)$/, react_on: :action, method: :listen_poke, use_prefix: false
+
+    def listen_poke(m, thebot)
+
+      if User(thebot) == @bot
+        @pokers[m.user] = 0 if !@pokers.include?(m.user)
+        @pokers[m.user] += 1
+        case @pokers[m.user]
+          when 1..3
+            m.reply "Do NOT poke the bot!"
+          when 4
+            m.reply "I said, do NOT poke the bot!"
+          when 5
+            msg = ["WHAT ARE YOU, AN IDIOT? I SAID DO NOT POKE ME!!", "THIS! IS! SPARTA!!"].sample
+            m.channel.kick m.user, ["WHAT ARE YOU, AN IDIOT? I SAID DO NOT POKE ME!!", "THIS! IS! SPARTA!!"].sample
+            @pokers.delete(m.user)
+        end
+      end
+    end
+
+    match /\b(dumb|stupid)\b.+\bbots*\b/i, method: :execute_botinsult, use_prefix: false
+
+    def execute_botinsult(m)
+
+      m.reply ["Stupid human!", "Dumb human!", "Stupid meatbag.", "Silly human, your insults cannot harm me!", "get rekt", "u fkn w0t m8"].sample
+    end
+
+    def tzparser(tz)
+      prefix = (tz[0] !~ /(\+|-)/ ? "+" : "")
+      suffix = (tz =~ /^(?:\+|-)?(\d{1,2})$/ ? ":00" : "")
+      regexp = /^(\+|-)?(\d{1,2})(?::(\d{1,2}))?$/
+      if tz =~ regexp
+        prefix + tz.gsub(regexp) { |match| (!!$1 ? $1 : "") + $2.rjust(2, "0") + (!!$3 ? ":"+$3.rjust(2, "0") : "") } + suffix
+      else
+        raise ArgumentError, "A valid timezone was not supplied."
+      end
+    end
+
+    match "halloween", method: :halloween
+    match "halloweve", method: :halloween
+    match /halloween (\S+)/, method: :halloween
+
+    def halloween(m, tz = nil)
+      tz ||= "-00:00"
+      tz = tzparser(tz)
+      begin
+        today = Time.now.localtime(tz)
+        hw = Time.new(today.year, 10, 31, 0, 0, 0, tz)
+        hw = hw.next_year if hw.to_date.past?
+        message = if hw.to_date == today.to_date
+                    "THIS IS HALLOWEEN!"
+                  else
+                    "There's #{ChronicDuration.output(hw.to_i - today.to_i, format: :long)} until Hallow's Eve!"
+                  end
+      rescue ArgumentError => ae
+        message = ae.message
+      ensure
+        m.reply message, true
+      end
+    end
+
+    match "xmas", method: :xmas
+    match /xmas (\S+)/, method: :xmas
+
+    def xmas(m, tz = nil)
+      tz ||= "-00:00"
+      tz = tzparser(tz)
+      begin
+        today   = Time.now.localtime(tz)
+        xmas    = Time.new(today.year, 12, 25, 0, 0, 0, tz)
+        xmas    = xmas.next_year if xmas.to_date.past?
+        message = if xmas.to_date == today.to_date
+                    "Merry Christmas!"
+                  else
+                    "There's #{ChronicDuration.output(xmas.to_i - today.to_i, format: :long)} until Christmas!"
+                  end
+      rescue ArgumentError => ae
+        message = ae.message
+      ensure
+        m.reply message, true
+      end
+    end
+
+    match "newyear", method: :newyear
+    match /newyear (\S+)/, method: :newyear
+
+    def newyear(m, tz = nil)
+      tz ||= "-00:00"
+      tz = tzparser(tz)
+      begin
+        today = Time.now.localtime(tz)
+        nyear = Time.new(today.year.succ, 1, 1, 0, 0, 0, tz)
+        #nyear = nyear.next_year if nyear.to_date.past?
+        message = if nyear.to_date == today.to_date
+                    "Happy New Year #{today.year}!"
+                  else
+                    "There's #{ChronicDuration.output(nyear.to_i - today.to_i, format: :long)} until #{nyear.year}!"
+                  end
+      rescue ArgumentError => ae
+        message = ae.message
+      ensure
+        m.reply message, true
+      end
+    end
+
+    match "tz", method: :tz
+    match /tz (\S+)/, method: :tz
+
+    def tz(m, tz = nil)
+      tz ||= "-00:00"
+      tz = tzparser(tz)
+      begin
+        today = Time.now.localtime(tz)
+        message = today.to_s
+      rescue ArgumentError => ae
+        message = ae.message
+      ensure
+        m.reply message, true
+      end
+    end
+
+    match "mayan", method: :mayan
+
+    def mayan(m)
+      msd = (Date.today.jd - Date.new(1, 1, 1).jd) + 1137142
+      lc = {
+          baktun: (msd - (msd % 144000)) / 144000,
+          katun: ((msd - (msd % 7200)) / 7200) % 20,
+          tun: ((msd - (msd % 360)) / 360) % 20,
+          uinal: ((msd - (msd % 20)) / 20) % 18,
+          kin: (msd % 20)
+      }
+
+      m.reply '%<baktun>s.%<katun>s.%<tun>s.%<uinal>s.%<kin>s' % lc
+    end
+
+    match /heavymetalize (.+)/, method: :heavymetalize
+
+    def heavymetalize(m, s)
+      m.reply s.tr('AEIOUaeiouyYWwXx', 'ÄËÏÖÜäëïöüÿŸẄẅẌẍ')
+    end
+
+    match /\bfeature\b.+\brequest\b/i, method: :execute_userproblem, use_prefix: false
+
+    def execute_userproblem(m)
+      m.reply ["user error.", "working as intended", "Status: WONTFIX", "PEBKAC issue", "ID:10T Error"].sample
+    end
+
+  end
+end
+
+
+# AutoLoad
+Bot.config.plugins.plugins.push Plugins::Silly

data/lib/Zeta/plugins/snooper.rb

@@ -0,0 +1,146 @@
+# -*- coding: utf-8 -*-
+# == Author
+# Marvin Gülker (Quintus)
+#
+# == Modification author
+# Liothen
+#
+# == License
+# A named-pipe plugin for Cinch.
+# Copyright © 2012 Marvin Gülker
+#
+# This program is free software: you can redistribute it and/or modify
+# it under the terms of the GNU Lesser General Public License as published by
+# the Free Software Foundation, either version 3 of the License, or
+# (at your option) any later version.
+#
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU Lesser General Public License for more details.
+#
+# You should have received a copy of the GNU Lesser General Public License
+# along with this program.  If not, see <http://www.gnu.org/licenses/>.
+
+# Plugin for inspecting links pasted into channels.
+require 'video_info'
+require 'mechanize'
+require 'action_view'
+
+module Plugins
+  class Snooper
+    include Cinch::Plugin
+    include Cinch::Helpers
+    include ActionView::Helpers::DateHelper
+
+    enable_acl(:nobody)
+
+    # Default list of URL regexps to ignore.
+    # DEFAULT_BLACKLIST = [/\.png$/i, /\.jpe?g$/i, /\.bmp$/i, /\.gif$/i, /\.pdf$/i].freeze
+
+    set :help, <<-HELP
+  http[s]://...
+    I’ll fire a GET request at any link I encounter, parse the HTML
+    meta tags, and paste the result back into the channel.
+    HELP
+
+    match %r{\b((https?:\/\/)?(([0-9a-zA-Z_!~*'().&=+$%-]+:)?[0-9a-zA-Z_!~*'().&=+$%-]+\@)?(([0-9]{1,3}\.){3}[0-9]{1,3}|([0-9a-zA-Z_!~*'()-]+\.)*([0-9a-zA-Z][0-9a-zA-Z-]{0,61})?[0-9a-zA-Z]\.[a-zA-Z]{2,6})(:[0-9]{1,4})?((\/[0-9a-zA-Z_!~*'().;?:\@&=+$,%#-]+)*\/?))}i,
+          use_prefix: false,
+          react_on: :channel
+
+    def execute(msg, url)
+      url = "http://#{url}" unless url=~/^https?:\/\//
+      url = URI.encode(url)
+
+      # Ignore items on blacklist
+      # blacklist = DEFAULT_BLACKLIST.dup
+      # blacklist.concat(config[:blacklist]) if config[:blacklist]
+      # return if blacklist.any?{|entry| url =~ entry}
+
+      # Log
+      # debug "URL matched: #{url}"
+
+      # Parse URI
+      p = URI(url)
+
+      # API key lookup
+      VideoInfo.provider_api_keys = { youtube: Config.secrets[:google] }
+
+      # Parse out specific websites
+      if p.host == 'youtube.com' || p.host == 'www.youtube.com' || p.host == 'youtu.be'
+        match_youtube(msg, url)
+      elsif p.host == 'i.imgur.com' || p.host == 'imgur.com'
+        match_imgur(msg, url)
+      else
+        match_other(msg,url)
+      end
+
+    rescue => e
+      error "#{e.class.name}: #{e.message}"
+      error "[404] #{msg.user} - #{url}"
+    end
+
+    private
+    def match_youtube(msg, url)
+      if Config.secrets[:google]
+        video = VideoInfo.new(url)
+        msg.reply "#{Format(:red, 'YouTube ')}∴ #{video.title} ( #{Format(:green, Time.at(video.duration).strftime("%H:%M:%S"))} )"
+      else
+        match_other(msg, url)
+      end
+
+    end
+
+    def match_github(msg, url)
+      # TODO parse github url
+    end
+
+    def match_imgur(msg, url)
+      id = url.to_s.match(%r{(?:https?://i?\.?imgur.com/)(?:.*\/)?([A-Za-z0-9]+)(?:\.jpg|png|gif|gifv)?}i)
+      return match_other(msg, url) unless id
+
+      # Query Data
+      data = JSON.parse(
+          RestClient.get("https://api.imgur.com/3/image/#{id[1]}", { Authorization: "Client-ID #{Config.secrets[:imgur_id]}" })
+      )
+      return 'Unable to query imgur' unless defined?(data)
+      i = Hashie::Mash.new(data)
+
+      # SET Not Safe For Work
+      if i.data.nsfw
+        nsf = "[#{Format(:red, 'NSFW')}]"
+      else
+        nsf = "[#{Format(:green, 'SAFE')}]"
+      end
+
+      # Trigger reply message
+      msg.reply("#{Format(:purple, 'IMGUR')} #{nsf} ∴ [#{Format(:yellow, i.data.type)}] #{i.data.width}x#{i.data.height} "\
+              "∴ Views: #{ i.data.views.to_s} ∴ #{i.data.title ? i.data.title[0..100] : 'No Title'} "\
+              "∴ Posted #{time_ago_in_words(Time.at(i.data.datetime))} ago")
+    end
+
+    def match_other(msg,url)
+      begin
+        html = Mechanize.start { |m| Nokogiri::HTML(m.get(url).content, nil, 'utf-8') }
+        if node = html.at_xpath("html/head/title")
+          msg.reply("‡ #{node.text.lstrip.gsub(/\r|\n|\n\r/, ' ')[0..300]}")
+        end
+
+        if node = html.at_xpath('html/head/meta[@name="description"]')
+          msg.reply("» #{node[:content].lines.first(3).join.gsub(/\r|\n|\n\r/, ' ')[0..300]}")
+        end
+
+        info "[200] #{msg.user} - #{url}"
+      rescue => e
+        error e
+        error "[404] #{msg.user} - #{url}"
+      end
+    end
+
+  end
+end
+
+
+# AutoLoad
+Bot.config.plugins.plugins.push Plugins::Snooper
+