From 4162c06fe4b7eb2bc3b86b7d7837b28da497ef38 Mon Sep 17 00:00:00 2001
From: Pragmatic Software <pragma78@gmail.com>
Date: Sat, 30 Nov 2024 16:40:33 -0800
Subject: [PATCH] Commands/ChanOp: silly kick-message shenanigans

---
 lib/PBot/Core/Commands/ChanOp.pm | 6 +++++-
 lib/PBot/VERSION.pm              | 2 +-
 2 files changed, 6 insertions(+), 2 deletions(-)

diff --git a/lib/PBot/Core/Commands/ChanOp.pm b/lib/PBot/Core/Commands/ChanOp.pm
index bdef302d..15e00d33 100644
--- a/lib/PBot/Core/Commands/ChanOp.pm
+++ b/lib/PBot/Core/Commands/ChanOp.pm
@@ -475,8 +475,12 @@ sub cmd_kick($self, $context) {
 
     if ($context->{keyword} =~ /^[A-Z]+$/) {
         $reason = uc $reason;
-    } elsif ($context->{keyword} eq 'KiCk' or $context->{keyword} eq 'kIcK') {
+    } elsif ($context->{keyword} eq 'KiCk') {
+        $reason =~ s/(.)(.)/uc($1) . lc($2)/ge;
+    } elsif ($context->{keyword} eq 'kIcK') {
         $reason =~ s/(.)(.)/lc($1) . uc($2)/ge;
+    } elsif ($context->{keyword} eq 'KicK') {
+        $reason =~ s/(\w)(?:(\S*)(\w))?/uc($1) . lc($2) . uc($3)/ge;
     }
 
     my @nicks = split /,/, $victim;
diff --git a/lib/PBot/VERSION.pm b/lib/PBot/VERSION.pm
index 5efa4766..3435969c 100644
--- a/lib/PBot/VERSION.pm
+++ b/lib/PBot/VERSION.pm
@@ -25,7 +25,7 @@ use PBot::Imports;
 # These are set by the /misc/update_version script
 use constant {
     BUILD_NAME     => "PBot",
-    BUILD_REVISION => 4863,
+    BUILD_REVISION => 4864,
     BUILD_DATE     => "2024-11-30",
 };