mata_bot

commit ba7e7f3f13cddd9880bb688e0ce081d2ecbb281c
parent 511bd5fb6f999ef2f9fd3dd38c8342c099f3afe0
Author: boredpasta <boredpasta@tutanota.com>
Date:   Thu, 20 Mar 2025 19:18:49 +0200

add dice lol

Diffstat:
M
mata_bot.pl
 | 
11
++++++++++-

1 file changed, 10 insertions(+), 1 deletion(-)
diff --git a/mata_bot.pl b/mata_bot.pl
@@ -91,7 +91,16 @@ sub respond_mention {
 # returns 1 if bot shouldn't remember last message for s///, 0 otherwise
 sub respond {
 	my ($sock, $sender_nick, $message) = @_;
-	if ($subbuffer{$sender_nick} && $message =~ m,\b{wb}s/([^\000\r\n/]*)/([^\000\r\n/]*)/?,) {
+	if ($message =~ /\b{wb}([1-9]\d*)?d([1-9]\d*)\b{wb}/) {
+		my $ndice = $1 // 1;
+		my $nface = $2;
+		my $min = $ndice;
+		my $max = $ndice * $nface;
+		my $result = $min + int rand(1 + $max - $min);
+		my $roll = "d${nface}";
+		$roll = $ndice . $roll if $ndice > 1;
+		msg($sock, "${sender_nick} rolled a ${roll} and got ${result}! ${MATA_HAPPY}");
+	} elsif ($subbuffer{$sender_nick} && $message =~ m,\b{wb}s/([^\000\r\n/]*)/([^\000\r\n/]*)/?,) {
 		# chat s///
 		my $toreplace = $1;
 		my $replacement = $2;