Title Giver!

[Bristlebane[nj]]

Well, thanks to Trevius I have successfully made a NPC that will give the player a Title infront of their name , this is only the start of the script. I will be adding more to it to allow players to get Titles for killing bosses or doing quests! Thanks Trevius for the command!

sub EVENT_SAY
{
if ($text =~/hail/i)
{
quest::say("Hail, I am the Title Giver, if you wish to have a title that is in my list, please let me know. Special Titles will be rewarded for killing bosses.");
$client->Message(13,"[Newbie] - [Reaver] - [Healer] - [Warlord] - [Summoner] - [Buffer] - [Spirit] - [Auger] - [Hunter]");
$client->Message(14,"You may have to relog or rezone for the Title to take affect!");
}
if ($text =~/newbie/i)
{
quest::say("You're title has been changed please zone for it to take effect");
$client->SetAATitle("Newbie");
}
if ($text =~/reaver/i)
{
quest::say("You're title has been changed please zone for it to take effect");
$client->SetAATitle("Reaver");
}
if ($text =~/healer/i)
{
quest::say("You're title has been changed please zone for it to take effect");
$client->SetAATitle("Healer");
}
if ($text =~/warlord/i)
{
quest::say("You're title has been changed please zone for it to take effect");
$client->SetAATitle("Warlord");
}
if ($text =~/summoner/i)
{
quest::say("You're title has been changed please zone for it to take effect");
$client->SetAATitle("Summoner");
}
if ($text =~/buffer/i)
{
quest::say("You're title has been changed please zone for it to take effect");
$client->SetAATitle("Buffer");
}
if ($text =~/spirit/i)
{
quest::say("You're title has been changed please zone for it to take effect");
$client->SetAATitle("Spirit");
}
if ($text =~/auger/i)
{
quest::say("You're title has been changed please zone for it to take effect");
$client->SetAATitle("Auger");
}
if ($text =~/hunter/i)
{
quest::say("You're title has been changed please zone for it to take effect");
$client->SetAATitle("Hunter");
	}
}