[Kingly_Krab]

You're welcome, here's a version with saylinks to keep people from spamming the chat.

sub EVENT_SAY {
	if($text=~/hail/i) {
		quest::say("Hail $class. Do you seek to earn a " . quest::saylink("bridle", 1) . "?");
	} elsif($text=~/bridle/i) {
		quest::say("I suspect, as most of us these days,that you are a bit low on platinum? Well no need to worry! Simply handle a...well, " . quest::saylink("situation", 1) . " for me.");
	} elsif($text=~/situation/i) {
		quest::say("I have a high intolerance for the Tuffien these days. If you would be willing to bring me back one of their hides I will be willing to " . quest::saylink("reward", 1) . " you.");
	} elsif($text=~/reward/i) {
		quest::say("Bring me back any color hide and I will give you the corresponding bridle.");
	}
}