GitHub/pbot
3
0
Fork 0
mirror of https://github.com/pragma-/pbot.git synced 2025-05-03 13:17:33 +02:00
Code Issues Projects Releases Wiki Activity

Battleship: prevent minor hiccup in ultra-fast-paced movement

Browse Source
This commit is contained in:
Pragmatic Software 2018-07-03 20:03:49 -07:00
parent d5ce7940fe
commit c6e7b7bf6a
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
PBot/Plugins/Battleship.pm
View File

@ -289,7 +289,7 @@ sub battleship_cmd {
when ('bomb') { when ('bomb') {
$self->{pbot}->{logger}->log("Battleship: bomb state: $self->{current_state}\n" . Dumper $self->{state_data}); $self->{pbot}->{logger}->log("Battleship: bomb state: $self->{current_state}\n" . Dumper $self->{state_data});
if ($self->{current_state} ne 'playermove') { if ($self->{current_state} ne 'playermove' and $self->{current_state} ne 'checkplayer') {
return "$nick: It's not time to do that now."; return "$nick: It's not time to do that now.";
} }
@ -316,8 +316,10 @@ sub battleship_cmd {
return "$nick: Usage: battleship bomb <location>; <location> must be in the form of A15, B3, C9, etc."; return "$nick: Usage: battleship bomb <location>; <location> must be in the form of A15, B3, C9, etc.";
} }
$arguments = uc $arguments;
my ($x, $y); my ($x, $y);
($x) = uc($arguments) =~ m/^(.)/; ($x) = $arguments =~ m/^(.)/;
($y) = $arguments =~ m/^.(.*)/; ($y) = $arguments =~ m/^.(.*)/;
$x = ord($x) - 65;; $x = ord($x) - 65;;