diff options
author | Julien Dessaux | 2014-12-04 13:06:56 +0100 |
---|---|---|
committer | Julien Dessaux | 2014-12-04 13:06:56 +0100 |
commit | 7754a0b4b5b25cfc2d6faeb330cead16eb779fc7 (patch) | |
tree | 84522b215fe3edd74716f529642c471085978779 /Avalon.pm | |
parent | Bootstrapped arthur implementation in perl (diff) | |
download | avalon-arthur-7754a0b4b5b25cfc2d6faeb330cead16eb779fc7.tar.gz avalon-arthur-7754a0b4b5b25cfc2d6faeb330cead16eb779fc7.tar.bz2 avalon-arthur-7754a0b4b5b25cfc2d6faeb330cead16eb779fc7.zip |
Updated bot configuration
Diffstat (limited to 'Avalon.pm')
-rw-r--r-- | Avalon.pm | 10 |
1 files changed, 10 insertions, 0 deletions
@@ -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}; |