butler 1.8.0

data/data/butler/plugins/dev/eval.rb

@@ -0,0 +1,64 @@
+#--
+# Copyright 2007 by Stefan Rusterholz.
+# All rights reserved.
+# See LICENSE.txt for permissions.
+#++
+
+
+
+trigger "eval"
+
+@state = Array.new(10)
+class <<self
+	attr_accessor :state
+end
+
+def previous(*n)
+	n.empty? ? plugin.state : plugin.state[*n]
+end
+
+def _0; previous(0); end
+def _1; previous(1); end
+def _2; previous(2); end
+def _3; previous(3); end
+def _4; previous(4); end
+def _5; previous(5); end
+def _6; previous(6); end
+def _7; previous(7); end
+def _8; previous(8); end
+def _9; previous(9); end
+
+def on_trigger
+	begin
+		result = eval(@message.post_arguments[1])
+		plugin.state.unshift(result)
+		plugin.state.pop
+	rescue Exception => e
+		answer(:exception, :exception => e)
+	else
+		answer(">> "+result.inspect[0,300].split(/\n/).first(3).join("\n"))
+	end
+end
+
+__END__
+--- 
+:revision:
+  :plugin: 1
+:summary:
+  en: Let butler eval a piece of code.
+:about:
+  :mail: "apeiros@gmx.net"
+  :version: "1.0.0"
+  :author: "Stefan Rusterholz"
+:strings:
+  :exception:
+    en: |
+      Exception <%= exception.class %> '<%= exception.message %>' in:
+      <%= exception.backtrace.first(3).join("\n") %>
+:usage:
+  en: |
+    ![b]eval![o] *![c(blue)]code![o]
+:help:
+  en:
+    "": |
+      Let butler eval a piece of code.

data/data/butler/plugins/dev/nometa.rb

@@ -0,0 +1,14 @@
+#--
+# Copyright 2007 by Stefan Rusterholz.
+# All rights reserved.
+# See LICENSE.txt for permissions.
+#++
+
+
+
+trigger "nometa"
+
+def on_trigger
+	answer("I'm just a test, I don't do anything.")
+end
+__END__

data/data/butler/plugins/dev/onhandlers.rb

@@ -0,0 +1,93 @@
+#--
+# Copyright 2007 by Stefan Rusterholz.
+# All rights reserved.
+# See LICENSE.txt for permissions.
+#++
+
+
+
+extend OnHandlers
+
+configuration(
+	"active" => false
+)
+
+trigger "onhandlers"
+
+def on_trigger
+	if @message.arguments[1] && @message.arguments[1].downcase == "on" then
+		plugin.config["active"] = true
+	else
+		plugin.config["active"] = false
+	end
+end
+
+def on_join(listener, user, channel)
+	debug("on_join triggered, #{user} joined #{channel}") if plugin.config["active"]
+end
+def on_privmsg(listener, user, text)
+	debug("on_privmsg triggered, #{user} wrote #{text}") if plugin.config["active"]
+end
+def on_notice(listener, user, text)
+	debug("on_notice triggered, #{user} wrote #{text}") if plugin.config["active"]
+end
+def on_nick(listener, user, old_nick)
+	debug("on_nick triggered, #{user} changed his nick from #{old_nick}") if plugin.config["active"]
+end
+def on_topic(listener, user, channel, topic)
+	debug("on_topic triggered, #{user} changed topic of #{channel} to #{topic}") if plugin.config["active"]
+end
+def on_part(listener, user, channel)
+	debug("on_part triggered, #{user} parted #{channel}") if plugin.config["active"]
+end
+def on_quit(listener, user, reason)
+	debug("on_quit triggered, #{user} has quit with #{reason}") if plugin.config["active"]
+end
+def on_kick(listener)
+	debug("on_kick triggered with #{@message}") if plugin.config["active"]
+end
+def on_kill(listener)
+	debug("on_kill triggered with #{@message}") if plugin.config["active"]
+end
+def on_kline(listener)
+	debug("on_kline triggered with #{@message}") if plugin.config["active"]
+end
+def on_invocation(listener)
+	debug("on_invocation triggered with #{@message}") if plugin.config["active"]
+end
+def on_ban(listener, *masks)
+	debug("on_ban triggered with #{@message}") if plugin.config["active"]
+end
+def on_unban(listener, *masks)
+	debug("on_unban triggered with #{@message}") if plugin.config["active"]
+end
+def on_op(listener, *users)
+	debug("on_op triggered with #{@message}") if plugin.config["active"]
+end
+def on_deop(listener, *users)
+	debug("on_deop triggered with #{@message}") if plugin.config["active"]
+end
+def on_voice(listener, *users)
+	debug("on_voice triggered with #{@message}") if plugin.config["active"]
+end
+def on_devoice(listener, *users)
+	debug("on_devoice triggered with #{@message}") if plugin.config["active"]
+end
+
+__END__
+--- 
+:revision:
+  :plugin: 1
+:summary:
+  en: Testing all possible on_handlers
+:about:
+  :mail: "apeiros@gmx.net"
+  :version: "1.0.0"
+  :author: "Stefan Rusterholz"
+:strings:
+:usage:
+  en: "This plugin does not offer a specific interface."
+:help:
+  en:
+    "": |
+      This plugin is meant for diagnostic purposes only.

data/data/butler/plugins/dev/raw.rb

@@ -0,0 +1,36 @@
+#--
+# Copyright 2007 by Stefan Rusterholz.
+# All rights reserved.
+# See LICENSE.txt for permissions.
+#++
+
+
+
+trigger "raw"
+
+def on_trigger
+	return answer(usage) if @message.arguments.length < 2
+	@butler.irc.write(@message.post_arguments[1])
+	answer(:sent)
+end
+
+__END__
+--- 
+:revision:
+  :plugin: 1
+:summary:
+  en: Let butler send a raw message to the server.
+:about:
+  :mail: "apeiros@gmx.net"
+  :version: "1.0.0"
+  :author: "Stefan Rusterholz"
+:strings:
+  :sent:
+    en: Sent the raw message
+:usage:
+  en: |
+    ![b]raw![o] *![c(blue)]raw-message![o])
+:help:
+  en:
+    "": |
+      Let butler send a raw message to the server.

data/data/butler/plugins/dev/rawlog.rb

@@ -0,0 +1,77 @@
+#--
+# Copyright 2007 by Stefan Rusterholz.
+# All rights reserved.
+# See LICENSE.txt for permissions.
+#++
+
+
+
+configuration(
+	"active" => true
+)
+
+@logfile = nil
+
+def self.on_load(*a)
+	@logfile      = File.open(@butler.path.log+"/rawlog.txt", "a")
+	@logfile.sync = true
+end
+
+def self.on_unload(*a)
+	@logfile.close
+end
+
+subscribe(nil, 10) { |listener, message|
+	if @config["active"] && @logfile then
+		@logfile.puts("#{Time.now.strftime('%F %T')}> #{message.raw}")
+	end
+}
+
+trigger "rawlog"
+
+def on_trigger
+	arg = @message.arguments[1] && @message.arguments[1].downcase
+	case arg
+		when nil
+			usage
+
+		when _(:on)
+			plugin.config["active"] = true
+			answer(:activated)
+
+		when _(:off)
+			plugin.config["active"] = false
+			answer(:deactivated)
+
+	end
+end
+
+__END__
+--- 
+:revision:
+  :configuration: 1
+:summary:
+  en: |
+    Writes all messages butler receives into a raw log.
+:about:
+  :mail: "apeiros@gmx.net"
+  :version: "1.0.0"
+  :author: "Stefan Rusterholz"
+:strings:
+  :on:
+    en: "on"
+  :off:
+    en: "off"
+  :activated:
+    en: |
+      Activated raw logging
+  :deactivated:
+    en: |
+      Deactivated raw logging
+:usage:
+  en: |
+    ![b]rawlog![o] ('on' | 'off')
+:help:
+  en:
+    "": |
+      Writes all messages butler receives into a raw log.

data/data/butler/plugins/games/eightball.rb

@@ -0,0 +1,54 @@
+#--
+# Copyright 2007 by Stefan Rusterholz.
+# All rights reserved.
+# See LICENSE.txt for permissions.
+#++
+
+
+
+trigger "8ball"
+
+Answers = [:yes, :no, :notgood, :signs_yes, :signs_no, :why_ask, :unclear]
+
+def on_trigger
+	return answer(usage) if @message.arguments.length < 2
+	answer = Answers[rand(Answers.length)]
+	@butler.irc.action(_(:shake), message.channel ? message.channel : message.from)
+	sleep(1.5)
+	answer(answer)
+end
+
+__END__
+--- 
+:revision:
+  :plugin: 1
+:summary:
+  en: Ask butler a question and get an answer from the magic eightball.
+:about:
+  :mail: "apeiros@gmx.net"
+  :version: "1.0.0"
+  :author: "Stefan Rusterholz"
+:strings:
+  :shake:
+    en: 'Shakes the magic 8-ball...'
+  :yes:
+    en: 'Yes.'
+  :no:
+    en: 'no.'
+  :notgood:
+    en: 'Outlook is not so good.'
+  :signs_yes:
+    en: 'All signs point to yes.'
+  :signs no:
+    en: 'All signs point to no.'
+  :why_ask:
+    en: 'Why the hell are you asking me?'
+  :unclear:
+    en: 'The answer is unclear.'
+:usage:
+  en: |
+    ![b]8ball![o] *![c(blue)]question![o]
+:help:
+  en:
+    "": |
+      Ask butler a question and get an answer from the magic eightball.

data/data/butler/plugins/games/mastermind.rb

@@ -0,0 +1,174 @@
+#--
+# Copyright 2007 by Stefan Rusterholz.
+# All rights reserved.
+# See LICENSE.txt for permissions.
+#++
+
+
+
+require 'abbrev'
+
+Stone   = "![c(%s),(%s)]<>![r]"
+None    = "![c(red),(red)]<>![r]"
+Wrong   = "![c(blue),(blue)]<>![r]"
+Correct = "![c(green),(green)]<>![r]"
+
+trigger(
+	"en" => "mastermind",
+	"de" => "mastermind"
+)
+
+def on_trigger
+	case message.arguments.first.downcase
+		when _(:colors)
+			message.answer(_(:colors))
+		when _(:rules)
+			message.answer(_(:rules))
+		when _(:stop)
+			game = MasterGame[message.from]
+			game.stop if game
+		when _(:start)
+			game = MasterGame.new
+			message.dialog(self, game) # timeout after 10min
+		else
+			message.answer(_(:illegal))
+	end
+end
+
+class MasterGame < Butler::Dialog
+	reminder 10.minutes, :reminder
+	timeout  15.minutes, :timeout
+	
+	def initialize(stones=5, difficulty=:easy)
+		@game = Mastermind.new(stones, difficulty)
+	end
+	
+	def dialog(responder, message, *data)
+		case message.arguments[1]
+			when _(:colors)
+				message.answer(_(:colors))
+			when _(:rules)
+				message.answer(_(:rules))
+			when _(:stop)
+				game = MasterGame[message.from]
+				game.stop if game
+			when _(:start)
+				game = MasterGame.new
+				message.dialog(game) # timeout after 10min
+			else
+				if stones = map_stones(*message.arguments) then
+					@game.try_stones(*stones)
+				else
+					message.answer(_(:illegal))
+				end
+		end
+	end
+	
+	def reminder(user)
+		_(:reminder)
+	end
+	
+	def timout(*a)
+		_(:timeout)
+	end
+end
+
+class Mastermind
+	attr_reader :stones
+	attr_reader :amount
+	attr_reader :turns
+	attr_reader :mode
+	
+	Colors = [:red, :green, :blue, :yellow, :orange, :pink, :black]
+
+	def initialize(amount, mode=:easy)
+		@stones = Array.new(amount) { Colors[rand(Colors.length)] }
+		@amount = amount
+		@mode   = mode
+		@turns  = 0
+	end
+	
+	def try_stones(*stones)
+		@turns += 1
+		return true if stones == @stones
+		
+		if @mode == :difficult then
+			correct, wrong, none = 0, 0, 0
+			@stones.zip(stones) { |a, b|
+				if a == b then
+					correct += 1
+				elsif @stones.include?(b) then
+					wrong += 1
+				else
+					none += 1
+				end
+			}
+			[:correct]*correct + [:wrong]*wrong + [:none]*none
+		else
+			feedback	= []
+			@stones.zip(stones) { |a, b|
+				if a == b then
+					feedback << :correct
+				elsif @stones.include?(b) then
+					feedback << :wrong
+				else
+					feedback << :none
+				end
+			}
+			feedback
+		end
+	end
+end
+
+__END__
+--- 
+:revision:
+  :plugin: 1
+:about:
+  :mail: "apeiros@gmx.net"
+  :version: "1.2.0"
+  :author: "Stefan Rusterholz"
+  :description:
+    en: "Mastermind - the game for brainsters"
+:strings:
+  :red:
+    en: red
+    de: rot
+  :green:
+    en: green
+    de: grün
+  :blue:
+    en: blue
+    de: blau
+  :yellow:
+    en: yellow
+    de: gelb
+  :orange:
+    en: orange
+    de: orange
+  :pink:
+    en: pink
+    de: pink
+  :black:
+    en: black
+    de: black
+  :rules:
+    en: |
+      The rules are simple: try to guess the color combination of the stones.
+      If you place a stone correct in color and location, it will display a white stone in that position.
+      If you place a stone whichs color appears on another location, it will display a black stone in that position.
+      The target is it, to get the combination in as little tries as possible.
+  :illegal:
+    de: |
+      Unbekannter Befehl. Benutzen Sie:
+      mm (regeln|farben|start|stop|<steine>)
+      Steine: ... (jede eindeutige Abkürzung funktioniert).
+  :reminder:
+    en: |
+      Sie haben noch ein laufendes Mastermind-Spiel.
+      Benutzen Sie 'mm stop' um das Spiel zu beenden.
+    de: |
+      Sie haben noch ein laufendes Mastermind-Spiel.
+      Benutzen Sie 'mm stop' um das Spiel zu beenden.
+  :stop:
+    de: "Spiel gestoppt, die richtige Lösung wäre gewesen: <%= stones %>"