[Tegila]

Created perl for the remaining 2 TS's. If you already put the recipes for these 2 into db, you'll have to alter the last research recipe. item 98304 should be 98303 (line 252699 in recipe_entries if you kept my numbers)

Alchemist_Garai.pl

sub EVENT_SAY
{
	if($text=~/hail/i)
	{
		if($client->GetSkill(59) < 31)
		{
			quest::say("A fledgling alchemist!  I've got a little recipe for you to start out with.  Start out by making some Simple Black Dye."); 
			quest::summonitem(98287,20);
			quest::summonitem(58145,20);
		}
		elsif($client->GetSkill(59) < 38)
		{
			quest::say("Wonderful!  Now, to further that skill, you should try your hand at some Simple Green Dye.  It will add some color to dark places, don't you think?");
			quest::summonitem(98287,20);
			quest::summonitem(98271,20);
		}
		elsif($client->GetSkill(59) < 46)
		{
			quest::say("If you'd like to try some less sickly colors, my method for Simple Blue Dye will do the trick.  I'll share the secret with you though, because you've been such a great student.");
			quest::summonitem(98287,20);
			quest::summonitem(58088,20);
		}
		elsif($client->GetSkill(59) < 54)
		{
			quest::say("Ahh, that was a great job.  Now, it's getting a little late in the day for me.  I've got one last little project, if you'd like to try your hand at it.  This Simple Red Dye brings us to to a much brighter place, I'm sure you'll agree.");
			quest::summonitem(98287,20);
			quest::summonitem(58066,20);
		}
		if($client->GetSkill(59) >=54)
		{
			quest::say("I'm sorry, your skill is too great for my help now.  Perhaps it is time to learn another craft.")
		}
	}
}

Researcher_Akila

sub EVENT_SAY
{
	if($text=~/hail/i)
	{
		if($client->GetSkill(58) < 31)
		{
			quest::say("A fledgling researcher!  I've got a little project for you to start out with.  Start out by making some Simple Quills."); 
			quest::summonitem(98296,20);
			quest::summonitem(98297,20);
		}
		elsif($client->GetSkill(58) < 38)
		{
			quest::say("Wonderful!  Now, to go a little further, you should try your hand at making some Simple Ink.  It will come in quite handy, don't you think?");
			quest::summonitem(58145,20);
			quest::summonitem(98298,20);
			quest::summonitem(98256,20);	
		}
		elsif($client->GetSkill(58) < 46)
		{
			quest::say("If you'd like to get to some real researching, my secret method for Simple Book Bindings will do the trick.  I'll share the secret with you though, because you've been such a great student.");
			quest::summonitem(98299,20);
			quest::summonitem(98300,20);
			quest::summonitem(98301,20);
		}
		elsif($client->GetSkill(58) < 54)
		{
			quest::say("Ahh, that was a great job.  Now, it's getting a little late in the day for me.  I've got one last little project, if you'd like to try your hand at it.  These Simple Black Books are just what you'll need to keep the fruits of your research in perpetuity. You'll be pleased, I'm sure.");
			quest::summonitem(98294,20);
			quest::summonitem(98302,20);
			quest::summonitem(98303,20);
		}
		if($client->GetSkill(58) >=54)
		{
			quest::say("I'm sorry, your skill is too great for my help now.  Perhaps it is time to learn another craft.")
		}
	}
}