T2 is 70% and T3 is 50% now

[NDIRC.git] / Bot.pm

diff --git a/Bot.pm b/Bot.pm
index 1c54701f3251829af9c333e29a12b81d001ed031..3cb565ff7638dcd4e9159003607229332327a4b3 100644 (file)
--- a/Bot.pm
+++ b/Bot.pm
@@ -147,6 +147,7 @@ sub _start {
                        ));
 
                $self->discord->gw->on('MESSAGE_CREATE' => sub { $self->discord_message_create(@_) });
+               $self->discord->gw->on('MESSAGE_UPDATE' => sub { $self->discord_message_create(@_) });
                $self->discord->gw->on('READY'          => sub { $self->discord_ready(@_) });
                $self->discord->gw->on('GUILD_CREATE'   => sub { $self->discord_guild_create(@_) });
                $self->discord->gw->on('CHANNEL_CREATE' => sub { $self->discord_channel_create(@_) });
@@ -239,16 +240,16 @@ sub sig_usr2 {
 
 sub _build_disp {
        my ($self) = @_;
-       my $disp = new NDIRC::Dispatcher;
+       my $disp = NDIRC::Dispatcher->new;
 
-       if (my $commands = new IO::File 'commands'){
+       if (my $commands = IO::File->new('commands')){
                my @commands = split /\W+/, do{local $/; <$commands>};
                say "Loading commands from: @commands";
                $disp->load(@commands);
        }
 
        %{$self->targets} = ();
-       my $channels = new IO::File 'channels' or die $!;;
+       my $channels = IO::File->new('channels') or die $!;;
        while (<$channels>){
                my ($chan, @types) = split /\s+/;
                say "$chan - @types";
@@ -381,12 +382,12 @@ sub handleCommand {
                }
        }
 
-       $c->dm_reply(1) if $p eq '!';
-
        return 0 unless $self->disp->has_command($command,$c->channel);
 
        say localtime(time) . " - $msg";
 
+       $c->dm_reply(1) if $p eq '!';
+
        return $self->disp->run_command($c,$command,$args);
 }