diff --git a/Plugins/Battleship.pm b/Plugins/Battleship.pm index f5452555..f405f501 100644 --- a/Plugins/Battleship.pm +++ b/Plugins/Battleship.pm @@ -148,7 +148,7 @@ sub cmd_battleship { push @{$self->{state_data}->{players}}, $player; $self->{pbot}->{event_queue}->enqueue_event(sub { - $self->battleship_loop; + $self->run_one_state; }, 1, 'battleship loop', 1 ); @@ -372,7 +372,11 @@ sub player_left { sub send_message { my ($self, $to, $text, $delay) = @_; - $delay = 0 if not defined $delay; + + $self->{pbot}->{conn}->notice($to, $text); + +=cut + $delay //= 0 if not defined $delay; my $botnick = $self->{pbot}->{registry}->get_value('irc', 'botnick'); my $message = { nick => $botnick, @@ -384,6 +388,7 @@ sub send_message { message => $text }; $self->{pbot}->{interpreter}->add_message_to_output_queue($to, $message, $delay); +=cut } sub run_one_state { @@ -916,6 +921,8 @@ sub show_battlefield { my $player1 = $self->{player}->[0]->{nick}; my $player2 = $self->{player}->[1]->{nick}; + $self->{pbot}->{conn}->pacing(0); + if ($player == 0) { $self->send_message( $self->{player}->[$player]->{nick}, @@ -958,6 +965,9 @@ sub show_battlefield { elsif ($player == 2 || $player == 3) { $self->send_message($self->{channel}, $line); } else { $self->send_message($nick, $line); } } + + $self->{pbot}->{conn}->pacing(1); + } # state subroutines