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
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
|
package Bot::BasicBot::Pluggable::Module::Avalon;
{
$Avalon::Arthur::VERSION = '0.03';
};
use strict;
use warnings;
use v5.12;
use experimental qw(autoderef switch);
use Bot::BasicBot::Pluggable::Store::DBI;
use List::Util qw(shuffle);
use POE;
use Time::HiRes qw(time);
use base qw(Bot::BasicBot::Pluggable::Module);
### Game logic ###############################################################
use enum qw(GAMESTART TEAM TEAMVOTE QUESTVOTE ASSASSINGUESS);
use enum qw(NUMBER_OF_EVIL_PLAYERS FIRST_QUEST SECOND_QUEST THIRD_QUEST FOURTH_QUEST FIFTH_QUEST SPECIAL_QUEST_RULE);
my %gamerules = (
# number of players => ( number of evil, players on first quest, second, third, fourth, fifth, number of fail for fourth quest success )
5 => [ 2, 2, 3, 2, 3, 3, 0],
6 => [ 2, 2, 3, 4, 3, 4, 0],
7 => [ 3, 2, 3, 3, 4, 4, 1],
8 => [ 3, 3, 4, 4, 5, 5, 1],
9 => [ 3, 3, 4, 4, 5, 5, 1],
10 => [ 4, 3, 4, 4, 5, 5, 1],
);
sub load_avalon_db {
my $self = shift;
# This database stores registrations and bans
$self->{avdb} = Bot::BasicBot::Pluggable::Store::DBI->new(
dsn => "dbi:SQLite:dbname=arthur.sqlite",
table => "arthur",
);
}
sub reset_game {
my $av = shift->{avalon};
$av->{gamephase} = GAMESTART;
$av->{gamesplayed} = 0;
$av->{timeout} = 0;
$av->{registered} = {};
$av->{players} = ();
$av->{roles} = {
'MERLIN' => [],
'ASSASSIN' => [],
'GOOD' => [],
'EVIL' => [],
};
$av->{king} = 0;
$av->{votes} = { pass => 0, fail => 0 };
$av->{quests} = { pass => 0, fail => 0, votes => 0 };
}
sub set_timeout {
my ( $self, $value) = @_;
$poe_kernel->alarm( avalon_timeout => time() + $value );
}
sub timeout_occurred {
my $self = shift;
$self->say( channel => $self->{avalon}->{config}->{'game.channel'}, body => "timeout" );
}
### IRC methods override ######################################################
sub connected {
my $self = shift;
$poe_kernel->state( 'avalon_timeout', $self, 'timeout_occurred' );
}
sub init {
my $self = shift;
$self->{avalon} = {};
$self->{avalon}->{config} = $self->bot->{store_object}->{store}->{cfg}->{cfg};
$self->load_avalon_db;
$self->reset_game;
}
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 $av = $self->{avalon};
my $avdb = $self->{avdb};
my ( $command, @args ) = split /\s+/, $mess->{body};
given ($command) {
when ("REGISTER") {
return 'ERR_BAD_ARGUMENTS' if scalar @args != 3;
my ( $owner, $bot_version, $protocol_version ) = @args;
return 'ERR_PROTOCOL_MISMATCH' if $protocol_version ne $Avalon::Arthur::VERSION;
my $record = $avdb->get('REGISTRATIONS', $who);
if ($record) {
return 'ERR_NICK_RESERVED' if $record ne $mess->{raw_nick};
return 'ERR_BANNED' if $avdb->get('BANS', $who . $bot_version);
} else {
$avdb->set('REGISTRATIONS', $who, $mess->{raw_nick});
}
$av->{registered}->{$who} = { owner => $owner, version => $bot_version };
$self->say( channel => $av->{config}->{'game.channel'}, body => "REGISTERED $who" );
}
when ("REGISTERED") {}
when ("UNREGISTER") {}
when ("UNREGISTERED") {}
when ("GAMESTART") {}
when ("ROLE") {}
when ("EVIL") {}
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_BAD_ARGUMENTS") {}
when ("ERR_BAD_DESTINATION") {}
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;
|
