diff --git a/greentext.pl b/greentext.pl
new file mode 100644
index 0000000..0bd0207
--- /dev/null
+++ b/greentext.pl
@@ -0,0 +1,21 @@
+#!/usr/bin/perl
+
+use Term::ANSIColor;
+
+weechat::register("greentext","qorg","0.1","WTFPL","Grentexts.","","");
+
+# Paints green the messages that begin with '>'
+
+sub greentext_cb($$$$) {
+	my ($data, $modifier, $modifier_data, $string) = @_;
+	my ($nick, $msg) = split "\t", $string;
+	my @chars = split("",$msg);
+	if($chars[0] eq '>') {
+		return sprintf("%s\t%s%s",$nick, weechat::color("green"),$msg);
+	} else {
+		return $string;
+	}
+
+}
+
+weechat::hook_modifier("weechat_print","greentext_cb","");
diff --git a/orangetext.pl b/orangetext.pl
new file mode 100644
index 0000000..6e91b70
--- /dev/null
+++ b/orangetext.pl
@@ -0,0 +1,21 @@
+#!/usr/bin/perl
+
+use Term::ANSIColor;
+
+weechat::register("orangetext","qorg","0.1","WTFPL","Grentexts.","","");
+
+# Paints green the messages that begin with '>'
+
+sub greentext_cb($$$$) {
+	my ($data, $modifier, $modifier_data, $string) = @_;
+	my ($nick, $msg) = split "\t", $string;
+	my @chars = split("",$msg);
+	if($chars[0] eq '<') {
+		return sprintf("%s\t%s%s",$nick, weechat::color("yellow"),$msg);
+	} else {
+		return $string;
+	}
+
+}
+
+weechat::hook_modifier("weechat_print","greentext_cb","");