blob: 6940c0129d3e464b59edd22e3749e0c6196e485a (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
|
package Bot::BasicBot::Pluggable::Module::Avalon;
{
$Avalon::Arthur::VERSION = '0.01';
};
use strict;
use warnings;
use v5.12;
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};
my ( $command, @args ) = split /\s+/, $mess->{body};
given ($command) {
when ("REGISTER") {}
when ("REGISTERED") {}
when ("UNREGISTER") {}
when ("UNREGISTERED") {}
when ("GAMESTART") {}
when ("ROLE") {}
when ("KING") {}
when ("RULENOW") {}
when ("TEAM") {}
when ("VOTE") {}
when ("VOTENOW") {}
when ("VOTERESULT") {}
when ("QUESTRESULT") {}
when ("KILLMERLIN") {}
when ("KILLMERLINNOW") {}
when ("KILL") {}
when ("WINNERSIDE") {}
when ("INFO") {}
when ("GAMEURL") {}
when ("ERR_NICK_RESERVED") {}
when ("ERR_PROTOCOL_MISMATCH") {}
when ("ERR_BANNED") {}
when ("ERR_INVALID_TEAM") {}
when ("ERR_INVALID_VOTE") {}
when ("ERR_VOTE_TIMEOUT") {}
when ("ERR_NOT_THE_ASSASSIN") {}
when ("ERR_NOT_NOW") {}
when ("ERR_JOIN_AVALON_FIRST") {}
default {}
}
}
1;
|