From abdb88c7b3f550649c3d91eb0d024b8eda036f97 Mon Sep 17 00:00:00 2001
From: Pragmatic Software <pragma78@gmail.com>
Date: Wed, 23 Oct 2024 11:59:03 -0700
Subject: [PATCH] Plugin/Wordle: add solved-by to `info` and `guess`

---
 lib/PBot/Plugin/Wordle.pm | 21 ++++++++++++++++++---
 lib/PBot/VERSION.pm       |  4 ++--
 2 files changed, 20 insertions(+), 5 deletions(-)

diff --git a/lib/PBot/Plugin/Wordle.pm b/lib/PBot/Plugin/Wordle.pm
index e5bc385f..853dc684 100644
--- a/lib/PBot/Plugin/Wordle.pm
+++ b/lib/PBot/Plugin/Wordle.pm
@@ -12,6 +12,7 @@ use parent 'PBot::Plugin::Base';
 use PBot::Imports;
 
 use Storable qw(dclone);
+use Time::Duration;
 use utf8;
 
 sub initialize($self, %conf) {
@@ -157,7 +158,14 @@ sub wordle($self, $context) {
                 return NO_WORDLE;
             }
 
-            return "Current wordlist: $self->{$channel}->{wordlist} ($self->{$channel}->{length}); guesses attempted: $self->{$channel}->{guess_count}\n";
+            my $result = "Current wordlist: $self->{$channel}->{wordlist} ($self->{$channel}->{length}); guesses attempted: $self->{$channel}->{guess_count}";
+
+            if ($self->{$channel}->{correct}) {
+                my $solved_on = concise ago (time - $self->{$channel}->{solved_on});
+                $result .= "; solved by: $self->{$channel}->{solved_by} ($solved_on)";
+            }
+
+            return $result;
          }
 
         when ('giveup') {
@@ -268,10 +276,17 @@ sub wordle($self, $context) {
             }
 
             if ($self->{$channel}->{correct}) {
-                return "Wordle already solved. " . $self->show_wordle($channel);
+                return "Wordle already solved by $self->{$channel}->{solved_by}. " . $self->show_wordle($channel);
             }
 
-            return $self->guess_wordle($channel, $args[0]);
+            my $result = $self->guess_wordle($channel, $args[0]);
+
+            if ($self->{$channel}->{correct}) {
+                $self->{$channel}->{solved_by} = $context->{nick};
+                $self->{$channel}->{solved_on} = time;
+            }
+
+            return $result;
         }
 
         when ('letters') {
diff --git a/lib/PBot/VERSION.pm b/lib/PBot/VERSION.pm
index 113df506..3522b13b 100644
--- a/lib/PBot/VERSION.pm
+++ b/lib/PBot/VERSION.pm
@@ -25,8 +25,8 @@ use PBot::Imports;
 # These are set by the /misc/update_version script
 use constant {
     BUILD_NAME     => "PBot",
-    BUILD_REVISION => 4806,
-    BUILD_DATE     => "2024-10-22",
+    BUILD_REVISION => 4807,
+    BUILD_DATE     => "2024-10-23",
 };
 
 sub initialize {}