#!/usr/bin/bash
package syngin;

use cybot;

# by syngin

register_command("syngin",sub {
	my ($bot,$chan,$nick,$host, @commands) = @_;
	
	$bot->message ($chan, syngin(join(" ",@commands)));

	});

sub syngin{
    $_ = shift;

    s/be broken/be ab0rked/;
    s/(is|==) broken/$1 ab0rk/;

    s/yay/yay-fu/;
    s/[^a]b0rk/b0rk-fu/;
    s/perl/pr3l-fu/;
    s/ack/ack-fu/;

    s/or/r0/g;
    s/([a-z]+)ro/${1}0r/g;
    s/([A-Z]+)RO/${1}0R/g;
    s/OR/R0/g;
    s/re/3r/g;
    s/er$/3r/g;
    s/er/r3/g;
    s/RE/3R/g;
    s/ER/R3/g;

    return $_;
}

1;