[Nerdgasm]

Sure is, here is the script, so people can see examples if they need help, like I did!

if($class eq "Warrior")
		{
			if($text=~/hail/i)
			{
				$client->Message(315,"$npcname whispers to you, 'My name is $npcname, I can help you [$train] in some spells if you have the required [$currency].'");
			}	
			elsif($text=~/train/i)
			{
				$client->Message(315,"$npcname whispers to you, 'As a Brawler you can learn abilities from three different [$trees].'");
			}
			elsif($text=~/currency/i)
			{
				$client->Message(315,"$npcname whispers to you, 'When you level up you get a new currency. Bring that to me and you will be able to buy a ability. Do you want to see how many spell token you [$have]?'");
			}
			elsif($text=~/trees/i)
			{
				$client->Message(315,"$npcname whispers to you, 'Yes, you can learn abilities from [$melee], [$warcries] or you can learn abilities from the [$combat] tree.'");
			}
			elsif($text=~/have/i)
			{
				if(quest::get_data($client->CharacterID() ."-Spell-Currency"))
				{
					$key = $client->CharacterID() . "-Spell-Currency";
					$client->Message(315,"$npcname whispers to you, 'You have " . quest::get_data($key) . " spell currencies.'");
				}
				elsif(!quest::get_data($client->CharacterID() ."-Spell-Currency"))
				{
					$client->Message(315,"$npcname whispers to you, 'You do not have a currency, level up and give one to me.'");
				}
			}
			if(quest::get_data($client->CharacterID() ."-Spell-Currency"))
			{
				if($text=~/melee/i)
				{
					$client->Message(315,"'Select Level'");
					$client->Message(315,"'[$L2] - [$L6] - [$L11]");
				}
				if($text=~/Level Two/i)
				{
					$client->Message(315,"$npcname whispers to you, 'I can give you [$WW] at Level Two.'");
				}
				if($text=~/Whirlwind/i)
				{
					$client->Message(315,"$npcname whispers to you, 'To make sure, you are Level Two, and you want Whirlwind R. I, if so, please say [$so]. These currencies are non-refundable and if you get a spell higher level then you, you will not be able to refund it for a spell your level. Please make sure you are the correct level.'");
				}
				if($text=~/so/i)
				{
					$client->Message(315,"$npcname whispers to you, 'Alright, here you go, $name.'");
					quest::set_data ($key, quest::get_data ($key) - 1);
					quest::summonitem(447);
				}
			}
		}
				else
				{
					$client->Message(315,"$npcname whispers to you, '$name, you are not of the classes that I can help, please obtain server files from the MOTD link of Discord and come back. You won't regret it!'");
				}
}

sub EVENT_ITEM
{
$npcname = "Raj";

	if($class eq "Warrior")
	{
		if(plugin::check_handin(\%itemcount, 2087 => 1))
		{
			if(!quest::get_data($client->CharacterID() ."-Spell-Currency"))
			{
				$key = $client->CharacterID() . "-Spell_Currency";
				$client->Message(315,"$npcname whispers to you, 'Thank you for this, $name. You now have 1 spell currency that you can use to buy an ability!'");
				quest::set_data($key, 1);
				$client->Message(315,"$npcname whispers to you, 'NOTE! You can only have ONE Spell Currency at a time! Do not turn more then 1 into me or you will NOT get credit.'");
			}
			elsif(quest::get_data($client->CharacterID() . "-Spell-Currency"))
			{
				$key = $client->CharacterID() . "-Spell-Currency";
				$client->Message(315,"$npcname whispers to you, 'This means you have another currency.'");
				quest::set_data ($key, quest::get_data ($key) + 1);
			}
		}
	}
}

Probably an easier way to write it, but hey it works!