#!/usr/bin/perl

package Inverse;

# by syngin

use cybot;

register_command("invert",
		 sub {
		   my ($bot,$chan,$nick, $host,@commands) = @_;

		   my $txt = lc(join(" ",@commands));
		   $txt =~ tr{!^abcdefghijklmnopqrstuvwxyz6) }
		     {iveq)pat6y!rXlwuodbjsfn^mxhzgc };
		   $txt = reverse($txt);

		   $bot->message ($chan, $txt);
		 },"a)uafuas e sfja^u!");

1;