diff --git a/.project b/.project
new file mode 100644
index 0000000..8431c7a
--- /dev/null
+++ b/.project
@@ -0,0 +1,11 @@
+
+
+ ircbotsample
+
+
+
+
+
+
+
+
diff --git a/Gemfile b/Gemfile
index 20c3bc4..58ed944 100644
--- a/Gemfile
+++ b/Gemfile
@@ -1,2 +1,3 @@
-source :rubygems
+source 'https://www.rubygems.org'
gem 'em-irc'
+gem 'mail'
diff --git a/Gemfile.lock b/Gemfile.lock
index f280172..15daf83 100644
--- a/Gemfile.lock
+++ b/Gemfile.lock
@@ -1,5 +1,5 @@
GEM
- remote: http://rubygems.org/
+ remote: https://www.rubygems.org/
specs:
activesupport (3.2.11)
i18n (~> 0.6)
@@ -9,10 +9,20 @@ GEM
eventmachine
eventmachine (1.0.0)
i18n (0.6.1)
+ mail (2.5.3)
+ i18n (>= 0.4.0)
+ mime-types (~> 1.16)
+ treetop (~> 1.4.8)
+ mime-types (1.21)
multi_json (1.5.0)
+ polyglot (0.3.3)
+ treetop (1.4.12)
+ polyglot
+ polyglot (>= 0.3.1)
PLATFORMS
ruby
DEPENDENCIES
em-irc
+ mail
diff --git a/chaos.rb b/chaos.rb
new file mode 100755
index 0000000..edfe98c
--- /dev/null
+++ b/chaos.rb
@@ -0,0 +1,252 @@
+#!/usr/bin/env ruby
+
+require 'em-irc'
+require 'logger'
+require 'pp'
+require './kalender.rb'
+require './email.rb'
+require './snowman.rb'
+
+$channel=ARGV[1]
+$channel2=ARGV[2]
+$nick=ARGV[0]
+$known=['thoto_','thhunder','thhunder_','elnino86zockt','theftf', 'abiana', 'solo', 'sansor', 'endres', 'asdf_', 'maniactwister', 'scirocco', 'sn0wdiver', 'nilsarne', 'mettfabrik','nora','underm|nk','godrin', 'godrin_', 'undermink', 'thoto', 'balle', 'bastard', 'isaaac','darkhawk']
+class Matcher # klasse zum vergleichen
+ def initialize(ar)
+ @ar=ar
+ end
+
+ def ===(other)
+ @ar.each{|word|
+ if other=~/#{word}/ # wenn die wörter übereinstimmen
+ puts "ok #{other} #{word}"
+ return true
+ end
+ }
+ false # wenn sie nicht übereinstimmen
+ end
+end
+
+$talking=true
+
+client = EventMachine::IRC::Client.new do
+ host 'irc.ctdo.de'
+ port '6697'
+ realname $nick
+ ssl true
+ def say(target,what,sayImmediately=false) # sprechen
+ log = File.new("log.txt","a")
+ now = Time.now.strftime("%d.%m. %H:%M:%S")
+ log.puts "[#{now}][powerbot@#{target}]: #{what}"
+ log.close
+ if sayImmediately # sprechen auch wenn er still sein soll
+ message(target,what)
+ else
+ EM.add_timer(2) do # 2 sekunden warten bevor er antwortet
+ message(target,what) if $talking # und nur wenn talking = true ist
+ end
+ end
+ end
+
+ on(:connect) do
+ nick($nick)
+ end
+
+ on(:nick) do # die beiden channels betreten wenn der nick vom server akzeptiert wird
+ join($channel)
+ join($channel2)
+ join("#devtal")
+ puts "on nick"
+ # join('#private', 'key')
+ end
+
+ on(:join) do |who,channel,names| # called after joining a channel
+ puts "on join"
+ pp who,channel,names
+ if channel=="#snow"
+ snow=snowman
+ 0.upto(snow.length) { |i|
+ message(channel, snow[i])
+ }
+ end
+ if who == $nick # nur die topic setzen wenn ER den raum betritt
+ topic(channel, "owned by a bot:)")
+ end
+ say_hi=['huhu ', 'ui... ', '*wink* ', 'hallo ','hey ','hi ', 'et gute alte ','ah... hi ','willkommen ', 'na... ', 'guten morgen ', 'nabend ', 'ach... et ', 'tag '].sample
+ if $known.member?(who.downcase) then # wenn er dich kennt
+ send_data("mode "+ channel + " +o "+ who)
+ say(channel, say_hi+who)
+ else
+ say(channel,"hi(:") # wenn nicht:)
+ end
+ #case who
+ #when / #{$known}/i
+ # say("hi "+ who)
+ #end
+ #EM.add_timer(20,proc {
+ # say Time.now.to_s
+ #})
+ end
+
+ on(:message) do |source, target, message| # called when being messaged
+ #log = File.new("log.txt","a")
+ now = Time.now.strftime("%d.%m.20%y %H:%M:%S")
+ puts "message: [#{now}] <#{source}> -> <#{target}>: #{message}"
+ #log.puts "[#{now}][#{source}@#{target}]: #{message}"
+ #log.close
+ zeit=['uhrzeit', 'wie spaet', 'wieviel uhr']
+ warum=['warum','wieso','weshalb']
+ nacht=['gute nacht','gn8','gute n8']
+ hi=['hi','hallo','tag','tach','moin','guten morgen']
+ say_ok=['na gut...','ok','hmm... soll ich?', source + ' echt jetzt?','ok ' + source, 'nein', 'mach doch selber ' + source,'kein bock...','warum sollte ich ' + source + '?','dafuer gibt es keinen anlass ' + source,'jaja...ok','wenn du meinst ' + source].sample
+ say_why=['nun ja...', 'tja '+ source + ' ...', 'warum nicht?', source + ' warum nicht?', 'einfach so ' + source, 'das wuerdest du wohl gerne wissen, ' + source, 'warum auch nicht ' + source + '?', 'gute frage ', 'das kann ich leider nicht beantworten ' + source,'nein','ach quatsch...','ich glaub dir kein wort', 'jetzt uebertreibst du aber...','*hust*','noe...'].sample
+ say_nick= ['hmm?','ja?','was?', source +'... was?', 'ja bitte '+ source + '?', 'huch...', 'oehm...', 'inwiefern ' + source + '?','*hust*','*zuck*','hae?','...',':)','oeh...','*zitter*','*zusammenzuck*'].sample
+ say_ruby= ['ruby ist toll:)','ich bin auch in ruby geschrieben...','ich mag objekte:)','ruby? find ich gut:)', 'OOP FTW', 'hab ich da ruby gehoert, ' + source + '?', 'ruby ist doch super:)'].sample
+ say_sup=['gut '+ source + ' danke:)', 'super:)', 'sehr gut... danke ' + source, 'bestens:) danke... dir denn auch ' + source + '?', 'wunderbar ' + source + '. danke der nachfrage:)', 'blendend ' + source + '... danke:)', 'hervorragend:)', 'fantastisch ' + source].sample
+ say_nacht=['gute nacht ' + source,'nacht ' + source,'schlaf gut ' + source,'tschuss ' + source,'tschoe ' + source,source + ' bis dann...','auf bald ' + source, 'moege die macht mit dir sein ' + source, 'auf wiedersehen ' + source].sample
+ say_hi=['hehe...', 'hi ' + source, source + '...', 'hallo ' + source, 'und...? alles fit ' + source, 'tach ' + source, 'einen wunderschoenen guten morgen ' + source, 'fisch *kicher*', 'moin ' + source].sample
+ say_clever=['Die Schwaermerei fuer die Natur kommt von der Unbewohnbarkeit der Staedte.',
+ 'Der Faschismus sollte Korporatismus heissen, weil er die perfekte Verschmelzung der Macht von Regierung und Konzernen ist.',
+ 'Wenn die Leute das gegenwaertige Bank- und Geldsystem verstuenden, wuerde es vermutlich eine Revolution noch vor morgen frueh geben.',
+ 'Das Geld ist fuer den Tausch entstanden, der Zins aber weist ihm die Bestimmung an, sich durch sich selbst zu vermehren. Daher widerstreitet auch diese Erwerbsweise unter allen am weitesten dem Naturrecht.',
+ 'Keiner weiss so viel wie wir alle zusammen.',
+ 'Together the ants conquer the elephant.',
+ 'Wo die Zivilcourage keine Heimat hat, reicht die Freiheit nicht weit.',
+ 'Ich habe bisweilen den Eindruck, dass sich die meisten Politiker immer noch nicht darueber im Klaren sind, wie sehr sie bereits heute unter der Kontrolle der Finanzmaerkte stehen und sogar von diesen beherrscht werden.',
+ 'Gebt mir die Kontrolle ueber das Geldsystem und mir ist es egal, wer die Gesetze schreibt.',
+ 'Aus 100 Dollar 110 Dollar zu machen ist Arbeit. Aus 100 Millionen Dollar 110 Millionen zu machen, ist unvermeidlich.',
+ 'Die Schaffung eines Geldes, das sich nicht horten laesst, wuerde zur Bildung von Eigentum in wesentlicherer Form fuehren.',
+ 'Demokratie ist nichts anderes als das Niederknueppeln des Volkes durch das Volk fuer das Volk...','*hust*','*schwitz*','...ich muss weg','nein',
+ 'Der Unternehmer ist ein Arbeiter, der im Unternehmergewinn seinen Arbeitslohn verdient, der ihm vom Gewinn bleibt, nachdem ihm die Banken den Zins abgenommen haben ... Insofern bildet der Unternehmergewinn keinen Gegensatz zur Lohnarbeit, sondern nur zum Zins.',
+ 'Eine wirklich gute Idee erkennt man daran, dass ihre Verwirklichung von vornherein ausgeschlossen erschien.',
+ 'Niemand ist so hoffnungslos versklavt, wie diejenigen, die faelschlicherweise glauben frei zu sein.',
+ 'Freedom ist the right to tell the people what they do not want to hear...',
+ 'Ein Volk, das seine Freiheit fuer Sicherheit opfert, wird am Ende beides verlieren.',
+ 'Wer Sicherheit der Freiheit vorzieht, ist zu Recht ein Sklave.',
+ 'Es ist wichtiger, eine Stunde im Monat ueber Geld nachzudenken, als 30 Tage dafuer zu arbeiten.',
+ 'Verschuettet unter einem Berg von Gesetzen und Verboten, festgezurrt in unsichtbaren wirtschaftlichen Abhaengigkeiten, in einem Arbeitsleben, das in weiten Teilen der Welt das eines Arbeitstiers ist, fast erstickend in einem Sumpf von billigem Tand und Lastern, so lebt heute ein Grossteil Mensch dieser Erde.',
+ 'Es gibt keinen Weg, den finalen Kollaps eines Booms durch Kreditexpansion zu vermeiden. Die Frage ist nur ob die Krise frueher durch freiwillige Aufgabe der Kreditexpansion kommen soll, oder spaeter zusammen mit einer finalen und totalen Katastrophe des Waehrungssystems kommen soll...',
+ 'Die Welt hat genug fuer jedermanns Beduerfnisse, aber nicht fuer jedermanns Gier.',
+ 'Wer in der Demokratie die Wahrheit sagt, wird von der Masse getoetet.',
+ 'In der Politik geht es nicht darum, Recht zu haben, sondern Recht zu behalten.',
+ 'In der Politik ist es wie in der Mathematik: alles, was nicht ganz richtig ist, ist falsch.',
+ 'Ich bin nicht sicher, mit welchen Waffen der dritte Weltkrieg ausgetragen wird, aber im vierten Weltkrieg werden sie mit Stoecken und Steinen kaempfen.',
+ 'Moderne Kapitalisten sind freundliche Ausbeuter, moderne Sozialisten unfreundliche Austeiler.',
+ 'Der Mensch, der gar nichts liest, ist besser informiert als derjenige, der nur Zeitung liest.',
+ 'Um sicher Recht zu tun, braucht man sehr wenig vom Recht zu wissen. Allein um sicher Unrecht zu tun, muss man die Rechte studiert haben.',
+ 'Wo der Buerger keine Stimme hat, haben die Waende Ohren.',
+ 'Ich stehe Statistiken etwas skeptisch gegenueber. Denn laut Statistik haben ein Millionaer und ein armer Kerl jeder eine halbe Million.'].sample
+ say_noprob=['kein thema '+source,'gerne '+source,'bitte '+source,'kein problem '+source,'null problemo...','ist doch selbstverstaendlich:)','nichts zu danken '+source,'selbstverstaendlich '+source].sample
+
+ def ma(ar) # funktion zum vergleichen von wörtern mit der klasse von oben
+ Matcher.new(ar)
+ end
+ @message = message.downcase
+
+ #pp @message + ' # downcased'
+# if source.downcase== 'bastard'
+# return
+# end
+
+ if target == $nick then
+ target = source
+ end
+ case @message
+
+ when /#{$nick}/i # nur antworten wenn der nick fällt
+ case @message
+ when /.*bitte.*([1-9][0-9]*).*(minute|sekunde|stunde).*ruhig/i
+ say(source,"is ja schon gut...",true)
+ $talking=false
+ pp $1 +' '+$2+' schlafen...zzzzzZZZZZZ'
+ time=$1.to_i*({"minute"=>60,"sekunde"=>1,"stunde"=>3600}[$2])
+ say(source,"dann schlafe ich jetzt #{time} sekunden",true)
+ EM.add_timer(time) do
+ $talking=true
+ end
+ when /sag.*(marc|nora|simon|david|maniactwister|thoto|balle).*bescheid/i
+ if $known.member?(source.downcase)
+ who = $1
+ mail = @message.gsub(/(.+)\{\{([^\}]+)\}\}.*/,'\2')
+ tellsomebody(source,target,who,mail)
+ say(target,'schon passiert:)')
+ else
+ say(target,'hmm...nein:)')
+ end
+ when /wie.*deine.*email/i
+ say(target, 'powerbot@sunnata.de warum fragst du '+source+'?')
+ when /wie sp\xC3\xA4t/i
+ say(target,"wir haben " + Time.now.to_s[11,5] + "uhr und " + Time.now.to_s[17,2] + " sekunden, " + source)
+ when ma(zeit)
+ say(target,"wir haben " + Time.now.to_s[11,5] + "uhr und " + Time.now.to_s[17,2] + " sekunden, " + source)
+ when /datum/i
+ datum=kal
+ 0.upto(datum.length) { |i|
+ say(target, datum[i])
+ }
+ #say(target, Time.now.strftime("%A, %B the %d. 20%y"))
+ when /tag.*heute/i
+ say(target, Time.now.strftime("%A..."))
+ when /sag.*was.*schlaues/i
+ say(target,say_clever)
+ when ma(warum)
+ say(target,say_why)
+ when /wie geht/i && /dir/i
+ say(target,say_sup)
+ when /wie geht\'s/
+ say(target,say_sup)
+ when ma(nacht)
+ if $known.member?(source) then
+ say(target,say_nacht)
+ else
+ say(target,'nacht...')
+ end
+ when ma(hi)
+ say(target,say_hi)
+ when /danke/i
+ say(target,say_noprob)
+ when /mach.*(mal|schon)/i
+ say(target,say_ok)
+ else
+ say(target,say_nick)
+ end # ende der antworten wenn der nick fällt
+ when /ruby/i # antworten auch ohne den nick
+ say(target,say_ruby)
+# when /chaostal/i
+# say(target,"www.chaostal.de")
+ when /wo bin ich/i
+ say(target,"hier: "+target+', '+source)
+ when /wer bin ich/i
+ say(target, "Du bist " + source)
+ when /leck mich/i
+ say(target,source + "... benimm Dich!")
+ when /\*ruelps\*/i
+ say(target, "schulz...")
+ when /hoerst du das auch/i
+ say(target, "ich hoer nichts " + source)
+ when /ich glaub dein gen ist defekt/i
+ say(target, "ich hab keine gene " + source)
+ when /schnauze/i
+ say(target,"nanana "+source)
+ when ma(nacht)
+ if $known.member?(source) then
+ say(target,say_nacht)
+ $talking = false
+ EM.add_timer(60) do $talking = true
+ end
+ else
+ say(target,'nacht...')
+ $talking = false
+ EM.add_timer(60) do $talking = true
+ end
+ end
+ end # ende der antworten ohne nick
+ end
+ # callback for all messages sent from IRC server
+ on(:parsed) do |hash|
+ puts "parsed: #{hash[:prefix]} #{hash[:command]} #{hash[:params].join(' ')}"
+ end
+
+end
+
+client.run! # start EventMachine loop
diff --git a/devtal.rb b/devtal.rb
new file mode 100755
index 0000000..541e3e6
--- /dev/null
+++ b/devtal.rb
@@ -0,0 +1,241 @@
+#!/usr/bin/env ruby
+
+require 'em-irc'
+require 'logger'
+require 'pp'
+require './kalender.rb'
+require './email.rb'
+require './snowman.rb'
+
+$channel=ARGV[1]
+$channel2=ARGV[2]
+$nick=ARGV[0]
+$known=['thoto_', 'solo', 'endres', 'asdf_', 'maniactwister', 'scirocco', 'sn0wdiver', 'nilsarne', 'asdf_','sirgoofy','underm|nk','godrin', 'godrin_', 'undermink', 'thoto', 'balle', 'culain', 'frieda', 'exmatrikulator']
+class Matcher # klasse zum vergleichen
+ def initialize(ar)
+ @ar=ar
+ end
+
+ def ===(other)
+ @ar.each{|word|
+ if other=~/#{word}/ # wenn die wörter übereinstimmen
+ puts "ok #{other} #{word}"
+ return true
+ end
+ }
+ false # wenn sie nicht übereinstimmen
+ end
+end
+
+$talking=true
+
+client = EventMachine::IRC::Client.new do
+ host 'irc.freenode.net'
+ port '7000'
+ realname $nick
+ ssl true
+ def say(target,what,sayImmediately=false) # sprechen
+ #log = File.new("log.txt","a")
+ #now = Time.now.strftime("%d.%m. %H:%M:%S")
+ #log.puts "[#{now}][bot@#{target}]: #{what}"
+ #log.close
+ if sayImmediately # sprechen auch wenn er still sein soll
+ message(target,what)
+ else
+ EM.add_timer(2) do # 2 sekunden warten bevor er antwortet
+ message(target,what) if $talking # und nur wenn talking = true ist
+ end
+ end
+ end
+
+ on(:connect) do
+ nick($nick)
+ end
+
+ on(:nick) do # die beiden channels betreten wenn der nick vom server akzeptiert wird
+ join($channel)
+ join($channel2)
+ join('#devtal')
+ puts "on nick"
+ # join('#private', 'key')
+ end
+
+ on(:join) do |who,channel,names| # called after joining a channel
+ puts "on join"
+ pp who,channel,names
+ if channel=="#snow"
+ snow=snowman
+ 0.upto(snow.length) { |i|
+ message(channel, snow[i])
+ }
+ end
+ if who == $nick # nur die topic setzen wenn ER den raum betritt
+ topic(channel, "humans suck...")
+ end
+ say_hi=['hallo ','hey ','hi ', 'et gute alte ','ah... hi ','willkommen ', 'na... ', 'guten morgen ', 'nabend ', 'ach... et ', 'tag '].sample
+ if $known.member?(who.downcase) then # wenn er dich kennt
+ send_data("mode "+ channel + " +o "+ who)
+ say(channel, say_hi+who)
+ else
+ say(channel,"muahahaha...") # wenn nicht:)
+ end
+ #case who
+ #when / #{$known}/i
+ # say("hi "+ who)
+ #end
+ #EM.add_timer(20,proc {
+ # say Time.now.to_s
+ #})
+ end
+
+ on(:message) do |source, target, message| # called when being messaged
+ puts "message: <#{source}> -> <#{target}>: #{message}"
+ #log = File.new("log.txt","a")
+ now = Time.now.strftime("%d.%m.20%y %H:%M:%S")
+ #log.puts "[#{now}][#{source}@#{target}]: #{message}"
+ #log.close
+ zeit=['uhrzeit', 'wie spaet', 'wieviel uhr']
+ warum=['warum','wieso','weshalb']
+ nacht=['gute nacht','gn8','gute n8']
+ hi=['hi ','hallo','tag','tach','moin','guten morgen']
+ say_ok=['na gut...','ok','hmm... soll ich?', source + ' echt jetzt?','ok ' + source, 'nein', 'mach doch selber ' + source,'kein bock...','warum sollte ich ' + source + '?','dafuer gibt es keinen anlass ' + source,'jaja...ok','wenn du meinst ' + source].sample
+ say_why=['nun ja...', 'tja '+ source + ' ...', 'warum nicht?', source + ' warum nicht?', 'einfach so ' + source, 'das wuerdest du wohl gerne wissen, ' + source, 'warum auch nicht ' + source + '?', 'gute frage ', 'das kann ich leider nicht beantworten ' + source,'nein','ach quatsch...','ich glaub dir kein wort', 'jetzt uebertreibst du aber...','*hust*','noe...'].sample
+ say_nick= ['hmm?','ja?','was?', source +'... was?', 'ja bitte '+ source + '?', 'huch...', 'oehm...', 'inwiefern ' + source + '?','*hust*','*zuck*','hae?','...',':)','oeh...','*zitter*','*zusammenzuck*'].sample
+ say_ruby= ['ruby ist toll:)','ich bin auch in ruby geschrieben...','ich mag objekte:)','ruby? find ich gut:)', 'OOP FTW', 'hab ich da ruby gehoert, ' + source + '?', 'ruby ist doch super:)'].sample
+ say_sup=['gut '+ source + ' danke:)', 'super:)', 'sehr gut... danke ' + source, 'bestens:) danke... dir denn auch ' + source + '?', 'wunderbar ' + source + '. danke der nachfrage:)', 'blendend ' + source + '... danke:)', 'hervorragend:)', 'fantastisch ' + source].sample
+ say_nacht=['gute nacht ' + source,'nacht ' + source,'schlaf gut ' + source,'tschuss ' + source,'tschoe ' + source,source + ' bis dann...','auf bald ' + source, 'moege die macht mit dir sein ' + source, 'auf wiedersehen ' + source].sample
+ say_hi=['hehe...', 'hi ' + source, source + '...', 'hallo ' + source, 'und...? alles fit ' + source, 'tach ' + source, 'einen wunderschoenen guten morgen ' + source, 'fisch *kicher*', 'moin ' + source].sample
+ say_clever=['Die Schwaermerei fuer die Natur kommt von der Unbewohnbarkeit der Staedte.',
+ 'Der Faschismus sollte Korporatismus heissen, weil er die perfekte Verschmelzung der Macht von Regierung und Konzernen ist.',
+ 'Wenn die Leute das gegenwaertige Bank- und Geldsystem verstuenden, wuerde es vermutlich eine Revolution noch vor morgen frueh geben.',
+ 'Das Geld ist fuer den Tausch entstanden, der Zins aber weist ihm die Bestimmung an, sich durch sich selbst zu vermehren. Daher widerstreitet auch diese Erwerbsweise unter allen am weitesten dem Naturrecht.',
+ 'Keiner weiss so viel wie wir alle zusammen.',
+ 'Together the ants conquer the elephant.',
+ 'Wo die Zivilcourage keine Heimat hat, reicht die Freiheit nicht weit.',
+ 'Ich habe bisweilen den Eindruck, dass sich die meisten Politiker immer noch nicht darueber im Klaren sind, wie sehr sie bereits heute unter der Kontrolle der Finanzmaerkte stehen und sogar von diesen beherrscht werden.',
+ 'Gebt mir die Kontrolle ueber das Geldsystem und mir ist es egal, wer die Gesetze schreibt.',
+ 'Aus 100 Dollar 110 Dollar zu machen ist Arbeit. Aus 100 Millionen Dollar 110 Millionen zu machen, ist unvermeidlich.',
+ 'Die Schaffung eines Geldes, das sich nicht horten laesst, wuerde zur Bildung von Eigentum in wesentlicherer Form fuehren.',
+ 'Demokratie ist nichts anderes als das Niederknueppeln des Volkes durch das Volk fuer das Volk...','*hust*','*schwitz*','...ich muss weg','nein',
+ 'Der Unternehmer ist ein Arbeiter, der im Unternehmergewinn seinen Arbeitslohn verdient, der ihm vom Gewinn bleibt, nachdem ihm die Banken den Zins abgenommen haben ... Insofern bildet der Unternehmergewinn keinen Gegensatz zur Lohnarbeit, sondern nur zum Zins.',
+ 'Eine wirklich gute Idee erkennt man daran, dass ihre Verwirklichung von vornherein ausgeschlossen erschien.',
+ 'Niemand ist so hoffnungslos versklavt, wie diejenigen, die faelschlicherweise glauben frei zu sein.',
+ 'Freedom ist the right to tell the people what they do not want to hear...',
+ 'Ein Volk, das seine Freiheit fuer Sicherheit opfert, wird am Ende beides verlieren.',
+ 'Wer Sicherheit der Freiheit vorzieht, ist zu Recht ein Sklave.',
+ 'Es ist wichtiger, eine Stunde im Monat ueber Geld nachzudenken, als 30 Tage dafuer zu arbeiten.',
+ 'Verschuettet unter einem Berg von Gesetzen und Verboten, festgezurrt in unsichtbaren wirtschaftlichen Abhaengigkeiten, in einem Arbeitsleben, das in weiten Teilen der Welt das eines Arbeitstiers ist, fast erstickend in einem Sumpf von billigem Tand und Lastern, so lebt heute ein Grossteil Mensch dieser Erde.',
+ 'Es gibt keinen Weg, den finalen Kollaps eines Booms durch Kreditexpansion zu vermeiden. Die Frage ist nur ob die Krise frueher durch freiwillige Aufgabe der Kreditexpansion kommen soll, oder spaeter zusammen mit einer finalen und totalen Katastrophe des Waehrungssystems kommen soll...',
+ 'Die Welt hat genug fuer jedermanns Beduerfnisse, aber nicht fuer jedermanns Gier.',
+ 'Wer in der Demokratie die Wahrheit sagt, wird von der Masse getoetet.',
+ 'In der Politik geht es nicht darum, Recht zu haben, sondern Recht zu behalten.',
+ 'In der Politik ist es wie in der Mathematik: alles, was nicht ganz richtig ist, ist falsch.',
+ 'Ich bin nicht sicher, mit welchen Waffen der dritte Weltkrieg ausgetragen wird, aber im vierten Weltkrieg werden sie mit Stoecken und Steinen kaempfen.',
+ 'Moderne Kapitalisten sind freundliche Ausbeuter, moderne Sozialisten unfreundliche Austeiler.',
+ 'Der Mensch, der gar nichts liest, ist besser informiert als derjenige, der nur Zeitung liest.',
+ 'Um sicher Recht zu tun, braucht man sehr wenig vom Recht zu wissen. Allein um sicher Unrecht zu tun, muss man die Rechte studiert haben.',
+ 'Wo der Buerger keine Stimme hat, haben die Waende Ohren.',
+ 'Ich stehe Statistiken etwas skeptisch gegenueber. Denn laut Statistik haben ein Millionaer und ein armer Kerl jeder eine halbe Million.'].sample
+ say_noprob=['kein thema '+source,'gerne '+source,'bitte '+source,'kein problem '+source,'null problemo...','ist doch selbstverstaendlich:)','nichts zu danken '+source,'selbstverstaendlich '+source].sample
+
+ def ma(ar) # funktion zum vergleichen von wörtern mit der klasse von oben
+ Matcher.new(ar)
+ end
+ @message = message.downcase
+ #pp @message + ' # downcased'
+ if target == $nick then
+ target = source
+ end
+ case @message
+
+ when /#{$nick}/i # nur antworten wenn der nick fällt
+ case @message
+ when /.*bitte.*([1-9][0-9]*).*(minute|sekunde|stunde).*ruhig/i
+ say(source,"is ja schon gut...",true)
+ $talking=false
+ pp $1 +' '+$2+' schlafen...zzzzzZZZZZZ'
+ time=$1.to_i*({"minute"=>60,"sekunde"=>1,"stunde"=>3600}[$2])
+ say(source,"dann schlafe ich jetzt #{time} sekunden",true)
+ EM.add_timer(time) do
+ $talking=true
+ end
+ when /sag.*(marc|nora|simon|david).*bescheid/i
+ if $known.member?(source.downcase)
+ who = $1
+ mail = @message.gsub(/\{\{([^\}]+)\}\}.*/,'\1')
+ tellsomebody(source,target,who,mail)
+ say(target,'schon passiert:)')
+ else
+ say(target,'hmm...nein:)')
+ end
+ when /wie.*deine.*email/i
+ say(target, 'powerbot@sunnata.de warum fragst du '+source+'?')
+ when /wie sp\xC3\xA4t/i
+ say(target,"wir haben " + Time.now.to_s[11,5] + "uhr und " + Time.now.to_s[17,2] + " sekunden, " + source)
+ when ma(zeit)
+ say(target,"wir haben " + Time.now.to_s[11,5] + "uhr und " + Time.now.to_s[17,2] + " sekunden, " + source)
+ when /datum/i
+ datum=kal
+ 0.upto(datum.length) { |i|
+ say(target, datum[i])
+ }
+ #say(target, Time.now.strftime("%A, %B the %d. 20%y"))
+ when /tag.*heute/i
+ say(target, Time.now.strftime("%A..."))
+ when /sag.*was.*schlaues/i
+ say(target,say_clever)
+ when ma(warum)
+ say(target,say_why)
+ when /wie geht/i && /dir/i
+ say(target,say_sup)
+ when /wie geht\'s/
+ say(target,say_sup)
+ when ma(nacht)
+ if $known.member?(source) then
+ say(target,say_nacht)
+ else
+ say(target,'nacht...')
+ end
+ when ma(hi)
+ say(target,say_hi)
+ when /danke/i
+ say(target,say_noprob)
+ when /mach.*(mal|schon)/i
+ say(target,say_ok)
+ else
+ say(target,say_nick)
+ end # ende der antworten wenn der nick fällt
+ when /ruby/i # antworten auch ohne den nick
+ say(target,say_ruby)
+ when /chaostal/i
+ say(target,"www.chaostal.de")
+ when /wo bin ich/i
+ say(target,"hier: "+target+', '+source)
+ when /wer bin ich/i
+ say(target, "Du bist " + source)
+ when /leck mich/i
+ say(target,source + "... benimm Dich!")
+ when /\*ruelps\*/i
+ say(target, "schulz...")
+ when /hoerst du das auch/i
+ say(target, "ich hoer nichts " + source)
+ when /ich glaub dein gen ist defekt/i
+ say(target, "ich hab keine gene " + source)
+ when /guten morgen/i
+ say(target,"guten morgen "+source)
+ when ma(nacht)
+ if $known.member?(source) then
+ say(target,say_nacht)
+ else
+ say(target,'nacht...')
+ end
+ end # ende der antworten ohne nick
+ end
+ # callback for all messages sent from IRC server
+ on(:parsed) do |hash|
+ puts "parsed: #{hash[:prefix]} #{hash[:command]} #{hash[:params].join(' ')}"
+ end
+
+end
+
+client.run! # start EventMachine loop
diff --git a/email.rb b/email.rb
new file mode 100644
index 0000000..46ea354
--- /dev/null
+++ b/email.rb
@@ -0,0 +1,45 @@
+#!/usr/bin/env ruby
+require 'mail'
+
+def tellsomebody(fromwho,where,nick,mail)
+ pp 'sending message to '+nick
+ mail = Mail.new do
+ from 'powerbot@sunnata.de'
+ case nick
+ when /nora/i
+ to 'nora@sunnata.de'
+ when /david/i
+ to 'david.kamphausen76@googlemail.com'
+ when /simon/i
+ to 'mettfabrik@sunnata.de'
+ when /marc/i
+ to 'undermink@chaostal.de'
+ when /maniactwister/i
+ to 'maniactwister@chaostal.de'
+ when /balle/i
+ to 'balle@chaostal.de'
+ when /thoto/i
+ to 'thoto@devtal.de'
+ end
+ subject 'IRC'
+ if mail.length > 1
+ body "Hi "+nick+"
+
+ Hier ist powerbot...
+ Ich sollt Dir von "+fromwho+" ausrichten:
+ #{mail}
+ Den hab ich in "+where+" getroffen:)"
+ puts body
+ else
+ body 'Hi '+nick+'
+
+Hier ist powerbot...
+Du sollst bitte mal ins irc kommen.
+In den Raum '+where+'
+Soll ich Dir von '+fromwho+' sagen.'
+ end
+ end
+ mail.delivery_method :sendmail
+ mail.deliver
+ pp '...done'
+end
diff --git a/kalender.rb b/kalender.rb
new file mode 100644
index 0000000..2887b94
--- /dev/null
+++ b/kalender.rb
@@ -0,0 +1,64 @@
+#!/usr/bin/env ruby
+require 'time'
+
+def kal
+# Datum ermitteln
+jetzt = Time.new
+d = jetzt.day
+m = jetzt.month
+y = jetzt.year
+
+# Laengen aller Monate
+monate = [31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31]
+# Schaltjahr?
+if ((y % 4 == 0) && (y % 100 != 0)) || (y % 400 == 0)
+monate[1] = 29
+end
+
+# Laenge des aktuellen Monats
+mlaenge = monate[m - 1]
+
+# Wochentag des Monatsersten
+erster = Time.parse("#{y}/#{m}/01")
+wt = erster.wday
+# Sonntag => 7 (europ. Woche)
+wt = 7 if wt == 0
+puts
+answer = "--------#{jetzt.strftime("%B")}--------\n"
+puts
+puts " MO DI MI DO FR SA SO"
+answer += " MO DI MI DO FR SA SO\n"
+# Leerzeichen von Montag bis Wochentag des Ersten
+leer = (wt - 1) * 4
+print " " * leer
+answer += " " * leer
+1.upto(mlaenge) { |tag|
+# Wochenwechsel?
+ if wt > 7
+ wt = 1
+ print "\n"
+ answer += "\n"
+ end
+ # Aktueller Tag?
+ if tag == d
+ printf "[%2d]", tag
+ if tag.to_s.length < 2
+ t = '[ '+tag.to_s+']'
+ else
+ t='['+tag.to_s+']'
+ end
+ answer += t
+ else
+ printf "%3d ", tag
+ if tag.to_s.length < 2
+ t= ' '+tag.to_s
+ else
+ t = tag.to_s
+ end
+ answer += ' '+t+' '
+ end
+ wt += 1
+}
+puts
+return answer.split("\n")
+end
diff --git a/snowman.rb b/snowman.rb
new file mode 100644
index 0000000..c00e5b9
--- /dev/null
+++ b/snowman.rb
@@ -0,0 +1,16 @@
+#!/usr/bin/env ruby
+
+def snowman
+ man="\n
+, ______ , ,\n
+ , | | ,\n
+ _|____|_ , ,,\n
+ , ( o o)| | | ,\n
+ ( | )\\|/ ,\n
+ , ( . )|) ,\n
+ ( . )| ,\n
+ ___(_______)|______\n
+\n"
+puts man
+return man.split("\n")
+end
diff --git a/test.rb b/test.rb
index 4303ea8..e5d45ae 100755
--- a/test.rb
+++ b/test.rb
@@ -1,53 +1,253 @@
#!/usr/bin/env ruby
-#
+
require 'em-irc'
require 'logger'
require 'pp'
+require 'net/http'
+require './kalender.rb'
+require './email.rb'
+require './snowman.rb'
-$channel="#devtaltest"
+$channel=ARGV[1]
+$channel2=ARGV[2]
+$nick=ARGV[0]
+$known=['thoto_', 'solo', 'endres', 'asdf_', 'maniactwister', 'scirocco', 'sn0wdiver', 'nilsarne', 'mettfabrik','nora','underm|nk','godrin', 'godrin_', 'undermink', 'thoto', 'balle', 'bastard', 'isaaac','darkhawk']
+class Matcher # klasse zum vergleichen
+ def initialize(ar)
+ @ar=ar
+ end
-client = EventMachine::IRC::Client.new do
- host 'irc.freenode.net'
- port '6667'
+ def ===(other)
+ @ar.each{|word|
+ if other=~/#{word}/ # wenn die wörter übereinstimmen
+ puts "ok #{other} #{word}"
+ return true
+ end
+ }
+ false # wenn sie nicht übereinstimmen
+ end
+end
+$talking=true
- def say(what)
- message($channel,what)
+client = EventMachine::IRC::Client.new do
+ host 'irc.chaostal.de'
+ port '6697'
+ realname $nick
+ ssl true
+ def say(target,what,sayImmediately=false) # sprechen
+ log = File.new("log.txt","a")
+ now = Time.now.strftime("%d.%m. %H:%M:%S")
+ log.puts "[#{now}][powerbot@#{target}]: #{what}"
+ log.close
+ if sayImmediately # sprechen auch wenn er still sein soll
+ message(target,what)
+ else
+ EM.add_timer(2) do # 2 sekunden warten bevor er antwortet
+ message(target,what) if $talking # und nur wenn talking = true ist
+ end
+ end
end
on(:connect) do
- nick('jch')
+ nick($nick)
end
- on(:nick) do
+ on(:nick) do # die beiden channels betreten wenn der nick vom server akzeptiert wird
join($channel)
+ join($channel2)
+ join("#devtal")
puts "on nick"
- # join('#private', 'key')
+ # join('#private', 'key')
end
on(:join) do |who,channel,names| # called after joining a channel
puts "on join"
pp who,channel,names
- message(channel, "howdy all")
- # send_data("hi again test")
- #
- EM.add_timer(20,proc {
- say Time.now.to_s
- })
+ if channel=="#snow"
+ snow=snowman
+ 0.upto(snow.length) { |i|
+ message(channel, snow[i])
+ }
+ end
+ if who == $nick # nur die topic setzen wenn ER den raum betritt
+ topic(channel, "owned by a bot:)")
+ end
+ say_hi=['hallo ','hey ','hi ', 'et gute alte ','ah... hi ','willkommen ', 'na... ', 'guten morgen ', 'nabend ', 'ach... et ', 'tag '].sample
+ if $known.member?(who.downcase) then # wenn er dich kennt
+ send_data("mode "+ channel + " +o "+ who)
+ say(channel, say_hi+who)
+ else
+ say(channel,"hi") # wenn nicht:)
+ end
+ #case who
+ #when / #{$known}/i
+ # say("hi "+ who)
+ #end
+ #EM.add_timer(20,proc {
+ # say Time.now.to_s
+ #})
end
on(:message) do |source, target, message| # called when being messaged
puts "message: <#{source}> -> <#{target}>: #{message}"
- case message
- when /jch/i
- say("Was geht ?")
- when /wetter/i
- say("Das Wetter nervt echt !")
- when /heute/i
- say("Man was ist hier heute los ???")
+ #log = File.new("log.txt","a")
+ now = Time.now.strftime("%d.%m.20%y %H:%M:%S")
+ #log.puts "[#{now}][#{source}@#{target}]: #{message}"
+ #log.close
+ zeit=['uhrzeit', 'wie spaet', 'wieviel uhr']
+ warum=['warum','wieso','weshalb']
+ nacht=['gute nacht','gn8','gute n8']
+ hi=['hi','hallo','tag','tach','moin','guten morgen']
+ say_ok=['na gut...','ok','hmm... soll ich?', source + ' echt jetzt?','ok ' + source, 'nein', 'mach doch selber ' + source,'kein bock...','warum sollte ich ' + source + '?','dafuer gibt es keinen anlass ' + source,'jaja...ok','wenn du meinst ' + source].sample
+ say_why=['nun ja...', 'tja '+ source + ' ...', 'warum nicht?', source + ' warum nicht?', 'einfach so ' + source, 'das wuerdest du wohl gerne wissen, ' + source, 'warum auch nicht ' + source + '?', 'gute frage ', 'das kann ich leider nicht beantworten ' + source,'nein','ach quatsch...','ich glaub dir kein wort', 'jetzt uebertreibst du aber...','*hust*','noe...'].sample
+ say_nick= ['hmm?','ja?','was?', source +'... was?', 'ja bitte '+ source + '?', 'huch...', 'oehm...', 'inwiefern ' + source + '?','*hust*','*zuck*','hae?','...',':)','oeh...','*zitter*','*zusammenzuck*'].sample
+ say_ruby= ['ruby ist toll:)','ich bin auch in ruby geschrieben...','ich mag objekte:)','ruby? find ich gut:)', 'OOP FTW', 'hab ich da ruby gehoert, ' + source + '?', 'ruby ist doch super:)'].sample
+ say_sup=['gut '+ source + ' danke:)', 'super:)', 'sehr gut... danke ' + source, 'bestens:) danke... dir denn auch ' + source + '?', 'wunderbar ' + source + '. danke der nachfrage:)', 'blendend ' + source + '... danke:)', 'hervorragend:)', 'fantastisch ' + source].sample
+ say_nacht=['gute nacht ' + source,'nacht ' + source,'schlaf gut ' + source,'tschuss ' + source,'tschoe ' + source,source + ' bis dann...','auf bald ' + source, 'moege die macht mit dir sein ' + source, 'auf wiedersehen ' + source].sample
+ say_hi=['hehe...', 'hi ' + source, source + '...', 'hallo ' + source, 'und...? alles fit ' + source, 'tach ' + source, 'einen wunderschoenen guten morgen ' + source, 'fisch *kicher*', 'moin ' + source].sample
+ say_clever=['Die Schwaermerei fuer die Natur kommt von der Unbewohnbarkeit der Staedte.',
+ 'Der Faschismus sollte Korporatismus heissen, weil er die perfekte Verschmelzung der Macht von Regierung und Konzernen ist.',
+ 'Wenn die Leute das gegenwaertige Bank- und Geldsystem verstuenden, wuerde es vermutlich eine Revolution noch vor morgen frueh geben.',
+ 'Das Geld ist fuer den Tausch entstanden, der Zins aber weist ihm die Bestimmung an, sich durch sich selbst zu vermehren. Daher widerstreitet auch diese Erwerbsweise unter allen am weitesten dem Naturrecht.',
+ 'Keiner weiss so viel wie wir alle zusammen.',
+ 'Together the ants conquer the elephant.',
+ 'Wo die Zivilcourage keine Heimat hat, reicht die Freiheit nicht weit.',
+ 'Ich habe bisweilen den Eindruck, dass sich die meisten Politiker immer noch nicht darueber im Klaren sind, wie sehr sie bereits heute unter der Kontrolle der Finanzmaerkte stehen und sogar von diesen beherrscht werden.',
+ 'Gebt mir die Kontrolle ueber das Geldsystem und mir ist es egal, wer die Gesetze schreibt.',
+ 'Aus 100 Dollar 110 Dollar zu machen ist Arbeit. Aus 100 Millionen Dollar 110 Millionen zu machen, ist unvermeidlich.',
+ 'Die Schaffung eines Geldes, das sich nicht horten laesst, wuerde zur Bildung von Eigentum in wesentlicherer Form fuehren.',
+ 'Demokratie ist nichts anderes als das Niederknueppeln des Volkes durch das Volk fuer das Volk...','*hust*','*schwitz*','...ich muss weg','nein',
+ 'Der Unternehmer ist ein Arbeiter, der im Unternehmergewinn seinen Arbeitslohn verdient, der ihm vom Gewinn bleibt, nachdem ihm die Banken den Zins abgenommen haben ... Insofern bildet der Unternehmergewinn keinen Gegensatz zur Lohnarbeit, sondern nur zum Zins.',
+ 'Eine wirklich gute Idee erkennt man daran, dass ihre Verwirklichung von vornherein ausgeschlossen erschien.',
+ 'Niemand ist so hoffnungslos versklavt, wie diejenigen, die faelschlicherweise glauben frei zu sein.',
+ 'Freedom ist the right to tell the people what they do not want to hear...',
+ 'Ein Volk, das seine Freiheit fuer Sicherheit opfert, wird am Ende beides verlieren.',
+ 'Wer Sicherheit der Freiheit vorzieht, ist zu Recht ein Sklave.',
+ 'Es ist wichtiger, eine Stunde im Monat ueber Geld nachzudenken, als 30 Tage dafuer zu arbeiten.',
+ 'Verschuettet unter einem Berg von Gesetzen und Verboten, festgezurrt in unsichtbaren wirtschaftlichen Abhaengigkeiten, in einem Arbeitsleben, das in weiten Teilen der Welt das eines Arbeitstiers ist, fast erstickend in einem Sumpf von billigem Tand und Lastern, so lebt heute ein Grossteil Mensch dieser Erde.',
+ 'Es gibt keinen Weg, den finalen Kollaps eines Booms durch Kreditexpansion zu vermeiden. Die Frage ist nur ob die Krise frueher durch freiwillige Aufgabe der Kreditexpansion kommen soll, oder spaeter zusammen mit einer finalen und totalen Katastrophe des Waehrungssystems kommen soll...',
+ 'Die Welt hat genug fuer jedermanns Beduerfnisse, aber nicht fuer jedermanns Gier.',
+ 'Wer in der Demokratie die Wahrheit sagt, wird von der Masse getoetet.',
+ 'In der Politik geht es nicht darum, Recht zu haben, sondern Recht zu behalten.',
+ 'In der Politik ist es wie in der Mathematik: alles, was nicht ganz richtig ist, ist falsch.',
+ 'Ich bin nicht sicher, mit welchen Waffen der dritte Weltkrieg ausgetragen wird, aber im vierten Weltkrieg werden sie mit Stoecken und Steinen kaempfen.',
+ 'Moderne Kapitalisten sind freundliche Ausbeuter, moderne Sozialisten unfreundliche Austeiler.',
+ 'Der Mensch, der gar nichts liest, ist besser informiert als derjenige, der nur Zeitung liest.',
+ 'Um sicher Recht zu tun, braucht man sehr wenig vom Recht zu wissen. Allein um sicher Unrecht zu tun, muss man die Rechte studiert haben.',
+ 'Wo der Buerger keine Stimme hat, haben die Waende Ohren.',
+ 'Ich stehe Statistiken etwas skeptisch gegenueber. Denn laut Statistik haben ein Millionaer und ein armer Kerl jeder eine halbe Million.'].sample
+ say_noprob=['kein thema '+source,'gerne '+source,'bitte '+source,'kein problem '+source,'null problemo...','ist doch selbstverstaendlich:)','nichts zu danken '+source,'selbstverstaendlich '+source].sample
+
+ def ma(ar) # funktion zum vergleichen von wörtern mit der klasse von oben
+ Matcher.new(ar)
end
- end
+ @message = message.downcase
+ #pp @message + ' # downcased'
+ if target == $nick then
+ target = source
+ end
+ case @message
+
+ when /#{$nick}/i # nur antworten wenn der nick fällt
+ case @message
+ when /.*bitte.*([0-9][0-9]*).*(minute|sekunde|stunde).*ruhig/i
+
+ say(source,"is ja schon gut...",true)
+ $talking=false
+ pp $1 +' '+$2+' schlafen...zzzzzZZZZZZ'
+ time=$1.to_i*({"minute"=>60,"sekunde"=>1,"stunde"=>3600}[$2])
+ say(source,"dann schlafe ich jetzt #{time} sekunden",true)
+ EM.add_timer(time) do
+ $talking=true
+ end
+ when /sag.*(marc|nora|simon|david).*bescheid/i
+ if $known.member?(source.downcase)
+ who = $1
+ mail = @message.gsub(/(.+)\{\{([^\}]+)\}\}.*/,'\2')
+ tellsomebody(source,target,who,mail)
+ say(target,'schon passiert:)')
+ else
+ say(target,'hmm...nein:)')
+ end
+ when /wie.*deine.*email/i
+ say(target, 'powerbot@sunnata.de warum fragst du '+source+'?')
+ when /wie sp\xC3\xA4t/i
+ say(target,"wir haben " + Time.now.to_s[11,5] + "uhr und " + Time.now.to_s[17,2] + " sekunden, " + source)
+ when ma(zeit)
+ say(target,"wir haben " + Time.now.to_s[11,5] + "uhr und " + Time.now.to_s[17,2] + " sekunden, " + source)
+ when /datum/i
+ datum=kal
+ 0.upto(datum.length) { |i|
+ say(target, datum[i])
+ }
+ #say(target, Time.now.strftime("%A, %B the %d. 20%y"))
+ when /tag.*heute/i
+ say(target, Time.now.strftime("%A..."))
+ when /sag.*was.*schlaues/i
+ say(target,say_clever)
+ when ma(warum)
+ say(target,say_why)
+ when /wie geht/i && /dir/i
+ say(target,say_sup)
+ when /wie geht\'s/
+ say(target,say_sup)
+ when ma(nacht)
+ if $known.member?(source) then
+ say(target,say_nacht)
+ else
+ say(target,'nacht...')
+ end
+ when ma(hi)
+ say(target,say_hi)
+ when /danke/i
+ say(target,say_noprob)
+ when /mach.*(mal|schon)/i
+ say(target,say_ok)
+ else
+ say(target,say_nick)
+ end # ende der antworten wenn der nick fällt
+ when /ruby/i # antworten auch ohne den nick
+ say(target,say_ruby)
+ when /chaostal/i
+ say(target,"www.chaostal.de")
+ when /wo bin ich/i
+ say(target,"hier: "+target+', '+source)
+ when /wer bin ich/i
+ say(target, "Du bist " + source)
+ when /leck mich/i
+ say(target,source + "... benimm Dich!")
+ when /\*ruelps\*/i
+ say(target, "schulz...")
+ when /hoerst du das auch/i
+ say(target, "ich hoer nichts " + source)
+ when /ich glaub dein gen ist defekt/i
+ say(target, "ich hab keine gene " + source)
+ when /schnauze/i
+ say(target,"nanana "+source)
+ when ma(nacht)
+ if $known.member?(source) then
+ say(target,say_nacht)
+ EM.add_timer(60)
+ else
+ say(target,'nacht...')
+ end
+ end # ende der antworten ohne nick
+ case message
+ when /http:\/\/(?:youtu\.be\/|(?:[a-z]{2,3}\.)?youtube\.com\/watch(?:\?|#\!)v=)([\w-]{11}).*/i
+ uid = $1
+ url = "http://gdata.youtube.com/feeds/api/videos/#{uid}"
+ begin
+ xml = Net::HTTP.get_response(URI.parse(url)).body
+ locked = Net::HTTP.get_response(URI.parse("http://gemafuck.s7t.de/?v=#{uid}&r=1")).body.force_encoding("UTF-8")
+ say(target, xml.force_encoding("UTF-8").scan(/(.+?)<\/title>/ ).first.first + (locked == "1" ? ' (Gema locked)' : ''))
+ rescue Exception => e
+ puts "There was an error: #{e.message}"
+ puts "Invalid video it #{uid}"
+ end
+ end # ende original case
+ end
# callback for all messages sent from IRC server
on(:parsed) do |hash|
puts "parsed: #{hash[:prefix]} #{hash[:command]} #{hash[:params].join(' ')}"