GitHub/pbot
3
0
Fork 0
mirror of https://github.com/pragma-/pbot.git synced 2024-11-17 09:29:30 +01:00
Code Issues Projects Releases Wiki Activity

Plugin/Wordle: add guesses subcommand

Browse Source
This commit is contained in:
Pragmatic Software 2024-10-31 00:55:31 -07:00
parent e7d3a543c4
commit f680439d47
No known key found for this signature in database
GPG Key ID: CC916B6E3C84ECCE
2 changed files with 18 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
lib/PBot/Plugin/Wordle.pm
View File

@ -30,7 +30,7 @@ sub unload($self) {
} }
use constant { use constant {
USAGE => 'Usage: wordle start [length [wordlist]] | custom <word> <channel> [wordlist] | guess <word> | letters | show | info | giveup', USAGE => 'Usage: wordle start [length [wordlist]] | custom <word> <channel> [wordlist] | guess <word> | guesses | letters | show | info | giveup',
NO_WORDLE => 'There is no Wordle yet. Use `wordle start` to begin a game.', NO_WORDLE => 'There is no Wordle yet. Use `wordle start` to begin a game.',
DEFAULT_LIST => 'american', DEFAULT_LIST => 'american',
@ -289,6 +289,18 @@ sub wordle($self, $context) {
return $result; return $result;
} }
when ('guesses') {
if (not defined $self->{$channel}->{wordle}) {
return NO_WORDLE;
}
if (not $self->{$channel}->{guesses}->@*) {
return 'No guesses yet.';
}
return join("$color{reset} ", $self->{$channel}->{guesses}->@*) . "$color{reset}";
}
when ('letters') { when ('letters') {
if (@args > 1) { if (@args > 1) {
return "Usage: wordle letters"; return "Usage: wordle letters";
@ -380,6 +392,7 @@ sub make_wordle($self, $channel, $length, $word = undef, $wordlist = DEFAULT_LIS
$self->{$channel}->{length} = $length; $self->{$channel}->{length} = $length;
$self->{$channel}->{wordle} = \@wordle; $self->{$channel}->{wordle} = \@wordle;
$self->{$channel}->{guess} = ''; $self->{$channel}->{guess} = '';
$self->{$channel}->{guesses} = [];
$self->{$channel}->{correct} = 0; $self->{$channel}->{correct} = 0;
$self->{$channel}->{guess_count} = 0; $self->{$channel}->{guess_count} = 0;
$self->{$channel}->{letters} = {}; $self->{$channel}->{letters} = {};
@ -501,6 +514,8 @@ sub guess_wordle($self, $channel, $guess) {
$self->{$channel}->{guess} = $result; $self->{$channel}->{guess} = $result;
push $self->{$channel}->{guesses}->@*, $result;
if ($correct == length $guess) { if ($correct == length $guess) {
$self->{$channel}->{correct} = 1; $self->{$channel}->{correct} = 1;
my $guesses = $self->{$channel}->{guess_count}; my $guesses = $self->{$channel}->{guess_count};

4
lib/PBot/VERSION.pm
View File

@ -25,8 +25,8 @@ use PBot::Imports;
# These are set by the /misc/update_version script # These are set by the /misc/update_version script
use constant { use constant {
BUILD_NAME => "PBot", BUILD_NAME => "PBot",
BUILD_REVISION => 4819, BUILD_REVISION => 4820,
BUILD_DATE => "2024-10-30", BUILD_DATE => "2024-10-31",
}; };
sub initialize {} sub initialize {}