# -*- cperl -*-
package hax0r;

# by CyBeR
# turned in a module by Alberto Simões (albie@alfarrabio.di.uminho.pt)

use cybot;

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

		   $bot->message ($chan, hax0r(join(" ", @commands)));

		 },"tUrNs y0uR S3Nt3nC3 hAx0r sTyL3D d00dz!!1!");

sub hax0r {
  my($s) = shift;

  my(@suffixes) = ("", " ... 3133733!!!!!!!! !!", " d00dz!!1!", "", ".. lAyMurZZZ!!1");

  # f at beginnings and ends of words, but not for "of"
  $s =~ s/f+\b/ph/gi;
  $s =~ s/\bf+/ph/gi;
  $s =~ s/\boph\b/of/gi;

  $s =~ s/o/0/gi;
  $s =~ s/e/3/gi;

  # convert i to 1, but not in the case of standalone "i"
  $s =~ s/i/1/gi;
  $s =~ s/\b1\b/i/gi;

  $s =~ s/ck3d\b/x3d/gi;
  $s =~ s/cks\b/ckz/gi;

  $s =~ s/\by0u\b/u/gi;
  $s =~ s/\bph0r\b/4/gi;

  $s =~ s/(.)(.)/\l$1\U$2/g;

  $i = int(rand(1024) % ($#suffixes + 1));
  $s =~ s/$/$suffixes[$i]/e;

  return $s;
}

1;