From d84353a0acf217a04031599ae8d152e089cb7181 Mon Sep 17 00:00:00 2001
From: timriker <timriker@c11ca15a-4712-0410-83d8-924469b57eb5>
Date: Mon, 28 Feb 2005 02:53:55 +0000
Subject: [PATCH] rot*

git-svn-id: https://svn.code.sf.net/p/infobot/code/trunk@1188 c11ca15a-4712-0410-83d8-924469b57eb5
---
 blootbot/src/UserExtra.pl | 11 ++++++++---
 1 file changed, 8 insertions(+), 3 deletions(-)

diff --git a/blootbot/src/UserExtra.pl b/blootbot/src/UserExtra.pl
index 7112f97..cb0dc29 100644
--- a/blootbot/src/UserExtra.pl
+++ b/blootbot/src/UserExtra.pl
@@ -585,15 +585,20 @@ sub userCommands {
     }
 
     # rot13 it.
-    if ($message =~ /^rot13(\s+(.*))?/i) {
-	my $reply = $2;
+    if ($message =~ /^rot([0-9]*)(\s+(.*))?/i) {
+	my $reply = $3;
 
 	if (!defined $reply) {
 	    &help("rot13");
 	    return;
 	}
+	my $num = $1 % 26;
+	my $upper="ABCDEFGHIJKLMNOPQRSTUVWXYZ";
+	my $lower="abcdefghijklmnopqrstuvwxyz";
+	my $to=substr($upper,$num).substr($upper,0,$num).substr($lower,$num).substr($lower,0,$num);
+	eval "\$reply =~ tr/$upper$lower/$to/;";
 
-	$reply =~ y/A-Za-z/N-ZA-Mn-za-m/;
+	#$reply =~ y/A-Za-z/N-ZA-Mn-za-m/;
 	&performStrictReply($reply);
 
 	return;
-- 
2.39.5