[Aramid]

Here is your Illusionist_Nomad Quest

#Illusionist_Nomaad.pl
#zone:poknowledge
#Magicdragon

sub EVENT_SAY
{
	if($text=~/hail/i)
	{
		$npc->SetAppearance(0);
		quest::emote("sighs at $name");
		quest::say("Once upon a time, I was a very powerful Enchanter. However, during one of my Drunken rampages I slaughtered the guards in High Keep. They started to hate me so much that they would [kill] me on sight.");
	}
	if($text=~/kill/i)
	{
		$npc->SetAppearance(0);
		quest::emote("shakes his fists in anger");
		quest::say("Then one of those damn nobles got me from behind. She killed me.... ME!!! I wanted to [hurt] myself!");
	}
	if($text=~/hurt/i)
	{
		$npc->SetAppearance(0);
		quest::say("I went to bed that night. Sadly, in my drunken mess, I forgot that I bound my soul right there in High Keep. The guards slaughtered me over and over till I woke up and I was level 17. Now instead of KEI, all I have for you are these [crap buffs]");
	}
	if($text=~/crap buffs/i && $ulevel>=11)
	{
		$npc->SetAppearance(0);
		quest::say("Yes, for someone of your level, I can cast [intellectual superiority] for 1 Platinum.");
		quest::emote("begins to cry over the loss of income");
	}
	if($text=~/crap buffs/i && $ulevel<=10)
	{
		$npc->SetAppearance(0);
		quest::say("Yes, fucking crap buffs. I can cast this [intellectual advancement] buff on you for 1 Platinum.");
		quest::emote("begins to cry over the loss of income");
	}
	if($text=~/intellectual superiority/i)
	{
		$npc->SetAppearance(0);
		quest::say("Intellectual Superiority: Increases your Effective Casting by 6, and lasts for 27 minutes. Open trade and hand me 1 Platinum for the buff.");
	}
	if($text=~/intellectual advancement/i)
	{
		$npc->SetAppearance(0);
		quest::say("Intellectual Advancement: Increases your Effective Casting by 3, and lasts for 27 minutes. There is an upgraded version once you come back here at level 11. Open trade and hand me 1 Platinum for the buff.");
	}
}

sub EVENT_ITEM
{
	if ($platinum >= '1' && $ulevel <= '10')
	{
		$npc->SetAppearance(0);
		quest::selfcast(2561);
		quest::say("Thanks for the donation, check with Illusionist Mindbender for some mind buffs or Vicar Qadar for health buffs.");
	}
	if($platinum >= '1' && $ulevel >= '11')
	{
		$npc->SetAppearance(0);
		quest::selfcast(2562);
		quest::say("Thanks for the donation, check with Illusionist Mindbender for some mind buffs or Vicar Qadar for health buffs.");
	}
	else
	{
		quest::say("Thanks for the donation, but it sucked ...");
	}
}