From 7bc381479e15646dfec98cb206aa228a656e5a26 Mon Sep 17 00:00:00 2001
From: Julien Dessaux
Date: Wed, 3 Dec 2014 21:33:04 +0100
Subject: Bootstrapped arthur implementation in perl

---
 Avalon.pm | 53 +++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 53 insertions(+)
 create mode 100644 Avalon.pm

(limited to 'Avalon.pm')

diff --git a/Avalon.pm b/Avalon.pm
new file mode 100644
index 0000000..3bf30b2
--- /dev/null
+++ b/Avalon.pm
@@ -0,0 +1,53 @@
+package Bot::BasicBot::Pluggable::Module::Avalon;
+
+use strict;
+use warnings;
+use v5.12;
+use experimental qw(switch);
+
+use base qw(Bot::BasicBot::Pluggable::Module);
+
+sub help {
+    return "The avalon game simulator : https://github.com/adyxax/avalon-arthur";
+}
+
+sub told {
+    my ( $self, $mess ) = @_;
+    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;
-- 
cgit v1.2.3