Drakkin Heritage?

Mortow · #1 10-21-2013, 02:09 PM

I am working on a quest for the Drakkin breath weapons but I am having trouble with the heritage part.

I referenced this post:
http://www.eqemulator.org/forums/sho...akkin+heritage

No matter what I try I can't get it to work with the heritage refence.

Here is a part of what I am working with. I have taken the heritage part out since it didn't work. I would appreciate any insight into what I need to do to get it right.

Code:

sub EVENT_SAY
{
	my $NPCName = $npc->GetCleanName();
	my $learn = quest::saylink("learn");
	my $second = quest::saylink("second");
	my $third = quest::saylink("third");
	my $fourth = quest::saylink("fourth");
	my $fifth = quest::saylink("fifth");
	my $sixth = quest::saylink("sixth");
	my $seventh = quest::saylink("seventh");
	my $eighth = quest::saylink("eighth");
	my $nineth = quest::saylink("nineth");
	my $tenth = quest::saylink("tenth");
	my $eleventh = quest::saylink("eleventh");
	my $twelveth = quest::saylink("twelveth");
	my $thirteenth = quest::saylink("thirteenth");
	my $fourteenth = quest::saylink("fourteenth");
	my $fifteenth = quest::saylink("fifteenth");
			
	if($text=~/Hail/i)
	{
		
		if($client->GetBaseRace == 522)
		
		{
		if (($qglobals{Atathus} == 0) && $ulevel >= 5)
			{
			$client->Message(315, "$NPCName whispers to you, 'Hello, my child.  I know the transition has been difficult and you may not remember but you are of my blood.  What this means is that you have within you the power of all dragonkin, our deadly breath.  As you grow so too shall it grow.  Do you wish to $learn how to call upon your dragon blood?'");
			}
		if (($qglobals{Atathus} == 0) && $ulevel < 5)
			{
			$client->Message(315, "$NPCName whispers to you, 'Come back, my child, when you have become stronger.'");
			}
		if (($qglobals{Atathus} == 1) && $ulevel >= 10)
			{
			$client->Message(315, "$NPCName whispers to you, 'I am pleased that you have returned, $name.  Are you prepared for your $second lessons?'");
			}
		if (($qglobals{Atathus} == 1) && $ulevel < 10)
			{
			$client->Message(315, "$NPCName whispers to you, 'Come back, my child, when you have become stronger.'");
			}
		if (($qglobals{Atathus} == 2) && $ulevel >= 15)
			{
			$client->Message(315, "$NPCName whispers to you, 'I am pleased that you have returned, $name.  Are you prepared for your $third lessons?'");
			}
		if (($qglobals{Atathus} == 2) && $ulevel < 15)
			{
			$client->Message(315, "$NPCName whispers to you, 'Come back, my child, when you have become stronger.'");
			}
		if (($qglobals{Atathus} == 3) && $ulevel >= 20)
			{
			$client->Message(315, "$NPCName whispers to you, 'I am pleased that you have returned, $name.  Are you prepared for your $fourth lessons?'");
			}
		if (($qglobals{Atathus} == 3) && $ulevel < 20)
			{
			$client->Message(315, "$NPCName whispers to you, 'Come back, my child, when you have become stronger.'");
			}
		if (($qglobals{Atathus} == 4) && $ulevel >= 25)
			{
			$client->Message(315, "$NPCName whispers to you, 'I am pleased that you have returned, $name.  Are you prepared for your $fifth lessons?'");
			}
		if (($qglobals{Atathus} == 4) && $ulevel < 25)
			{
			$client->Message(315, "$NPCName whispers to you, 'Come back, my child, when you have become stronger.'");
			}
		if (($qglobals{Atathus} == 5) && $ulevel >= 30)	
			{
			$client->Message(315, "$NPCName whispers to you, 'I am pleased that you have returned, $name.  Are you prepared for your $sixth lessons?'");
			}
		if (($qglobals{Atathus} == 5) && $ulevel < 30)
			{
			$client->Message(315, "$NPCName whispers to you, 'Come back, my child, when you have become stronger.'");
			}
		if (($qglobals{Atathus} == 6) && $ulevel >= 35)
			{
			$client->Message(315, "$NPCName whispers to you, 'I am pleased that you have returned, $name.  Are you prepared for your $seventh lessons?'");
			}
		if (($qglobals{Atathus} == 6) && $ulevel < 35)
			{
			$client->Message(315, "$NPCName whispers to you, 'Come back, my child, when you have become stronger.'");
			}
		if (($qglobals{Atathus} == 7) && $ulevel >= 40)
			{
			$client->Message(315, "$NPCName whispers to you, 'I am pleased that you have returned, $name.  Are you prepared for your $eighth lessons?'");
			}
		if (($qglobals{Atathus} == 7) && $ulevel < 40)
			{
			$client->Message(315, "$NPCName whispers to you, 'Come back, my child, when you have become stronger.'");
			}
		if (($qglobals{Atathus} == 8) && $ulevel >= 45)
			{
			$client->Message(315, "$NPCName whispers to you, 'I am pleased that you have returned, $name.  Are you prepared for your $nineth lessons?'");
			}
		if (($qglobals{Atathus} == 8) && $ulevel < 45)
			{
			$client->Message(315, "$NPCName whispers to you, 'Come back, my child, when you have become stronger.'");
			}
		if (($qglobals{Atathus} == 9) && $ulevel >= 50)
			{
			$client->Message(315, "$NPCName whispers to you, 'I am pleased that you have returned, $name.  Are you prepared for your $tenth lessons?'");
			}
		if (($qglobals{Atathus} == 9) && $ulevel < 50)
			{
			$client->Message(315, "$NPCName whispers to you, 'Come back, my child, when you have become stronger.'");
			}
		if (($qglobals{Atathus} == 10) && $ulevel >= 55)
			{			
			$client->Message(315, "$NPCName whispers to you, 'I am pleased that you have returned, $name.  Are you prepared for your $eleventh lessons?'");
			}
		if (($qglobals{Atathus} == 10) && $ulevel < 55)
			{
			$client->Message(315, "$NPCName whispers to you, 'Come back, my child, when you have become stronger.'");
			}
		if (($qglobals{Atathus} == 11) && $ulevel >= 60)
			{
			$client->Message(315, "$NPCName whispers to you, 'I am pleased that you have returned, $name.  Are you prepared for your $twelveth lessons?'");
			}
		if (($qglobals{Atathus} == 11) && $ulevel < 60)
			{
			$client->Message(315, "$NPCName whispers to you, 'Come back, my child, when you have become stronger.'");
			}
		if (($qglobals{Atathus} == 12) && $ulevel >= 65)
			{
			$client->Message(315, "$NPCName whispers to you, 'I am pleased that you have returned, $name.  Are you prepared for your $thirteenth lessons?'");
			}
		if (($qglobals{Atathus} == 12) && $ulevel < 65)
			{
			$client->Message(315, "$NPCName whispers to you, 'Come back, my child, when you have become stronger.'");
			}
		if (($qglobals{Atathus} == 13) && $ulevel >= 70)
			{
			$client->Message(315, "$NPCName whispers to you, 'I am pleased that you have returned, $name.  Are you prepared for your $fourteenth lessons?'");
			}
		if (($qglobals{Atathus} == 13) && $ulevel < 70)
			{
			$client->Message(315, "$NPCName whispers to you, 'Come back, my child, when you have become stronger.'");
			}
		if (($qglobals{Atathus} == 14) && $ulevel >= 75)
			{
			$client->Message(315, "$NPCName whispers to you, 'I am pleased that you have returned, $name.  Are you prepared for your $fifteenth lessons?'");
			}
		if (($qglobals{Atathus} == 14) && $ulevel < 75)
			{
			$client->Message(315, "$NPCName whispers to you, 'Come back, my child, when you have become stronger.'");
			}
		if ($qglobals{Atathus} == 15)
			{
			$client->Message(315, "$NPCName whispers to you, 'I have nothing further to teach you at this time.  You have done well $name.  Bring pride upon our brood.'");
			}
		}
		
		if($client->GetBaseRace < 522)
			{
			$client->Message(315, "$NPCName whispers to you, 'You are not one of my children.  Begone!'");
			}
			
	}
	if($text=~/Learn/i)
		{
		$client->Message(315, "$NPCName whispers to you, 'It pleases me that you are eager to learn the ways of your blood and brood.  The learning process will not be easy but the rewards for success will be great.  Bring unto me one Hollows Widow Poison Sac and I will teach you the first lesson.'");
		}
	if($text=~/Second/i)
		{
		$client->Message(315, "$NPCName whispers to you, 'Very well, bring me the Skull of Charbones and I will teach you how to further focus your breath weapon.'");
		}
	if($text=~/third/i)
		{
		$client->Message(315, "$NPCName whispers to you, 'Very well, bring me the Head of Bloodmaw and I will teach you how to further focus your breath weapon.'");
		}
	if($text=~/fourth/i)
		{
		$client->Message(315, "$NPCName whispers to you, 'Very well, bring me the Head of Plaguebringer and I will teach you how to further focus your breath weapon.'");
		}	
	if($text=~/Fifth/i)
		{
		$client->Message(315, "$NPCName whispers to you, 'Very well, bring me the Eye of Dragoneater and I will teach you how to further focus your breath weapon.'");
		}	
	if($text=~/Sixth/i)
		{
		$client->Message(315, "$NPCName whispers to you, 'Very well, bring me the Head of Duskfall and I will teach you how to further focus your breath weapon.'");
		}	
	if($text=~/Seventh/i)
		{
		$client->Message(315, "$NPCName whispers to you, 'Very well, bring me some enchanted vines and I will teach you how to further focus your breath weapon.'");
		}	
	if($text=~/Eighth/i)
		{
		$client->Message(315, "$NPCName whispers to you, 'Very well, bring me Poisonmaker Maliza's Stinger and I will teach you how to further focus your breath weapon.'");
		}	
	if($text=~/Nineth/i)
		{
		$client->Message(315, "$NPCName whispers to you, 'Very well, bring me s Branch from Refugiu and I will teach you how to further focus your breath weapon.'");
		}
	if($text=~/Tenth/i)
		{
		$client->Message(315, "$NPCName whispers to you, 'Very well, bring me the Head of Nestor and I will teach you how to further focus your breath weapon.'");
		}
	if($text=~/Eleventh/i)
		{
		$client->Message(315, "$NPCName whispers to you, 'Very well, bring me Ionela's Wings and I will teach you how to further focus your breath weapon.'");
		}	
	if($text=~/Twelveth/i)
		{
		$client->Message(315, "$NPCName whispers to you, 'Very well, bring me the Head of Razorfang and I will teach you how to further focus your breath weapon.'");
		}
	if($text=~/Thirteenth/i)
		{
		$client->Message(315, "$NPCName whispers to you, 'Very well, bring me the Head of Serravok and I will teach you how to further focus your breath weapon.'");
		}
	if($text=~/Fourteenth/i)
		{
		$client->Message(315, "$NPCName whispers to you, 'Very well, bring me the Skull of Velosk and I will teach you how to further focus your breath weapon.'");
		}
	if($text=~/Fifteenth/i)
		{
		$client->Message(315, "$NPCName whispers to you, 'Very well, bring me the Head of Kellet and I will teach you how to further focus your breath weapon.'");
		}
	
}	
sub EVENT_ITEM
{
	if (plugin::check_handin(\%itemcount, 64090 => 1))
		{
		if ($qglobals{Atathus} == 0)
		{
		$client->Message(315, "$NPCName whispers to you, 'Excellent, $name. You have proven you are ready for your first lesson.'");
		$client->IncrementAA(5150);
		quest::exp(10000);
		quest::ding;
		quest::setglobal("Atathus", 1, 0, "F");
		}
		}
	if (plugin::check_handin(\%itemcount, 64091 => 1))
		{
		if ($qglobals{Atathus} == 1)
		{
		$client->Message(315, "$NPCName whispers to you, 'Excellent, $name. You have proven you are ready for your second lesson.'");
		$client->IncrementAA(5150);
		quest::exp(20000);
		quest::ding;
		quest::setglobal("Atathus", 2, 0, "F");
		}
		}
	if (plugin::check_handin(\%itemcount, 64092 => 1))
		{
		if ($qglobals{Atathus} == 2)
		{
		$client->Message(315, "$NPCName whispers to you, 'Excellent, $name. You have proven you are ready for your third lesson.'");
		$client->IncrementAA(5150);
		quest::exp(30000);
		quest::ding;
		quest::setglobal("Atathus", 3, 0, "F");
		}
		}
	if (plugin::check_handin(\%itemcount, 64093 => 1))
		{
		if ($qglobals{Atathus} == 3)
		{
		$client->Message(315, "$NPCName whispers to you, 'Excellent, $name. You have proven you are ready for your fourth lesson.'");
		$client->IncrementAA(5150);
		quest::exp(40000);
		quest::ding;
		quest::setglobal("Atathus", 4, 0, "F");
		}
		}
	if (plugin::check_handin(\%itemcount, 64094 => 1))
		{
		if ($qglobals{Atathus} == 4)
		{
		$client->Message(315, "$NPCName whispers to you, 'Excellent, $name. You have proven you are ready for your fifth lesson.'");
		$client->IncrementAA(5150);
		quest::exp(50000);
		quest::ding;
		quest::setglobal("Atathus", 5, 0, "F");
		}
		}
	if (plugin::check_handin(\%itemcount, 64095 => 1))
		{
		if ($qglobals{Atathus} == 5)
		{
		$client->Message(315, "$NPCName whispers to you, 'Excellent, $name. You have proven you are ready for your sixth lesson.'");
		$client->IncrementAA(5150);
		quest::exp(60000);
		quest::ding;
		quest::setglobal("Atathus", 6, 0, "F");
		}
		}
	if (plugin::check_handin(\%itemcount, 64096 => 1))
		{
		if ($qglobals{Atathus} == 6)
		{
		$client->Message(315, "$NPCName whispers to you, 'Excellent, $name. You have proven you are ready for your seventh lesson.'");
		$client->IncrementAA(5150);
		quest::exp(70000);
		quest::ding;
		quest::setglobal("Atathus", 7, 0, "F");
		}
		}
	if (plugin::check_handin(\%itemcount, 64097 => 1))
		{
		if ($qglobals{Atathus} == 7)
		{
		$client->Message(315, "$NPCName whispers to you, 'Excellent, $name. You have proven you are ready for your eighth lesson.'");
		$client->IncrementAA(5150);
		quest::exp(80000);
		quest::ding;
		quest::setglobal("Atathus", 8, 0, "F");
		}
		}
	if (plugin::check_handin(\%itemcount, 64098 => 1))
		{
		if ($qglobals{Atathus} == 8)
		{
		$client->Message(315, "$NPCName whispers to you, 'Excellent, $name. You have proven you are ready for your nineth lesson.'");
		$client->IncrementAA(5150);
		quest::exp(90000);
		quest::ding;
		quest::setglobal("Atathus", 9, 0, "F");
		}
		}
	if (plugin::check_handin(\%itemcount, 64099 => 1))
		{
		if ($qglobals{Atathus} == 9)
		{
		$client->Message(315, "$NPCName whispers to you, 'Excellent, $name. You have proven you are ready for your tenth lesson.'");
		$client->IncrementAA(5150);
		quest::exp(100000);
		quest::ding;
		quest::setglobal("Atathus", 10, 0, "F");
		}
		}
	if (plugin::check_handin(\%itemcount, 64100 => 1))
		{
		if ($qglobals{Atathus} == 10)
		{
		$client->Message(315, "$NPCName whispers to you, 'Excellent, $name. You have proven you are ready for your eleventh lesson.'");
		$client->IncrementAA(5150);
		quest::exp(110000);
		quest::ding;
		quest::setglobal("Atathus", 11, 0, "F");
		}
		}
	if (plugin::check_handin(\%itemcount, 64101 => 1))
		{
		if ($qglobals{Atathus} == 11)
		{
		$client->Message(315, "$NPCName whispers to you, 'Excellent, $name. You have proven you are ready for your twelveth lesson.'");
		$client->IncrementAA(5150);
		quest::exp(120000);
		quest::ding;
		quest::setglobal("Atathus", 12, 0, "F");
		}
		}
	if (plugin::check_handin(\%itemcount, 64102 => 1))
		{
		if ($qglobals{Atathus} == 12)
		{
		$client->Message(315, "$NPCName whispers to you, 'Excellent, $name. You have proven you are ready for your thirteenth lesson.'");
		$client->IncrementAA(5150);
		quest::exp(130000);
		quest::ding;
		quest::setglobal("Atathus", 13, 0, "F");
		}
		}
	if (plugin::check_handin(\%itemcount, 64103 => 1))
		{
		if ($qglobals{Atathus} == 13)
		{
		$client->Message(315, "$NPCName whispers to you, 'Excellent, $name. You have proven you are ready for your fourteenth lesson.'");
		$client->IncrementAA(5150);
		quest::exp(140000);
		quest::ding;
		quest::setglobal("Atathus", 14, 0, "F");
		}
		}
	if (plugin::check_handin(\%itemcount, 64104 => 1))
		{
		if ($qglobals{Atathus} == 14)
		{
		$client->Message(315, "$NPCName whispers to you, 'Excellent, $name. You have proven you are ready for your fifteenth lesson.'");
		$client->IncrementAA(5150);
		quest::exp(150000);
		quest::ding;
		quest::setglobal("Atathus", 15, 0, "F");
		}
		}
	if (plugin::check_handin(\%itemcount, 64104 => 1))
		{
		if ($qglobals{Atathus} == 15)
		{
		$client->Message(315, "$NPCName whispers to you, 'Excellent, $name. You have proven you are ready for your sixteenth lesson.'");
		$client->IncrementAA(5150);
		quest::exp(160000);
		quest::ding;
		quest::setglobal("Atathus", 16, 0, "F");
		}
		}
	
	{
	plugin::return_items(\%itemcount);
	}
}

I know there have to be betters ways of writing this but this is my first attempt at something like this and it works, except for the heritage part.

Thanks.

Mortow · #2 10-21-2013, 07:51 PM

Ok, I figured it out. If anyone wants the scripts, let me know and I will post them.

sorvani · #3 10-21-2013, 10:58 PM

Share or do not share. do not ask people to beg for them.

Also, go learn what an elsif does, that script gave me a headache from all the wasted processing.

Mortow · #4 10-22-2013, 06:34 PM

Really not sure if these should be posted here or in custom since the text is not the same as live. I did however keep the turn-ins the same.

Sorvani is right, they are ugly but I have tested them and they do restrict access to the quests to drakkin only and then by heritage.

There is one for each dragon. Don't forget to enable qglobals for each dragon.

Atathus:

Code:

sub EVENT_SAY
{
	my $NPCName = $npc->GetCleanName();
	my $learn = quest::saylink("learn");
	my $second = quest::saylink("second");
	my $third = quest::saylink("third");
	my $fourth = quest::saylink("fourth");
	my $fifth = quest::saylink("fifth");
	my $sixth = quest::saylink("sixth");
	my $seventh = quest::saylink("seventh");
	my $eighth = quest::saylink("eighth");
	my $nineth = quest::saylink("nineth");
	my $tenth = quest::saylink("tenth");
	my $eleventh = quest::saylink("eleventh");
	my $twelveth = quest::saylink("twelveth");
	my $thirteenth = quest::saylink("thirteenth");
	my $fourteenth = quest::saylink("fourteenth");
	my $fifteenth = quest::saylink("fifteenth");
			
	if($text=~/Hail/i)
	{
		
		if($client->GetBaseRace == 522)
		{
		my $bloodline = $client->GetDrakkinHeritage();
		if($bloodline == 0)
		{
		if (($qglobals{Atathus} == 0) && $ulevel >= 5)
			{
			$client->Message(315, "$NPCName whispers to you, 'Hello, my child.  I know the transition has been difficult and you may not remember but you are of my blood.  What this means is that you have within you the power of all dragonkin, our deadly breath.  As you grow so too shall it grow.  Do you wish to $learn how to call upon your dragon blood?'");
			}
		if (($qglobals{Atathus} == 0) && $ulevel < 5)
			{
			$client->Message(315, "$NPCName whispers to you, 'Come back, my child, when you have become stronger.'");
			}
		if (($qglobals{Atathus} == 1) && $ulevel >= 10)
			{
			$client->Message(315, "$NPCName whispers to you, 'I am pleased that you have returned, $name.  Are you prepared for your $second lessons?'");
			}
		if (($qglobals{Atathus} == 1) && $ulevel < 10)
			{
			$client->Message(315, "$NPCName whispers to you, 'Come back, my child, when you have become stronger.'");
			}
		if (($qglobals{Atathus} == 2) && $ulevel >= 15)
			{
			$client->Message(315, "$NPCName whispers to you, 'I am pleased that you have returned, $name.  Are you prepared for your $third lessons?'");
			}
		if (($qglobals{Atathus} == 2) && $ulevel < 15)
			{
			$client->Message(315, "$NPCName whispers to you, 'Come back, my child, when you have become stronger.'");
			}
		if (($qglobals{Atathus} == 3) && $ulevel >= 20)
			{
			$client->Message(315, "$NPCName whispers to you, 'I am pleased that you have returned, $name.  Are you prepared for your $fourth lessons?'");
			}
		if (($qglobals{Atathus} == 3) && $ulevel < 20)
			{
			$client->Message(315, "$NPCName whispers to you, 'Come back, my child, when you have become stronger.'");
			}
		if (($qglobals{Atathus} == 4) && $ulevel >= 25)
			{
			$client->Message(315, "$NPCName whispers to you, 'I am pleased that you have returned, $name.  Are you prepared for your $fifth lessons?'");
			}
		if (($qglobals{Atathus} == 4) && $ulevel < 25)
			{
			$client->Message(315, "$NPCName whispers to you, 'Come back, my child, when you have become stronger.'");
			}
		if (($qglobals{Atathus} == 5) && $ulevel >= 30)	
			{
			$client->Message(315, "$NPCName whispers to you, 'I am pleased that you have returned, $name.  Are you prepared for your $sixth lessons?'");
			}
		if (($qglobals{Atathus} == 5) && $ulevel < 30)
			{
			$client->Message(315, "$NPCName whispers to you, 'Come back, my child, when you have become stronger.'");
			}
		if (($qglobals{Atathus} == 6) && $ulevel >= 35)
			{
			$client->Message(315, "$NPCName whispers to you, 'I am pleased that you have returned, $name.  Are you prepared for your $seventh lessons?'");
			}
		if (($qglobals{Atathus} == 6) && $ulevel < 35)
			{
			$client->Message(315, "$NPCName whispers to you, 'Come back, my child, when you have become stronger.'");
			}
		if (($qglobals{Atathus} == 7) && $ulevel >= 40)
			{
			$client->Message(315, "$NPCName whispers to you, 'I am pleased that you have returned, $name.  Are you prepared for your $eighth lessons?'");
			}
		if (($qglobals{Atathus} == 7) && $ulevel < 40)
			{
			$client->Message(315, "$NPCName whispers to you, 'Come back, my child, when you have become stronger.'");
			}
		if (($qglobals{Atathus} == 8) && $ulevel >= 45)
			{
			$client->Message(315, "$NPCName whispers to you, 'I am pleased that you have returned, $name.  Are you prepared for your $nineth lessons?'");
			}
		if (($qglobals{Atathus} == 8) && $ulevel < 45)
			{
			$client->Message(315, "$NPCName whispers to you, 'Come back, my child, when you have become stronger.'");
			}
		if (($qglobals{Atathus} == 9) && $ulevel >= 50)
			{
			$client->Message(315, "$NPCName whispers to you, 'I am pleased that you have returned, $name.  Are you prepared for your $tenth lessons?'");
			}
		if (($qglobals{Atathus} == 9) && $ulevel < 50)
			{
			$client->Message(315, "$NPCName whispers to you, 'Come back, my child, when you have become stronger.'");
			}
		if (($qglobals{Atathus} == 10) && $ulevel >= 55)
			{			
			$client->Message(315, "$NPCName whispers to you, 'I am pleased that you have returned, $name.  Are you prepared for your $eleventh lessons?'");
			}
		if (($qglobals{Atathus} == 10) && $ulevel < 55)
			{
			$client->Message(315, "$NPCName whispers to you, 'Come back, my child, when you have become stronger.'");
			}
		if (($qglobals{Atathus} == 11) && $ulevel >= 60)
			{
			$client->Message(315, "$NPCName whispers to you, 'I am pleased that you have returned, $name.  Are you prepared for your $twelveth lessons?'");
			}
		if (($qglobals{Atathus} == 11) && $ulevel < 60)
			{
			$client->Message(315, "$NPCName whispers to you, 'Come back, my child, when you have become stronger.'");
			}
		if (($qglobals{Atathus} == 12) && $ulevel >= 65)
			{
			$client->Message(315, "$NPCName whispers to you, 'I am pleased that you have returned, $name.  Are you prepared for your $thirteenth lessons?'");
			}
		if (($qglobals{Atathus} == 12) && $ulevel < 65)
			{
			$client->Message(315, "$NPCName whispers to you, 'Come back, my child, when you have become stronger.'");
			}
		if (($qglobals{Atathus} == 13) && $ulevel >= 70)
			{
			$client->Message(315, "$NPCName whispers to you, 'I am pleased that you have returned, $name.  Are you prepared for your $fourteenth lessons?'");
			}
		if (($qglobals{Atathus} == 13) && $ulevel < 70)
			{
			$client->Message(315, "$NPCName whispers to you, 'Come back, my child, when you have become stronger.'");
			}
		if (($qglobals{Atathus} == 14) && $ulevel >= 75)
			{
			$client->Message(315, "$NPCName whispers to you, 'I am pleased that you have returned, $name.  Are you prepared for your $fifteenth lessons?'");
			}
		if (($qglobals{Atathus} == 14) && $ulevel < 75)
			{
			$client->Message(315, "$NPCName whispers to you, 'Come back, my child, when you have become stronger.'");
			}
		if ($qglobals{Atathus} == 15)
			{
			$client->Message(315, "$NPCName whispers to you, 'I have nothing further to teach you at this time.  You have done well $name.  Bring pride upon our brood.'");
			}
		}	
		if($bloodline > 0)
			{
			$client->Message(315, "$NPCName whispers to you, 'You are not of my brood.  Go and speak with one of my brother.'");
			}
		}
		if($client->GetBaseRace < 522)
			{
			$client->Message(315, "$NPCName whispers to you, 'You are not of dragonkin.  Begone!'");
			}		
	}
	if($text=~/Learn/i)
		{
		$client->Message(315, "$NPCName whispers to you, 'It pleases me that you are eager to learn the ways of your blood and brood.  The learning process will not be easy but the rewards for success will be great.  Bring unto me one Hollows Widow Poison Sac and I will teach you the first lesson.'");
		}
	if($text=~/Second/i)
		{
		$client->Message(315, "$NPCName whispers to you, 'Very well, bring me the Skull of Charbones and I will teach you how to further focus your breath weapon.'");
		}
	if($text=~/third/i)
		{
		$client->Message(315, "$NPCName whispers to you, 'Very well, bring me the Head of Bloodmaw and I will teach you how to further focus your breath weapon.'");
		}
	if($text=~/fourth/i)
		{
		$client->Message(315, "$NPCName whispers to you, 'Very well, bring me the Head of Plaguebringer and I will teach you how to further focus your breath weapon.'");
		}	
	if($text=~/Fifth/i)
		{
		$client->Message(315, "$NPCName whispers to you, 'Very well, bring me the Eye of Dragoneater and I will teach you how to further focus your breath weapon.'");
		}	
	if($text=~/Sixth/i)
		{
		$client->Message(315, "$NPCName whispers to you, 'Very well, bring me the Head of Duskfall and I will teach you how to further focus your breath weapon.'");
		}	
	if($text=~/Seventh/i)
		{
		$client->Message(315, "$NPCName whispers to you, 'Very well, bring me some enchanted vines and I will teach you how to further focus your breath weapon.'");
		}	
	if($text=~/Eighth/i)
		{
		$client->Message(315, "$NPCName whispers to you, 'Very well, bring me Poisonmaker Maliza's Stinger and I will teach you how to further focus your breath weapon.'");
		}	
	if($text=~/Nineth/i)
		{
		$client->Message(315, "$NPCName whispers to you, 'Very well, bring me s Branch from Refugiu and I will teach you how to further focus your breath weapon.'");
		}
	if($text=~/Tenth/i)
		{
		$client->Message(315, "$NPCName whispers to you, 'Very well, bring me the Head of Nestor and I will teach you how to further focus your breath weapon.'");
		}
	if($text=~/Eleventh/i)
		{
		$client->Message(315, "$NPCName whispers to you, 'Very well, bring me Ionela's Wings and I will teach you how to further focus your breath weapon.'");
		}	
	if($text=~/Twelveth/i)
		{
		$client->Message(315, "$NPCName whispers to you, 'Very well, bring me the Head of Razorfang and I will teach you how to further focus your breath weapon.'");
		}
	if($text=~/Thirteenth/i)
		{
		$client->Message(315, "$NPCName whispers to you, 'Very well, bring me the Head of Serravok and I will teach you how to further focus your breath weapon.'");
		}
	if($text=~/Fourteenth/i)
		{
		$client->Message(315, "$NPCName whispers to you, 'Very well, bring me the Skull of Velosk and I will teach you how to further focus your breath weapon.'");
		}
	if($text=~/Fifteenth/i)
		{
		$client->Message(315, "$NPCName whispers to you, 'Very well, bring me the Head of Kellet and I will teach you how to further focus your breath weapon.'");
		}
	
}	
sub EVENT_ITEM
{
	if (plugin::check_handin(\%itemcount, 64090 => 1))
		{
		if ($qglobals{Atathus} == 0)
		{
		$client->Message(315, "$NPCName whispers to you, 'Excellent, $name. You have proven you are ready for your first lesson.'");
		$client->IncrementAA(5150);
		quest::exp(10000);
		quest::ding;
		quest::setglobal("Atathus", 1, 0, "F");
		}
		}
	if (plugin::check_handin(\%itemcount, 64091 => 1))
		{
		if ($qglobals{Atathus} == 1)
		{
		$client->Message(315, "$NPCName whispers to you, 'Excellent, $name. You have proven you are ready for your second lesson.'");
		$client->IncrementAA(5150);
		quest::exp(20000);
		quest::ding;
		quest::setglobal("Atathus", 2, 0, "F");
		}
		}
	if (plugin::check_handin(\%itemcount, 64092 => 1))
		{
		if ($qglobals{Atathus} == 2)
		{
		$client->Message(315, "$NPCName whispers to you, 'Excellent, $name. You have proven you are ready for your third lesson.'");
		$client->IncrementAA(5150);
		quest::exp(30000);
		quest::ding;
		quest::setglobal("Atathus", 3, 0, "F");
		}
		}
	if (plugin::check_handin(\%itemcount, 64093 => 1))
		{
		if ($qglobals{Atathus} == 3)
		{
		$client->Message(315, "$NPCName whispers to you, 'Excellent, $name. You have proven you are ready for your fourth lesson.'");
		$client->IncrementAA(5150);
		quest::exp(40000);
		quest::ding;
		quest::setglobal("Atathus", 4, 0, "F");
		}
		}
	if (plugin::check_handin(\%itemcount, 64094 => 1))
		{
		if ($qglobals{Atathus} == 4)
		{
		$client->Message(315, "$NPCName whispers to you, 'Excellent, $name. You have proven you are ready for your fifth lesson.'");
		$client->IncrementAA(5150);
		quest::exp(50000);
		quest::ding;
		quest::setglobal("Atathus", 5, 0, "F");
		}
		}
	if (plugin::check_handin(\%itemcount, 64095 => 1))
		{
		if ($qglobals{Atathus} == 5)
		{
		$client->Message(315, "$NPCName whispers to you, 'Excellent, $name. You have proven you are ready for your sixth lesson.'");
		$client->IncrementAA(5150);
		quest::exp(60000);
		quest::ding;
		quest::setglobal("Atathus", 6, 0, "F");
		}
		}
	if (plugin::check_handin(\%itemcount, 64096 => 1))
		{
		if ($qglobals{Atathus} == 6)
		{
		$client->Message(315, "$NPCName whispers to you, 'Excellent, $name. You have proven you are ready for your seventh lesson.'");
		$client->IncrementAA(5150);
		quest::exp(70000);
		quest::ding;
		quest::setglobal("Atathus", 7, 0, "F");
		}
		}
	if (plugin::check_handin(\%itemcount, 64097 => 1))
		{
		if ($qglobals{Atathus} == 7)
		{
		$client->Message(315, "$NPCName whispers to you, 'Excellent, $name. You have proven you are ready for your eighth lesson.'");
		$client->IncrementAA(5150);
		quest::exp(80000);
		quest::ding;
		quest::setglobal("Atathus", 8, 0, "F");
		}
		}
	if (plugin::check_handin(\%itemcount, 64098 => 1))
		{
		if ($qglobals{Atathus} == 8)
		{
		$client->Message(315, "$NPCName whispers to you, 'Excellent, $name. You have proven you are ready for your nineth lesson.'");
		$client->IncrementAA(5150);
		quest::exp(90000);
		quest::ding;
		quest::setglobal("Atathus", 9, 0, "F");
		}
		}
	if (plugin::check_handin(\%itemcount, 64099 => 1))
		{
		if ($qglobals{Atathus} == 9)
		{
		$client->Message(315, "$NPCName whispers to you, 'Excellent, $name. You have proven you are ready for your tenth lesson.'");
		$client->IncrementAA(5150);
		quest::exp(100000);
		quest::ding;
		quest::setglobal("Atathus", 10, 0, "F");
		}
		}
	if (plugin::check_handin(\%itemcount, 64100 => 1))
		{
		if ($qglobals{Atathus} == 10)
		{
		$client->Message(315, "$NPCName whispers to you, 'Excellent, $name. You have proven you are ready for your eleventh lesson.'");
		$client->IncrementAA(5150);
		quest::exp(110000);
		quest::ding;
		quest::setglobal("Atathus", 11, 0, "F");
		}
		}
	if (plugin::check_handin(\%itemcount, 64101 => 1))
		{
		if ($qglobals{Atathus} == 11)
		{
		$client->Message(315, "$NPCName whispers to you, 'Excellent, $name. You have proven you are ready for your twelveth lesson.'");
		$client->IncrementAA(5150);
		quest::exp(120000);
		quest::ding;
		quest::setglobal("Atathus", 12, 0, "F");
		}
		}
	if (plugin::check_handin(\%itemcount, 64102 => 1))
		{
		if ($qglobals{Atathus} == 12)
		{
		$client->Message(315, "$NPCName whispers to you, 'Excellent, $name. You have proven you are ready for your thirteenth lesson.'");
		$client->IncrementAA(5150);
		quest::exp(130000);
		quest::ding;
		quest::setglobal("Atathus", 13, 0, "F");
		}
		}
	if (plugin::check_handin(\%itemcount, 64103 => 1))
		{
		if ($qglobals{Atathus} == 13)
		{
		$client->Message(315, "$NPCName whispers to you, 'Excellent, $name. You have proven you are ready for your fourteenth lesson.'");
		$client->IncrementAA(5150);
		quest::exp(140000);
		quest::ding;
		quest::setglobal("Atathus", 14, 0, "F");
		}
		}
	if (plugin::check_handin(\%itemcount, 64104 => 1))
		{
		if ($qglobals{Atathus} == 14)
		{
		$client->Message(315, "$NPCName whispers to you, 'Excellent, $name. You have proven you are ready for your fifteenth lesson.'");
		$client->IncrementAA(5150);
		quest::exp(150000);
		quest::ding;
		quest::setglobal("Atathus", 15, 0, "F");
		}
		}
	if (plugin::check_handin(\%itemcount, 64104 => 1))
		{
		if ($qglobals{Atathus} == 15)
		{
		$client->Message(315, "$NPCName whispers to you, 'Excellent, $name. You have proven you are ready for your sixteenth lesson.'");
		$client->IncrementAA(5150);
		quest::exp(160000);
		quest::ding;
		quest::setglobal("Atathus", 16, 0, "F");
		}
		}
	
	{
	plugin::return_items(\%itemcount);
	}
}

Draton'Ra:

Code:

sub EVENT_SAY
{
	my $NPCName = $npc->GetCleanName();
	my $learn = quest::saylink("learn");
	my $second = quest::saylink("second");
	my $third = quest::saylink("third");
	my $fourth = quest::saylink("fourth");
	my $fifth = quest::saylink("fifth");
	my $sixth = quest::saylink("sixth");
	my $seventh = quest::saylink("seventh");
	my $eighth = quest::saylink("eighth");
	my $nineth = quest::saylink("nineth");
	my $tenth = quest::saylink("tenth");
	my $eleventh = quest::saylink("eleventh");
	my $twelveth = quest::saylink("twelveth");
	my $thirteenth = quest::saylink("thirteenth");
	my $fourteenth = quest::saylink("fourteenth");
	my $fifteenth = quest::saylink("fifteenth");
			
	if($text=~/Hail/i)
	{
		
		if($client->GetBaseRace == 522)
		{
		my $bloodline = $client->GetDrakkinHeritage();
		if($bloodline == 1)		
		{
		if (($qglobals{Dratonra} == 0) && $ulevel >= 5)
			{
			$client->Message(315, "$NPCName whispers to you, 'Hello, my child.  I know the transition has been difficult and you may not remember but you are of my blood.  What this means is that you have within you the power of all dragonkin, our deadly breath.  As you grow so too shall it grow.  Do you wish to $learn how to call upon your dragon blood?'");
			}
		if (($qglobals{Dratonra} == 0) && $ulevel < 5)
			{
			$client->Message(315, "$NPCName whispers to you, 'Come back, my child, when you have become stronger.'");
			}
		if (($qglobals{Dratonra} == 1) && $ulevel >= 10)
			{
			$client->Message(315, "$NPCName whispers to you, 'I am pleased that you have returned, $name.  Are you prepared for your $second lessons?'");
			}
		if (($qglobals{Dratonra} == 1) && $ulevel < 10)
			{
			$client->Message(315, "$NPCName whispers to you, 'Come back, my child, when you have become stronger.'");
			}
		if (($qglobals{Dratonra} == 2) && $ulevel >= 15)
			{
			$client->Message(315, "$NPCName whispers to you, 'I am pleased that you have returned, $name.  Are you prepared for your $third lessons?'");
			}
		if (($qglobals{Dratonra} == 2) && $ulevel < 15)
			{
			$client->Message(315, "$NPCName whispers to you, 'Come back, my child, when you have become stronger.'");
			}
		if (($qglobals{Dratonra} == 3) && $ulevel >= 20)
			{
			$client->Message(315, "$NPCName whispers to you, 'I am pleased that you have returned, $name.  Are you prepared for your $fourth lessons?'");
			}
		if (($qglobals{Dratonra} == 3) && $ulevel < 20)
			{
			$client->Message(315, "$NPCName whispers to you, 'Come back, my child, when you have become stronger.'");
			}
		if (($qglobals{Dratonra} == 4) && $ulevel >= 25)
			{
			$client->Message(315, "$NPCName whispers to you, 'I am pleased that you have returned, $name.  Are you prepared for your $fifth lessons?'");
			}
		if (($qglobals{Dratonra} == 4) && $ulevel < 25)
			{
			$client->Message(315, "$NPCName whispers to you, 'Come back, my child, when you have become stronger.'");
			}
		if (($qglobals{Dratonra} == 5) && $ulevel >= 30)	
			{
			$client->Message(315, "$NPCName whispers to you, 'I am pleased that you have returned, $name.  Are you prepared for your $sixth lessons?'");
			}
		if (($qglobals{Dratonra} == 5) && $ulevel < 30)
			{
			$client->Message(315, "$NPCName whispers to you, 'Come back, my child, when you have become stronger.'");
			}
		if (($qglobals{Dratonra} == 6) && $ulevel >= 35)
			{
			$client->Message(315, "$NPCName whispers to you, 'I am pleased that you have returned, $name.  Are you prepared for your $seventh lessons?'");
			}
		if (($qglobals{Dratonra} == 6) && $ulevel < 35)
			{
			$client->Message(315, "$NPCName whispers to you, 'Come back, my child, when you have become stronger.'");
			}
		if (($qglobals{Dratonra} == 7) && $ulevel >= 40)
			{
			$client->Message(315, "$NPCName whispers to you, 'I am pleased that you have returned, $name.  Are you prepared for your $eighth lessons?'");
			}
		if (($qglobals{Dratonra} == 7) && $ulevel < 40)
			{
			$client->Message(315, "$NPCName whispers to you, 'Come back, my child, when you have become stronger.'");
			}
		if (($qglobals{Dratonra} == 8) && $ulevel >= 45)
			{
			$client->Message(315, "$NPCName whispers to you, 'I am pleased that you have returned, $name.  Are you prepared for your $nineth lessons?'");
			}
		if (($qglobals{Dratonra} == 8) && $ulevel < 45)
			{
			$client->Message(315, "$NPCName whispers to you, 'Come back, my child, when you have become stronger.'");
			}
		if (($qglobals{Dratonra} == 9) && $ulevel >= 50)
			{
			$client->Message(315, "$NPCName whispers to you, 'I am pleased that you have returned, $name.  Are you prepared for your $tenth lessons?'");
			}
		if (($qglobals{Dratonra} == 9) && $ulevel < 50)
			{
			$client->Message(315, "$NPCName whispers to you, 'Come back, my child, when you have become stronger.'");
			}
		if (($qglobals{Dratonra} == 10) && $ulevel >= 55)
			{			
			$client->Message(315, "$NPCName whispers to you, 'I am pleased that you have returned, $name.  Are you prepared for your $eleventh lessons?'");
			}
		if (($qglobals{Dratonra} == 10) && $ulevel < 55)
			{
			$client->Message(315, "$NPCName whispers to you, 'Come back, my child, when you have become stronger.'");
			}
		if (($qglobals{Dratonra} == 11) && $ulevel >= 60)
			{
			$client->Message(315, "$NPCName whispers to you, 'I am pleased that you have returned, $name.  Are you prepared for your $twelveth lessons?'");
			}
		if (($qglobals{Dratonra} == 11) && $ulevel < 60)
			{
			$client->Message(315, "$NPCName whispers to you, 'Come back, my child, when you have become stronger.'");
			}
		if (($qglobals{Dratonra} == 12) && $ulevel >= 65)
			{
			$client->Message(315, "$NPCName whispers to you, 'I am pleased that you have returned, $name.  Are you prepared for your $thirteenth lessons?'");
			}
		if (($qglobals{Dratonra} == 12) && $ulevel < 65)
			{
			$client->Message(315, "$NPCName whispers to you, 'Come back, my child, when you have become stronger.'");
			}
		if (($qglobals{Dratonra} == 13) && $ulevel >= 70)
			{
			$client->Message(315, "$NPCName whispers to you, 'I am pleased that you have returned, $name.  Are you prepared for your $fourteenth lessons?'");
			}
		if (($qglobals{Dratonra} == 13) && $ulevel < 70)
			{
			$client->Message(315, "$NPCName whispers to you, 'Come back, my child, when you have become stronger.'");
			}
		if (($qglobals{Dratonra} == 14) && $ulevel >= 75)
			{
			$client->Message(315, "$NPCName whispers to you, 'I am pleased that you have returned, $name.  Are you prepared for your $fifteenth lessons?'");
			}
		if (($qglobals{Dratonra} == 14) && $ulevel < 75)
			{
			$client->Message(315, "$NPCName whispers to you, 'Come back, my child, when you have become stronger.'");
			}
		if ($qglobals{Dratonra} == 15)
			{
			$client->Message(315, "$NPCName whispers to you, 'I have nothing further to teach you at this time.  You have done well $name.  Bring pride upon our brood.'");
			}
		}	
		if($bloodline != 1)
			{
			$client->Message(315, "$NPCName whispers to you, 'You are not of my brood.  Go and speak with one of my brother.'");
			}
		}
		if($client->GetBaseRace < 522)
			{
			$client->Message(315, "$NPCName whispers to you, 'You are not of dragonkin.  Begone!'");
			}		
					
	}
	if($text=~/Learn/i)
		{
		$client->Message(315, "$NPCName whispers to you, 'It pleases me that you are eager to learn the ways of your blood and brood.  The learning process will not be easy but the rewards for success will be great.  Bring unto me one Hollows Widow Poison Sac and I will teach you the first lesson.'");
		}
	if($text=~/Second/i)
		{
		$client->Message(315, "$NPCName whispers to you, 'Very well, bring me the Skull of Charbones and I will teach you how to further focus your breath weapon.'");
		}
	if($text=~/third/i)
		{
		$client->Message(315, "$NPCName whispers to you, 'Very well, bring me the Head of Bloodmaw and I will teach you how to further focus your breath weapon.'");
		}
	if($text=~/fourth/i)
		{
		$client->Message(315, "$NPCName whispers to you, 'Very well, bring me the Head of Plaguebringer and I will teach you how to further focus your breath weapon.'");
		}	
	if($text=~/Fifth/i)
		{
		$client->Message(315, "$NPCName whispers to you, 'Very well, bring me the Eye of Dragoneater and I will teach you how to further focus your breath weapon.'");
		}	
	if($text=~/Sixth/i)
		{
		$client->Message(315, "$NPCName whispers to you, 'Very well, bring me the Head of Duskfall and I will teach you how to further focus your breath weapon.'");
		}	
	if($text=~/Seventh/i)
		{
		$client->Message(315, "$NPCName whispers to you, 'Very well, bring me some enchanted vines and I will teach you how to further focus your breath weapon.'");
		}	
	if($text=~/Eighth/i)
		{
		$client->Message(315, "$NPCName whispers to you, 'Very well, bring me Poisonmaker Maliza's Stinger and I will teach you how to further focus your breath weapon.'");
		}	
	if($text=~/Nineth/i)
		{
		$client->Message(315, "$NPCName whispers to you, 'Very well, bring me s Branch from Refugiu and I will teach you how to further focus your breath weapon.'");
		}
	if($text=~/Tenth/i)
		{
		$client->Message(315, "$NPCName whispers to you, 'Very well, bring me the Head of Nestor and I will teach you how to further focus your breath weapon.'");
		}
	if($text=~/Eleventh/i)
		{
		$client->Message(315, "$NPCName whispers to you, 'Very well, bring me Ionela's Wings and I will teach you how to further focus your breath weapon.'");
		}	
	if($text=~/Twelveth/i)
		{
		$client->Message(315, "$NPCName whispers to you, 'Very well, bring me the Head of Razorfang and I will teach you how to further focus your breath weapon.'");
		}
	if($text=~/Thirteenth/i)
		{
		$client->Message(315, "$NPCName whispers to you, 'Very well, bring me the Head of Serravok and I will teach you how to further focus your breath weapon.'");
		}
	if($text=~/Fourteenth/i)
		{
		$client->Message(315, "$NPCName whispers to you, 'Very well, bring me the Skull of Velosk and I will teach you how to further focus your breath weapon.'");
		}
	if($text=~/Fifteenth/i)
		{
		$client->Message(315, "$NPCName whispers to you, 'Very well, bring me the Head of Kellet and I will teach you how to further focus your breath weapon.'");
		}
	
}	
sub EVENT_ITEM
{
	if (plugin::check_handin(\%itemcount, 64090 => 1))
		{
		if ($qglobals{Dratonra} == 0)
		{
		$client->Message(315, "$NPCName whispers to you, 'Excellent, $name. You have proven you are ready for your first lesson.'");
		$client->IncrementAA(5165);
		quest::exp(10000);
		quest::ding;
		quest::setglobal("Dratonra", 1, 0, "F");
		}
		}
	if (plugin::check_handin(\%itemcount, 64091 => 1))
		{
		if ($qglobals{Dratonra} == 1)
		{
		$client->Message(315, "$NPCName whispers to you, 'Excellent, $name. You have proven you are ready for your second lesson.'");
		$client->IncrementAA(5165);
		quest::exp(20000);
		quest::ding;
		quest::setglobal("Dratonra", 2, 0, "F");
		}
		}
	if (plugin::check_handin(\%itemcount, 64092 => 1))
		{
		if ($qglobals{Dratonra} == 2)
		{
		$client->Message(315, "$NPCName whispers to you, 'Excellent, $name. You have proven you are ready for your third lesson.'");
		$client->IncrementAA(5165);
		quest::exp(30000);
		quest::ding;
		quest::setglobal("Dratonra", 3, 0, "F");
		}
		}
	if (plugin::check_handin(\%itemcount, 64093 => 1))
		{
		if ($qglobals{Dratonra} == 3)
		{
		$client->Message(315, "$NPCName whispers to you, 'Excellent, $name. You have proven you are ready for your fourth lesson.'");
		$client->IncrementAA(5165);
		quest::exp(40000);
		quest::ding;
		quest::setglobal("Dratonra", 4, 0, "F");
		}
		}
	if (plugin::check_handin(\%itemcount, 64094 => 1))
		{
		if ($qglobals{Dratonra} == 4)
		{
		$client->Message(315, "$NPCName whispers to you, 'Excellent, $name. You have proven you are ready for your fifth lesson.'");
		$client->IncrementAA(5165);
		quest::exp(50000);
		quest::ding;
		quest::setglobal("Dratonra", 5, 0, "F");
		}
		}
	if (plugin::check_handin(\%itemcount, 64095 => 1))
		{
		if ($qglobals{Dratonra} == 5)
		{
		$client->Message(315, "$NPCName whispers to you, 'Excellent, $name. You have proven you are ready for your sixth lesson.'");
		$client->IncrementAA(5165);
		quest::exp(60000);
		quest::ding;
		quest::setglobal("Dratonra", 6, 0, "F");
		}
		}
	if (plugin::check_handin(\%itemcount, 64096 => 1))
		{
		if ($qglobals{Dratonra} == 6)
		{
		$client->Message(315, "$NPCName whispers to you, 'Excellent, $name. You have proven you are ready for your seventh lesson.'");
		$client->IncrementAA(5165);
		quest::exp(70000);
		quest::ding;
		quest::setglobal("Dratonra", 7, 0, "F");
		}
		}
	if (plugin::check_handin(\%itemcount, 64097 => 1))
		{
		if ($qglobals{Dratonra} == 7)
		{
		$client->Message(315, "$NPCName whispers to you, 'Excellent, $name. You have proven you are ready for your eighth lesson.'");
		$client->IncrementAA(5165);
		quest::exp(80000);
		quest::ding;
		quest::setglobal("Dratonra", 8, 0, "F");
		}
		}
	if (plugin::check_handin(\%itemcount, 64098 => 1))
		{
		if ($qglobals{Dratonra} == 8)
		{
		$client->Message(315, "$NPCName whispers to you, 'Excellent, $name. You have proven you are ready for your nineth lesson.'");
		$client->IncrementAA(5165);
		quest::exp(90000);
		quest::ding;
		quest::setglobal("Dratonra", 9, 0, "F");
		}
		}
	if (plugin::check_handin(\%itemcount, 64099 => 1))
		{
		if ($qglobals{Dratonra} == 9)
		{
		$client->Message(315, "$NPCName whispers to you, 'Excellent, $name. You have proven you are ready for your tenth lesson.'");
		$client->IncrementAA(5165);
		quest::exp(100000);
		quest::ding;
		quest::setglobal("Dratonra", 10, 0, "F");
		}
		}
	if (plugin::check_handin(\%itemcount, 64100 => 1))
		{
		if ($qglobals{Dratonra} == 10)
		{
		$client->Message(315, "$NPCName whispers to you, 'Excellent, $name. You have proven you are ready for your eleventh lesson.'");
		$client->IncrementAA(5165);
		quest::exp(110000);
		quest::ding;
		quest::setglobal("Dratonra", 11, 0, "F");
		}
		}
	if (plugin::check_handin(\%itemcount, 64101 => 1))
		{
		if ($qglobals{Dratonra} == 11)
		{
		$client->Message(315, "$NPCName whispers to you, 'Excellent, $name. You have proven you are ready for your twelveth lesson.'");
		$client->IncrementAA(5165);
		quest::exp(120000);
		quest::ding;
		quest::setglobal("Dratonra", 12, 0, "F");
		}
		}
	if (plugin::check_handin(\%itemcount, 64102 => 1))
		{
		if ($qglobals{Dratonra} == 12)
		{
		$client->Message(315, "$NPCName whispers to you, 'Excellent, $name. You have proven you are ready for your thirteenth lesson.'");
		$client->IncrementAA(5165);
		quest::exp(130000);
		quest::ding;
		quest::setglobal("Dratonra", 13, 0, "F");
		}
		}
	if (plugin::check_handin(\%itemcount, 64103 => 1))
		{
		if ($qglobals{Dratonra} == 13)
		{
		$client->Message(315, "$NPCName whispers to you, 'Excellent, $name. You have proven you are ready for your fourteenth lesson.'");
		$client->IncrementAA(5165);
		quest::exp(140000);
		quest::ding;
		quest::setglobal("Dratonra", 14, 0, "F");
		}
		}
	if (plugin::check_handin(\%itemcount, 64104 => 1))
		{
		if ($qglobals{Dratonra} == 14)
		{
		$client->Message(315, "$NPCName whispers to you, 'Excellent, $name. You have proven you are ready for your fifteenth lesson.'");
		$client->IncrementAA(5165);
		quest::exp(150000);
		quest::ding;
		quest::setglobal("Dratonra", 15, 0, "F");
		}
		}
	if (plugin::check_handin(\%itemcount, 64104 => 1))
		{
		if ($qglobals{Dratonra} == 15)
		{
		$client->Message(315, "$NPCName whispers to you, 'Excellent, $name. You have proven you are ready for your sixteenth lesson.'");
		$client->IncrementAA(5165);
		quest::exp(160000);
		quest::ding;
		quest::setglobal("Dratonra", 16, 0, "F");
		}
		}
	
	{
	plugin::return_items(\%itemcount);
	}
}

Osh'Vir:

Code:

sub EVENT_SAY
{
	my $NPCName = $npc->GetCleanName();
	my $learn = quest::saylink("learn");
	my $second = quest::saylink("second");
	my $third = quest::saylink("third");
	my $fourth = quest::saylink("fourth");
	my $fifth = quest::saylink("fifth");
	my $sixth = quest::saylink("sixth");
	my $seventh = quest::saylink("seventh");
	my $eighth = quest::saylink("eighth");
	my $nineth = quest::saylink("nineth");
	my $tenth = quest::saylink("tenth");
	my $eleventh = quest::saylink("eleventh");
	my $twelveth = quest::saylink("twelveth");
	my $thirteenth = quest::saylink("thirteenth");
	my $fourteenth = quest::saylink("fourteenth");
	my $fifteenth = quest::saylink("fifteenth");
			
	if($text=~/Hail/i)
	{
		
		if($client->GetBaseRace == 522)
		{
		my $bloodline = $client->GetDrakkinHeritage();
		if($bloodline == 2)		
		{
		if (($qglobals{Oshvir} == 0) && $ulevel >= 5)
			{
			$client->Message(315, "$NPCName whispers to you, 'Hello, my child.  I know the transition has been difficult and you may not remember but you are of my blood.  What this means is that you have within you the power of all dragonkin, our deadly breath.  As you grow so too shall it grow.  Do you wish to $learn how to call upon your dragon blood?'");
			}
		if (($qglobals{Oshvir} == 0) && $ulevel < 5)
			{
			$client->Message(315, "$NPCName whispers to you, 'Come back, my child, when you have become stronger.'");
			}
		if (($qglobals{Oshvir} == 1) && $ulevel >= 10)
			{
			$client->Message(315, "$NPCName whispers to you, 'I am pleased that you have returned, $name.  Are you prepared for your $second lessons?'");
			}
		if (($qglobals{Oshvir} == 1) && $ulevel < 10)
			{
			$client->Message(315, "$NPCName whispers to you, 'Come back, my child, when you have become stronger.'");
			}
		if (($qglobals{Oshvir} == 2) && $ulevel >= 15)
			{
			$client->Message(315, "$NPCName whispers to you, 'I am pleased that you have returned, $name.  Are you prepared for your $third lessons?'");
			}
		if (($qglobals{Oshvir} == 2) && $ulevel < 15)
			{
			$client->Message(315, "$NPCName whispers to you, 'Come back, my child, when you have become stronger.'");
			}
		if (($qglobals{Oshvir} == 3) && $ulevel >= 20)
			{
			$client->Message(315, "$NPCName whispers to you, 'I am pleased that you have returned, $name.  Are you prepared for your $fourth lessons?'");
			}
		if (($qglobals{Oshvir} == 3) && $ulevel < 20)
			{
			$client->Message(315, "$NPCName whispers to you, 'Come back, my child, when you have become stronger.'");
			}
		if (($qglobals{Oshvir} == 4) && $ulevel >= 25)
			{
			$client->Message(315, "$NPCName whispers to you, 'I am pleased that you have returned, $name.  Are you prepared for your $fifth lessons?'");
			}
		if (($qglobals{Oshvir} == 4) && $ulevel < 25)
			{
			$client->Message(315, "$NPCName whispers to you, 'Come back, my child, when you have become stronger.'");
			}
		if (($qglobals{Oshvir} == 5) && $ulevel >= 30)	
			{
			$client->Message(315, "$NPCName whispers to you, 'I am pleased that you have returned, $name.  Are you prepared for your $sixth lessons?'");
			}
		if (($qglobals{Oshvir} == 5) && $ulevel < 30)
			{
			$client->Message(315, "$NPCName whispers to you, 'Come back, my child, when you have become stronger.'");
			}
		if (($qglobals{Oshvir} == 6) && $ulevel >= 35)
			{
			$client->Message(315, "$NPCName whispers to you, 'I am pleased that you have returned, $name.  Are you prepared for your $seventh lessons?'");
			}
		if (($qglobals{Oshvir} == 6) && $ulevel < 35)
			{
			$client->Message(315, "$NPCName whispers to you, 'Come back, my child, when you have become stronger.'");
			}
		if (($qglobals{Oshvir} == 7) && $ulevel >= 40)
			{
			$client->Message(315, "$NPCName whispers to you, 'I am pleased that you have returned, $name.  Are you prepared for your $eighth lessons?'");
			}
		if (($qglobals{Oshvir} == 7) && $ulevel < 40)
			{
			$client->Message(315, "$NPCName whispers to you, 'Come back, my child, when you have become stronger.'");
			}
		if (($qglobals{Oshvir} == 8) && $ulevel >= 45)
			{
			$client->Message(315, "$NPCName whispers to you, 'I am pleased that you have returned, $name.  Are you prepared for your $nineth lessons?'");
			}
		if (($qglobals{Oshvir} == 8) && $ulevel < 45)
			{
			$client->Message(315, "$NPCName whispers to you, 'Come back, my child, when you have become stronger.'");
			}
		if (($qglobals{Oshvir} == 9) && $ulevel >= 50)
			{
			$client->Message(315, "$NPCName whispers to you, 'I am pleased that you have returned, $name.  Are you prepared for your $tenth lessons?'");
			}
		if (($qglobals{Oshvir} == 9) && $ulevel < 50)
			{
			$client->Message(315, "$NPCName whispers to you, 'Come back, my child, when you have become stronger.'");
			}
		if (($qglobals{Oshvir} == 10) && $ulevel >= 55)
			{			
			$client->Message(315, "$NPCName whispers to you, 'I am pleased that you have returned, $name.  Are you prepared for your $eleventh lessons?'");
			}
		if (($qglobals{Oshvir} == 10) && $ulevel < 55)
			{
			$client->Message(315, "$NPCName whispers to you, 'Come back, my child, when you have become stronger.'");
			}
		if (($qglobals{Oshvir} == 11) && $ulevel >= 60)
			{
			$client->Message(315, "$NPCName whispers to you, 'I am pleased that you have returned, $name.  Are you prepared for your $twelveth lessons?'");
			}
		if (($qglobals{Oshvir} == 11) && $ulevel < 60)
			{
			$client->Message(315, "$NPCName whispers to you, 'Come back, my child, when you have become stronger.'");
			}
		if (($qglobals{Oshvir} == 12) && $ulevel >= 65)
			{
			$client->Message(315, "$NPCName whispers to you, 'I am pleased that you have returned, $name.  Are you prepared for your $thirteenth lessons?'");
			}
		if (($qglobals{Oshvir} == 12) && $ulevel < 65)
			{
			$client->Message(315, "$NPCName whispers to you, 'Come back, my child, when you have become stronger.'");
			}
		if (($qglobals{Oshvir} == 13) && $ulevel >= 70)
			{
			$client->Message(315, "$NPCName whispers to you, 'I am pleased that you have returned, $name.  Are you prepared for your $fourteenth lessons?'");
			}
		if (($qglobals{Oshvir} == 13) && $ulevel < 70)
			{
			$client->Message(315, "$NPCName whispers to you, 'Come back, my child, when you have become stronger.'");
			}
		if (($qglobals{Oshvir} == 14) && $ulevel >= 75)
			{
			$client->Message(315, "$NPCName whispers to you, 'I am pleased that you have returned, $name.  Are you prepared for your $fifteenth lessons?'");
			}
		if (($qglobals{Oshvir} == 14) && $ulevel < 75)
			{
			$client->Message(315, "$NPCName whispers to you, 'Come back, my child, when you have become stronger.'");
			}
		if ($qglobals{Oshvir} == 15)
			{
			$client->Message(315, "$NPCName whispers to you, 'I have nothing further to teach you at this time.  You have done well $name.  Bring pride upon our brood.'");
			}
		}	
		if($bloodline != 2)
			{
			$client->Message(315, "$NPCName whispers to you, 'You are not of my brood.  Go and speak with one of my brother.'");
			}
		}
		if($client->GetBaseRace < 522)
			{
			$client->Message(315, "$NPCName whispers to you, 'You are not of dragonkin.  Begone!'");
			}		
			
	}
	if($text=~/Learn/i)
		{
		$client->Message(315, "$NPCName whispers to you, 'It pleases me that you are eager to learn the ways of your blood and brood.  The learning process will not be easy but the rewards for success will be great.  Bring unto me one Hollows Widow Poison Sac and I will teach you the first lesson.'");
		}
	if($text=~/Second/i)
		{
		$client->Message(315, "$NPCName whispers to you, 'Very well, bring me the Skull of Charbones and I will teach you how to further focus your breath weapon.'");
		}
	if($text=~/third/i)
		{
		$client->Message(315, "$NPCName whispers to you, 'Very well, bring me the Head of Bloodmaw and I will teach you how to further focus your breath weapon.'");
		}
	if($text=~/fourth/i)
		{
		$client->Message(315, "$NPCName whispers to you, 'Very well, bring me the Head of Plaguebringer and I will teach you how to further focus your breath weapon.'");
		}	
	if($text=~/Fifth/i)
		{
		$client->Message(315, "$NPCName whispers to you, 'Very well, bring me the Eye of Dragoneater and I will teach you how to further focus your breath weapon.'");
		}	
	if($text=~/Sixth/i)
		{
		$client->Message(315, "$NPCName whispers to you, 'Very well, bring me the Head of Duskfall and I will teach you how to further focus your breath weapon.'");
		}	
	if($text=~/Seventh/i)
		{
		$client->Message(315, "$NPCName whispers to you, 'Very well, bring me some enchanted vines and I will teach you how to further focus your breath weapon.'");
		}	
	if($text=~/Eighth/i)
		{
		$client->Message(315, "$NPCName whispers to you, 'Very well, bring me Poisonmaker Maliza's Stinger and I will teach you how to further focus your breath weapon.'");
		}	
	if($text=~/Nineth/i)
		{
		$client->Message(315, "$NPCName whispers to you, 'Very well, bring me s Branch from Refugiu and I will teach you how to further focus your breath weapon.'");
		}
	if($text=~/Tenth/i)
		{
		$client->Message(315, "$NPCName whispers to you, 'Very well, bring me the Head of Nestor and I will teach you how to further focus your breath weapon.'");
		}
	if($text=~/Eleventh/i)
		{
		$client->Message(315, "$NPCName whispers to you, 'Very well, bring me Ionela's Wings and I will teach you how to further focus your breath weapon.'");
		}	
	if($text=~/Twelveth/i)
		{
		$client->Message(315, "$NPCName whispers to you, 'Very well, bring me the Head of Razorfang and I will teach you how to further focus your breath weapon.'");
		}
	if($text=~/Thirteenth/i)
		{
		$client->Message(315, "$NPCName whispers to you, 'Very well, bring me the Head of Serravok and I will teach you how to further focus your breath weapon.'");
		}
	if($text=~/Fourteenth/i)
		{
		$client->Message(315, "$NPCName whispers to you, 'Very well, bring me the Skull of Velosk and I will teach you how to further focus your breath weapon.'");
		}
	if($text=~/Fifteenth/i)
		{
		$client->Message(315, "$NPCName whispers to you, 'Very well, bring me the Head of Kellet and I will teach you how to further focus your breath weapon.'");
		}
	
}	
sub EVENT_ITEM
{
	if (plugin::check_handin(\%itemcount, 64090 => 1))
		{
		if ($qglobals{Oshvir} == 0)
		{
		$client->Message(315, "$NPCName whispers to you, 'Excellent, $name. You have proven you are ready for your first lesson.'");
		$client->IncrementAA(5180);
		quest::exp(10000);
		quest::ding;
		quest::setglobal("Oshvir", 1, 0, "F");
		}
		}
	if (plugin::check_handin(\%itemcount, 64091 => 1))
		{
		if ($qglobals{Oshvir} == 1)
		{
		$client->Message(315, "$NPCName whispers to you, 'Excellent, $name. You have proven you are ready for your second lesson.'");
		$client->IncrementAA(5180);
		quest::exp(20000);
		quest::ding;
		quest::setglobal("Oshvir", 2, 0, "F");
		}
		}
	if (plugin::check_handin(\%itemcount, 64092 => 1))
		{
		if ($qglobals{Oshvir} == 2)
		{
		$client->Message(315, "$NPCName whispers to you, 'Excellent, $name. You have proven you are ready for your third lesson.'");
		$client->IncrementAA(5180);
		quest::exp(30000);
		quest::ding;
		quest::setglobal("Oshvir", 3, 0, "F");
		}
		}
	if (plugin::check_handin(\%itemcount, 64093 => 1))
		{
		if ($qglobals{Oshvir} == 3)
		{
		$client->Message(315, "$NPCName whispers to you, 'Excellent, $name. You have proven you are ready for your fourth lesson.'");
		$client->IncrementAA(5180);
		quest::exp(40000);
		quest::ding;
		quest::setglobal("Oshvir", 4, 0, "F");
		}
		}
	if (plugin::check_handin(\%itemcount, 64094 => 1))
		{
		if ($qglobals{Oshvir} == 4)
		{
		$client->Message(315, "$NPCName whispers to you, 'Excellent, $name. You have proven you are ready for your fifth lesson.'");
		$client->IncrementAA(5180);
		quest::exp(50000);
		quest::ding;
		quest::setglobal("Oshvir", 5, 0, "F");
		}
		}
	if (plugin::check_handin(\%itemcount, 64095 => 1))
		{
		if ($qglobals{Oshvir} == 5)
		{
		$client->Message(315, "$NPCName whispers to you, 'Excellent, $name. You have proven you are ready for your sixth lesson.'");
		$client->IncrementAA(5180);
		quest::exp(60000);
		quest::ding;
		quest::setglobal("Oshvir", 6, 0, "F");
		}
		}
	if (plugin::check_handin(\%itemcount, 64096 => 1))
		{
		if ($qglobals{Oshvir} == 6)
		{
		$client->Message(315, "$NPCName whispers to you, 'Excellent, $name. You have proven you are ready for your seventh lesson.'");
		$client->IncrementAA(5180);
		quest::exp(70000);
		quest::ding;
		quest::setglobal("Oshvir", 7, 0, "F");
		}
		}
	if (plugin::check_handin(\%itemcount, 64097 => 1))
		{
		if ($qglobals{Oshvir} == 7)
		{
		$client->Message(315, "$NPCName whispers to you, 'Excellent, $name. You have proven you are ready for your eighth lesson.'");
		$client->IncrementAA(5180);
		quest::exp(80000);
		quest::ding;
		quest::setglobal("Oshvir", 8, 0, "F");
		}
		}
	if (plugin::check_handin(\%itemcount, 64098 => 1))
		{
		if ($qglobals{Oshvir} == 8)
		{
		$client->Message(315, "$NPCName whispers to you, 'Excellent, $name. You have proven you are ready for your nineth lesson.'");
		$client->IncrementAA(5180);
		quest::exp(90000);
		quest::ding;
		quest::setglobal("Oshvir", 9, 0, "F");
		}
		}
	if (plugin::check_handin(\%itemcount, 64099 => 1))
		{
		if ($qglobals{Oshvir} == 9)
		{
		$client->Message(315, "$NPCName whispers to you, 'Excellent, $name. You have proven you are ready for your tenth lesson.'");
		$client->IncrementAA(5180);
		quest::exp(100000);
		quest::ding;
		quest::setglobal("Oshvir", 10, 0, "F");
		}
		}
	if (plugin::check_handin(\%itemcount, 64100 => 1))
		{
		if ($qglobals{Oshvir} == 10)
		{
		$client->Message(315, "$NPCName whispers to you, 'Excellent, $name. You have proven you are ready for your eleventh lesson.'");
		$client->IncrementAA(5180);
		quest::exp(110000);
		quest::ding;
		quest::setglobal("Oshvir", 11, 0, "F");
		}
		}
	if (plugin::check_handin(\%itemcount, 64101 => 1))
		{
		if ($qglobals{Oshvir} == 11)
		{
		$client->Message(315, "$NPCName whispers to you, 'Excellent, $name. You have proven you are ready for your twelveth lesson.'");
		$client->IncrementAA(5180);
		quest::exp(120000);
		quest::ding;
		quest::setglobal("Oshvir", 12, 0, "F");
		}
		}
	if (plugin::check_handin(\%itemcount, 64102 => 1))
		{
		if ($qglobals{Oshvir} == 12)
		{
		$client->Message(315, "$NPCName whispers to you, 'Excellent, $name. You have proven you are ready for your thirteenth lesson.'");
		$client->IncrementAA(5180);
		quest::exp(130000);
		quest::ding;
		quest::setglobal("Oshvir", 13, 0, "F");
		}
		}
	if (plugin::check_handin(\%itemcount, 64103 => 1))
		{
		if ($qglobals{Oshvir} == 13)
		{
		$client->Message(315, "$NPCName whispers to you, 'Excellent, $name. You have proven you are ready for your fourteenth lesson.'");
		$client->IncrementAA(5180);
		quest::exp(140000);
		quest::ding;
		quest::setglobal("Oshvir", 14, 0, "F");
		}
		}
	if (plugin::check_handin(\%itemcount, 64104 => 1))
		{
		if ($qglobals{Oshvir} == 14)
		{
		$client->Message(315, "$NPCName whispers to you, 'Excellent, $name. You have proven you are ready for your fifteenth lesson.'");
		$client->IncrementAA(5180);
		quest::exp(150000);
		quest::ding;
		quest::setglobal("Oshvir", 15, 0, "F");
		}
		}
	if (plugin::check_handin(\%itemcount, 64104 => 1))
		{
		if ($qglobals{Oshvir} == 15)
		{
		$client->Message(315, "$NPCName whispers to you, 'Excellent, $name. You have proven you are ready for your sixteenth lesson.'");
		$client->IncrementAA(5180);
		quest::exp(160000);
		quest::ding;
		quest::setglobal("Oshvir", 16, 0, "F");
		}
		}
	
	{
	plugin::return_items(\%itemcount);
	}
}

Mysaphar:

Code:

sub EVENT_SAY
{
	my $NPCName = $npc->GetCleanName();
	my $learn = quest::saylink("learn");
	my $second = quest::saylink("second");
	my $third = quest::saylink("third");
	my $fourth = quest::saylink("fourth");
	my $fifth = quest::saylink("fifth");
	my $sixth = quest::saylink("sixth");
	my $seventh = quest::saylink("seventh");
	my $eighth = quest::saylink("eighth");
	my $nineth = quest::saylink("nineth");
	my $tenth = quest::saylink("tenth");
	my $eleventh = quest::saylink("eleventh");
	my $twelveth = quest::saylink("twelveth");
	my $thirteenth = quest::saylink("thirteenth");
	my $fourteenth = quest::saylink("fourteenth");
	my $fifteenth = quest::saylink("fifteenth");
			
	if($text=~/Hail/i)
	{
		
		if($client->GetBaseRace == 522)
		{
		my $bloodline = $client->GetDrakkinHeritage();
		if($bloodline == 4)		
		{
		if (($qglobals{Mysaphar} == 0) && $ulevel >= 5)
			{
			$client->Message(315, "$NPCName whispers to you, 'Hello, my child.  I know the transition has been difficult and you may not remember but you are of my blood.  What this means is that you have within you the power of all dragonkin, our deadly breath.  As you grow so too shall it grow.  Do you wish to $learn how to call upon your dragon blood?'");
			}
		if (($qglobals{Mysaphar} == 0) && $ulevel < 5)
			{
			$client->Message(315, "$NPCName whispers to you, 'Come back, my child, when you have become stronger.'");
			}
		if (($qglobals{Mysaphar} == 1) && $ulevel >= 10)
			{
			$client->Message(315, "$NPCName whispers to you, 'I am pleased that you have returned, $name.  Are you prepared for your $second lessons?'");
			}
		if (($qglobals{Mysaphar} == 1) && $ulevel < 10)
			{
			$client->Message(315, "$NPCName whispers to you, 'Come back, my child, when you have become stronger.'");
			}
		if (($qglobals{Mysaphar} == 2) && $ulevel >= 15)
			{
			$client->Message(315, "$NPCName whispers to you, 'I am pleased that you have returned, $name.  Are you prepared for your $third lessons?'");
			}
		if (($qglobals{Mysaphar} == 2) && $ulevel < 15)
			{
			$client->Message(315, "$NPCName whispers to you, 'Come back, my child, when you have become stronger.'");
			}
		if (($qglobals{Mysaphar} == 3) && $ulevel >= 20)
			{
			$client->Message(315, "$NPCName whispers to you, 'I am pleased that you have returned, $name.  Are you prepared for your $fourth lessons?'");
			}
		if (($qglobals{Mysaphar} == 3) && $ulevel < 20)
			{
			$client->Message(315, "$NPCName whispers to you, 'Come back, my child, when you have become stronger.'");
			}
		if (($qglobals{Mysaphar} == 4) && $ulevel >= 25)
			{
			$client->Message(315, "$NPCName whispers to you, 'I am pleased that you have returned, $name.  Are you prepared for your $fifth lessons?'");
			}
		if (($qglobals{Mysaphar} == 4) && $ulevel < 25)
			{
			$client->Message(315, "$NPCName whispers to you, 'Come back, my child, when you have become stronger.'");
			}
		if (($qglobals{Mysaphar} == 5) && $ulevel >= 30)	
			{
			$client->Message(315, "$NPCName whispers to you, 'I am pleased that you have returned, $name.  Are you prepared for your $sixth lessons?'");
			}
		if (($qglobals{Mysaphar} == 5) && $ulevel < 30)
			{
			$client->Message(315, "$NPCName whispers to you, 'Come back, my child, when you have become stronger.'");
			}
		if (($qglobals{Mysaphar} == 6) && $ulevel >= 35)
			{
			$client->Message(315, "$NPCName whispers to you, 'I am pleased that you have returned, $name.  Are you prepared for your $seventh lessons?'");
			}
		if (($qglobals{Mysaphar} == 6) && $ulevel < 35)
			{
			$client->Message(315, "$NPCName whispers to you, 'Come back, my child, when you have become stronger.'");
			}
		if (($qglobals{Mysaphar} == 7) && $ulevel >= 40)
			{
			$client->Message(315, "$NPCName whispers to you, 'I am pleased that you have returned, $name.  Are you prepared for your $eighth lessons?'");
			}
		if (($qglobals{Mysaphar} == 7) && $ulevel < 40)
			{
			$client->Message(315, "$NPCName whispers to you, 'Come back, my child, when you have become stronger.'");
			}
		if (($qglobals{Mysaphar} == 8) && $ulevel >= 45)
			{
			$client->Message(315, "$NPCName whispers to you, 'I am pleased that you have returned, $name.  Are you prepared for your $nineth lessons?'");
			}
		if (($qglobals{Mysaphar} == 8) && $ulevel < 45)
			{
			$client->Message(315, "$NPCName whispers to you, 'Come back, my child, when you have become stronger.'");
			}
		if (($qglobals{Mysaphar} == 9) && $ulevel >= 50)
			{
			$client->Message(315, "$NPCName whispers to you, 'I am pleased that you have returned, $name.  Are you prepared for your $tenth lessons?'");
			}
		if (($qglobals{Mysaphar} == 9) && $ulevel < 50)
			{
			$client->Message(315, "$NPCName whispers to you, 'Come back, my child, when you have become stronger.'");
			}
		if (($qglobals{Mysaphar} == 10) && $ulevel >= 55)
			{			
			$client->Message(315, "$NPCName whispers to you, 'I am pleased that you have returned, $name.  Are you prepared for your $eleventh lessons?'");
			}
		if (($qglobals{Mysaphar} == 10) && $ulevel < 55)
			{
			$client->Message(315, "$NPCName whispers to you, 'Come back, my child, when you have become stronger.'");
			}
		if (($qglobals{Mysaphar} == 11) && $ulevel >= 60)
			{
			$client->Message(315, "$NPCName whispers to you, 'I am pleased that you have returned, $name.  Are you prepared for your $twelveth lessons?'");
			}
		if (($qglobals{Mysaphar} == 11) && $ulevel < 60)
			{
			$client->Message(315, "$NPCName whispers to you, 'Come back, my child, when you have become stronger.'");
			}
		if (($qglobals{Mysaphar} == 12) && $ulevel >= 65)
			{
			$client->Message(315, "$NPCName whispers to you, 'I am pleased that you have returned, $name.  Are you prepared for your $thirteenth lessons?'");
			}
		if (($qglobals{Mysaphar} == 12) && $ulevel < 65)
			{
			$client->Message(315, "$NPCName whispers to you, 'Come back, my child, when you have become stronger.'");
			}
		if (($qglobals{Mysaphar} == 13) && $ulevel >= 70)
			{
			$client->Message(315, "$NPCName whispers to you, 'I am pleased that you have returned, $name.  Are you prepared for your $fourteenth lessons?'");
			}
		if (($qglobals{Mysaphar} == 13) && $ulevel < 70)
			{
			$client->Message(315, "$NPCName whispers to you, 'Come back, my child, when you have become stronger.'");
			}
		if (($qglobals{Mysaphar} == 14) && $ulevel >= 75)
			{
			$client->Message(315, "$NPCName whispers to you, 'I am pleased that you have returned, $name.  Are you prepared for your $fifteenth lessons?'");
			}
		if (($qglobals{Mysaphar} == 14) && $ulevel < 75)
			{
			$client->Message(315, "$NPCName whispers to you, 'Come back, my child, when you have become stronger.'");
			}
		if ($qglobals{Mysaphar} == 15)
			{
			$client->Message(315, "$NPCName whispers to you, 'I have nothing further to teach you at this time.  You have done well $name.  Bring pride upon our brood.'");
			}
		}	
		if($bloodline != 4)
			{
			$client->Message(315, "$NPCName whispers to you, 'You are not of my brood.  Go and speak with one of my brother.'");
			}
		}
		if($client->GetBaseRace < 522)
			{
			$client->Message(315, "$NPCName whispers to you, 'You are not of dragonkin.  Begone!'");
			}		
	}
	if($text=~/Learn/i)
		{
		$client->Message(315, "$NPCName whispers to you, 'It pleases me that you are eager to learn the ways of your blood and brood.  The learning process will not be easy but the rewards for success will be great.  Bring unto me one Hollows Widow Poison Sac and I will teach you the first lesson.'");
		}
	if($text=~/Second/i)
		{
		$client->Message(315, "$NPCName whispers to you, 'Very well, bring me the Skull of Charbones and I will teach you how to further focus your breath weapon.'");
		}
	if($text=~/third/i)
		{
		$client->Message(315, "$NPCName whispers to you, 'Very well, bring me the Head of Bloodmaw and I will teach you how to further focus your breath weapon.'");
		}
	if($text=~/fourth/i)
		{
		$client->Message(315, "$NPCName whispers to you, 'Very well, bring me the Head of Plaguebringer and I will teach you how to further focus your breath weapon.'");
		}	
	if($text=~/Fifth/i)
		{
		$client->Message(315, "$NPCName whispers to you, 'Very well, bring me the Eye of Dragoneater and I will teach you how to further focus your breath weapon.'");
		}	
	if($text=~/Sixth/i)
		{
		$client->Message(315, "$NPCName whispers to you, 'Very well, bring me the Head of Duskfall and I will teach you how to further focus your breath weapon.'");
		}	
	if($text=~/Seventh/i)
		{
		$client->Message(315, "$NPCName whispers to you, 'Very well, bring me some enchanted vines and I will teach you how to further focus your breath weapon.'");
		}	
	if($text=~/Eighth/i)
		{
		$client->Message(315, "$NPCName whispers to you, 'Very well, bring me Poisonmaker Maliza's Stinger and I will teach you how to further focus your breath weapon.'");
		}	
	if($text=~/Nineth/i)
		{
		$client->Message(315, "$NPCName whispers to you, 'Very well, bring me s Branch from Refugiu and I will teach you how to further focus your breath weapon.'");
		}
	if($text=~/Tenth/i)
		{
		$client->Message(315, "$NPCName whispers to you, 'Very well, bring me the Head of Nestor and I will teach you how to further focus your breath weapon.'");
		}
	if($text=~/Eleventh/i)
		{
		$client->Message(315, "$NPCName whispers to you, 'Very well, bring me Ionela's Wings and I will teach you how to further focus your breath weapon.'");
		}	
	if($text=~/Twelveth/i)
		{
		$client->Message(315, "$NPCName whispers to you, 'Very well, bring me the Head of Razorfang and I will teach you how to further focus your breath weapon.'");
		}
	if($text=~/Thirteenth/i)
		{
		$client->Message(315, "$NPCName whispers to you, 'Very well, bring me the Head of Serravok and I will teach you how to further focus your breath weapon.'");
		}
	if($text=~/Fourteenth/i)
		{
		$client->Message(315, "$NPCName whispers to you, 'Very well, bring me the Skull of Velosk and I will teach you how to further focus your breath weapon.'");
		}
	if($text=~/Fifteenth/i)
		{
		$client->Message(315, "$NPCName whispers to you, 'Very well, bring me the Head of Kellet and I will teach you how to further focus your breath weapon.'");
		}
	
}	
sub EVENT_ITEM
{
	if (plugin::check_handin(\%itemcount, 64090 => 1))
		{
		if ($qglobals{Mysaphar} == 0)
		{
		$client->Message(315, "$NPCName whispers to you, 'Excellent, $name. You have proven you are ready for your first lesson.'");
		$client->IncrementAA(5210);
		quest::exp(10000);
		quest::ding;
		quest::setglobal("Mysaphar", 1, 0, "F");
		}
		}
	if (plugin::check_handin(\%itemcount, 64091 => 1))
		{
		if ($qglobals{Mysaphar} == 1)
		{
		$client->Message(315, "$NPCName whispers to you, 'Excellent, $name. You have proven you are ready for your second lesson.'");
		$client->IncrementAA(5210);
		quest::exp(20000);
		quest::ding;
		quest::setglobal("Mysaphar", 2, 0, "F");
		}
		}
	if (plugin::check_handin(\%itemcount, 64092 => 1))
		{
		if ($qglobals{Mysaphar} == 2)
		{
		$client->Message(315, "$NPCName whispers to you, 'Excellent, $name. You have proven you are ready for your third lesson.'");
		$client->IncrementAA(5210);
		quest::exp(30000);
		quest::ding;
		quest::setglobal("Mysaphar", 3, 0, "F");
		}
		}
	if (plugin::check_handin(\%itemcount, 64093 => 1))
		{
		if ($qglobals{Mysaphar} == 3)
		{
		$client->Message(315, "$NPCName whispers to you, 'Excellent, $name. You have proven you are ready for your fourth lesson.'");
		$client->IncrementAA(5210);
		quest::exp(40000);
		quest::ding;
		quest::setglobal("Mysaphar", 4, 0, "F");
		}
		}
	if (plugin::check_handin(\%itemcount, 64094 => 1))
		{
		if ($qglobals{Mysaphar} == 4)
		{
		$client->Message(315, "$NPCName whispers to you, 'Excellent, $name. You have proven you are ready for your fifth lesson.'");
		$client->IncrementAA(5210);
		quest::exp(50000);
		quest::ding;
		quest::setglobal("Mysaphar", 5, 0, "F");
		}
		}
	if (plugin::check_handin(\%itemcount, 64095 => 1))
		{
		if ($qglobals{Mysaphar} == 5)
		{
		$client->Message(315, "$NPCName whispers to you, 'Excellent, $name. You have proven you are ready for your sixth lesson.'");
		$client->IncrementAA(5210);
		quest::exp(60000);
		quest::ding;
		quest::setglobal("Mysaphar", 6, 0, "F");
		}
		}
	if (plugin::check_handin(\%itemcount, 64096 => 1))
		{
		if ($qglobals{Mysaphar} == 6)
		{
		$client->Message(315, "$NPCName whispers to you, 'Excellent, $name. You have proven you are ready for your seventh lesson.'");
		$client->IncrementAA(5210);
		quest::exp(70000);
		quest::ding;
		quest::setglobal("Mysaphar", 7, 0, "F");
		}
		}
	if (plugin::check_handin(\%itemcount, 64097 => 1))
		{
		if ($qglobals{Mysaphar} == 7)
		{
		$client->Message(315, "$NPCName whispers to you, 'Excellent, $name. You have proven you are ready for your eighth lesson.'");
		$client->IncrementAA(5210);
		quest::exp(80000);
		quest::ding;
		quest::setglobal("Mysaphar", 8, 0, "F");
		}
		}
	if (plugin::check_handin(\%itemcount, 64098 => 1))
		{
		if ($qglobals{Mysaphar} == 8)
		{
		$client->Message(315, "$NPCName whispers to you, 'Excellent, $name. You have proven you are ready for your nineth lesson.'");
		$client->IncrementAA(5210);
		quest::exp(90000);
		quest::ding;
		quest::setglobal("Mysaphar", 9, 0, "F");
		}
		}
	if (plugin::check_handin(\%itemcount, 64099 => 1))
		{
		if ($qglobals{Mysaphar} == 9)
		{
		$client->Message(315, "$NPCName whispers to you, 'Excellent, $name. You have proven you are ready for your tenth lesson.'");
		$client->IncrementAA(5210);
		quest::exp(100000);
		quest::ding;
		quest::setglobal("Mysaphar", 10, 0, "F");
		}
		}
	if (plugin::check_handin(\%itemcount, 64100 => 1))
		{
		if ($qglobals{Mysaphar} == 10)
		{
		$client->Message(315, "$NPCName whispers to you, 'Excellent, $name. You have proven you are ready for your eleventh lesson.'");
		$client->IncrementAA(5210);
		quest::exp(110000);
		quest::ding;
		quest::setglobal("Mysaphar", 11, 0, "F");
		}
		}
	if (plugin::check_handin(\%itemcount, 64101 => 1))
		{
		if ($qglobals{Mysaphar} == 11)
		{
		$client->Message(315, "$NPCName whispers to you, 'Excellent, $name. You have proven you are ready for your twelveth lesson.'");
		$client->IncrementAA(5210);
		quest::exp(120000);
		quest::ding;
		quest::setglobal("Mysaphar", 12, 0, "F");
		}
		}
	if (plugin::check_handin(\%itemcount, 64102 => 1))
		{
		if ($qglobals{Mysaphar} == 12)
		{
		$client->Message(315, "$NPCName whispers to you, 'Excellent, $name. You have proven you are ready for your thirteenth lesson.'");
		$client->IncrementAA(5210);
		quest::exp(130000);
		quest::ding;
		quest::setglobal("Mysaphar", 13, 0, "F");
		}
		}
	if (plugin::check_handin(\%itemcount, 64103 => 1))
		{
		if ($qglobals{Mysaphar} == 13)
		{
		$client->Message(315, "$NPCName whispers to you, 'Excellent, $name. You have proven you are ready for your fourteenth lesson.'");
		$client->IncrementAA(5210);
		quest::exp(140000);
		quest::ding;
		quest::setglobal("Mysaphar", 14, 0, "F");
		}
		}
	if (plugin::check_handin(\%itemcount, 64104 => 1))
		{
		if ($qglobals{Mysaphar} == 14)
		{
		$client->Message(315, "$NPCName whispers to you, 'Excellent, $name. You have proven you are ready for your fifteenth lesson.'");
		$client->IncrementAA(5210);
		quest::exp(150000);
		quest::ding;
		quest::setglobal("Mysaphar", 15, 0, "F");
		}
		}
	if (plugin::check_handin(\%itemcount, 64104 => 1))
		{
		if ($qglobals{Mysaphar} == 15)
		{
		$client->Message(315, "$NPCName whispers to you, 'Excellent, $name. You have proven you are ready for your sixteenth lesson.'");
		$client->IncrementAA(5210);
		quest::exp(160000);
		quest::ding;
		quest::setglobal("Mysaphar", 16, 0, "F");
		}
		}
	
	{
	plugin::return_items(\%itemcount);
	}
}

Venesh:

Code:

sub EVENT_SAY
{
	my $NPCName = $npc->GetCleanName();
	my $learn = quest::saylink("learn");
	my $second = quest::saylink("second");
	my $third = quest::saylink("third");
	my $fourth = quest::saylink("fourth");
	my $fifth = quest::saylink("fifth");
	my $sixth = quest::saylink("sixth");
	my $seventh = quest::saylink("seventh");
	my $eighth = quest::saylink("eighth");
	my $nineth = quest::saylink("nineth");
	my $tenth = quest::saylink("tenth");
	my $eleventh = quest::saylink("eleventh");
	my $twelveth = quest::saylink("twelveth");
	my $thirteenth = quest::saylink("thirteenth");
	my $fourteenth = quest::saylink("fourteenth");
	my $fifteenth = quest::saylink("fifteenth");
			
	if($text=~/Hail/i)
	{
		
		if($client->GetBaseRace == 522)
		{
		my $bloodline = $client->GetDrakkinHeritage();
		if($bloodline == 3)		
		{
		if (($qglobals{Venesh} == 0) && $ulevel >= 5)
			{
			$client->Message(315, "$NPCName whispers to you, 'Hello, my child.  I know the transition has been difficult and you may not remember but you are of my blood.  What this means is that you have within you the power of all dragonkin, our deadly breath.  As you grow so too shall it grow.  Do you wish to $learn how to call upon your dragon blood?'");
			}
		if (($qglobals{Venesh} == 0) && $ulevel < 5)
			{
			$client->Message(315, "$NPCName whispers to you, 'Come back, my child, when you have become stronger.'");
			}
		if (($qglobals{Venesh} == 1) && $ulevel >= 10)
			{
			$client->Message(315, "$NPCName whispers to you, 'I am pleased that you have returned, $name.  Are you prepared for your $second lessons?'");
			}
		if (($qglobals{Venesh} == 1) && $ulevel < 10)
			{
			$client->Message(315, "$NPCName whispers to you, 'Come back, my child, when you have become stronger.'");
			}
		if (($qglobals{Venesh} == 2) && $ulevel >= 15)
			{
			$client->Message(315, "$NPCName whispers to you, 'I am pleased that you have returned, $name.  Are you prepared for your $third lessons?'");
			}
		if (($qglobals{Venesh} == 2) && $ulevel < 15)
			{
			$client->Message(315, "$NPCName whispers to you, 'Come back, my child, when you have become stronger.'");
			}
		if (($qglobals{Venesh} == 3) && $ulevel >= 20)
			{
			$client->Message(315, "$NPCName whispers to you, 'I am pleased that you have returned, $name.  Are you prepared for your $fourth lessons?'");
			}
		if (($qglobals{Venesh} == 3) && $ulevel < 20)
			{
			$client->Message(315, "$NPCName whispers to you, 'Come back, my child, when you have become stronger.'");
			}
		if (($qglobals{Venesh} == 4) && $ulevel >= 25)
			{
			$client->Message(315, "$NPCName whispers to you, 'I am pleased that you have returned, $name.  Are you prepared for your $fifth lessons?'");
			}
		if (($qglobals{Venesh} == 4) && $ulevel < 25)
			{
			$client->Message(315, "$NPCName whispers to you, 'Come back, my child, when you have become stronger.'");
			}
		if (($qglobals{Venesh} == 5) && $ulevel >= 30)	
			{
			$client->Message(315, "$NPCName whispers to you, 'I am pleased that you have returned, $name.  Are you prepared for your $sixth lessons?'");
			}
		if (($qglobals{Venesh} == 5) && $ulevel < 30)
			{
			$client->Message(315, "$NPCName whispers to you, 'Come back, my child, when you have become stronger.'");
			}
		if (($qglobals{Venesh} == 6) && $ulevel >= 35)
			{
			$client->Message(315, "$NPCName whispers to you, 'I am pleased that you have returned, $name.  Are you prepared for your $seventh lessons?'");
			}
		if (($qglobals{Venesh} == 6) && $ulevel < 35)
			{
			$client->Message(315, "$NPCName whispers to you, 'Come back, my child, when you have become stronger.'");
			}
		if (($qglobals{Venesh} == 7) && $ulevel >= 40)
			{
			$client->Message(315, "$NPCName whispers to you, 'I am pleased that you have returned, $name.  Are you prepared for your $eighth lessons?'");
			}
		if (($qglobals{Venesh} == 7) && $ulevel < 40)
			{
			$client->Message(315, "$NPCName whispers to you, 'Come back, my child, when you have become stronger.'");
			}
		if (($qglobals{Venesh} == 8) && $ulevel >= 45)
			{
			$client->Message(315, "$NPCName whispers to you, 'I am pleased that you have returned, $name.  Are you prepared for your $nineth lessons?'");
			}
		if (($qglobals{Venesh} == 8) && $ulevel < 45)
			{
			$client->Message(315, "$NPCName whispers to you, 'Come back, my child, when you have become stronger.'");
			}
		if (($qglobals{Venesh} == 9) && $ulevel >= 50)
			{
			$client->Message(315, "$NPCName whispers to you, 'I am pleased that you have returned, $name.  Are you prepared for your $tenth lessons?'");
			}
		if (($qglobals{Venesh} == 9) && $ulevel < 50)
			{
			$client->Message(315, "$NPCName whispers to you, 'Come back, my child, when you have become stronger.'");
			}
		if (($qglobals{Venesh} == 10) && $ulevel >= 55)
			{			
			$client->Message(315, "$NPCName whispers to you, 'I am pleased that you have returned, $name.  Are you prepared for your $eleventh lessons?'");
			}
		if (($qglobals{Venesh} == 10) && $ulevel < 55)
			{
			$client->Message(315, "$NPCName whispers to you, 'Come back, my child, when you have become stronger.'");
			}
		if (($qglobals{Venesh} == 11) && $ulevel >= 60)
			{
			$client->Message(315, "$NPCName whispers to you, 'I am pleased that you have returned, $name.  Are you prepared for your $twelveth lessons?'");
			}
		if (($qglobals{Venesh} == 11) && $ulevel < 60)
			{
			$client->Message(315, "$NPCName whispers to you, 'Come back, my child, when you have become stronger.'");
			}
		if (($qglobals{Venesh} == 12) && $ulevel >= 65)
			{
			$client->Message(315, "$NPCName whispers to you, 'I am pleased that you have returned, $name.  Are you prepared for your $thirteenth lessons?'");
			}
		if (($qglobals{Venesh} == 12) && $ulevel < 65)
			{
			$client->Message(315, "$NPCName whispers to you, 'Come back, my child, when you have become stronger.'");
			}
		if (($qglobals{Venesh} == 13) && $ulevel >= 70)
			{
			$client->Message(315, "$NPCName whispers to you, 'I am pleased that you have returned, $name.  Are you prepared for your $fourteenth lessons?'");
			}
		if (($qglobals{Venesh} == 13) && $ulevel < 70)
			{
			$client->Message(315, "$NPCName whispers to you, 'Come back, my child, when you have become stronger.'");
			}
		if (($qglobals{Venesh} == 14) && $ulevel >= 75)
			{
			$client->Message(315, "$NPCName whispers to you, 'I am pleased that you have returned, $name.  Are you prepared for your $fifteenth lessons?'");
			}
		if (($qglobals{Venesh} == 14) && $ulevel < 75)
			{
			$client->Message(315, "$NPCName whispers to you, 'Come back, my child, when you have become stronger.'");
			}
		if ($qglobals{Venesh} == 15)
			{
			$client->Message(315, "$NPCName whispers to you, 'I have nothing further to teach you at this time.  You have done well $name.  Bring pride upon our brood.'");
			}
		}	
		if($bloodline != 3)
			{
			$client->Message(315, "$NPCName whispers to you, 'You are not of my brood.  Go and speak with one of my brother.'");
			}
		}
		if($client->GetBaseRace < 522)
			{
			$client->Message(315, "$NPCName whispers to you, 'You are not of dragonkin.  Begone!'");
			}		
			
	}
	if($text=~/Learn/i)
		{
		$client->Message(315, "$NPCName whispers to you, 'It pleases me that you are eager to learn the ways of your blood and brood.  The learning process will not be easy but the rewards for success will be great.  Bring unto me one Hollows Widow Poison Sac and I will teach you the first lesson.'");
		}
	if($text=~/Second/i)
		{
		$client->Message(315, "$NPCName whispers to you, 'Very well, bring me the Skull of Charbones and I will teach you how to further focus your breath weapon.'");
		}
	if($text=~/third/i)
		{
		$client->Message(315, "$NPCName whispers to you, 'Very well, bring me the Head of Bloodmaw and I will teach you how to further focus your breath weapon.'");
		}
	if($text=~/fourth/i)
		{
		$client->Message(315, "$NPCName whispers to you, 'Very well, bring me the Head of Plaguebringer and I will teach you how to further focus your breath weapon.'");
		}	
	if($text=~/Fifth/i)
		{
		$client->Message(315, "$NPCName whispers to you, 'Very well, bring me the Eye of Dragoneater and I will teach you how to further focus your breath weapon.'");
		}	
	if($text=~/Sixth/i)
		{
		$client->Message(315, "$NPCName whispers to you, 'Very well, bring me the Head of Duskfall and I will teach you how to further focus your breath weapon.'");
		}	
	if($text=~/Seventh/i)
		{
		$client->Message(315, "$NPCName whispers to you, 'Very well, bring me some enchanted vines and I will teach you how to further focus your breath weapon.'");
		}	
	if($text=~/Eighth/i)
		{
		$client->Message(315, "$NPCName whispers to you, 'Very well, bring me Poisonmaker Maliza's Stinger and I will teach you how to further focus your breath weapon.'");
		}	
	if($text=~/Nineth/i)
		{
		$client->Message(315, "$NPCName whispers to you, 'Very well, bring me s Branch from Refugiu and I will teach you how to further focus your breath weapon.'");
		}
	if($text=~/Tenth/i)
		{
		$client->Message(315, "$NPCName whispers to you, 'Very well, bring me the Head of Nestor and I will teach you how to further focus your breath weapon.'");
		}
	if($text=~/Eleventh/i)
		{
		$client->Message(315, "$NPCName whispers to you, 'Very well, bring me Ionela's Wings and I will teach you how to further focus your breath weapon.'");
		}	
	if($text=~/Twelveth/i)
		{
		$client->Message(315, "$NPCName whispers to you, 'Very well, bring me the Head of Razorfang and I will teach you how to further focus your breath weapon.'");
		}
	if($text=~/Thirteenth/i)
		{
		$client->Message(315, "$NPCName whispers to you, 'Very well, bring me the Head of Serravok and I will teach you how to further focus your breath weapon.'");
		}
	if($text=~/Fourteenth/i)
		{
		$client->Message(315, "$NPCName whispers to you, 'Very well, bring me the Skull of Velosk and I will teach you how to further focus your breath weapon.'");
		}
	if($text=~/Fifteenth/i)
		{
		$client->Message(315, "$NPCName whispers to you, 'Very well, bring me the Head of Kellet and I will teach you how to further focus your breath weapon.'");
		}
	
}	
sub EVENT_ITEM
{
	if (plugin::check_handin(\%itemcount, 64090 => 1))
		{
		if ($qglobals{Venesh} == 0)
		{
		$client->Message(315, "$NPCName whispers to you, 'Excellent, $name. You have proven you are ready for your first lesson.'");
		$client->IncrementAA(5195);
		quest::exp(10000);
		quest::ding;
		quest::setglobal("Venesh", 1, 0, "F");
		}
		}
	if (plugin::check_handin(\%itemcount, 64091 => 1))
		{
		if ($qglobals{Venesh} == 1)
		{
		$client->Message(315, "$NPCName whispers to you, 'Excellent, $name. You have proven you are ready for your second lesson.'");
		$client->IncrementAA(5195);
		quest::exp(20000);
		quest::ding;
		quest::setglobal("Venesh", 2, 0, "F");
		}
		}
	if (plugin::check_handin(\%itemcount, 64092 => 1))
		{
		if ($qglobals{Venesh} == 2)
		{
		$client->Message(315, "$NPCName whispers to you, 'Excellent, $name. You have proven you are ready for your third lesson.'");
		$client->IncrementAA(5195);
		quest::exp(30000);
		quest::ding;
		quest::setglobal("Venesh", 3, 0, "F");
		}
		}
	if (plugin::check_handin(\%itemcount, 64093 => 1))
		{
		if ($qglobals{Venesh} == 3)
		{
		$client->Message(315, "$NPCName whispers to you, 'Excellent, $name. You have proven you are ready for your fourth lesson.'");
		$client->IncrementAA(5195);
		quest::exp(40000);
		quest::ding;
		quest::setglobal("Venesh", 4, 0, "F");
		}
		}
	if (plugin::check_handin(\%itemcount, 64094 => 1))
		{
		if ($qglobals{Venesh} == 4)
		{
		$client->Message(315, "$NPCName whispers to you, 'Excellent, $name. You have proven you are ready for your fifth lesson.'");
		$client->IncrementAA(5195);
		quest::exp(50000);
		quest::ding;
		quest::setglobal("Venesh", 5, 0, "F");
		}
		}
	if (plugin::check_handin(\%itemcount, 64095 => 1))
		{
		if ($qglobals{Venesh} == 5)
		{
		$client->Message(315, "$NPCName whispers to you, 'Excellent, $name. You have proven you are ready for your sixth lesson.'");
		$client->IncrementAA(5195);
		quest::exp(60000);
		quest::ding;
		quest::setglobal("Venesh", 6, 0, "F");
		}
		}
	if (plugin::check_handin(\%itemcount, 64096 => 1))
		{
		if ($qglobals{Venesh} == 6)
		{
		$client->Message(315, "$NPCName whispers to you, 'Excellent, $name. You have proven you are ready for your seventh lesson.'");
		$client->IncrementAA(5195);
		quest::exp(70000);
		quest::ding;
		quest::setglobal("Venesh", 7, 0, "F");
		}
		}
	if (plugin::check_handin(\%itemcount, 64097 => 1))
		{
		if ($qglobals{Venesh} == 7)
		{
		$client->Message(315, "$NPCName whispers to you, 'Excellent, $name. You have proven you are ready for your eighth lesson.'");
		$client->IncrementAA(5195);
		quest::exp(80000);
		quest::ding;
		quest::setglobal("Venesh", 8, 0, "F");
		}
		}
	if (plugin::check_handin(\%itemcount, 64098 => 1))
		{
		if ($qglobals{Venesh} == 8)
		{
		$client->Message(315, "$NPCName whispers to you, 'Excellent, $name. You have proven you are ready for your nineth lesson.'");
		$client->IncrementAA(5195);
		quest::exp(90000);
		quest::ding;
		quest::setglobal("Venesh", 9, 0, "F");
		}
		}
	if (plugin::check_handin(\%itemcount, 64099 => 1))
		{
		if ($qglobals{Venesh} == 9)
		{
		$client->Message(315, "$NPCName whispers to you, 'Excellent, $name. You have proven you are ready for your tenth lesson.'");
		$client->IncrementAA(5195);
		quest::exp(100000);
		quest::ding;
		quest::setglobal("Venesh", 10, 0, "F");
		}
		}
	if (plugin::check_handin(\%itemcount, 64100 => 1))
		{
		if ($qglobals{Venesh} == 10)
		{
		$client->Message(315, "$NPCName whispers to you, 'Excellent, $name. You have proven you are ready for your eleventh lesson.'");
		$client->IncrementAA(5195);
		quest::exp(110000);
		quest::ding;
		quest::setglobal("Venesh", 11, 0, "F");
		}
		}
	if (plugin::check_handin(\%itemcount, 64101 => 1))
		{
		if ($qglobals{Venesh} == 11)
		{
		$client->Message(315, "$NPCName whispers to you, 'Excellent, $name. You have proven you are ready for your twelveth lesson.'");
		$client->IncrementAA(5195);
		quest::exp(120000);
		quest::ding;
		quest::setglobal("Venesh", 12, 0, "F");
		}
		}
	if (plugin::check_handin(\%itemcount, 64102 => 1))
		{
		if ($qglobals{Venesh} == 12)
		{
		$client->Message(315, "$NPCName whispers to you, 'Excellent, $name. You have proven you are ready for your thirteenth lesson.'");
		$client->IncrementAA(5195);
		quest::exp(130000);
		quest::ding;
		quest::setglobal("Venesh", 13, 0, "F");
		}
		}
	if (plugin::check_handin(\%itemcount, 64103 => 1))
		{
		if ($qglobals{Venesh} == 13)
		{
		$client->Message(315, "$NPCName whispers to you, 'Excellent, $name. You have proven you are ready for your fourteenth lesson.'");
		$client->IncrementAA(5195);
		quest::exp(140000);
		quest::ding;
		quest::setglobal("Venesh", 14, 0, "F");
		}
		}
	if (plugin::check_handin(\%itemcount, 64104 => 1))
		{
		if ($qglobals{Venesh} == 14)
		{
		$client->Message(315, "$NPCName whispers to you, 'Excellent, $name. You have proven you are ready for your fifteenth lesson.'");
		$client->IncrementAA(5195);
		quest::exp(150000);
		quest::ding;
		quest::setglobal("Venesh", 15, 0, "F");
		}
		}
	if (plugin::check_handin(\%itemcount, 64104 => 1))
		{
		if ($qglobals{Venesh} == 15)
		{
		$client->Message(315, "$NPCName whispers to you, 'Excellent, $name. You have proven you are ready for your sixteenth lesson.'");
		$client->IncrementAA(5195);
		quest::exp(160000);
		quest::ding;
		quest::setglobal("Venesh", 16, 0, "F");
		}
		}
	
	{
	plugin::return_items(\%itemcount);
	}
}

Keikolin:

Code:

sub EVENT_SAY
{
	my $NPCName = $npc->GetCleanName();
	my $learn = quest::saylink("learn");
	my $second = quest::saylink("second");
	my $third = quest::saylink("third");
	my $fourth = quest::saylink("fourth");
	my $fifth = quest::saylink("fifth");
	my $sixth = quest::saylink("sixth");
	my $seventh = quest::saylink("seventh");
	my $eighth = quest::saylink("eighth");
	my $nineth = quest::saylink("nineth");
	my $tenth = quest::saylink("tenth");
	my $eleventh = quest::saylink("eleventh");
	my $twelveth = quest::saylink("twelveth");
	my $thirteenth = quest::saylink("thirteenth");
	my $fourteenth = quest::saylink("fourteenth");
	my $fifteenth = quest::saylink("fifteenth");
			
	if($text=~/Hail/i)
	{
		
		if($client->GetBaseRace == 522)
		{
		my $bloodline = $client->GetDrakkinHeritage();
		if($bloodline == 5)		
		{
		if (($qglobals{Keikolin} == 0) && $ulevel >= 5)
			{
			$client->Message(315, "$NPCName whispers to you, 'Hello, my child.  I know the transition has been difficult and you may not remember but you are of my blood.  What this means is that you have within you the power of all dragonkin, our deadly breath.  As you grow so too shall it grow.  Do you wish to $learn how to call upon your dragon blood?'");
			}
		if (($qglobals{Keikolin} == 0) && $ulevel < 5)
			{
			$client->Message(315, "$NPCName whispers to you, 'Come back, my child, when you have become stronger.'");
			}
		if (($qglobals{Keikolin} == 1) && $ulevel >= 10)
			{
			$client->Message(315, "$NPCName whispers to you, 'I am pleased that you have returned, $name.  Are you prepared for your $second lessons?'");
			}
		if (($qglobals{Keikolin} == 1) && $ulevel < 10)
			{
			$client->Message(315, "$NPCName whispers to you, 'Come back, my child, when you have become stronger.'");
			}
		if (($qglobals{Keikolin} == 2) && $ulevel >= 15)
			{
			$client->Message(315, "$NPCName whispers to you, 'I am pleased that you have returned, $name.  Are you prepared for your $third lessons?'");
			}
		if (($qglobals{Keikolin} == 2) && $ulevel < 15)
			{
			$client->Message(315, "$NPCName whispers to you, 'Come back, my child, when you have become stronger.'");
			}
		if (($qglobals{Keikolin} == 3) && $ulevel >= 20)
			{
			$client->Message(315, "$NPCName whispers to you, 'I am pleased that you have returned, $name.  Are you prepared for your $fourth lessons?'");
			}
		if (($qglobals{Keikolin} == 3) && $ulevel < 20)
			{
			$client->Message(315, "$NPCName whispers to you, 'Come back, my child, when you have become stronger.'");
			}
		if (($qglobals{Keikolin} == 4) && $ulevel >= 25)
			{
			$client->Message(315, "$NPCName whispers to you, 'I am pleased that you have returned, $name.  Are you prepared for your $fifth lessons?'");
			}
		if (($qglobals{Keikolin} == 4) && $ulevel < 25)
			{
			$client->Message(315, "$NPCName whispers to you, 'Come back, my child, when you have become stronger.'");
			}
		if (($qglobals{Keikolin} == 5) && $ulevel >= 30)	
			{
			$client->Message(315, "$NPCName whispers to you, 'I am pleased that you have returned, $name.  Are you prepared for your $sixth lessons?'");
			}
		if (($qglobals{Keikolin} == 5) && $ulevel < 30)
			{
			$client->Message(315, "$NPCName whispers to you, 'Come back, my child, when you have become stronger.'");
			}
		if (($qglobals{Keikolin} == 6) && $ulevel >= 35)
			{
			$client->Message(315, "$NPCName whispers to you, 'I am pleased that you have returned, $name.  Are you prepared for your $seventh lessons?'");
			}
		if (($qglobals{Keikolin} == 6) && $ulevel < 35)
			{
			$client->Message(315, "$NPCName whispers to you, 'Come back, my child, when you have become stronger.'");
			}
		if (($qglobals{Keikolin} == 7) && $ulevel >= 40)
			{
			$client->Message(315, "$NPCName whispers to you, 'I am pleased that you have returned, $name.  Are you prepared for your $eighth lessons?'");
			}
		if (($qglobals{Keikolin} == 7) && $ulevel < 40)
			{
			$client->Message(315, "$NPCName whispers to you, 'Come back, my child, when you have become stronger.'");
			}
		if (($qglobals{Keikolin} == 8) && $ulevel >= 45)
			{
			$client->Message(315, "$NPCName whispers to you, 'I am pleased that you have returned, $name.  Are you prepared for your $nineth lessons?'");
			}
		if (($qglobals{Keikolin} == 8) && $ulevel < 45)
			{
			$client->Message(315, "$NPCName whispers to you, 'Come back, my child, when you have become stronger.'");
			}
		if (($qglobals{Keikolin} == 9) && $ulevel >= 50)
			{
			$client->Message(315, "$NPCName whispers to you, 'I am pleased that you have returned, $name.  Are you prepared for your $tenth lessons?'");
			}
		if (($qglobals{Keikolin} == 9) && $ulevel < 50)
			{
			$client->Message(315, "$NPCName whispers to you, 'Come back, my child, when you have become stronger.'");
			}
		if (($qglobals{Keikolin} == 10) && $ulevel >= 55)
			{			
			$client->Message(315, "$NPCName whispers to you, 'I am pleased that you have returned, $name.  Are you prepared for your $eleventh lessons?'");
			}
		if (($qglobals{Keikolin} == 10) && $ulevel < 55)
			{
			$client->Message(315, "$NPCName whispers to you, 'Come back, my child, when you have become stronger.'");
			}
		if (($qglobals{Keikolin} == 11) && $ulevel >= 60)
			{
			$client->Message(315, "$NPCName whispers to you, 'I am pleased that you have returned, $name.  Are you prepared for your $twelveth lessons?'");
			}
		if (($qglobals{Keikolin} == 11) && $ulevel < 60)
			{
			$client->Message(315, "$NPCName whispers to you, 'Come back, my child, when you have become stronger.'");
			}
		if (($qglobals{Keikolin} == 12) && $ulevel >= 65)
			{
			$client->Message(315, "$NPCName whispers to you, 'I am pleased that you have returned, $name.  Are you prepared for your $thirteenth lessons?'");
			}
		if (($qglobals{Keikolin} == 12) && $ulevel < 65)
			{
			$client->Message(315, "$NPCName whispers to you, 'Come back, my child, when you have become stronger.'");
			}
		if (($qglobals{Keikolin} == 13) && $ulevel >= 70)
			{
			$client->Message(315, "$NPCName whispers to you, 'I am pleased that you have returned, $name.  Are you prepared for your $fourteenth lessons?'");
			}
		if (($qglobals{Keikolin} == 13) && $ulevel < 70)
			{
			$client->Message(315, "$NPCName whispers to you, 'Come back, my child, when you have become stronger.'");
			}
		if (($qglobals{Keikolin} == 14) && $ulevel >= 75)
			{
			$client->Message(315, "$NPCName whispers to you, 'I am pleased that you have returned, $name.  Are you prepared for your $fifteenth lessons?'");
			}
		if (($qglobals{Keikolin} == 14) && $ulevel < 75)
			{
			$client->Message(315, "$NPCName whispers to you, 'Come back, my child, when you have become stronger.'");
			}
		if ($qglobals{Keikolin} == 15)
			{
			$client->Message(315, "$NPCName whispers to you, 'I have nothing further to teach you at this time.  You have done well $name.  Bring pride upon our brood.'");
			}
		}	
		if($bloodline != 5)
			{
			$client->Message(315, "$NPCName whispers to you, 'You are not of my brood.  Go and speak with one of my brother.'");
			}
		}
		if($client->GetBaseRace < 522)
			{
			$client->Message(315, "$NPCName whispers to you, 'You are not of dragonkin.  Begone!'");
			}		
			
	}
	if($text=~/Learn/i)
		{
		$client->Message(315, "$NPCName whispers to you, 'It pleases me that you are eager to learn the ways of your blood and brood.  The learning process will not be easy but the rewards for success will be great.  Bring unto me one Hollows Widow Poison Sac and I will teach you the first lesson.'");
		}
	if($text=~/Second/i)
		{
		$client->Message(315, "$NPCName whispers to you, 'Very well, bring me the Skull of Charbones and I will teach you how to further focus your breath weapon.'");
		}
	if($text=~/third/i)
		{
		$client->Message(315, "$NPCName whispers to you, 'Very well, bring me the Head of Bloodmaw and I will teach you how to further focus your breath weapon.'");
		}
	if($text=~/fourth/i)
		{
		$client->Message(315, "$NPCName whispers to you, 'Very well, bring me the Head of Plaguebringer and I will teach you how to further focus your breath weapon.'");
		}	
	if($text=~/Fifth/i)
		{
		$client->Message(315, "$NPCName whispers to you, 'Very well, bring me the Eye of Dragoneater and I will teach you how to further focus your breath weapon.'");
		}	
	if($text=~/Sixth/i)
		{
		$client->Message(315, "$NPCName whispers to you, 'Very well, bring me the Head of Duskfall and I will teach you how to further focus your breath weapon.'");
		}	
	if($text=~/Seventh/i)
		{
		$client->Message(315, "$NPCName whispers to you, 'Very well, bring me some enchanted vines and I will teach you how to further focus your breath weapon.'");
		}	
	if($text=~/Eighth/i)
		{
		$client->Message(315, "$NPCName whispers to you, 'Very well, bring me Poisonmaker Maliza's Stinger and I will teach you how to further focus your breath weapon.'");
		}	
	if($text=~/Nineth/i)
		{
		$client->Message(315, "$NPCName whispers to you, 'Very well, bring me s Branch from Refugiu and I will teach you how to further focus your breath weapon.'");
		}
	if($text=~/Tenth/i)
		{
		$client->Message(315, "$NPCName whispers to you, 'Very well, bring me the Head of Nestor and I will teach you how to further focus your breath weapon.'");
		}
	if($text=~/Eleventh/i)
		{
		$client->Message(315, "$NPCName whispers to you, 'Very well, bring me Ionela's Wings and I will teach you how to further focus your breath weapon.'");
		}	
	if($text=~/Twelveth/i)
		{
		$client->Message(315, "$NPCName whispers to you, 'Very well, bring me the Head of Razorfang and I will teach you how to further focus your breath weapon.'");
		}
	if($text=~/Thirteenth/i)
		{
		$client->Message(315, "$NPCName whispers to you, 'Very well, bring me the Head of Serravok and I will teach you how to further focus your breath weapon.'");
		}
	if($text=~/Fourteenth/i)
		{
		$client->Message(315, "$NPCName whispers to you, 'Very well, bring me the Skull of Velosk and I will teach you how to further focus your breath weapon.'");
		}
	if($text=~/Fifteenth/i)
		{
		$client->Message(315, "$NPCName whispers to you, 'Very well, bring me the Head of Kellet and I will teach you how to further focus your breath weapon.'");
		}
	
}	
sub EVENT_ITEM
{
	if (plugin::check_handin(\%itemcount, 64090 => 1))
		{
		if ($qglobals{Keikolin} == 0)
		{
		$client->Message(315, "$NPCName whispers to you, 'Excellent, $name. You have proven you are ready for your first lesson.'");
		$client->IncrementAA(5225);
		quest::exp(10000);
		quest::ding;
		quest::setglobal("Keikolin", 1, 0, "F");
		}
		}
	if (plugin::check_handin(\%itemcount, 64091 => 1))
		{
		if ($qglobals{Keikolin} == 1)
		{
		$client->Message(315, "$NPCName whispers to you, 'Excellent, $name. You have proven you are ready for your second lesson.'");
		$client->IncrementAA(5225);
		quest::exp(20000);
		quest::ding;
		quest::setglobal("Keikolin", 2, 0, "F");
		}
		}
	if (plugin::check_handin(\%itemcount, 64092 => 1))
		{
		if ($qglobals{Keikolin} == 2)
		{
		$client->Message(315, "$NPCName whispers to you, 'Excellent, $name. You have proven you are ready for your third lesson.'");
		$client->IncrementAA(5225);
		quest::exp(30000);
		quest::ding;
		quest::setglobal("Keikolin", 3, 0, "F");
		}
		}
	if (plugin::check_handin(\%itemcount, 64093 => 1))
		{
		if ($qglobals{Keikolin} == 3)
		{
		$client->Message(315, "$NPCName whispers to you, 'Excellent, $name. You have proven you are ready for your fourth lesson.'");
		$client->IncrementAA(5225);
		quest::exp(40000);
		quest::ding;
		quest::setglobal("Keikolin", 4, 0, "F");
		}
		}
	if (plugin::check_handin(\%itemcount, 64094 => 1))
		{
		if ($qglobals{Keikolin} == 4)
		{
		$client->Message(315, "$NPCName whispers to you, 'Excellent, $name. You have proven you are ready for your fifth lesson.'");
		$client->IncrementAA(5225);
		quest::exp(50000);
		quest::ding;
		quest::setglobal("Keikolin", 5, 0, "F");
		}
		}
	if (plugin::check_handin(\%itemcount, 64095 => 1))
		{
		if ($qglobals{Keikolin} == 5)
		{
		$client->Message(315, "$NPCName whispers to you, 'Excellent, $name. You have proven you are ready for your sixth lesson.'");
		$client->IncrementAA(5225);
		quest::exp(60000);
		quest::ding;
		quest::setglobal("Keikolin", 6, 0, "F");
		}
		}
	if (plugin::check_handin(\%itemcount, 64096 => 1))
		{
		if ($qglobals{Keikolin} == 6)
		{
		$client->Message(315, "$NPCName whispers to you, 'Excellent, $name. You have proven you are ready for your seventh lesson.'");
		$client->IncrementAA(5225);
		quest::exp(70000);
		quest::ding;
		quest::setglobal("Keikolin", 7, 0, "F");
		}
		}
	if (plugin::check_handin(\%itemcount, 64097 => 1))
		{
		if ($qglobals{Keikolin} == 7)
		{
		$client->Message(315, "$NPCName whispers to you, 'Excellent, $name. You have proven you are ready for your eighth lesson.'");
		$client->IncrementAA(5225);
		quest::exp(80000);
		quest::ding;
		quest::setglobal("Keikolin", 8, 0, "F");
		}
		}
	if (plugin::check_handin(\%itemcount, 64098 => 1))
		{
		if ($qglobals{Keikolin} == 8)
		{
		$client->Message(315, "$NPCName whispers to you, 'Excellent, $name. You have proven you are ready for your nineth lesson.'");
		$client->IncrementAA(5225);
		quest::exp(90000);
		quest::ding;
		quest::setglobal("Keikolin", 9, 0, "F");
		}
		}
	if (plugin::check_handin(\%itemcount, 64099 => 1))
		{
		if ($qglobals{Keikolin} == 9)
		{
		$client->Message(315, "$NPCName whispers to you, 'Excellent, $name. You have proven you are ready for your tenth lesson.'");
		$client->IncrementAA(5225);
		quest::exp(100000);
		quest::ding;
		quest::setglobal("Keikolin", 10, 0, "F");
		}
		}
	if (plugin::check_handin(\%itemcount, 64100 => 1))
		{
		if ($qglobals{Keikolin} == 10)
		{
		$client->Message(315, "$NPCName whispers to you, 'Excellent, $name. You have proven you are ready for your eleventh lesson.'");
		$client->IncrementAA(5225);
		quest::exp(110000);
		quest::ding;
		quest::setglobal("Keikolin", 11, 0, "F");
		}
		}
	if (plugin::check_handin(\%itemcount, 64101 => 1))
		{
		if ($qglobals{Keikolin} == 11)
		{
		$client->Message(315, "$NPCName whispers to you, 'Excellent, $name. You have proven you are ready for your twelveth lesson.'");
		$client->IncrementAA(5225);
		quest::exp(120000);
		quest::ding;
		quest::setglobal("Keikolin", 12, 0, "F");
		}
		}
	if (plugin::check_handin(\%itemcount, 64102 => 1))
		{
		if ($qglobals{Keikolin} == 12)
		{
		$client->Message(315, "$NPCName whispers to you, 'Excellent, $name. You have proven you are ready for your thirteenth lesson.'");
		$client->IncrementAA(5225);
		quest::exp(130000);
		quest::ding;
		quest::setglobal("Keikolin", 13, 0, "F");
		}
		}
	if (plugin::check_handin(\%itemcount, 64103 => 1))
		{
		if ($qglobals{Keikolin} == 13)
		{
		$client->Message(315, "$NPCName whispers to you, 'Excellent, $name. You have proven you are ready for your fourteenth lesson.'");
		$client->IncrementAA(5225);
		quest::exp(140000);
		quest::ding;
		quest::setglobal("Keikolin", 14, 0, "F");
		}
		}
	if (plugin::check_handin(\%itemcount, 64104 => 1))
		{
		if ($qglobals{Keikolin} == 14)
		{
		$client->Message(315, "$NPCName whispers to you, 'Excellent, $name. You have proven you are ready for your fifteenth lesson.'");
		$client->IncrementAA(5225);
		quest::exp(150000);
		quest::ding;
		quest::setglobal("Keikolin", 15, 0, "F");
		}
		}
	if (plugin::check_handin(\%itemcount, 64104 => 1))
		{
		if ($qglobals{Keikolin} == 15)
		{
		$client->Message(315, "$NPCName whispers to you, 'Excellent, $name. You have proven you are ready for your sixteenth lesson.'");
		$client->IncrementAA(5225);
		quest::exp(160000);
		quest::ding;
		quest::setglobal("Keikolin", 16, 0, "F");
		}
		}
	
	{
	plugin::return_items(\%itemcount);
	}
}