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

Plugin/Wordle: add accented words and German nouns

Browse Source 
Accented words will be unidecoded to Latin letters so letter list remains A-Z.

German words will include proper nouns since I had no easy way to distinguish
them from regular nouns.
This commit is contained in:
Pragmatic Software 2024-03-16 17:29:09 -07:00
parent 348465b034
commit 753773f06b
No known key found for this signature in database
GPG Key ID: CC916B6E3C84ECCE
6 changed files with 296466 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

141447
data/wordle/french
View File

File diff suppressed because it is too large Load Diff

133793
data/wordle/german
View File

File diff suppressed because it is too large Load Diff

3882
data/wordle/italian
View File

File diff suppressed because it is too large Load Diff

17332
data/wordle/spanish
View File

File diff suppressed because it is too large Load Diff

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

@ -11,6 +11,8 @@ use parent 'PBot::Plugin::Base';
use PBot::Imports; use PBot::Imports;
use Text::Unidecode;
sub initialize($self, %conf) { sub initialize($self, %conf) {
$self->{pbot}->{commands}->add( $self->{pbot}->{commands}->add(
name => 'wordle', name => 'wordle',
@ -126,15 +128,11 @@ sub wordle($self, $context) {
return "Usage: wordle custom <word> <channel> [wordlist]"; return "Usage: wordle custom <word> <channel> [wordlist]";
} }
my $custom_word = $args[0]; my $custom_word = unidecode $args[0];
my $custom_channel = $args[1]; my $custom_channel = $args[1];
my $custom_wordlist = $args[2]; my $custom_wordlist = $args[2];
my $length = length $custom_word; my $length = length $custom_word;
if ($custom_word !~ /[a-z]/) {
return "Word must be all lowercase and cannot contain numbers or symbols.";
}
if ($length < MIN_LENGTH || $length > MAX_LENGTH) { if ($length < MIN_LENGTH || $length > MAX_LENGTH) {
return "Invalid word length; must be >= ".MIN_LENGTH." and <= ".MAX_LENGTH."."; return "Invalid word length; must be >= ".MIN_LENGTH." and <= ".MAX_LENGTH.".";
} }
@ -218,14 +216,13 @@ sub load_words($self, $length, $wordlist = 'default') {
die "Wordle database `" . $wordlist . "` not available. Set WORDLIST to a valid location of a wordlist file.\n"; die "Wordle database `" . $wordlist . "` not available. Set WORDLIST to a valid location of a wordlist file.\n";
} }
open my $fh, '<', $wordlist or die "Failed to open Wordle database."; open my $fh, '<:encoding(UTF-8)', $wordlist or die "Failed to open Wordle database.";
my %words; my %words;
while (my $line = <$fh>) { while (my $line = <$fh>) {
chomp $line; chomp $line;
next if $line !~ /^[a-z]+$/; $line = unidecode $line;
if (length $line == $length) { if (length $line == $length) {
$words{uc $line} = 1; $words{uc $line} = 1;
} }
@ -270,7 +267,11 @@ sub make_wordle($self, $channel, $length, $word = undef, $wordlist = 'default')
$self->{$channel}->{guess} .= ' ? ' x $self->{$channel}->{wordle}->@*; $self->{$channel}->{guess} .= ' ? ' x $self->{$channel}->{wordle}->@*;
$self->{$channel}->{guess} .= $color{reset}; $self->{$channel}->{guess} .= $color{reset};
return $self->show_wordle($channel) . " Guess the word! Legend: $color{invalid}X $color{reset} not in word; $color{present}X$color{present_a}?$color{reset} wrong position; $color{correct}X$color{correct_a}*$color{reset} correct position"; my $language = $wordlist;
$language = ucfirst $language;
$language = 'American' if $language eq 'Default';
return $self->show_wordle($channel) . " Guess the $language word! Legend: $color{invalid}X $color{reset} not in word; $color{present}X$color{present_a}?$color{reset} wrong position; $color{correct}X$color{correct_a}*$color{reset} correct position";
} }
sub show_letters($self, $channel) { sub show_letters($self, $channel) {
@ -304,6 +305,7 @@ sub guess_wordle($self, $channel, $guess) {
return "The length of your guess does not match length of current Wordle. Try again."; return "The length of your guess does not match length of current Wordle. Try again.";
} }
$guess = unidecode $guess;
$guess = uc $guess; $guess = uc $guess;
if (not exists $self->{$channel}->{words}->{$guess}) { if (not exists $self->{$channel}->{words}->{$guess}) {

2
lib/PBot/VERSION.pm
View File

@ -25,7 +25,7 @@ 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 => 4719, BUILD_REVISION => 4720,
BUILD_DATE => "2024-03-16", BUILD_DATE => "2024-03-16",
}; };