blob: 2d1cb851f754d57b54fa8660e5b3d9de67595255 (
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
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
|
use Config;
use HTTP::UserAgent;
use JSON::Fast;
use Matrix::Bot::Plugin;
use Matrix::Bot::Event;
unit class Matrix::Bot::Plugin::Dominating is Matrix::Bot::Plugin;
has HTTP::UserAgent $!ua;
has Int $!last-updated;
has $!current-player = "d365noscope";
has $.game-id is rw;
has %.config;
has %!matrix-players =:baco<Baco>, :matiaslina<Matias>, :YareYare<huaira>, :nstefani<nico_st>, :fedediaz<fede_diaz>, :d365noscope<Manu>;
submethod BUILD(:%!config, :$!game-id) {
$!ua = HTTP::UserAgent.new();
$!last-updated = DateTime.now.posix;
}
method current-matrix-player {
%!matrix-players{$!current-player} // "$!current-player";
}
method generate-events(Str $message) {
%.config<rooms>.map(
-> $room-id { Matrix::Bot::Event.new(:$room-id, :$message) }
)
}
method current-game {
$.game-id // %.config<starting_game>
}
multi method handle-room-text($e where *.message.starts-with("!dominating") --> Str) {
if $e.message ~~ m/"!dominating change-game " $<game-id> = [ \d+ ]/ {
say "Changing game id from {$.current-game} to {$<game-id>}";
my $pre-game-id = $!game-id;
$!game-id = $<game-id>;
return "Changing game id from {$pre-game-id} to {$<game-id>}";
}
}
multi method event-handler(--> Supply) {
my $handler = supply {
my $last-updated = now.Int;
loop {
CATCH {
when X::AdHoc {
.message.note;
sleep 60;
next;
}
default { .^name.say; .resume }
}
my %form = last_update => ~$last-updated;
my $response = $!ua.post(
"https://dominating12.com/game/{$.current-game}/play/update-state",
%form
);
if $response.is-success {
my $data = from-json($response.content);
$last-updated = $data<now>.Int;
my %players = $data<players>.values.map({ .<user_id> => .<username> }).List;
my $turn = %players{$data<turns>.head.<user_id>};
if $turn.defined && $turn eq "" {
say "[{DateTime.now()}] {$.current-matrix-player} won!";
emit($_) for self.generate-events("{$.current-matrix-player} gano!");
exit 0;
}
if $turn.defined && $turn ne $!current-player {
say "[{DateTime.now()}] Changing turn from $!current-player to $turn";
$!current-player = $turn;
if $!current-player ne "" {
emit($_) for self.generate-events("Le toca a $.current-matrix-player !");
}
} else {
say "[{DateTime.now()}] Still turn of $!current-player";
}
sleep 60 * 5;
} else {
note "Error response: {$response.status-line}";
}
}
}
return $handler;
}
|
