summaryrefslogtreecommitdiff
path: root/Avalon.pm
diff options
context:
space:
mode:
authorJulien Dessaux2014-12-04 13:06:56 +0100
committerJulien Dessaux2014-12-04 13:06:56 +0100
commit7754a0b4b5b25cfc2d6faeb330cead16eb779fc7 (patch)
tree84522b215fe3edd74716f529642c471085978779 /Avalon.pm
parentBootstrapped arthur implementation in perl (diff)
downloadavalon-arthur-7754a0b4b5b25cfc2d6faeb330cead16eb779fc7.tar.gz
avalon-arthur-7754a0b4b5b25cfc2d6faeb330cead16eb779fc7.tar.bz2
avalon-arthur-7754a0b4b5b25cfc2d6faeb330cead16eb779fc7.zip
Updated bot configuration
Diffstat (limited to '')
-rw-r--r--Avalon.pm10
1 files changed, 10 insertions, 0 deletions
diff --git a/Avalon.pm b/Avalon.pm
index 3bf30b2..6940c01 100644
--- a/Avalon.pm
+++ b/Avalon.pm
@@ -1,4 +1,7 @@
package Bot::BasicBot::Pluggable::Module::Avalon;
+{
+ $Avalon::Arthur::VERSION = '0.01';
+};
use strict;
use warnings;
@@ -7,12 +10,19 @@ use experimental qw(switch);
use base qw(Bot::BasicBot::Pluggable::Module);
+sub init {
+ my $self = shift;
+ $self->{avalon} = {};
+ $self->{avalon}->{config} = $self->bot->{store_object}->{store}->{cfg}->{cfg};
+}
+
sub help {
return "The avalon game simulator : https://github.com/adyxax/avalon-arthur";
}
sub told {
my ( $self, $mess ) = @_;
+ my $who = $mess->{who};
my $body = $mess->{body};
my $ispriv = defined $mess->{address};