Custom NPC issues

Furinex · #1 04-13-2012, 12:07 AM

I have been working on this Custom NPC for a while now. Actually, Ive been working on him and then I wondered over here, found some great scripts and now he doesnt work. Well he kinda does. I cant get the translocator and the skills vendor portion of it to work. Any ideas where my code is wrong? Sorry its so long..

Code:

## Intro - Basic Stuff ##

sub EVENT_SAY { 
if($text=~/Hail/i){
quest::say("Hello, $name. Are you interested in [buffs] or [items], or would you like to know your [Credit Info]?  You can Also say [translocator] for some Transportation Services.  If you are looking to get [stronger], just say so, I can help with your training.");
}

if($text=~/Credit Info/i){
quest::say("Would you like to know how to [obtain] credit, your current [credit value], or available [buffs] and [items]?");
}

if($text=~/obtain/i){
quest::say("For every platinum you bring me you shall receive one credit (1pp = 1£).  These credits can be redeemed for buffs or items at your request.");
}

## Buffs - Menu ##

if($text=~/buffs/i || $text=~/yes/i) {  #### What buffs does he offer and how much credit?
quest::say("I have the following to offer you:");
quest::say("[Cleanse] --full health and mana restore-- - FREE");
quest::say("[Temperance] - £10");
quest::say("[Virtue] - £20");
quest::say("[Conviction] - £50");
quest::say("[C1] - £5");
quest::say("[C2] - £25");
quest::say("[C3] - £50");
quest::say("[C4] - £75");
quest::say("[C5] - £100");
quest::say("[Hastening of Salik] - £30");
quest::say("[Spirit of Wolf] - £5");
quest::say("[Spirit of Eagle] - £20");
quest::say("[Circle of Neetles] - £25");
quest::say("[Blessing of Steelok] - £50");
}

if($text=~/credit value/){
if ($buffbot >= 1) {
quest::say("Your current credit is £$buffbot");
$buffbot = undef;
}
else {
quest::say("You have £0 credit.  Would you like to know how much you need to donate obtain [buffs]?");
$buffbot = undef;
}
}

## Buffs Menu end ##


## Items - Menu ##

if($text=~/items/i){
quest::say("I have the following to offer you:");
quest::say("[Druid] items.");
quest::say("[Bard] items.");
quest::say("[Cleric] items.");
quest::say("[Enchanter] items.");
quest::say("[Wizard] items.");
quest::say("[Magician] items.");
quest::say("[Shaman] items.");
quest::say("[Monk] items.");
quest::say("[Beastlord] items.");
quest::say("[Necromancer] items.");
quest::say("[Ranger] items.");
quest::say("[Warrior] items.");
quest::say("[Rogue] items.");
quest::say("[Paladin] items.");
quest::say("[Shadow Knight] items.");
quest::say("[Misc] items.");
quest::say("[Food] or [Supplies].");
}

## Items Menu end ##


## Cleanse ##

if($text=~/cleanse/i){ #### Restores Mana and Health.  I use this as an alternative to simply casting a spell
$client->Heal();
$client->SetMana($client->GetMaxMana());
quest::say("As you wish!");
}

## Cleanse end ##



## Buffs begin ##

## Buff 1 - Temperance ##

if($text=~/Temperance/i){
if ($buffbot >= 10) {
quest::selfcast(3692);
quest::say("As you wish!");
quest::setglobal("buffbot", $buffbot-10, 0, "Y9");
$buffbot = undef;
	}
else {
quest::say("You need more credits!");
$buffbot = undef;
}
}

## Temperance ends ##


## Buff 2 - Virtue ##

if($text=~/virtue/i){
if ($buffbot >= 20) {
quest::selfcast(3467);
quest::say("As you wish!");
quest::setglobal("buffbot", $buffbot-20, 0, "Y9");
$buffbot = undef;
}
else {
quest::say("You need more credits!");
$buffbot = undef;
}
}

## Virtue ends##


## Buff 3 - Conviction ##

if($text=~/conviction/i){
if ($buffbot >= 50) {
quest::selfcast(174);
quest::say("As you wish!");
quest::setglobal("buffbot", $buffbot-50, 0, "Y9");
$buffbot = undef;
}
else {
quest::say("You need more credits!");
$buffbot = undef;
}
}

## Conviction ends


## Buff 4 - C1 ##

if($text=~/c1/i){
if ($buffbot >= 5) {
quest::selfcast(697);
quest::say("As you wish!");
quest::setglobal("buffbot", $buffbot-5, 0, "Y9");
$buffbot = undef;
}
else {
quest::say("You need more credits!");
$buffbot = undef;
}
}

## C1 ends ##

## Buff 5 - C2 ##
if($text=~/c2/i){
if ($buffbot >= 25) {
quest::selfcast(174);
quest::say("As you wish!");
quest::setglobal("buffbot", $buffbot-25, 0, "Y9");
$buffbot = undef;
}
else {
quest::say("You need more credits!");
$buffbot = undef;
}
}

## C2 ends ##


## Buff 6 - C3 ##

if($text=~/c3/i){
if ($buffbot >= 50) {
quest::selfcast(1693);
quest::say("As you wish!");
quest::setglobal("buffbot", $buffbot-50, 0, "Y9");
$buffbot = undef;
}
else {
quest::say("You need more credits!");
$buffbot = undef;
}
}

## C3 ends ##


## Buff 7 - C4 ##

if($text=~/c4/i){
if ($buffbot >= 75) {
quest::selfcast(2570);
quest::say("As you wish!");
quest::setglobal("buffbot", $buffbot-75, 0, "Y9");
$buffbot = undef;
}
else {
quest::say("You need more credits!");
$buffbot = undef;
}
}

## C4 ends ##


## Buff 8 - C5 ##

if($text=~/c4/i){
if ($buffbot >= 100) {
quest::selfcast(5513);
quest::say("As you wish!");
quest::setglobal("buffbot", $buffbot-100, 0, "Y9");
$buffbot = undef;
}
else {
quest::say("You need more credits!");
$buffbot = undef;
}
}

## C5 ends ##


## Buff 8 - Hastening of Salik ##

if($text=~/hastening of salik/i){
if ($buffbot >= 30) {
quest::selfcast(5521);
quest::say("As you wish!");
quest::setglobal("buffbot", $buffbot-30, 0, "Y9");
$buffbot = undef;
}
else {
quest::say("You need more credits!");
$buffbot = undef;
}
}

## HoS ends ##


## Buff 9 - Spirit of Wolf ##

if($text=~/spirit of wolf/i){
if ($buffbot >= 5) {
quest::selfcast(278);
quest::say("As you wish!");
quest::setglobal("buffbot", $buffbot-5, 0, "Y9");
$buffbot = undef;
}
else {
quest::say("You need more credits!");
$buffbot = undef;
}
}

## SoW ends ##


## Buff 10 - Spirit of Eagle ##

if($text=~/spirit of eagle/i){
if ($buffbot >= 20) {
quest::selfcast(16813);
quest::say("As you wish!");
quest::setglobal("buffbot", $buffbot-20, 0, "Y9");
$buffbot = undef;
}
else {
quest::say("You need more credits!");
$buffbot = undef;
}
}

## SoE ends ##


## Buff 11 - Circle of Neetles ##

if($text=~/circle of neetles/i){
if ($buffbot >= 25) {
quest::selfcast(5365);
quest::say("As you wish!");
quest::setglobal("buffbot", $buffbot-25, 0, "Y9");
$buffbot = undef;
}
else {
quest::say("You need more credits!");
$buffbot = undef;
}
}

## CoN ends ##


## Buff 12 - Blessing of Steelok ##

if($text=~/blessing of steelok/i){
if ($buffbot >= 50) {
quest::selfcast(5366);
quest::say("As you wish!");
quest::setglobal("buffbot", $buffbot-50, 0, "Y9");
$buffbot = undef;
}
else {
quest::say("You need more credits!");
$buffbot = undef;
}
}

## BoS ends ##

## Buffs end ##


## Items Section ##


## Druid Items ##

if($text=~/druid/i){
quest::say("I have the following to offer you:");
quest::say("[DTier 1] items.");
quest::say("[DTier 2] items.");
quest::say("[DTier 3] items.");
quest::say("[DTier 4] items.");
quest::say("[DTier 5] items.");
quest::say("[DOther] items.");
}

if($text=~/dtier 1/i){
quest::say("I have the following to offer you:");
quest::say("Elder Spiritist set.  Helm - [dt1helm] £1000.  Boots - [dt1boots] £1000.  Gloves - [dt1gloves] £1000.  Chest - [dt1chest] £2000.  Legs - [dt1legs] £1500.  Wrist - [dt1wrist] £1000.  Arms - [dt1arms] £1000.  Full Set - [dt1set] £9000.");
}
if($text=~/dt1helm/i){
if ($buffbot >= 1000) {
quest::summonitem(4571);
quest::say("As you wish!");
quest::setglobal("buffbot", $buffbot-1000, 0, "Y9");
$buffbot = undef;
}
else {
quest::say("You need more credits!");
$buffbot = undef;
}
}

if($text=~/dt1boots/i){
if ($buffbot >= 1000) {
quest::summonitem(4577);
quest::say("As you wish!");
quest::setglobal("buffbot", $buffbot-1000, 0, "Y9");
$buffbot = undef;
}
else {
quest::say("You need more credits!");
$buffbot = undef;
}
}

if($text=~/dt1gloves/i){
if ($buffbot >= 1000) {
quest::summonitem(4575);
quest::say("As you wish!");
quest::setglobal("buffbot", $buffbot-1000, 0, "Y9");
$buffbot = undef;
}
else {
quest::say("You need more credits!");
$buffbot = undef;
}
}

if($text=~/dt1chest/i){
if ($buffbot >= 2000) {
quest::summonitem(4572);
quest::say("As you wish!");
quest::setglobal("buffbot", $buffbot-2000, 0, "Y9");
$buffbot = undef;
}
else {
quest::say("You need more credits!");
$buffbot = undef;
}
}

if($text=~/dt1legs/i){
if ($buffbot >= 1500) {
quest::summonitem(4576);
quest::say("As you wish!");
quest::setglobal("buffbot", $buffbot-1500, 0, "Y9");
$buffbot = undef;
}
else {
quest::say("You need more credits!");
$buffbot = undef;
}
}

if($text=~/dt1wrist/i){
if ($buffbot >= 1000) {
quest::summonitem(4574);
quest::say("As you wish!");
quest::setglobal("buffbot", $buffbot-1000, 0, "Y9");
$buffbot = undef;
}
else {
quest::say("You need more credits!");
$buffbot = undef;
}
}

if($text=~/dt1arms/i){
if ($buffbot >= 1000) {
quest::summonitem(4573);
quest::say("As you wish!");
quest::setglobal("buffbot", $buffbot-1000, 0, "Y9");
$buffbot = undef;
}
else {
quest::say("You need more credits!");
$buffbot = undef;
}
}

if($text=~/dt1set/i){
if ($buffbot >= 9000) {
quest::summonitem(4571);
quest::summonitem(4572);
quest::summonitem(4573);
quest::summonitem(4574);
quest::summonitem(4574);
quest::summonitem(4575);
quest::summonitem(4576);
quest::summonitem(4577);
quest::say("As you wish!");
quest::setglobal("buffbot", $buffbot-9000, 0, "Y9");
$buffbot = undef;
}
else {
quest::say("You need more credits!");
$buffbot = undef;
}
}


if($text=~/dtier 2/i){
quest::say("I have the following to offer you:");
quest::say("Natrure Walker's set.  Helm - [dt2helm] £10000.  Boots - [dt2boots] £10000.  Gloves - [dt2gloves] £10000.  Chest - [dt2chest] £20000.  Legs - [dt2legs] £15000.  Wrist - [dt2wrist] £10000.  Arms - [dt2arms] £10000.  Full Set - [dt2set] £90000.");
}
if($text=~/dt2helm/i){
if ($buffbot >= 10000) {
quest::summonitem(25398);
quest::say("As you wish!");
quest::setglobal("buffbot", $buffbot-10000, 0, "Y9");
$buffbot = undef;
}
else {
quest::say("You need more credits!");
$buffbot = undef;
}
}

if($text=~/dt2boots/i){
if ($buffbot >= 10000) {
quest::summonitem(25404);
quest::say("As you wish!");
quest::setglobal("buffbot", $buffbot-10000, 0, "Y9");
$buffbot = undef;
}
else {
quest::say("You need more credits!");
$buffbot = undef;
}
}

if($text=~/dt2gloves/i){
if ($buffbot >= 10000) {
quest::summonitem(25402);
quest::say("As you wish!");
quest::setglobal("buffbot", $buffbot-10000, 0, "Y9");
$buffbot = undef;
}
else {
quest::say("You need more credits!");
$buffbot = undef;
}
}

if($text=~/dt2chest/i){
if ($buffbot >= 20000) {
quest::summonitem(25399);
quest::say("As you wish!");
quest::setglobal("buffbot", $buffbot-20000, 0, "Y9");
$buffbot = undef;
}
else {
quest::say("You need more credits!");
$buffbot = undef;
}
}

if($text=~/dt2legs/i){
if ($buffbot >= 15000) {
quest::summonitem(25403);
quest::say("As you wish!");
quest::setglobal("buffbot", $buffbot-15000, 0, "Y9");
$buffbot = undef;
}
else {
quest::say("You need more credits!");
$buffbot = undef;
}
}

if($text=~/dt2wrist/i){
if ($buffbot >= 10000) {
quest::summonitem(25401);
quest::say("As you wish!");
quest::setglobal("buffbot", $buffbot-10000, 0, "Y9");
$buffbot = undef;
}
else {
quest::say("You need more credits!");
$buffbot = undef;
}
}

if($text=~/dt2arms/i){
if ($buffbot >= 10000) {
quest::summonitem(25400);
quest::say("As you wish!");
quest::setglobal("buffbot", $buffbot-10000, 0, "Y9");
$buffbot = undef;
}
else {
quest::say("You need more credits!");
$buffbot = undef;
}
}

if($text=~/dt2set/i){
if ($buffbot >= 90000) {
quest::summonitem(25398);
quest::summonitem(25399);
quest::summonitem(25400);
quest::summonitem(25401);
quest::summonitem(25401);
quest::summonitem(25402);
quest::summonitem(25403);
quest::summonitem(25404);
quest::say("As you wish!");
quest::setglobal("buffbot", $buffbot-90000, 0, "Y9");
$buffbot = undef;
}
else {
quest::say("You need more credits!");
$buffbot = undef;
}
}

if($text=~/dtier 3/i){
quest::say("I have the following to offer you:");
quest::say("Kerasha's Sylvan set.  Helm - [dt2helm] £30000.  Boots - [dt2boots] £30000.  Gloves - [dt2gloves] £30000.  Chest - [dt2chest] £60000.  Legs - [dt2legs] £45000.  Wrist - [dt2wrist] £30000.  Arms - [dt2arms] £30000.  Full Set - [dt2set] £240000.");
}
if($text=~/dt3helm/i){
if ($buffbot >= 30000) {
quest::summonitem(84144);
quest::say("As you wish!");
quest::setglobal("buffbot", $buffbot-30000, 0, "Y9");
$buffbot = undef;
}
else {
quest::say("You need more credits!");
$buffbot = undef;
}
}

if($text=~/dt3boots/i){
if ($buffbot >= 30000) {
quest::summonitem(84142);
quest::say("As you wish!");
quest::setglobal("buffbot", $buffbot-30000, 0, "Y9");
$buffbot = undef;
}
else {
quest::say("You need more credits!");
$buffbot = undef;
}
}

if($text=~/dt3gloves/i){
if ($buffbot >= 30000) {
quest::summonitem(84145);
quest::say("As you wish!");
quest::setglobal("buffbot", $buffbot-30000, 0, "Y9");
$buffbot = undef;
}
else {
quest::say("You need more credits!");
$buffbot = undef;
}
}

if($text=~/dt3chest/i){
if ($buffbot >= 60000) {
quest::summonitem(84148);
quest::say("As you wish!");
quest::setglobal("buffbot", $buffbot-60000, 0, "Y9");
$buffbot = undef;
}
else {
quest::say("You need more credits!");
$buffbot = undef;
}
}

if($text=~/dt3legs/i){
if ($buffbot >= 45000) {
quest::summonitem(84146);
quest::say("As you wish!");
quest::setglobal("buffbot", $buffbot-45000, 0, "Y9");
$buffbot = undef;
}
else {
quest::say("You need more credits!");
$buffbot = undef;
}
}

if($text=~/dt3wrist/i){
if ($buffbot >= 30000) {
quest::summonitem(84143);
quest::say("As you wish!");
quest::setglobal("buffbot", $buffbot-30000, 0, "Y9");
$buffbot = undef;
}
else {
quest::say("You need more credits!");
$buffbot = undef;
}
}

if($text=~/dt3arms/i){
if ($buffbot >= 30000) {
quest::summonitem(84147);
quest::say("As you wish!");
quest::setglobal("buffbot", $buffbot-10000, 0, "Y9");
$buffbot = undef;
}
else {
quest::say("You need more credits!");
$buffbot = undef;
}
}

if($text=~/dt2set/i){
if ($buffbot >= 240000) {
quest::summonitem(84142);
quest::summonitem(84143);
quest::summonitem(84143);
quest::summonitem(84144);
quest::summonitem(84145);
quest::summonitem(84146);
quest::summonitem(84147);
quest::summonitem(84148);
quest::say("As you wish!");
quest::setglobal("buffbot", $buffbot-240000, 0, "Y9");
$buffbot = undef;
}
else {
quest::say("You need more credits!");
$buffbot = undef;
}
}


if($text=~/dtier 4/i){
quest::say("I have the following to offer you:");
quest::say("Coming soon.");
}

if($text=~/dtier 5/i){
quest::say("I have the following to offer you:");
quest::say("Coming soon.");
}

if($text=~/dother/i){
quest::say("I have the following to offer you:");
quest::say("Coming soon.");
}

## Druid Items end ##

## Bard Items ##

if($text=~/bard/i){
quest::say("I have the following to offer you:");
quest::say("[BTier 1] items.");
quest::say("[BTier 2] items.");
quest::say("[BTier 3] items.");
quest::say("[BTier 4] items.");
quest::say("[BTier 5] items.");
quest::say("[BOther] items.");
}

## Bard Items end ##

## Cleric Items ##

if($text=~/cleric/i){
quest::say("I have the following to offer you:");
quest::say("[CTier 1] items.");
quest::say("[CTier 2] items.");
quest::say("[CTier 3] items.");
quest::say("[CTier 4] items.");
quest::say("[CTier 5] items.");
quest::say("[COther] items.");
}

## Cleric Items end ##

## Enchanter Items ##

if($text=~/enchanter/i){
quest::say("I have the following to offer you:");
quest::say("[ETier 1] items.");
quest::say("[ETier 2] items.");
quest::say("[ETier 3] items.");
quest::say("[ETier 4] items.");
quest::say("[ETier 5] items.");
quest::say("[EOther] items.");
}

## Enchanter Items end ##

## Wizard Items ##

if($text=~/wizard/i){
quest::say("I have the following to offer you:");
quest::say("[WTier 1] items.");
quest::say("[WTier 2] items.");
quest::say("[WTier 3] items.");
quest::say("[WTier 4] items.");
quest::say("[WTier 5] items.");
quest::say("[WOther] items.");
}

## Wizard Items end ##

### Skills Vendor Script ###

##Skills Vendor
##Created by Durge

sub EVENT_SAY
{
	$skills = quest::saylink("skills");
	
	if($text=~/stronger/i)
	{
		$client->Message(315,"$NPCNAME whispers to you, 'Hello there $name, are you here to purchase [$skills]?'");
	}
	
	if($text=~/skills/i)
	{
		$client->Message(315,"$NPCNAME whispers to you, 'Yes, for a price I can set your skills. For 1000 platinum all your class skills will be set to 100, for 2000 platinum your class skills will be set to 200, and for 3000 platinum your class skills will be set to 300, and for 4500 platinum ALL your skills will be set to 400.'");
     }
}

sub EVENT_ITEM
{
	if($platinum == 1000)
	{
		if($class eq 'Shadowknight')
		{
			if($ulevel >= 6)
			{
				quest::setskill(10, 100);
			}
			if($ulevel >= 10)
			{
				quest::setskill(19, 100);
			}
			if($ulevel >= 17)
			{
				quest::setskill(34, 100);
			}
			if($ulevel >= 20)
			{
				quest::setskill(20, 100);
			}
			if($ulevel >= 30)
			{
				quest::setskill(37, 100);
			}
			if($ulevel >= 40)
			{
				quest::setskill(16, 100);
			}
		}
		
		if($class eq 'Warrior')
		{
			if($ulevel >= 6)
			{
				quest::setskill(10, 100);
				quest::setskill(19, 100);
			}
			if($ulevel >= 10)
			{
				quest::setskill(34, 100);
			}
			if($ulevel >= 13)
			{
				quest::setskill(22, 100);
			}
			if($ulevel >= 15)
			{
				quest::setskill(20, 100);
			}
			if($ulevel >= 25)
			{
				quest::setskill(37, 100);
			}
			if($ulevel >= 35)
			{
				quest::setskill(16, 100);
			}
		}
		
		if($class eq 'Necromancer' || $class eq 'Enchanter' || $class eq 'Magician' || $class eq 'Wizard')
		{
			if($ulevel >= 16)
			{
				quest::setskill(58, 100);
			}
			if($ulevel >= 20)
			{
				quest::setskill(43, 100);
				quest::setskill(44, 100);
				quest::setskill(45, 100);
				quest::setskill(46, 100);
				quest::setskill(47, 100);
				$client->Message(315, "$NPCNAME whispers to you, 'Remember you can only have 1 specialization.'");
			}
			if($ulevel >= 22)
			{
				quest::setskill(19, 100);
			}
			
		}
		
		if($class eq 'Cleric')
		{
			if($ulevel >= 25)
			{
				quest::setskill(10, 100);
			}
			
		}
		
		if($class eq 'Shaman')
		{
			if($ulevel >= 25)
			{
				quest::setskill(59, 100);
			}
			
		}
		
		if($class eq 'Druid')
		{
			if($ulevel >= 5)
			{
				quest::setskill(27, 100);
			}
			if($ulevel >= 20)
			{
				quest::setskill(53, 100);
			}
			
		}
		
		if($class eq 'Druid' || $class eq 'Shaman' || $class eq 'Cleric')
		{
			if($ulevel >=15)
			{
				quest::setskill(19, 100);
			}
			if($ulevel >= 30)
			{
				quest::setskill(43, 100);
				quest::setskill(44, 100);
				quest::setskill(45, 100);
				quest::setskill(46, 100);
				quest::setskill(47, 100);
				$client->Message(315, "$NPCNAME whispers to you, 'Remember you can only have 1 specialization.'");
			}
			
		}
		
		if($class eq 'Rogue')
		{
			if($ulevel >= 4)
			{
				quest::setskill(19, 100);
			}
			if($ulevel >= 5)
			{
				quest::setskill(35, 100);
			}
			if($ulevel >= 7)
			{
				quest::setskill(48, 100);
			}
			if($ulevel >= 10)
			{
				quest::setskill(62, 100);
				quest::setskill(8, 100);
			}
			if($ulevel >= 12)
			{
				quest::setskill(34, 100);
				quest::setskill(39, 100);
			}
			if($ulevel >= 13)
			{
				quest::setskill(22, 100);
			}
			if($ulevel >= 15)
			{
				quest::setskill(17, 100);
			}
			if($ulevel >= 16)
			{
				quest::setskill(20, 100);
			}
			if($ulevel >= 18)
			{
				quest::setskill(6, 100);
			}
			if($ulevel >= 20)
			{
				quest::setskill(56, 100);
			}
			if($ulevel >= 22)
			{
				quest::setskill(71, 100);
			}
			if($ulevel >= 27)
			{
				quest::setskill(16, 100);
			}
			
		}
		
		if($class eq 'Ranger')
		{
			if($ulevel >= 5)
			{
				quest::setskill(30, 100);
			}
			if($ulevel >= 8)
			{
				quest::setskill(19, 100);
			}
			if($ulevel >= 10)
			{
				quest::setskill(42, 100);
			}
			if($ulevel >= 17)
			{
				quest::setskill(22, 100);
			}
			if($ulevel >= 18)
			{
				quest::setskill(34, 100);
			}
			if($ulevel >= 20)
			{
				quest::setskill(20, 100);
			}
			if($ulevel >= 35)
			{
				quest::setskill(17, 100);
				quest::setskill(37, 100);
			}
			
		}
		
		if($class eq 'Monk')
		{
			if($ulevel >= 3)
			{
				quest::setskill(39, 100);
			}
			if($ulevel >= 5)
			{
				quest::setskill(38, 100);
			}
			if($ulevel >= 10)
			{
				quest::setskill(52, 100);
			}
			if($ulevel >= 12)
			{
				quest::setskill(11, 100);
			}
			if($ulevel >= 15)
			{
				quest::setskill(20, 100);
			}
			if($ulevel >= 17)
			{
				quest::setskill(28, 100);
			}
			if($ulevel >= 18)
			{
				quest::setskill(71, 100);
			}
			if($ulevel >= 20)
			{
				quest::setskill(23, 100);
			}
			if($ulevel >= 25)
			{
				quest::setskill(21, 100);
			}
			if($ulevel >= 27)
			{
				quest::setskill(17, 100);
			}
			if($ulevel >= 30)
			{
				quest::setskill(26, 100);
			}
			if($ulevel >= 35)
			{
				quest::setskill(37, 100);
			}
			
		}
		
		if($class eq 'Bard')
		{
			if($ulevel >= 5)
			{
				quest::setskill(70, 100);
			}
			if($ulevel >= 8)
			{
				quest::setskill(49, 100);
			}
			if($ulevel >= 10)
			{
				quest::setskill(31, 100);
				quest::setskill(35, 100);
			}
			if($ulevel >= 11)
			{
				quest::setskill(12, 100);
			}
			if($ulevel >= 12)
			{
				quest::setskill(27, 100);
			}
			if($ulevel >= 14)
			{
				quest::setskill(54, 100);
			}
			if($ulevel >= 15)
			{
				quest::setskill(62, 100);
			}
			if($ulevel >= 17)
			{
				quest::setskill(22, 100);
				quest::setskill(42, 100);
			}
			if($ulevel >= 20)
			{
				quest::setskill(17, 100);
			}
			if($ulevel >= 24)
			{
				quest::setskill(39, 100);
			}
			if($ulevel >= 25)
			{
				quest::setskill(29, 100);
			}
			if($ulevel >= 26)
			{
				quest::setskill(71, 100);
			}
			if($ulevel >= 35)
			{
				quest::setskill(53, 100);
			}
			if($ulevel >= 53)
			{
				quest::setskill(34, 100);
			}
			if($ulevel >= 58)
			{
				quest::setskill(37, 100);
			}
			
		}
		
		if($class eq 'Paladin')
		{
			if($ulevel >= 6)
			{
				quest::setskill(10, 100);
			}
			if($ulevel >= 10)
			{
				quest::setskill(19, 100);
			}
			if($ulevel >= 17)
			{
				quest::setskill(34, 100);
			}
			if($ulevel >= 20)
			{
				quest::setskill(20, 100);
			}
			if($ulevel >= 30)
			{
				quest::setskill(37, 100);
			}
			if($ulevel >= 40)
			{
				quest::setskill(16, 100);
			}
			
		}
		
		if($class eq 'Beastlord')
		{
			if($ulevel >= 5)
			{
				quest::setskill(30, 100);
			}	
			if($ulevel >= 10)
			{
				quest::setskill(19, 100);
			}
			if($ulevel >= 17)
			{
				quest::setskill(22, 100);
			}
			if($ulevel >= 25)
			{
				quest::setskill(11, 100);
			}
			if($ulevel >= 40)
			{
				quest::setskill(37, 100);
			}
			
		}
		
		if($class eq 'Berserker')
		{
			if($ulevel >= 6)
			{
				quest::setskill(74, 100);
			}
			if($ulevel >= 10)
			{
				quest::setskill(19, 100);
			}
			if($ulevel >= 12)
			{
				quest::setskill(34, 100);
			}
			if($ulevel >= 15)
			{
				quest::setskill(20, 100);
			}
			if($ulevel >= 30)
			{
				quest::setskill(37, 100);
			}
			if($ulevel >= 35)
			{
				quest::setskill(16, 100);
			}
			
		}
	}
	elsif($platinum == 2000)
	{
		if($class eq 'Shadowknight')
		{
			if($ulevel >= 6)
			{
				quest::setskill(10, 200);
			}
			if($ulevel >= 10)
			{
				quest::setskill(19, 200);
			}
			if($ulevel >= 17)
			{
				quest::setskill(34, 200);
			}
			if($ulevel >= 20)
			{
				quest::setskill(20, 200);
			}
			if($ulevel >= 30)
			{
				quest::setskill(37, 200);
			}
			if($ulevel >= 40)
			{
				quest::setskill(16, 200);
			}
		}
		
		if($class eq 'Warrior')
		{
			if($ulevel >= 6)
			{
				quest::setskill(10, 200);
				quest::setskill(19, 200);
			}
			if($ulevel >= 10)
			{
				quest::setskill(34, 200);
			}
			if($ulevel >= 13)
			{
				quest::setskill(22, 200);
			}
			if($ulevel >= 15)
			{
				quest::setskill(20, 200);
			}
			if($ulevel >= 25)
			{
				quest::setskill(37, 200);
			}
			if($ulevel >= 35)
			{
				quest::setskill(16, 200);
			}
		}
		
		if($class eq 'Necromancer' || $class eq 'Enchanter' || $class eq 'Magician' || $class eq 'Wizard')
		{
			if($ulevel >= 16)
			{
				quest::setskill(58, 200);
			}
			if($ulevel >= 20)
			{
				quest::setskill(43, 200);
				quest::setskill(44, 200);
				quest::setskill(45, 200);
				quest::setskill(46, 200);
				quest::setskill(47, 200);
				$client->Message(315, "$NPCNAME whispers to you, 'Remember you can only have 1 specialization.'");
			}
			if($ulevel >= 22)
			{
				quest::setskill(19, 200);
			}
			
		}
		
		if($class eq 'Cleric')
		{
			if($ulevel >= 25)
			{
				quest::setskill(10, 200);
			}
			
		}
		
		if($class eq 'Shaman')
		{
			if($ulevel >= 25)
			{
				quest::setskill(59, 200);
			}
			
		}
		
		if($class eq 'Druid')
		{
			if($ulevel >= 5)
			{
				quest::setskill(27, 200);
			}
			if($ulevel >= 20)
			{
				quest::setskill(53, 200);
			}
			
		}
		
		if($class eq 'Druid' || $class eq 'Shaman' || $class eq 'Cleric')
		{
			if($ulevel >=15)
			{
				quest::setskill(19, 200);
			}
			if($ulevel >= 30)
			{
				quest::setskill(43, 200);
				quest::setskill(44, 200);
				quest::setskill(45, 200);
				quest::setskill(46, 200);
				quest::setskill(47, 200);
				$client->Message(315, "$NPCNAME whispers to you, 'Remember you can only have 1 specialization.'");
			}
			
		}
		
		if($class eq 'Rogue')
		{
			if($ulevel >= 4)
			{
				quest::setskill(19, 200);
			}
			if($ulevel >= 5)
			{
				quest::setskill(35, 200);
			}
			if($ulevel >= 7)
			{
				quest::setskill(48, 200);
			}
			if($ulevel >= 10)
			{
				quest::setskill(62, 200);
				quest::setskill(8, 200);
			}
			if($ulevel >= 12)
			{
				quest::setskill(34, 200);
				quest::setskill(39, 200);
			}
			if($ulevel >= 13)
			{
				quest::setskill(22, 200);
			}
			if($ulevel >= 15)
			{
				quest::setskill(17, 200);
			}
			if($ulevel >= 16)
			{
				quest::setskill(20, 200);
			}
			if($ulevel >= 18)
			{
				quest::setskill(6, 200);
			}
			if($ulevel >= 20)
			{
				quest::setskill(56, 200);
			}
			if($ulevel >= 22)
			{
				quest::setskill(71, 200);
			}
			if($ulevel >= 27)
			{
				quest::setskill(16, 200);
			}
			
		}
		
		if($class eq 'Ranger')
		{
			if($ulevel >= 5)
			{
				quest::setskill(30, 200);
			}
			if($ulevel >= 8)
			{
				quest::setskill(19, 200);
			}
			if($ulevel >= 10)
			{
				quest::setskill(42, 200);
			}
			if($ulevel >= 17)
			{
				quest::setskill(22, 200);
			}
			if($ulevel >= 18)
			{
				quest::setskill(34, 200);
			}
			if($ulevel >= 20)
			{
				quest::setskill(20, 200);
			}
			if($ulevel >= 35)
			{
				quest::setskill(17, 200);
				quest::setskill(37, 200);
			}
			
		}
		
		if($class eq 'Monk')
		{
			if($ulevel >= 3)
			{
				quest::setskill(39, 200);
			}
			if($ulevel >= 5)
			{
				quest::setskill(38, 200);
			}
			if($ulevel >= 10)
			{
				quest::setskill(52, 200);
			}
			if($ulevel >= 12)
			{
				quest::setskill(11, 200);
			}
			if($ulevel >= 15)
			{
				quest::setskill(20, 200);
			}
			if($ulevel >= 17)
			{
				quest::setskill(28, 200);
			}
			if($ulevel >= 18)
			{
				quest::setskill(71, 200);
			}
			if($ulevel >= 20)
			{
				quest::setskill(23, 200);
			}
			if($ulevel >= 25)
			{
				quest::setskill(21, 200);
			}
			if($ulevel >= 27)
			{
				quest::setskill(17, 200);
			}
			if($ulevel >= 30)
			{
				quest::setskill(26, 200);
			}
			if($ulevel >= 35)
			{
				quest::setskill(37, 200);
			}
			
		}
		
		if($class eq 'Bard')
		{
			if($ulevel >= 5)
			{
				quest::setskill(70, 200);
			}
			if($ulevel >= 8)
			{
				quest::setskill(49, 200);
			}
			if($ulevel >= 10)
			{
				quest::setskill(31, 200);
				quest::setskill(35, 200);
			}
			if($ulevel >= 11)
			{
				quest::setskill(12, 200);
			}
			if($ulevel >= 12)
			{
				quest::setskill(27, 200);
			}
			if($ulevel >= 14)
			{
				quest::setskill(54, 200);
			}
			if($ulevel >= 15)
			{
				quest::setskill(62, 200);
			}
			if($ulevel >= 17)
			{
				quest::setskill(22, 200);
				quest::setskill(42, 200);
			}
			if($ulevel >= 20)
			{
				quest::setskill(17, 200);
			}
			if($ulevel >= 24)
			{
				quest::setskill(39, 200);
			}
			if($ulevel >= 25)
			{
				quest::setskill(29, 200);
			}
			if($ulevel >= 26)
			{
				quest::setskill(71, 200);
			}
			if($ulevel >= 35)
			{
				quest::setskill(53, 200);
			}
			if($ulevel >= 53)
			{
				quest::setskill(34, 200);
			}
			if($ulevel >= 58)
			{
				quest::setskill(37, 200);
			}
			
		}
		
		if($class eq 'Paladin')
		{
			if($ulevel >= 6)
			{
				quest::setskill(10, 200);
			}
			if($ulevel >= 10)
			{
				quest::setskill(19, 200);
			}
			if($ulevel >= 17)
			{
				quest::setskill(34, 200);
			}
			if($ulevel >= 20)
			{
				quest::setskill(20, 200);
			}
			if($ulevel >= 30)
			{
				quest::setskill(37, 200);
			}
			if($ulevel >= 40)
			{
				quest::setskill(16, 200);
			}
			
		}
		
		if($class eq 'Beastlord')
		{
			if($ulevel >= 5)
			{
				quest::setskill(30, 200);
			}	
			if($ulevel >= 10)
			{
				quest::setskill(19, 200);
			}
			if($ulevel >= 17)
			{
				quest::setskill(22, 200);
			}
			if($ulevel >= 25)
			{
				quest::setskill(11, 200);
			}
			if($ulevel >= 40)
			{
				quest::setskill(37, 200);
			}
			
		}
		
		if($class eq 'Berserker')
		{
			if($ulevel >= 6)
			{
				quest::setskill(74, 200);
			}
			if($ulevel >= 10)
			{
				quest::setskill(19, 200);
			}
			if($ulevel >= 12)
			{
				quest::setskill(34, 200);
			}
			if($ulevel >= 15)
			{
				quest::setskill(20, 200);
			}
			if($ulevel >= 30)
			{
				quest::setskill(37, 200);
			}
			if($ulevel >= 35)
			{
				quest::setskill(16, 200);
			}
			
		}
	}
	elsif($platinum == 3000)
	{
		if($class eq 'Shadowknight')
		{
			if($ulevel >= 6)
			{
				quest::setskill(10, 300);
			}
			if($ulevel >= 10)
			{
				quest::setskill(19, 300);
			}
			if($ulevel >= 17)
			{
				quest::setskill(34, 300);
			}
			if($ulevel >= 20)
			{
				quest::setskill(20, 300);
			}
			if($ulevel >= 30)
			{
				quest::setskill(37, 300);
			}
			if($ulevel >= 40)
			{
				quest::setskill(16, 300);
			}
		}
		
		if($class eq 'Warrior')
		{
			if($ulevel >= 6)
			{
				quest::setskill(10, 300);
				quest::setskill(19, 300);
			}
			if($ulevel >= 10)
			{
				quest::setskill(34, 300);
			}
			if($ulevel >= 13)
			{
				quest::setskill(22, 300);
			}
			if($ulevel >= 15)
			{
				quest::setskill(20, 300);
			}
			if($ulevel >= 25)
			{
				quest::setskill(37, 300);
			}
			if($ulevel >= 35)
			{
				quest::setskill(16, 300);
			}
		}
		
		if($class eq 'Necromancer' || $class eq 'Enchanter' || $class eq 'Magician' || $class eq 'Wizard')
		{
			if($ulevel >= 16)
			{
				quest::setskill(58, 300);
			}
			if($ulevel >= 20)
			{
				quest::setskill(43, 300);
				quest::setskill(44, 300);
				quest::setskill(45, 300);
				quest::setskill(46, 300);
				quest::setskill(47, 300);
				$client->Message(315, "$NPCNAME whispers to you, 'Remember you can only have 1 specialization.'");
			}
			if($ulevel >= 22)
			{
				quest::setskill(19, 300);
			}
			
		}
		
		if($class eq 'Cleric')
		{
			if($ulevel >= 25)
			{
				quest::setskill(10, 300);
			}
			
		}
		
		if($class eq 'Shaman')
		{
			if($ulevel >= 25)
			{
				quest::setskill(59, 300);
			}
			
		}
		
		if($class eq 'Druid')
		{
			if($ulevel >= 5)
			{
				quest::setskill(27, 300);
			}
			if($ulevel >= 20)
			{
				quest::setskill(53, 300);
			}
			
		}
		
		if($class eq 'Druid' || $class eq 'Shaman' || $class eq 'Cleric')
		{
			if($ulevel >=15)
			{
				quest::setskill(19, 300);
			}
			if($ulevel >= 30)
			{
				quest::setskill(43, 300);
				quest::setskill(44, 300);
				quest::setskill(45, 300);
				quest::setskill(46, 300);
				quest::setskill(47, 300);
				$client->Message(315, "$NPCNAME whispers to you, 'Remember you can only have 1 specialization.'");
			}
			
		}
		
		if($class eq 'Rogue')
		{
			if($ulevel >= 4)
			{
				quest::setskill(19, 300);
			}
			if($ulevel >= 5)
			{
				quest::setskill(35, 300);
			}
			if($ulevel >= 7)
			{
				quest::setskill(48, 300);
			}
			if($ulevel >= 10)
			{
				quest::setskill(62, 300);
				quest::setskill(8, 300);
			}
			if($ulevel >= 12)
			{
				quest::setskill(34, 300);
				quest::setskill(39, 300);
			}
			if($ulevel >= 13)
			{
				quest::setskill(22, 300);
			}
			if($ulevel >= 15)
			{
				quest::setskill(17, 300);
			}
			if($ulevel >= 16)
			{
				quest::setskill(20, 300);
			}
			if($ulevel >= 18)
			{
				quest::setskill(6, 300);
			}
			if($ulevel >= 20)
			{
				quest::setskill(56, 300);
			}
			if($ulevel >= 22)
			{
				quest::setskill(71, 300);
			}
			if($ulevel >= 27)
			{
				quest::setskill(16, 300);
			}
			
		}
		
		if($class eq 'Ranger')
		{
			if($ulevel >= 5)
			{
				quest::setskill(30, 300);
			}
			if($ulevel >= 8)
			{
				quest::setskill(19, 300);
			}
			if($ulevel >= 10)
			{
				quest::setskill(42, 300);
			}
			if($ulevel >= 17)
			{
				quest::setskill(22, 300);
			}
			if($ulevel >= 18)
			{
				quest::setskill(34, 300);
			}
			if($ulevel >= 20)
			{
				quest::setskill(20, 300);
			}
			if($ulevel >= 35)
			{
				quest::setskill(17, 300);
				quest::setskill(37, 300);
			}
			
		}
		
		if($class eq 'Monk')
		{
			if($ulevel >= 3)
			{
				quest::setskill(39, 300);
			}
			if($ulevel >= 5)
			{
				quest::setskill(38, 300);
			}
			if($ulevel >= 10)
			{
				quest::setskill(52, 300);
			}
			if($ulevel >= 12)
			{
				quest::setskill(11, 300);
			}
			if($ulevel >= 15)
			{
				quest::setskill(20, 300);
			}
			if($ulevel >= 17)
			{
				quest::setskill(28, 300);
			}
			if($ulevel >= 18)
			{
				quest::setskill(71, 300);
			}
			if($ulevel >= 20)
			{
				quest::setskill(23, 300);
			}
			if($ulevel >= 25)
			{
				quest::setskill(21, 300);
			}
			if($ulevel >= 27)
			{
				quest::setskill(17, 300);
			}
			if($ulevel >= 30)
			{
				quest::setskill(26, 300);
			}
			if($ulevel >= 35)
			{
				quest::setskill(37, 300);
			}
			
		}
		
		if($class eq 'Bard')
		{
			if($ulevel >= 5)
			{
				quest::setskill(70, 300);
			}
			if($ulevel >= 8)
			{
				quest::setskill(49, 300);
			}
			if($ulevel >= 10)
			{
				quest::setskill(31, 300);
				quest::setskill(35, 300);
			}
			if($ulevel >= 11)
			{
				quest::setskill(12, 300);
			}
			if($ulevel >= 12)
			{
				quest::setskill(27, 300);
			}
			if($ulevel >= 14)
			{
				quest::setskill(54, 300);
			}
			if($ulevel >= 15)
			{
				quest::setskill(62, 300);
			}
			if($ulevel >= 17)
			{
				quest::setskill(22, 300);
				quest::setskill(42, 300);
			}
			if($ulevel >= 20)
			{
				quest::setskill(17, 300);
			}
			if($ulevel >= 24)
			{
				quest::setskill(39, 300);
			}
			if($ulevel >= 25)
			{
				quest::setskill(29, 300);
			}
			if($ulevel >= 26)
			{
				quest::setskill(71, 300);
			}
			if($ulevel >= 35)
			{
				quest::setskill(53, 300);
			}
			if($ulevel >= 53)
			{
				quest::setskill(34, 300);
			}
			if($ulevel >= 58)
			{
				quest::setskill(37, 300);
			}
			
		}
		
		if($class eq 'Paladin')
		{
			if($ulevel >= 6)
			{
				quest::setskill(10, 300);
			}
			if($ulevel >= 10)
			{
				quest::setskill(19, 300);
			}
			if($ulevel >= 17)
			{
				quest::setskill(34, 300);
			}
			if($ulevel >= 20)
			{
				quest::setskill(20, 300);
			}
			if($ulevel >= 30)
			{
				quest::setskill(37, 300);
			}
			if($ulevel >= 40)
			{
				quest::setskill(16, 300);
			}
			
		}
		
		if($class eq 'Beastlord')
		{
			if($ulevel >= 5)
			{
				quest::setskill(30, 300);
			}	
			if($ulevel >= 10)
			{
				quest::setskill(19, 300);
			}
			if($ulevel >= 17)
			{
				quest::setskill(22, 300);
			}
			if($ulevel >= 25)
			{
				quest::setskill(11, 300);
			}
			if($ulevel >= 40)
			{
				quest::setskill(37, 300);
			}
			
		}
		
		if($class eq 'Berserker')
		{
			if($ulevel >= 6)
			{
				quest::setskill(74, 300);
			}
			if($ulevel >= 10)
			{
				quest::setskill(19, 300);
			}
			if($ulevel >= 12)
			{
				quest::setskill(34, 300);
			}
			if($ulevel >= 15)
			{
				quest::setskill(20, 300);
			}
			if($ulevel >= 30)
			{
				quest::setskill(37, 300);
			}
			if($ulevel >= 35)
			{
				quest::setskill(16, 300);
			}
			
		}
	}
	elsif($platinum == 4500)
	{
		quest::setallskill(400);
	}
	else
	{
		$client->Message(315, "$NPCNAME whispers to you, 'This is not what I want.'");
		plugin::return_items(\%itemcount);
	}
}
### Vendor Script End ###


## Translocator Script ###

#Translocator for Multiple Zones

#Array for all available zones to be sent to
@ZoneList = qw(
	cazicthule
	akanon
	bothunder
	befallen
	blackburrow
	cabeast
	cabwest
	mistmoore
	chardok
	thurgadina
	veksar
	cobaltscar
	crystal
	dalnir
	necropolis
	dreadlands
	dulak
	freporte
	echo
	erudnext
	unrest
	everfrost
	fieldofbone
	fungusgrove
	greatdivide
	grobb
	guktop
	halas
	highkeep
	charasis
	paw
	kael
	kaesora
	karnor
	kurn
	lakeofillomen
	nurga
	soldungb
	najena
	nexus
	freportn
	nro
	oggok
	sebilis
	permafrost
	airplane
	fearplane
	growthplane
	hateplane
	poinnovation
	poknowledge
	mischiefplane
	ponightmare
	postorms
	povalor
	qeytoqrg
	rivervale
	runnyeye
	shadowhaven
	skyshrine
	soldunga
	sro
	felwitheb
	ssratemple
	qrg
	acrylia
	arena
	burningwood
	citymist
	sharvahl
	nadox
	dawnshroud
	thegrey
	gunthak
	hole
	jaggedpine
	maiden
	overthere
	paludal
	podisease
	hateplaneb
	pojustice
	scarlet
	umbral
	frozenshadow
	poeartha
	velketor
	vexthal
	warrens
	warslikswood
	freportw
);

sub EVENT_SAY{

	#Spacer between Text messages to make them easier to read
	$client->Message(7, "-");
	my $NPCName = $npc->GetCleanName();

	if ($text =~/translocator/i)
	{
		$client->Message(315, "$NPCName whispers to you, 'If there is a zone you would like to go to, just tell me the short name of it and I will see if I have a spell to send you there. If you do not know the full name, just type part of the name to search my list of possible zones.  Or, I can list [all] of them if you like.'");
	}

	#Counts each row for the While
	my $count = 1;

	#Counts each element in the Array for the While
	my $n = 0;

	
	if ($text !~ /translocator/i)
	{
		#Use scalar form of Array
		while ($ZoneList[$n])
		{
			#This uses the lc() function in perl to convert anything typed into all lowercase, since that is what the zone list is
			#If the zone name contains part of the text said, or if the player wants to list all possible zones we list them
			if (($ZoneList[$n] =~ lc($text) && $ZoneList[$n] ne lc($text)) || ($text =~ /^All$/i))
			{
				my $ZoneName = $ZoneList[$n];
				$client->Message(315, "$NPCName whispers to you, 'Possible match is: $ZoneName");
			}
			#If they say the full name of one of the zones in the Array, or click one of the saylinks, port them to the safe loc there
			if ($ZoneList[$n] eq lc($text) && $text !~ /^All$/i)
			{
				$client->Message(315, "$NPCName whispers to you, 'Enjoy your adventure!'");
				$client->Message(6, "$NPCName casts a spell to translocate you to another place.");
				quest::zone("$ZoneList[$n]");
			}
			$n++;
			$count++;
		}
	}
}
	
## Translocator Script End ###


## Credit System Script ##

sub EVENT_ITEM {
#give a plat, get a credit.  Takes any platinum over 1.
if($platinum >= 1){
quest::setglobal("buffbot", $buffbot+$platinum, 0, "Y9");
quest::say("Your credit has been increased by $platinum.");
$buffbot = undef;
quest::settimer(1,1);
}
else {
quest::say("I only accept platinum.");
$buffbot = undef;
}
    plugin::return_items(\%itemcount);
  
}

sub EVENT_TIMER {
if ($timer == 1) {
quest::say("Would you like to know your total [credit value]?");
quest::stoptimer(1);
}
	
## Credit System Script ends ##
	
}
}

## End of Script ##

By the way, what I'm doing really is making a way to blow tons of plat so if you're playing single player or with one other, there is a way to get decent gear at the expense of pp. Not done yet but I would like to get it to work as is for now until I complete it. Thanks for the help, and I left all credits in the script where due.

blackdragonsdg · #2 04-13-2012, 01:23 AM

Well atleast part of the problem is that you have 3 sub EVENT_SAY and 2 sub EVENT_ITEM.

Furinex · #3 04-13-2012, 07:13 AM

Thought I took care of those. Thanks

Furinex · #4 04-14-2012, 04:07 PM

Alright, So far I have this code working and it is still in progress but I would like to share regardless. maybe I can get someone help me fill in the class items a bit more. Basically here's the breakdown.

Dieffer Wolfhugger in PoK by the main bank now does the following:

Buff bot
Credit system (1pp = 1credit, used to buy buffs, items and ports)
Translocator
Item Dealer
Items are broken down as follows:
T1 - Pre Kunark
T2 - Kunark
T3 - Velious
T2 - PoP
T2 - Inflicted Armor.

I have a bunch of classes done already but still needs work.

Here's the code. Note that some of this code was borrowed from various authors and credit is due where noted. I just modified and tweaked it a bit, plus added a ton of crap.

Code:

## Intro - Basic Stuff ##

sub EVENT_SAY { 
if($text=~/Hail/i){
quest::say("Hello, $name. Are you interested in [buffs] or [items], or would you like to know your [Credit Info]?  I also have [tele] services.");
}

if($text=~/Credit Info/i){
quest::say("Would you like to know how to [obtain] credit, your current [credit value], or available [buffs] and [items]?");
}

if($text=~/obtain/i){
quest::say("For every platinum you bring me you shall receive one credit (1pp = 1£).  These credits can be redeemed for buffs or items at your request.");
}

## Buffs - Menu ##

if($text=~/buffs/i || $text=~/yes/i) {  #### What buffs does he offer and how much credit?
quest::say("I have the following to offer you:");
quest::say("[Cleanse] --full health and mana restore-- - FREE");
quest::say("[Temperance] - £10");
quest::say("[Virtue] - £20");
quest::say("[Conviction] - £50");
quest::say("[C1] - £5");
quest::say("[C2] - £25");
quest::say("[C3] - £50");
quest::say("[C4] - £75");
quest::say("[C5] - £100");
quest::say("[Hastening of Salik] - £30");
quest::say("[Spirit of Wolf] - £5");
quest::say("[Spirit of Eagle] - £20");
quest::say("[Circle of Neetles] - £25");
quest::say("[Blessing of Steelok] - £50");
}

if($text=~/credit value/){
if ($buffbot >= 1) {
quest::say("Your current credit is £$buffbot");
$buffbot = undef;
}
else {
quest::say("You have £0 credit.  Would you like to know how much you need to donate obtain [buffs] or [items]?");
$buffbot = undef;
}
}

## Buffs Menu end ##


## Items - Menu ##

if($text=~/items/i){
quest::say("I have the following to offer you:");
quest::say("[Druid] items.");
quest::say("[Bard] items.");
quest::say("[Cleric] items.");
quest::say("[Enchanter] items.");
quest::say("[Wizard] items.");
quest::say("[Magician] items.");
quest::say("[Shaman] items.");
quest::say("[Monk] items.");
quest::say("[Beastlord] items.");
quest::say("[Necromancer] items.");
quest::say("[Ranger] items.");
quest::say("[Warrior] items.");
quest::say("[Rogue] items.");
quest::say("[Paladin] items.");
quest::say("[Shadow Knight] items.");
quest::say("[Berzerker] items.");
quest::say("[Misc] items.");
quest::say("[Food] or [Supplies].");
}

## Items Menu end ##


## Cleanse ##

if($text=~/cleanse/i){ #### Restores Mana and Health.  I use this as an alternative to simply casting a spell
$client->Heal();
$client->SetMana($client->GetMaxMana());
quest::say("As you wish!");
}

## Cleanse end ##



## Buffs begin ##

## Buff 1 - Temperance ##

if($text=~/Temperance/i){
if ($buffbot >= 10) {
quest::selfcast(3692);
quest::say("As you wish!");
quest::setglobal("buffbot", $buffbot-10, 0, "Y9");
$buffbot = undef;
	}
else {
quest::say("You need more credits!");
$buffbot = undef;
}
}

## Temperance ends ##


## Buff 2 - Virtue ##

if($text=~/virtue/i){
if ($buffbot >= 20) {
quest::selfcast(3467);
quest::say("As you wish!");
quest::setglobal("buffbot", $buffbot-20, 0, "Y9");
$buffbot = undef;
}
else {
quest::say("You need more credits!");
$buffbot = undef;
}
}

## Virtue ends##


## Buff 3 - Conviction ##

if($text=~/conviction/i){
if ($buffbot >= 50) {
quest::selfcast(174);
quest::say("As you wish!");
quest::setglobal("buffbot", $buffbot-50, 0, "Y9");
$buffbot = undef;
}
else {
quest::say("You need more credits!");
$buffbot = undef;
}
}

## Conviction ends


## Buff 4 - C1 ##

if($text=~/c1/i){
if ($buffbot >= 5) {
quest::selfcast(697);
quest::say("As you wish!");
quest::setglobal("buffbot", $buffbot-5, 0, "Y9");
$buffbot = undef;
}
else {
quest::say("You need more credits!");
$buffbot = undef;
}
}

## C1 ends ##

## Buff 5 - C2 ##
if($text=~/c2/i){
if ($buffbot >= 25) {
quest::selfcast(174);
quest::say("As you wish!");
quest::setglobal("buffbot", $buffbot-25, 0, "Y9");
$buffbot = undef;
}
else {
quest::say("You need more credits!");
$buffbot = undef;
}
}

## C2 ends ##


## Buff 6 - C3 ##

if($text=~/c3/i){
if ($buffbot >= 50) {
quest::selfcast(1693);
quest::say("As you wish!");
quest::setglobal("buffbot", $buffbot-50, 0, "Y9");
$buffbot = undef;
}
else {
quest::say("You need more credits!");
$buffbot = undef;
}
}

## C3 ends ##


## Buff 7 - C4 ##

if($text=~/c4/i){
if ($buffbot >= 75) {
quest::selfcast(2570);
quest::say("As you wish!");
quest::setglobal("buffbot", $buffbot-75, 0, "Y9");
$buffbot = undef;
}
else {
quest::say("You need more credits!");
$buffbot = undef;
}
}

## C4 ends ##


## Buff 8 - C5 ##

if($text=~/c4/i){
if ($buffbot >= 100) {
quest::selfcast(5513);
quest::say("As you wish!");
quest::setglobal("buffbot", $buffbot-100, 0, "Y9");
$buffbot = undef;
}
else {
quest::say("You need more credits!");
$buffbot = undef;
}
}

## C5 ends ##


## Buff 8 - Hastening of Salik ##

if($text=~/hastening of salik/i){
if ($buffbot >= 30) {
quest::selfcast(5521);
quest::say("As you wish!");
quest::setglobal("buffbot", $buffbot-30, 0, "Y9");
$buffbot = undef;
}
else {
quest::say("You need more credits!");
$buffbot = undef;
}
}

## HoS ends ##


## Buff 9 - Spirit of Wolf ##

if($text=~/spirit of wolf/i){
if ($buffbot >= 5) {
quest::selfcast(278);
quest::say("As you wish!");
quest::setglobal("buffbot", $buffbot-5, 0, "Y9");
$buffbot = undef;
}
else {
quest::say("You need more credits!");
$buffbot = undef;
}
}

## SoW ends ##


## Buff 10 - Spirit of Eagle ##

if($text=~/spirit of eagle/i){
if ($buffbot >= 20) {
quest::selfcast(16813);
quest::say("As you wish!");
quest::setglobal("buffbot", $buffbot-20, 0, "Y9");
$buffbot = undef;
}
else {
quest::say("You need more credits!");
$buffbot = undef;
}
}

## SoE ends ##


## Buff 11 - Circle of Neetles ##

if($text=~/circle of neetles/i){
if ($buffbot >= 25) {
quest::selfcast(5365);
quest::say("As you wish!");
quest::setglobal("buffbot", $buffbot-25, 0, "Y9");
$buffbot = undef;
}
else {
quest::say("You need more credits!");
$buffbot = undef;
}
}

## CoN ends ##


## Buff 12 - Blessing of Steelok ##

if($text=~/blessing of steelok/i){
if ($buffbot >= 50) {
quest::selfcast(5366);
quest::say("As you wish!");
quest::setglobal("buffbot", $buffbot-50, 0, "Y9");
$buffbot = undef;
}
else {
quest::say("You need more credits!");
$buffbot = undef;
}
}

## BoS ends ##

## Buffs end ##


## Items Section ##


## Druid Items ##

if($text=~/druid/i){
quest::say("I have the following to offer you:");
quest::say("[DTier 1] items.");
quest::say("[DTier 2] items.");
quest::say("[DTier 3] items.");
quest::say("[DTier 4] items.");
quest::say("[DTier 5] items.");
quest::say("[DOther] items.");
}

if($text=~/dtier 1/i){
quest::say("I have the following to offer you:");
quest::say("Vermiculated Armor.  Helm - [dt1helm] £500.  Boots - [dt1boots] £500.  Gloves - [dt1gloves] £500.  Chest - [dt1chest] £1000.  Legs - [dt1legs] £750.  Wrist - [dt1wrist] £500.  Arms - [dt1arms] £500.  Full Set - [dt1set] £9000.");
}
if($text=~/dt1helm/i){
if ($buffbot >= 500) {
quest::summonitem(3801);
quest::say("As you wish!");
quest::setglobal("buffbot", $buffbot-500, 0, "Y9");
$buffbot = undef;
}
else {
quest::say("You need more credits!");
$buffbot = undef;
}
}

if($text=~/dt1boots/i){
if ($buffbot >= 500) {
quest::summonitem(3807);
quest::say("As you wish!");
quest::setglobal("buffbot", $buffbot-500, 0, "Y9");
$buffbot = undef;
}
else {
quest::say("You need more credits!");
$buffbot = undef;
}
}

if($text=~/dt1gloves/i){
if ($buffbot >= 500) {
quest::summonitem(3805);
quest::say("As you wish!");
quest::setglobal("buffbot", $buffbot-500, 0, "Y9");
$buffbot = undef;
}
else {
quest::say("You need more credits!");
$buffbot = undef;
}
}

if($text=~/dt1chest/i){
if ($buffbot >= 1000) {
quest::summonitem(3802);
quest::say("As you wish!");
quest::setglobal("buffbot", $buffbot-1000, 0, "Y9");
$buffbot = undef;
}
else {
quest::say("You need more credits!");
$buffbot = undef;
}
}

if($text=~/dt1legs/i){
if ($buffbot >= 750) {
quest::summonitem(3806);
quest::say("As you wish!");
quest::setglobal("buffbot", $buffbot-750, 0, "Y9");
$buffbot = undef;
}
else {
quest::say("You need more credits!");
$buffbot = undef;
}
}

if($text=~/dt1wrist/i){
if ($buffbot >= 500) {
quest::summonitem(3804);
quest::say("As you wish!");
quest::setglobal("buffbot", $buffbot-500, 0, "Y9");
$buffbot = undef;
}
else {
quest::say("You need more credits!");
$buffbot = undef;
}
}

if($text=~/dt1arms/i){
if ($buffbot >= 500) {
quest::summonitem(3803);
quest::say("As you wish!");
quest::setglobal("buffbot", $buffbot-500, 0, "Y9");
$buffbot = undef;
}
else {
quest::say("You need more credits!");
$buffbot = undef;
}
}

if($text=~/dt1set/i){
if ($buffbot >= 4500) {
quest::summonitem(3801);
quest::summonitem(3802);
quest::summonitem(3803);
quest::summonitem(3804);
quest::summonitem(3804);
quest::summonitem(3805);
quest::summonitem(3806);
quest::summonitem(3807);
quest::say("As you wish!");
quest::setglobal("buffbot", $buffbot-4500, 0, "Y9");
$buffbot = undef;
}
else {
quest::say("You need more credits!");
$buffbot = undef;
}
}

if($text=~/dtier 2/i){
quest::say("I have the following to offer you:");
quest::say("Elder Spiritist set.  Helm - [dt2helm] £1000.  Boots - [dt2boots] £1000.  Gloves - [dt2gloves] £1000.  Chest - [dt2chest] £2000.  Legs - [dt2legs] £1500.  Wrist - [dt2wrist] £1000.  Arms - [dt2arms] £1000.  Full Set - [dt2set] £9000.");
}
if($text=~/dt2helm/i){
if ($buffbot >= 1000) {
quest::summonitem(4571);
quest::say("As you wish!");
quest::setglobal("buffbot", $buffbot-1000, 0, "Y9");
$buffbot = undef;
}
else {
quest::say("You need more credits!");
$buffbot = undef;
}
}

if($text=~/dt2boots/i){
if ($buffbot >= 1000) {
quest::summonitem(4577);
quest::say("As you wish!");
quest::setglobal("buffbot", $buffbot-1000, 0, "Y9");
$buffbot = undef;
}
else {
quest::say("You need more credits!");
$buffbot = undef;
}
}

if($text=~/dt2gloves/i){
if ($buffbot >= 1000) {
quest::summonitem(4575);
quest::say("As you wish!");
quest::setglobal("buffbot", $buffbot-1000, 0, "Y9");
$buffbot = undef;
}
else {
quest::say("You need more credits!");
$buffbot = undef;
}
}

if($text=~/dt2chest/i){
if ($buffbot >= 2000) {
quest::summonitem(4572);
quest::say("As you wish!");
quest::setglobal("buffbot", $buffbot-2000, 0, "Y9");
$buffbot = undef;
}
else {
quest::say("You need more credits!");
$buffbot = undef;
}
}

if($text=~/dt2legs/i){
if ($buffbot >= 1500) {
quest::summonitem(4576);
quest::say("As you wish!");
quest::setglobal("buffbot", $buffbot-1500, 0, "Y9");
$buffbot = undef;
}
else {
quest::say("You need more credits!");
$buffbot = undef;
}
}

if($text=~/dt2wrist/i){
if ($buffbot >= 1000) {
quest::summonitem(4574);
quest::say("As you wish!");
quest::setglobal("buffbot", $buffbot-1000, 0, "Y9");
$buffbot = undef;
}
else {
quest::say("You need more credits!");
$buffbot = undef;
}
}

if($text=~/dt2arms/i){
if ($buffbot >= 1000) {
quest::summonitem(4573);
quest::say("As you wish!");
quest::setglobal("buffbot", $buffbot-1000, 0, "Y9");
$buffbot = undef;
}
else {
quest::say("You need more credits!");
$buffbot = undef;
}
}

if($text=~/dt2set/i){
if ($buffbot >= 9000) {
quest::summonitem(4571);
quest::summonitem(4572);
quest::summonitem(4573);
quest::summonitem(4574);
quest::summonitem(4574);
quest::summonitem(4575);
quest::summonitem(4576);
quest::summonitem(4577);
quest::say("As you wish!");
quest::setglobal("buffbot", $buffbot-9000, 0, "Y9");
$buffbot = undef;
}
else {
quest::say("You need more credits!");
$buffbot = undef;
}
}

if($text=~/dtier 3/i){
quest::say("I have the following to offer you:");
quest::say("Natrure Walker's set.  Helm - [dt3helm] £10000.  Boots - [dt3boots] £10000.  Gloves - [dt3gloves] £10000.  Chest - [dt3chest] £20000.  Legs - [dt3legs] £15000.  Wrist - [dt3wrist] £10000.  Arms - [dt3arms] £10000.  Full Set - [dt3set] £90000.");
}
if($text=~/dt3helm/i){
if ($buffbot >= 10000) {
quest::summonitem(25398);
quest::say("As you wish!");
quest::setglobal("buffbot", $buffbot-10000, 0, "Y9");
$buffbot = undef;
}
else {
quest::say("You need more credits!");
$buffbot = undef;
}
}

if($text=~/dt3boots/i){
if ($buffbot >= 10000) {
quest::summonitem(25404);
quest::say("As you wish!");
quest::setglobal("buffbot", $buffbot-10000, 0, "Y9");
$buffbot = undef;
}
else {
quest::say("You need more credits!");
$buffbot = undef;
}
}

if($text=~/dt3gloves/i){
if ($buffbot >= 10000) {
quest::summonitem(25402);
quest::say("As you wish!");
quest::setglobal("buffbot", $buffbot-10000, 0, "Y9");
$buffbot = undef;
}
else {
quest::say("You need more credits!");
$buffbot = undef;
}
}

if($text=~/dt3chest/i){
if ($buffbot >= 20000) {
quest::summonitem(25399);
quest::say("As you wish!");
quest::setglobal("buffbot", $buffbot-20000, 0, "Y9");
$buffbot = undef;
}
else {
quest::say("You need more credits!");
$buffbot = undef;
}
}

if($text=~/dt3legs/i){
if ($buffbot >= 15000) {
quest::summonitem(25403);
quest::say("As you wish!");
quest::setglobal("buffbot", $buffbot-15000, 0, "Y9");
$buffbot = undef;
}
else {
quest::say("You need more credits!");
$buffbot = undef;
}
}

if($text=~/dt3wrist/i){
if ($buffbot >= 10000) {
quest::summonitem(25401);
quest::say("As you wish!");
quest::setglobal("buffbot", $buffbot-10000, 0, "Y9");
$buffbot = undef;
}
else {
quest::say("You need more credits!");
$buffbot = undef;
}
}

if($text=~/dt3arms/i){
if ($buffbot >= 10000) {
quest::summonitem(25400);
quest::say("As you wish!");
quest::setglobal("buffbot", $buffbot-10000, 0, "Y9");
$buffbot = undef;
}
else {
quest::say("You need more credits!");
$buffbot = undef;
}
}

if($text=~/dt3set/i){
if ($buffbot >= 90000) {
quest::summonitem(25398);
quest::summonitem(25399);
quest::summonitem(25400);
quest::summonitem(25401);
quest::summonitem(25401);
quest::summonitem(25402);
quest::summonitem(25403);
quest::summonitem(25404);
quest::say("As you wish!");
quest::setglobal("buffbot", $buffbot-90000, 0, "Y9");
$buffbot = undef;
}
else {
quest::say("You need more credits!");
$buffbot = undef;
}
}

if($text=~/dtier 4/i){
quest::say("I have the following to offer you:");
quest::say("Kerasha's Sylvan set.  Helm - [dt4helm] £30000.  Boots - [dt4boots] £30000.  Gloves - [dt4gloves] £30000.  Chest - [dt4chest] £60000.  Legs - [dt4legs] £45000.  Wrist - [dt4wrist] £30000.  Arms - [dt4arms] £30000.  Full Set - [dt4set] £240000.");
}
if($text=~/dt4helm/i){
if ($buffbot >= 30000) {
quest::summonitem(84144);
quest::say("As you wish!");
quest::setglobal("buffbot", $buffbot-30000, 0, "Y9");
$buffbot = undef;
}
else {
quest::say("You need more credits!");
$buffbot = undef;
}
}

if($text=~/dt4boots/i){
if ($buffbot >= 30000) {
quest::summonitem(84142);
quest::say("As you wish!");
quest::setglobal("buffbot", $buffbot-30000, 0, "Y9");
$buffbot = undef;
}
else {
quest::say("You need more credits!");
$buffbot = undef;
}
}

if($text=~/dt4gloves/i){
if ($buffbot >= 30000) {
quest::summonitem(84145);
quest::say("As you wish!");
quest::setglobal("buffbot", $buffbot-30000, 0, "Y9");
$buffbot = undef;
}
else {
quest::say("You need more credits!");
$buffbot = undef;
}
}

if($text=~/dt4chest/i){
if ($buffbot >= 60000) {
quest::summonitem(84148);
quest::say("As you wish!");
quest::setglobal("buffbot", $buffbot-60000, 0, "Y9");
$buffbot = undef;
}
else {
quest::say("You need more credits!");
$buffbot = undef;
}
}

if($text=~/dt4legs/i){
if ($buffbot >= 45000) {
quest::summonitem(84146);
quest::say("As you wish!");
quest::setglobal("buffbot", $buffbot-45000, 0, "Y9");
$buffbot = undef;
}
else {
quest::say("You need more credits!");
$buffbot = undef;
}
}

if($text=~/dt4wrist/i){
if ($buffbot >= 30000) {
quest::summonitem(84143);
quest::say("As you wish!");
quest::setglobal("buffbot", $buffbot-30000, 0, "Y9");
$buffbot = undef;
}
else {
quest::say("You need more credits!");
$buffbot = undef;
}
}

if($text=~/dt4arms/i){
if ($buffbot >= 30000) {
quest::summonitem(84147);
quest::say("As you wish!");
quest::setglobal("buffbot", $buffbot-10000, 0, "Y9");
$buffbot = undef;
}
else {
quest::say("You need more credits!");
$buffbot = undef;
}
}

if($text=~/dt4set/i){
if ($buffbot >= 240000) {
quest::summonitem(84142);
quest::summonitem(84143);
quest::summonitem(84143);
quest::summonitem(84144);
quest::summonitem(84145);
quest::summonitem(84146);
quest::summonitem(84147);
quest::summonitem(84148);
quest::say("As you wish!");
quest::setglobal("buffbot", $buffbot-240000, 0, "Y9");
$buffbot = undef;
}
else {
quest::say("You need more credits!");
$buffbot = undef;
}
}

if($text=~/dtier 5/i){
quest::say("I have the following to offer you:");
quest::say("Inflicted Earthwrought set.  Helm - [dt5helm] £500000.  Boots - [dt5boots] £500000.  Gloves - [dt5gloves] £500000.  Chest - [dt5chest] £1000000.  Legs - [dt5legs] £750000.  Wrist - [dt5wrist] £500000.  Arms - [dt5arms] £500000.  Full Set - [dt5set] £3750000.");
}
if($text=~/dt5helm/i){
if ($buffbot >= 500000) {
quest::summonitem(105362);
quest::say("As you wish!");
quest::setglobal("buffbot", $buffbot-500000, 0, "Y9");
$buffbot = undef;
}
else {
quest::say("You need more credits!");
$buffbot = undef;
}
}

if($text=~/dt5boots/i){
if ($buffbot >= 500000) {
quest::summonitem(105361);
quest::say("As you wish!");
quest::setglobal("buffbot", $buffbot-500000, 0, "Y9");
$buffbot = undef;
}
else {
quest::say("You need more credits!");
$buffbot = undef;
}
}

if($text=~/dt5gloves/i){
if ($buffbot >= 500000) {
quest::summonitem(105360);
quest::say("As you wish!");
quest::setglobal("buffbot", $buffbot-500000, 0, "Y9");
$buffbot = undef;
}
else {
quest::say("You need more credits!");
$buffbot = undef;
}
}

if($text=~/dt5chest/i){
if ($buffbot >= 1000000) {
quest::summonitem(105365);
quest::say("As you wish!");
quest::setglobal("buffbot", $buffbot-1000000, 0, "Y9");
$buffbot = undef;
}
else {
quest::say("You need more credits!");
$buffbot = undef;
}
}

if($text=~/dt5legs/i){
if ($buffbot >= 750000) {
quest::summonitem(105364);
quest::say("As you wish!");
quest::setglobal("buffbot", $buffbot-750000, 0, "Y9");
$buffbot = undef;
}
else {
quest::say("You need more credits!");
$buffbot = undef;
}
}

if($text=~/dt5wrist/i){
if ($buffbot >= 500000) {
quest::summonitem(105359);
quest::say("As you wish!");
quest::setglobal("buffbot", $buffbot-500000, 0, "Y9");
$buffbot = undef;
}
else {
quest::say("You need more credits!");
$buffbot = undef;
}
}

if($text=~/dt5arms/i){
if ($buffbot >= 500000) {
quest::summonitem(105363);
quest::say("As you wish!");
quest::setglobal("buffbot", $buffbot-500000, 0, "Y9");
$buffbot = undef;
}
else {
quest::say("You need more credits!");
$buffbot = undef;
}
}

if($text=~/dt5set/i){
if ($buffbot >= 3750000) {
quest::summonitem(105359);
quest::summonitem(105359);
quest::summonitem(105360);
quest::summonitem(105361);
quest::summonitem(105362);
quest::summonitem(105363);
quest::summonitem(105364);
quest::summonitem(105365);
quest::say("As you wish!");
quest::setglobal("buffbot", $buffbot-3750000, 0, "Y9");
$buffbot = undef;
}
else {
quest::say("You need more credits!");
$buffbot = undef;
}
}

if($text=~/dother/i){
quest::say("I have the following to offer you:");
quest::say("Coming soon.");
}

## Druid Items end ##

## Bard Items ##

if($text=~/bard/i){
quest::say("I have the following to offer you:");
quest::say("[BTier 1] items.");
quest::say("[BTier 2] items.");
quest::say("[BTier 3] items.");
quest::say("[BTier 4] items.");
quest::say("[BTier 5] items.");
quest::say("[BOther] items.");
}

if($text=~/btier 1/i){
quest::say("I have the following to offer you:");
quest::say("Imbrued Platemail Armor.  Helm - [bt1helm] £500.  Boots - [bt1boots] £500.  Gloves - [bt1gloves] £500.  Chest - [bt1chest] £1000.  Legs - [bt1legs] £750.  Wrist - [bt1wrist] £500.  Arms - [bt1arms] £500.  Full Set - [bt1set] £9000.");
}
if($text=~/bt1helm/i){
if ($buffbot >= 500) {
quest::summonitem(4861);
quest::say("As you wish!");
quest::setglobal("buffbot", $buffbot-500, 0, "Y9");
$buffbot = undef;
}
else {
quest::say("You need more credits!");
$buffbot = undef;
}
}

if($text=~/bt1boots/i){
if ($buffbot >= 500) {
quest::summonitem(4867);
quest::say("As you wish!");
quest::setglobal("buffbot", $buffbot-500, 0, "Y9");
$buffbot = undef;
}
else {
quest::say("You need more credits!");
$buffbot = undef;
}
}

if($text=~/bt1gloves/i){
if ($buffbot >= 500) {
quest::summonitem(4865);
quest::say("As you wish!");
quest::setglobal("buffbot", $buffbot-500, 0, "Y9");
$buffbot = undef;
}
else {
quest::say("You need more credits!");
$buffbot = undef;
}
}

if($text=~/bt1chest/i){
if ($buffbot >= 1000) {
quest::summonitem(4862);
quest::say("As you wish!");
quest::setglobal("buffbot", $buffbot-1000, 0, "Y9");
$buffbot = undef;
}
else {
quest::say("You need more credits!");
$buffbot = undef;
}
}

if($text=~/bt1legs/i){
if ($buffbot >= 750) {
quest::summonitem(4866);
quest::say("As you wish!");
quest::setglobal("buffbot", $buffbot-750, 0, "Y9");
$buffbot = undef;
}
else {
quest::say("You need more credits!");
$buffbot = undef;
}
}

if($text=~/bt1wrist/i){
if ($buffbot >= 500) {
quest::summonitem(4864);
quest::say("As you wish!");
quest::setglobal("buffbot", $buffbot-500, 0, "Y9");
$buffbot = undef;
}
else {
quest::say("You need more credits!");
$buffbot = undef;
}
}

if($text=~/bt1arms/i){
if ($buffbot >= 500) {
quest::summonitem(4863);
quest::say("As you wish!");
quest::setglobal("buffbot", $buffbot-500, 0, "Y9");
$buffbot = undef;
}
else {
quest::say("You need more credits!");
$buffbot = undef;
}
}

if($text=~/bt1set/i){
if ($buffbot >= 4500) {
quest::summonitem(4861);
quest::summonitem(4862);
quest::summonitem(4863);
quest::summonitem(4864);
quest::summonitem(4864);
quest::summonitem(4865);
quest::summonitem(4866);
quest::summonitem(4867);
quest::say("As you wish!");
quest::setglobal("buffbot", $buffbot-4500, 0, "Y9");
$buffbot = undef;
}
else {
quest::say("You need more credits!");
$buffbot = undef;
}
}

if($text=~/btier 2/i){
quest::say("I have the following to offer you:");
quest::say("Singing Steel Armor.  Helm - [bt2helm] £1000.  Boots - [bt2boots] £1000.  Gloves - [bt2gloves] £1000.  Chest - [bt2chest] £2000.  Legs - [bt2legs] £1500.  Wrist - [bt2wrist] £1000.  Arms - [bt2arms] £1000.  Full Set - [bt2set] £9000.");
}
if($text=~/bt2helm/i){
if ($buffbot >= 1000) {
quest::summonitem(4557);
quest::say("As you wish!");
quest::setglobal("buffbot", $buffbot-1000, 0, "Y9");
$buffbot = undef;
}
else {
quest::say("You need more credits!");
$buffbot = undef;
}
}

if($text=~/bt2boots/i){
if ($buffbot >= 1000) {
quest::summonitem(4563);
quest::say("As you wish!");
quest::setglobal("buffbot", $buffbot-1000, 0, "Y9");
$buffbot = undef;
}
else {
quest::say("You need more credits!");
$buffbot = undef;
}
}

if($text=~/bt2gloves/i){
if ($buffbot >= 1000) {
quest::summonitem(4561);
quest::say("As you wish!");
quest::setglobal("buffbot", $buffbot-1000, 0, "Y9");
$buffbot = undef;
}
else {
quest::say("You need more credits!");
$buffbot = undef;
}
}

if($text=~/bt2chest/i){
if ($buffbot >= 2000) {
quest::summonitem(4558);
quest::say("As you wish!");
quest::setglobal("buffbot", $buffbot-2000, 0, "Y9");
$buffbot = undef;
}
else {
quest::say("You need more credits!");
$buffbot = undef;
}
}

if($text=~/bt2legs/i){
if ($buffbot >= 1500) {
quest::summonitem(4562);
quest::say("As you wish!");
quest::setglobal("buffbot", $buffbot-1500, 0, "Y9");
$buffbot = undef;
}
else {
quest::say("You need more credits!");
$buffbot = undef;
}
}

if($text=~/bt2wrist/i){
if ($buffbot >= 1000) {
quest::summonitem(4560);
quest::say("As you wish!");
quest::setglobal("buffbot", $buffbot-1000, 0, "Y9");
$buffbot = undef;
}
else {
quest::say("You need more credits!");
$buffbot = undef;
}
}

if($text=~/bt2arms/i){
if ($buffbot >= 1000) {
quest::summonitem(4559);
quest::say("As you wish!");
quest::setglobal("buffbot", $buffbot-1000, 0, "Y9");
$buffbot = undef;
}
else {
quest::say("You need more credits!");
$buffbot = undef;
}
}

if($text=~/bt2set/i){
if ($buffbot >= 9000) {
quest::summonitem(4557);
quest::summonitem(4558);
quest::summonitem(4559);
quest::summonitem(4560);
quest::summonitem(4560);
quest::summonitem(4561);
quest::summonitem(4562);
quest::summonitem(4563);
quest::say("As you wish!");
quest::setglobal("buffbot", $buffbot-9000, 0, "Y9");
$buffbot = undef;
}
else {
quest::say("You need more credits!");
$buffbot = undef;
}
}

if($text=~/btier 3/i){
quest::say("I have the following to offer you:");
quest::say("Twilight Set.  Helm - [bt3helm] £10000.  Boots - [bt3boots] £10000.  Gloves - [bt3gloves] £10000.  Chest - [bt3chest] £20000.  Legs - [bt3legs] £15000.  Wrist - [bt3wrist] £10000.  Arms - [bt3arms] £10000.  Full Set - [bt3set] £90000.");
}
if($text=~/bt3helm/i){
if ($buffbot >= 10000) {
quest::summonitem(31133);
quest::say("As you wish!");
quest::setglobal("buffbot", $buffbot-10000, 0, "Y9");
$buffbot = undef;
}
else {
quest::say("You need more credits!");
$buffbot = undef;
}
}

if($text=~/bt3boots/i){
if ($buffbot >= 10000) {
quest::summonitem(31139);
quest::say("As you wish!");
quest::setglobal("buffbot", $buffbot-10000, 0, "Y9");
$buffbot = undef;
}
else {
quest::say("You need more credits!");
$buffbot = undef;
}
}

if($text=~/bt3gloves/i){
if ($buffbot >= 10000) {
quest::summonitem(31137);
quest::say("As you wish!");
quest::setglobal("buffbot", $buffbot-10000, 0, "Y9");
$buffbot = undef;
}
else {
quest::say("You need more credits!");
$buffbot = undef;
}
}

if($text=~/bt3chest/i){
if ($buffbot >= 20000) {
quest::summonitem(31134);
quest::say("As you wish!");
quest::setglobal("buffbot", $buffbot-20000, 0, "Y9");
$buffbot = undef;
}
else {
quest::say("You need more credits!");
$buffbot = undef;
}
}

if($text=~/bt3legs/i){
if ($buffbot >= 15000) {
quest::summonitem(31138);
quest::say("As you wish!");
quest::setglobal("buffbot", $buffbot-15000, 0, "Y9");
$buffbot = undef;
}
else {
quest::say("You need more credits!");
$buffbot = undef;
}
}

if($text=~/bt3wrist/i){
if ($buffbot >= 10000) {
quest::summonitem(31136);
quest::say("As you wish!");
quest::setglobal("buffbot", $buffbot-10000, 0, "Y9");
$buffbot = undef;
}
else {
quest::say("You need more credits!");
$buffbot = undef;
}
}

if($text=~/bt3arms/i){
if ($buffbot >= 10000) {
quest::summonitem(31135);
quest::say("As you wish!");
quest::setglobal("buffbot", $buffbot-10000, 0, "Y9");
$buffbot = undef;
}
else {
quest::say("You need more credits!");
$buffbot = undef;
}
}

if($text=~/bt3set/i){
if ($buffbot >= 90000) {
quest::summonitem(31133);
quest::summonitem(31134);
quest::summonitem(31135);
quest::summonitem(31136);
quest::summonitem(31136);
quest::summonitem(31137);
quest::summonitem(31138);
quest::summonitem(31139);
quest::say("As you wish!");
quest::setglobal("buffbot", $buffbot-90000, 0, "Y9");
$buffbot = undef;
}
else {
quest::say("You need more credits!");
$buffbot = undef;
}
}

if($text=~/btier 4/i){
quest::say("I have the following to offer you:");
quest::say("Rizlona's Fiery set.  Helm - [bt4helm] £30000.  Boots - [bt4boots] £30000.  Gloves - [bt4gloves] £30000.  Chest - [bt4chest] £60000.  Legs - [bt4legs] £45000.  Wrist - [bt4wrist] £30000.  Arms - [bt4arms] £30000.  Full Set - [bt4set] £240000.");
}
if($text=~/bt4helm/i){
if ($buffbot >= 30000) {
quest::summonitem(9818);
quest::say("As you wish!");
quest::setglobal("buffbot", $buffbot-30000, 0, "Y9");
$buffbot = undef;
}
else {
quest::say("You need more credits!");
$buffbot = undef;
}
}

if($text=~/bt4boots/i){
if ($buffbot >= 30000) {
quest::summonitem(19549);
quest::say("As you wish!");
quest::setglobal("buffbot", $buffbot-30000, 0, "Y9");
$buffbot = undef;
}
else {
quest::say("You need more credits!");
$buffbot = undef;
}
}

if($text=~/bt4gloves/i){
if ($buffbot >= 30000) {
quest::summonitem(12664);
quest::say("As you wish!");
quest::setglobal("buffbot", $buffbot-30000, 0, "Y9");
$buffbot = undef;
}
else {
quest::say("You need more credits!");
$buffbot = undef;
}
}

if($text=~/bt4chest/i){
if ($buffbot >= 60000) {
quest::summonitem(47643);
quest::say("As you wish!");
quest::setglobal("buffbot", $buffbot-60000, 0, "Y9");
$buffbot = undef;
}
else {
quest::say("You need more credits!");
$buffbot = undef;
}
}

if($text=~/bt4legs/i){
if ($buffbot >= 45000) {
quest::summonitem(16771);
quest::say("As you wish!");
quest::setglobal("buffbot", $buffbot-45000, 0, "Y9");
$buffbot = undef;
}
else {
quest::say("You need more credits!");
$buffbot = undef;
}
}

if($text=~/bt4wrist/i){
if ($buffbot >= 30000) {
quest::summonitem(11178);
quest::say("As you wish!");
quest::setglobal("buffbot", $buffbot-30000, 0, "Y9");
$buffbot = undef;
}
else {
quest::say("You need more credits!");
$buffbot = undef;
}
}

if($text=~/bt4arms/i){
if ($buffbot >= 30000) {
quest::summonitem(11444);
quest::say("As you wish!");
quest::setglobal("buffbot", $buffbot-10000, 0, "Y9");
$buffbot = undef;
}
else {
quest::say("You need more credits!");
$buffbot = undef;
}
}

if($text=~/bt4set/i){
if ($buffbot >= 240000) {
quest::summonitem(9818);
quest::summonitem(11178);
quest::summonitem(11178);
quest::summonitem(12664);
quest::summonitem(16771);
quest::summonitem(19549);
quest::summonitem(11444);
quest::summonitem(47643);
quest::say("As you wish!");
quest::setglobal("buffbot", $buffbot-240000, 0, "Y9");
$buffbot = undef;
}
else {
quest::say("You need more credits!");
$buffbot = undef;
}
}

if($text=~/btier 5/i){
quest::say("I have the following to offer you:");
quest::say("Inflicted Dreamwhisper set.  Helm - [bt5helm] £500000.  Boots - [bt5boots] £500000.  Gloves - [bt5gloves] £500000.  Chest - [bt5chest] £1000000.  Legs - [bt5legs] £750000.  Wrist - [bt5wrist] £500000.  Arms - [bt5arms] £500000.  Full Set - [bt5set] £3750000.");
}
if($text=~/bt5helm/i){
if ($buffbot >= 500000) {
quest::summonitem(104276);
quest::say("As you wish!");
quest::setglobal("buffbot", $buffbot-500000, 0, "Y9");
$buffbot = undef;
}
else {
quest::say("You need more credits!");
$buffbot = undef;
}
}

if($text=~/bt5boots/i){
if ($buffbot >= 500000) {
quest::summonitem(104275);
quest::say("As you wish!");
quest::setglobal("buffbot", $buffbot-500000, 0, "Y9");
$buffbot = undef;
}
else {
quest::say("You need more credits!");
$buffbot = undef;
}
}

if($text=~/bt5gloves/i){
if ($buffbot >= 500000) {
quest::summonitem(104274);
quest::say("As you wish!");
quest::setglobal("buffbot", $buffbot-500000, 0, "Y9");
$buffbot = undef;
}
else {
quest::say("You need more credits!");
$buffbot = undef;
}
}

if($text=~/bt5chest/i){
if ($buffbot >= 1000000) {
quest::summonitem(104279);
quest::say("As you wish!");
quest::setglobal("buffbot", $buffbot-1000000, 0, "Y9");
$buffbot = undef;
}
else {
quest::say("You need more credits!");
$buffbot = undef;
}
}

if($text=~/bt5legs/i){
if ($buffbot >= 750000) {
quest::summonitem(104278);
quest::say("As you wish!");
quest::setglobal("buffbot", $buffbot-750000, 0, "Y9");
$buffbot = undef;
}
else {
quest::say("You need more credits!");
$buffbot = undef;
}
}

if($text=~/bt5wrist/i){
if ($buffbot >= 500000) {
quest::summonitem(104273);
quest::say("As you wish!");
quest::setglobal("buffbot", $buffbot-500000, 0, "Y9");
$buffbot = undef;
}
else {
quest::say("You need more credits!");
$buffbot = undef;
}
}

if($text=~/bt5arms/i){
if ($buffbot >= 500000) {
quest::summonitem(104277);
quest::say("As you wish!");
quest::setglobal("buffbot", $buffbot-500000, 0, "Y9");
$buffbot = undef;
}
else {
quest::say("You need more credits!");
$buffbot = undef;
}
}

if($text=~/bt5set/i){
if ($buffbot >= 3750000) {
quest::summonitem(104273);
quest::summonitem(104273);
quest::summonitem(104274);
quest::summonitem(104275);
quest::summonitem(104276);
quest::summonitem(104277);
quest::summonitem(104278);
quest::summonitem(104279);
quest::say("As you wish!");
quest::setglobal("buffbot", $buffbot-3750000, 0, "Y9");
$buffbot = undef;
}
else {
quest::say("You need more credits!");
$buffbot = undef;
}
}

if($text=~/bother/i){
quest::say("I have the following to offer you:");
quest::say("Coming soon.");
}

## Bard Items end ##

## Cleric Items ##

if($text=~/cleric/i){
quest::say("I have the following to offer you:");
quest::say("[CTier 1] items.");
quest::say("[CTier 2] items.");
quest::say("[CTier 3] items.");
quest::say("[CTier 4] items.");
quest::say("[CTier 5] items.");
quest::say("[COther] items.");
}

if($text=~/ctier 1/i){
quest::say("I have the following to offer you:");
quest::say("Ethereal Mist Armor.  Helm - [ct1helm] £500.  Boots - [ct1boots] £500.  Gloves - [ct1gloves] £500.  Chest - [ct1chest] £1000.  Legs - [ct1legs] £750.  Wrist - [ct1wrist] £500.  Arms - [ct1arms] £500.  Full Set - [ct1set] £9000.");
}
if($text=~/ct1helm/i){
if ($buffbot >= 500) {
quest::summonitem(4881);
quest::say("As you wish!");
quest::setglobal("buffbot", $buffbot-500, 0, "Y9");
$buffbot = undef;
}
else {
quest::say("You need more credits!");
$buffbot = undef;
}
}

if($text=~/ct1boots/i){
if ($buffbot >= 500) {
quest::summonitem(4887);
quest::say("As you wish!");
quest::setglobal("buffbot", $buffbot-500, 0, "Y9");
$buffbot = undef;
}
else {
quest::say("You need more credits!");
$buffbot = undef;
}
}

if($text=~/ct1gloves/i){
if ($buffbot >= 500) {
quest::summonitem(4885);
quest::say("As you wish!");
quest::setglobal("buffbot", $buffbot-500, 0, "Y9");
$buffbot = undef;
}
else {
quest::say("You need more credits!");
$buffbot = undef;
}
}

if($text=~/ct1chest/i){
if ($buffbot >= 1000) {
quest::summonitem(4882);
quest::say("As you wish!");
quest::setglobal("buffbot", $buffbot-1000, 0, "Y9");
$buffbot = undef;
}
else {
quest::say("You need more credits!");
$buffbot = undef;
}
}

if($text=~/ct1legs/i){
if ($buffbot >= 750) {
quest::summonitem(4886);
quest::say("As you wish!");
quest::setglobal("buffbot", $buffbot-750, 0, "Y9");
$buffbot = undef;
}
else {
quest::say("You need more credits!");
$buffbot = undef;
}
}

if($text=~/ct1wrist/i){
if ($buffbot >= 500) {
quest::summonitem(4884);
quest::say("As you wish!");
quest::setglobal("buffbot", $buffbot-500, 0, "Y9");
$buffbot = undef;
}
else {
quest::say("You need more credits!");
$buffbot = undef;
}
}

if($text=~/ct1arms/i){
if ($buffbot >= 500) {
quest::summonitem(4883);
quest::say("As you wish!");
quest::setglobal("buffbot", $buffbot-500, 0, "Y9");
$buffbot = undef;
}
else {
quest::say("You need more credits!");
$buffbot = undef;
}
}

if($text=~/ct1set/i){
if ($buffbot >= 4500) {
quest::summonitem(4881);
quest::summonitem(4882);
quest::summonitem(4883);
quest::summonitem(4884);
quest::summonitem(4884);
quest::summonitem(4885);
quest::summonitem(4886);
quest::summonitem(4887);
quest::say("As you wish!");
quest::setglobal("buffbot", $buffbot-4500, 0, "Y9");
$buffbot = undef;
}
else {
quest::say("You need more credits!");
$buffbot = undef;
}
}

if($text=~/ctier 2/i){
quest::say("I have the following to offer you:");
quest::say("Donal's Mourning Set Armor.  Helm - [ct2helm] £1000.  Boots - [ct2boots] £1000.  Gloves - [ct2gloves] £1000.  Chest - [ct2chest] £2000.  Legs - [ct2legs] £1500.  Wrist - [ct2wrist] £1000.  Arms - [ct2arms] £1000.  Full Set - [ct2set] £9000.");
}
if($text=~/ct2helm/i){
if ($buffbot >= 1000) {
quest::summonitem(4564);
quest::say("As you wish!");
quest::setglobal("buffbot", $buffbot-1000, 0, "Y9");
$buffbot = undef;
}
else {
quest::say("You need more credits!");
$buffbot = undef;
}
}

if($text=~/ct2boots/i){
if ($buffbot >= 1000) {
quest::summonitem(4570);
quest::say("As you wish!");
quest::setglobal("buffbot", $buffbot-1000, 0, "Y9");
$buffbot = undef;
}
else {
quest::say("You need more credits!");
$buffbot = undef;
}
}

if($text=~/ct2gloves/i){
if ($buffbot >= 1000) {
quest::summonitem(4568);
quest::say("As you wish!");
quest::setglobal("buffbot", $buffbot-1000, 0, "Y9");
$buffbot = undef;
}
else {
quest::say("You need more credits!");
$buffbot = undef;
}
}

if($text=~/ct2chest/i){
if ($buffbot >= 2000) {
quest::summonitem(4565);
quest::say("As you wish!");
quest::setglobal("buffbot", $buffbot-2000, 0, "Y9");
$buffbot = undef;
}
else {
quest::say("You need more credits!");
$buffbot = undef;
}
}

if($text=~/ct2legs/i){
if ($buffbot >= 1500) {
quest::summonitem(4569);
quest::say("As you wish!");
quest::setglobal("buffbot", $buffbot-1500, 0, "Y9");
$buffbot = undef;
}
else {
quest::say("You need more credits!");
$buffbot = undef;
}
}

if($text=~/ct2wrist/i){
if ($buffbot >= 1000) {
quest::summonitem(4567);
quest::say("As you wish!");
quest::setglobal("buffbot", $buffbot-1000, 0, "Y9");
$buffbot = undef;
}
else {
quest::say("You need more credits!");
$buffbot = undef;
}
}

if($text=~/ct2arms/i){
if ($buffbot >= 1000) {
quest::summonitem(4566);
quest::say("As you wish!");
quest::setglobal("buffbot", $buffbot-1000, 0, "Y9");
$buffbot = undef;
}
else {
quest::say("You need more credits!");
$buffbot = undef;
}
}

if($text=~/ct2set/i){
if ($buffbot >= 9000) {
quest::summonitem(4564);
quest::summonitem(4565);
quest::summonitem(4566);
quest::summonitem(4567);
quest::summonitem(4567);
quest::summonitem(4568);
quest::summonitem(4569);
quest::summonitem(4570);
quest::say("As you wish!");
quest::setglobal("buffbot", $buffbot-9000, 0, "Y9");
$buffbot = undef;
}
else {
quest::say("You need more credits!");
$buffbot = undef;
}
}

if($text=~/ctier 3/i){
quest::say("I have the following to offer you:");
quest::say("Armour of the Risen.  Helm - [ct3helm] £10000.  Boots - [ct3boots] £10000.  Gloves - [ct3gloves] £10000.  Chest - [ct3chest] £20000.  Legs - [ct3legs] £15000.  Wrist - [ct3wrist] £10000.  Arms - [ct3arms] £10000.  Full Set - [ct3set] £90000.");
}
if($text=~/ct3helm/i){
if ($buffbot >= 10000) {
quest::summonitem(31140);
quest::say("As you wish!");
quest::setglobal("buffbot", $buffbot-10000, 0, "Y9");
$buffbot = undef;
}
else {
quest::say("You need more credits!");
$buffbot = undef;
}
}

if($text=~/ct3boots/i){
if ($buffbot >= 10000) {
quest::summonitem(31146);
quest::say("As you wish!");
quest::setglobal("buffbot", $buffbot-10000, 0, "Y9");
$buffbot = undef;
}
else {
quest::say("You need more credits!");
$buffbot = undef;
}
}

if($text=~/ct3gloves/i){
if ($buffbot >= 10000) {
quest::summonitem(31144);
quest::say("As you wish!");
quest::setglobal("buffbot", $buffbot-10000, 0, "Y9");
$buffbot = undef;
}
else {
quest::say("You need more credits!");
$buffbot = undef;
}
}

if($text=~/ct3chest/i){
if ($buffbot >= 20000) {
quest::summonitem(31141);
quest::say("As you wish!");
quest::setglobal("buffbot", $buffbot-20000, 0, "Y9");
$buffbot = undef;
}
else {
quest::say("You need more credits!");
$buffbot = undef;
}
}

if($text=~/ct3legs/i){
if ($buffbot >= 15000) {
quest::summonitem(31145);
quest::say("As you wish!");
quest::setglobal("buffbot", $buffbot-15000, 0, "Y9");
$buffbot = undef;
}
else {
quest::say("You need more credits!");
$buffbot = undef;
}
}

if($text=~/ct3wrist/i){
if ($buffbot >= 10000) {
quest::summonitem(31143);
quest::say("As you wish!");
quest::setglobal("buffbot", $buffbot-10000, 0, "Y9");
$buffbot = undef;
}
else {
quest::say("You need more credits!");
$buffbot = undef;
}
}

if($text=~/ct3arms/i){
if ($buffbot >= 10000) {
quest::summonitem(31142);
quest::say("As you wish!");
quest::setglobal("buffbot", $buffbot-10000, 0, "Y9");
$buffbot = undef;
}
else {
quest::say("You need more credits!");
$buffbot = undef;
}
}

if($text=~/ct3set/i){
if ($buffbot >= 90000) {
quest::summonitem(31140);
quest::summonitem(31141);
quest::summonitem(31142);
quest::summonitem(31143);
quest::summonitem(31143);
quest::summonitem(31144);
quest::summonitem(31145);
quest::summonitem(31146);
quest::say("As you wish!");
quest::setglobal("buffbot", $buffbot-90000, 0, "Y9");
$buffbot = undef;
}
else {
quest::say("You need more credits!");
$buffbot = undef;
}
}

if($text=~/ctier 4/i){
quest::say("I have the following to offer you:");
quest::say("Ultor's Faith Set.  Helm - [ct4helm] £30000.  Boots - [ct4boots] £30000.  Gloves - [ct4gloves] £30000.  Chest - [ct4chest] £60000.  Legs - [ct4legs] £45000.  Wrist - [ct4wrist] £30000.  Arms - [ct4arms] £30000.  Full Set - [ct4set] £240000.");
}
if($text=~/ct4helm/i){
if ($buffbot >= 30000) {
quest::summonitem(9867);
quest::say("As you wish!");
quest::setglobal("buffbot", $buffbot-30000, 0, "Y9");
$buffbot = undef;
}
else {
quest::say("You need more credits!");
$buffbot = undef;
}
}

if($text=~/ct4boots/i){
if ($buffbot >= 30000) {
quest::summonitem(20074);
quest::say("As you wish!");
quest::setglobal("buffbot", $buffbot-30000, 0, "Y9");
$buffbot = undef;
}
else {
quest::say("You need more credits!");
$buffbot = undef;
}
}

if($text=~/ct4gloves/i){
if ($buffbot >= 30000) {
quest::summonitem(13563);
quest::say("As you wish!");
quest::setglobal("buffbot", $buffbot-30000, 0, "Y9");
$buffbot = undef;
}
else {
quest::say("You need more credits!");
$buffbot = undef;
}
}

if($text=~/ct4chest/i){
if ($buffbot >= 60000) {
quest::summonitem(47646);
quest::say("As you wish!");
quest::setglobal("buffbot", $buffbot-60000, 0, "Y9");
$buffbot = undef;
}
else {
quest::say("You need more credits!");
$buffbot = undef;
}
}

if($text=~/ct4legs/i){
if ($buffbot >= 45000) {
quest::summonitem(16797);
quest::say("As you wish!");
quest::setglobal("buffbot", $buffbot-45000, 0, "Y9");
$buffbot = undef;
}
else {
quest::say("You need more credits!");
$buffbot = undef;
}
}

if($text=~/ct4wrist/i){
if ($buffbot >= 30000) {
quest::summonitem(11199);
quest::say("As you wish!");
quest::setglobal("buffbot", $buffbot-30000, 0, "Y9");
$buffbot = undef;
}
else {
quest::say("You need more credits!");
$buffbot = undef;
}
}

if($text=~/ct4arms/i){
if ($buffbot >= 30000) {
quest::summonitem(32012);
quest::say("As you wish!");
quest::setglobal("buffbot", $buffbot-10000, 0, "Y9");
$buffbot = undef;
}
else {
quest::say("You need more credits!");
$buffbot = undef;
}
}

if($text=~/ct4set/i){
if ($buffbot >= 240000) {
quest::summonitem(9827);
quest::summonitem(11199);
quest::summonitem(11199);
quest::summonitem(13563);
quest::summonitem(16797);
quest::summonitem(20074);
quest::summonitem(32012);
quest::summonitem(47646);
quest::say("As you wish!");
quest::setglobal("buffbot", $buffbot-240000, 0, "Y9");
$buffbot = undef;
}
else {
quest::say("You need more credits!");
$buffbot = undef;
}
}

if($text=~/ctier 5/i){
quest::say("I have the following to offer you:");
quest::say("Inflicted Mindhallow set.  Helm - [ct5helm] £500000.  Boots - [ct5boots] £500000.  Gloves - [ct5gloves] £500000.  Chest - [ct5chest] £1000000.  Legs - [ct5legs] £750000.  Wrist - [ct5wrist] £500000.  Arms - [ct5arms] £500000.  Full Set - [ct5set] £3750000.");
}
if($text=~/ct5helm/i){
if ($buffbot >= 500000) {
quest::summonitem(104234);
quest::say("As you wish!");
quest::setglobal("buffbot", $buffbot-500000, 0, "Y9");
$buffbot = undef;
}
else {
quest::say("You need more credits!");
$buffbot = undef;
}
}

if($text=~/ct5boots/i){
if ($buffbot >= 500000) {
quest::summonitem(104233);
quest::say("As you wish!");
quest::setglobal("buffbot", $buffbot-500000, 0, "Y9");
$buffbot = undef;
}
else {
quest::say("You need more credits!");
$buffbot = undef;
}
}

if($text=~/ct5gloves/i){
if ($buffbot >= 500000) {
quest::summonitem(104232);
quest::say("As you wish!");
quest::setglobal("buffbot", $buffbot-500000, 0, "Y9");
$buffbot = undef;
}
else {
quest::say("You need more credits!");
$buffbot = undef;
}
}

if($text=~/ct5chest/i){
if ($buffbot >= 1000000) {
quest::summonitem(104237);
quest::say("As you wish!");
quest::setglobal("buffbot", $buffbot-1000000, 0, "Y9");
$buffbot = undef;
}
else {
quest::say("You need more credits!");
$buffbot = undef;
}
}

if($text=~/ct5legs/i){
if ($buffbot >= 750000) {
quest::summonitem(104236);
quest::say("As you wish!");
quest::setglobal("buffbot", $buffbot-750000, 0, "Y9");
$buffbot = undef;
}
else {
quest::say("You need more credits!");
$buffbot = undef;
}
}

if($text=~/ct5wrist/i){
if ($buffbot >= 500000) {
quest::summonitem(104231);
quest::say("As you wish!");
quest::setglobal("buffbot", $buffbot-500000, 0, "Y9");
$buffbot = undef;
}
else {
quest::say("You need more credits!");
$buffbot = undef;
}
}

if($text=~/ct5arms/i){
if ($buffbot >= 500000) {
quest::summonitem(104235);
quest::say("As you wish!");
quest::setglobal("buffbot", $buffbot-500000, 0, "Y9");
$buffbot = undef;
}
else {
quest::say("You need more credits!");
$buffbot = undef;
}
}

if($text=~/ct5set/i){
if ($buffbot >= 3750000) {
quest::summonitem(104231);
quest::summonitem(104231);
quest::summonitem(104232);
quest::summonitem(104233);
quest::summonitem(104234);
quest::summonitem(104235);
quest::summonitem(104236);
quest::summonitem(104237);
quest::say("As you wish!");
quest::setglobal("buffbot", $buffbot-3750000, 0, "Y9");
$buffbot = undef;
}
else {
quest::say("You need more credits!");
$buffbot = undef;
}
}

if($text=~/cother/i){
quest::say("I have the following to offer you:");
quest::say("Coming soon.");
}

## Cleric Items end ##

## Warrior Items ##

if($text=~/warrior/i){
quest::say("I have the following to offer you:");
quest::say("[WTier 1] items.");
quest::say("[WTier 2] items.");
quest::say("[WTier 3] items.");
quest::say("[WTier 4] items.");
quest::say("[WTier 5] items.");
quest::say("[WOther] items.");
}


if($text=~/wtier 1/i){
quest::say("I have the following to offer you:");
quest::say("Indicolite Armor.  Helm - [wt1helm] £500.  Boots - [wt1boots] £500.  Gloves - [wt1gloves] £500.  Chest - [wt1chest] £1000.  Legs - [wt1legs] £750.  Wrist - [wt1wrist] £500.  Arms - [wt1arms] £500.  Full Set - [wt1set] £9000.");
}
if($text=~/wt1helm/i){
if ($buffbot >= 500) {
quest::summonitem(4911);
quest::say("As you wish!");
quest::setglobal("buffbot", $buffbot-500, 0, "Y9");
$buffbot = undef;
}
else {
quest::say("You need more credits!");
$buffbot = undef;
}
}

if($text=~/wt1boots/i){
if ($buffbot >= 500) {
quest::summonitem(4917);
quest::say("As you wish!");
quest::setglobal("buffbot", $buffbot-500, 0, "Y9");
$buffbot = undef;
}
else {
quest::say("You need more credits!");
$buffbot = undef;
}
}

if($text=~/wt1gloves/i){
if ($buffbot >= 500) {
quest::summonitem(4915);
quest::say("As you wish!");
quest::setglobal("buffbot", $buffbot-500, 0, "Y9");
$buffbot = undef;
}
else {
quest::say("You need more credits!");
$buffbot = undef;
}
}

if($text=~/wt1chest/i){
if ($buffbot >= 1000) {
quest::summonitem(4912);
quest::say("As you wish!");
quest::setglobal("buffbot", $buffbot-1000, 0, "Y9");
$buffbot = undef;
}
else {
quest::say("You need more credits!");
$buffbot = undef;
}
}

if($text=~/wt1legs/i){
if ($buffbot >= 750) {
quest::summonitem(4916);
quest::say("As you wish!");
quest::setglobal("buffbot", $buffbot-750, 0, "Y9");
$buffbot = undef;
}
else {
quest::say("You need more credits!");
$buffbot = undef;
}
}

if($text=~/wt1wrist/i){
if ($buffbot >= 500) {
quest::summonitem(4914);
quest::say("As you wish!");
quest::setglobal("buffbot", $buffbot-500, 0, "Y9");
$buffbot = undef;
}
else {
quest::say("You need more credits!");
$buffbot = undef;
}
}

if($text=~/wt1arms/i){
if ($buffbot >= 500) {
quest::summonitem(4913);
quest::say("As you wish!");
quest::setglobal("buffbot", $buffbot-500, 0, "Y9");
$buffbot = undef;
}
else {
quest::say("You need more credits!");
$buffbot = undef;
}
}

if($text=~/wt1set/i){
if ($buffbot >= 4500) {
quest::summonitem(4911);
quest::summonitem(4912);
quest::summonitem(4913);
quest::summonitem(4914);
quest::summonitem(4914);
quest::summonitem(4915);
quest::summonitem(4916);
quest::summonitem(4917);
quest::say("As you wish!");
quest::setglobal("buffbot", $buffbot-4500, 0, "Y9");
$buffbot = undef;
}
else {
quest::say("You need more credits!");
$buffbot = undef;
}
}

if($text=~/wtier 2/i){
quest::say("I have the following to offer you:");
quest::say("Cobalt Armor.  Helm - [wt2helm] £1000.  Boots - [wt2boots] £1000.  Gloves - [wt2gloves] £1000.  Chest - [wt2chest] £2000.  Legs - [wt2legs] £1500.  Wrist - [wt2wrist] £1000.  Arms - [wt2arms] £1000.  Full Set - [wt2set] £9000.");
}
if($text=~/wt2helm/i){
if ($buffbot >= 1000) {
quest::summonitem(4515);
quest::say("As you wish!");
quest::setglobal("buffbot", $buffbot-1000, 0, "Y9");
$buffbot = undef;
}
else {
quest::say("You need more credits!");
$buffbot = undef;
}
}

if($text=~/wt2boots/i){
if ($buffbot >= 1000) {
quest::summonitem(4521);
quest::say("As you wish!");
quest::setglobal("buffbot", $buffbot-1000, 0, "Y9");
$buffbot = undef;
}
else {
quest::say("You need more credits!");
$buffbot = undef;
}
}

if($text=~/wt2gloves/i){
if ($buffbot >= 1000) {
quest::summonitem(4519);
quest::say("As you wish!");
quest::setglobal("buffbot", $buffbot-1000, 0, "Y9");
$buffbot = undef;
}
else {
quest::say("You need more credits!");
$buffbot = undef;
}
}

if($text=~/wt2chest/i){
if ($buffbot >= 2000) {
quest::summonitem(4516);
quest::say("As you wish!");
quest::setglobal("buffbot", $buffbot-2000, 0, "Y9");
$buffbot = undef;
}
else {
quest::say("You need more credits!");
$buffbot = undef;
}
}

if($text=~/wt2legs/i){
if ($buffbot >= 1500) {
quest::summonitem(4520);
quest::say("As you wish!");
quest::setglobal("buffbot", $buffbot-1500, 0, "Y9");
$buffbot = undef;
}
else {
quest::say("You need more credits!");
$buffbot = undef;
}
}

if($text=~/wt2wrist/i){
if ($buffbot >= 1000) {
quest::summonitem(4518);
quest::say("As you wish!");
quest::setglobal("buffbot", $buffbot-1000, 0, "Y9");
$buffbot = undef;
}
else {
quest::say("You need more credits!");
$buffbot = undef;
}
}

if($text=~/wt2arms/i){
if ($buffbot >= 1000) {
quest::summonitem(4517);
quest::say("As you wish!");
quest::setglobal("buffbot", $buffbot-1000, 0, "Y9");
$buffbot = undef;
}
else {
quest::say("You need more credits!");
$buffbot = undef;
}
}

if($text=~/wt2set/i){
if ($buffbot >= 9000) {
quest::summonitem(4515);
quest::summonitem(4516);
quest::summonitem(4517);
quest::summonitem(4518);
quest::summonitem(4518);
quest::summonitem(4519);
quest::summonitem(4520);
quest::summonitem(4521);
quest::say("As you wish!");
quest::setglobal("buffbot", $buffbot-9000, 0, "Y9");
$buffbot = undef;
}
else {
quest::say("You need more credits!");
$buffbot = undef;
}
}

if($text=~/wtier 3/i){
quest::say("I have the following to offer you:");
quest::say("Myrmidon Armor.  Helm - [wt3helm] £10000.  Boots - [wt3boots] £10000.  Gloves - [wt3gloves] £10000.  Chest - [wt3chest] £20000.  Legs - [wt3legs] £15000.  Wrist - [wt3wrist] £10000.  Arms - [wt3arms] £10000.  Full Set - [wt3set] £90000.");
}
if($text=~/wt3helm/i){
if ($buffbot >= 10000) {
quest::summonitem(31182);
quest::say("As you wish!");
quest::setglobal("buffbot", $buffbot-10000, 0, "Y9");
$buffbot = undef;
}
else {
quest::say("You need more credits!");
$buffbot = undef;
}
}

if($text=~/wt3boots/i){
if ($buffbot >= 10000) {
quest::summonitem(31188);
quest::say("As you wish!");
quest::setglobal("buffbot", $buffbot-10000, 0, "Y9");
$buffbot = undef;
}
else {
quest::say("You need more credits!");
$buffbot = undef;
}
}

if($text=~/wt3gloves/i){
if ($buffbot >= 10000) {
quest::summonitem(31186);
quest::say("As you wish!");
quest::setglobal("buffbot", $buffbot-10000, 0, "Y9");
$buffbot = undef;
}
else {
quest::say("You need more credits!");
$buffbot = undef;
}
}

if($text=~/wt3chest/i){
if ($buffbot >= 20000) {
quest::summonitem(31183);
quest::say("As you wish!");
quest::setglobal("buffbot", $buffbot-20000, 0, "Y9");
$buffbot = undef;
}
else {
quest::say("You need more credits!");
$buffbot = undef;
}
}

if($text=~/wt3legs/i){
if ($buffbot >= 15000) {
quest::summonitem(31187);
quest::say("As you wish!");
quest::setglobal("buffbot", $buffbot-15000, 0, "Y9");
$buffbot = undef;
}
else {
quest::say("You need more credits!");
$buffbot = undef;
}
}

if($text=~/wt3wrist/i){
if ($buffbot >= 10000) {
quest::summonitem(31185);
quest::say("As you wish!");
quest::setglobal("buffbot", $buffbot-10000, 0, "Y9");
$buffbot = undef;
}
else {
quest::say("You need more credits!");
$buffbot = undef;
}
}

if($text=~/wt3arms/i){
if ($buffbot >= 10000) {
quest::summonitem(31184);
quest::say("As you wish!");
quest::setglobal("buffbot", $buffbot-10000, 0, "Y9");
$buffbot = undef;
}
else {
quest::say("You need more credits!");
$buffbot = undef;
}
}

if($text=~/wt3set/i){
if ($buffbot >= 90000) {
quest::summonitem(31182);
quest::summonitem(31183);
quest::summonitem(31184);
quest::summonitem(31185);
quest::summonitem(31185);
quest::summonitem(31186);
quest::summonitem(31187);
quest::summonitem(31188);
quest::say("As you wish!");
quest::setglobal("buffbot", $buffbot-90000, 0, "Y9");
$buffbot = undef;
}
else {
quest::say("You need more credits!");
$buffbot = undef;
}
}

if($text=~/wtier 4/i){
quest::say("I have the following to offer you:");
quest::say("Raex's Destruction Set.  Helm - [wt4helm] £30000.  Boots - [wt4boots] £30000.  Gloves - [wt4gloves] £30000.  Chest - [wt4chest] £60000.  Legs - [wt4legs] £45000.  Wrist - [wt4wrist] £30000.  Arms - [wt4arms] £30000.  Full Set - [wt4set] £240000.");
}
if($text=~/wt4helm/i){
if ($buffbot >= 30000) {
quest::summonitem(9629);
quest::say("As you wish!");
quest::setglobal("buffbot", $buffbot-30000, 0, "Y9");
$buffbot = undef;
}
else {
quest::say("You need more credits!");
$buffbot = undef;
}
}

if($text=~/wt4boots/i){
if ($buffbot >= 30000) {
quest::summonitem(19440);
quest::say("As you wish!");
quest::setglobal("buffbot", $buffbot-30000, 0, "Y9");
$buffbot = undef;
}
else {
quest::say("You need more credits!");
$buffbot = undef;
}
}

if($text=~/wt4gloves/i){
if ($buffbot >= 30000) {
quest::summonitem(12595);
quest::say("As you wish!");
quest::setglobal("buffbot", $buffbot-30000, 0, "Y9");
$buffbot = undef;
}
else {
quest::say("You need more credits!");
$buffbot = undef;
}
}

if($text=~/wt4chest/i){
if ($buffbot >= 60000) {
quest::summonitem(47642);
quest::say("As you wish!");
quest::setglobal("buffbot", $buffbot-60000, 0, "Y9");
$buffbot = undef;
}
else {
quest::say("You need more credits!");
$buffbot = undef;
}
}

if($text=~/wt4legs/i){
if ($buffbot >= 45000) {
quest::summonitem(16693);
quest::say("As you wish!");
quest::setglobal("buffbot", $buffbot-45000, 0, "Y9");
$buffbot = undef;
}
else {
quest::say("You need more credits!");
$buffbot = undef;
}
}

if($text=~/wt4wrist/i){
if ($buffbot >= 30000) {
quest::summonitem(11138);
quest::say("As you wish!");
quest::setglobal("buffbot", $buffbot-30000, 0, "Y9");
$buffbot = undef;
}
else {
quest::say("You need more credits!");
$buffbot = undef;
}
}

if($text=~/wt4arms/i){
if ($buffbot >= 30000) {
quest::summonitem(11429);
quest::say("As you wish!");
quest::setglobal("buffbot", $buffbot-10000, 0, "Y9");
$buffbot = undef;
}
else {
quest::say("You need more credits!");
$buffbot = undef;
}
}

if($text=~/wt4set/i){
if ($buffbot >= 240000) {
quest::summonitem(9629);
quest::summonitem(11138);
quest::summonitem(11138);
quest::summonitem(11429);
quest::summonitem(12595);
quest::summonitem(16693);
quest::summonitem(19440);
quest::summonitem(47642);
quest::say("As you wish!");
quest::setglobal("buffbot", $buffbot-240000, 0, "Y9");
$buffbot = undef;
}
else {
quest::say("You need more credits!");
$buffbot = undef;
}
}

if($text=~/wtier 5/i){
quest::say("I have the following to offer you:");
quest::say("Inflicted Ironbone set.  Helm - [wt5helm] £500000.  Boots - [wt5boots] £500000.  Gloves - [wt5gloves] £500000.  Chest - [wt5chest] £1000000.  Legs - [wt5legs] £750000.  Wrist - [wt5wrist] £500000.  Arms - [wt5arms] £500000.  Full Set - [wt5set] £3750000.");
}
if($text=~/wt5helm/i){
if ($buffbot >= 500000) {
quest::summonitem(104227);
quest::say("As you wish!");
quest::setglobal("buffbot", $buffbot-500000, 0, "Y9");
$buffbot = undef;
}
else {
quest::say("You need more credits!");
$buffbot = undef;
}
}

if($text=~/wt5boots/i){
if ($buffbot >= 500000) {
quest::summonitem(104226);
quest::say("As you wish!");
quest::setglobal("buffbot", $buffbot-500000, 0, "Y9");
$buffbot = undef;
}
else {
quest::say("You need more credits!");
$buffbot = undef;
}
}

if($text=~/wt5gloves/i){
if ($buffbot >= 500000) {
quest::summonitem(104225);
quest::say("As you wish!");
quest::setglobal("buffbot", $buffbot-500000, 0, "Y9");
$buffbot = undef;
}
else {
quest::say("You need more credits!");
$buffbot = undef;
}
}

if($text=~/wt5chest/i){
if ($buffbot >= 1000000) {
quest::summonitem(104230);
quest::say("As you wish!");
quest::setglobal("buffbot", $buffbot-1000000, 0, "Y9");
$buffbot = undef;
}
else {
quest::say("You need more credits!");
$buffbot = undef;
}
}

if($text=~/wt5legs/i){
if ($buffbot >= 750000) {
quest::summonitem(104229);
quest::say("As you wish!");
quest::setglobal("buffbot", $buffbot-750000, 0, "Y9");
$buffbot = undef;
}
else {
quest::say("You need more credits!");
$buffbot = undef;
}
}

if($text=~/wt5wrist/i){
if ($buffbot >= 500000) {
quest::summonitem(104224);
quest::say("As you wish!");
quest::setglobal("buffbot", $buffbot-500000, 0, "Y9");
$buffbot = undef;
}
else {
quest::say("You need more credits!");
$buffbot = undef;
}
}

if($text=~/wt5arms/i){
if ($buffbot >= 500000) {
quest::summonitem(104228);
quest::say("As you wish!");
quest::setglobal("buffbot", $buffbot-500000, 0, "Y9");
$buffbot = undef;
}
else {
quest::say("You need more credits!");
$buffbot = undef;
}
}

if($text=~/wt5set/i){
if ($buffbot >= 3750000) {
quest::summonitem(104224);
quest::summonitem(104225);
quest::summonitem(104226);
quest::summonitem(104227);
quest::summonitem(104228);
quest::summonitem(104229);
quest::summonitem(104230);
quest::summonitem(104224);
quest::say("As you wish!");
quest::setglobal("buffbot", $buffbot-3750000, 0, "Y9");
$buffbot = undef;
}
else {
quest::say("You need more credits!");
$buffbot = undef;
}
}

if($text=~/cother/i){
quest::say("I have the following to offer you:");
quest::say("Coming soon.");
}

## Warrior Items end ##

## Rogue Items ##

if($text=~/rogue/i){
quest::say("I have the following to offer you:");
quest::say("[RTier 1] items.");
quest::say("[RTier 2] items.");
quest::say("[RTier 3] items.");
quest::say("[RTier 4] items.");
quest::say("[RTier 5] items.");
quest::say("[ROther] items.");
}

if($text=~/rtier 1/i){
quest::say("I have the following to offer you:");
quest::say("Woven Shadow Armor.  Helm - [rt1helm] £500.  Boots - [rt1boots] £500.  Gloves - [rt1gloves] £500.  Chest - [rt1chest] £1000.  Legs - [rt1legs] £750.  Wrist - [rt1wrist] £500.  Arms - [rt1arms] £500.  Full Set - [rt1set] £9000.");
}
if($text=~/rt1helm/i){
if ($buffbot >= 500) {
quest::summonitem(4901);
quest::say("As you wish!");
quest::setglobal("buffbot", $buffbot-500, 0, "Y9");
$buffbot = undef;
}
else {
quest::say("You need more credits!");
$buffbot = undef;
}
}

if($text=~/rt1boots/i){
if ($buffbot >= 500) {
quest::summonitem(4907);
quest::say("As you wish!");
quest::setglobal("buffbot", $buffbot-500, 0, "Y9");
$buffbot = undef;
}
else {
quest::say("You need more credits!");
$buffbot = undef;
}
}

if($text=~/rt1gloves/i){
if ($buffbot >= 500) {
quest::summonitem(4905);
quest::say("As you wish!");
quest::setglobal("buffbot", $buffbot-500, 0, "Y9");
$buffbot = undef;
}
else {
quest::say("You need more credits!");
$buffbot = undef;
}
}

if($text=~/rt1chest/i){
if ($buffbot >= 1000) {
quest::summonitem(4902);
quest::say("As you wish!");
quest::setglobal("buffbot", $buffbot-1000, 0, "Y9");
$buffbot = undef;
}
else {
quest::say("You need more credits!");
$buffbot = undef;
}
}

if($text=~/rt1legs/i){
if ($buffbot >= 750) {
quest::summonitem(4906);
quest::say("As you wish!");
quest::setglobal("buffbot", $buffbot-750, 0, "Y9");
$buffbot = undef;
}
else {
quest::say("You need more credits!");
$buffbot = undef;
}
}

if($text=~/rt1wrist/i){
if ($buffbot >= 500) {
quest::summonitem(4904);
quest::say("As you wish!");
quest::setglobal("buffbot", $buffbot-500, 0, "Y9");
$buffbot = undef;
}
else {
quest::say("You need more credits!");
$buffbot = undef;
}
}

if($text=~/rt1arms/i){
if ($buffbot >= 500) {
quest::summonitem(4903);
quest::say("As you wish!");
quest::setglobal("buffbot", $buffbot-500, 0, "Y9");
$buffbot = undef;
}
else {
quest::say("You need more credits!");
$buffbot = undef;
}
}

if($text=~/et1set/i){
if ($buffbot >= 4500) {
quest::summonitem(4901);
quest::summonitem(4902);
quest::summonitem(4903);
quest::summonitem(4904);
quest::summonitem(4904);
quest::summonitem(4905);
quest::summonitem(4906);
quest::summonitem(4907);
quest::say("As you wish!");
quest::setglobal("buffbot", $buffbot-4500, 0, "Y9");
$buffbot = undef;
}
else {
quest::say("You need more credits!");
$buffbot = undef;
}
}

if($text=~/rtier 2/i){
quest::say("I have the following to offer you:");
quest::say("Mrylokar's Armor Set.  Helm - [rt2helm] £1000.  Boots - [rt2boots] £1000.  Gloves - [rt2gloves] £1000.  Chest - [rt2chest] £2000.  Legs - [rt2legs] £1500.  Wrist - [rt2wrist] £1000.  Arms - [rt2arms] £1000.  Full Set - [rt2set] £9000.");
}
if($text=~/rt2helm/i){
if ($buffbot >= 1000) {
quest::summonitem(4550);
quest::say("As you wish!");
quest::setglobal("buffbot", $buffbot-1000, 0, "Y9");
$buffbot = undef;
}
else {
quest::say("You need more credits!");
$buffbot = undef;
}
}

if($text=~/rt2boots/i){
if ($buffbot >= 1000) {
quest::summonitem(4556);
quest::say("As you wish!");
quest::setglobal("buffbot", $buffbot-1000, 0, "Y9");
$buffbot = undef;
}
else {
quest::say("You need more credits!");
$buffbot = undef;
}
}

if($text=~/rt2gloves/i){
if ($buffbot >= 1000) {
quest::summonitem(4554);
quest::say("As you wish!");
quest::setglobal("buffbot", $buffbot-1000, 0, "Y9");
$buffbot = undef;
}
else {
quest::say("You need more credits!");
$buffbot = undef;
}
}

if($text=~/rt2chest/i){
if ($buffbot >= 2000) {
quest::summonitem(4551);
quest::say("As you wish!");
quest::setglobal("buffbot", $buffbot-2000, 0, "Y9");
$buffbot = undef;
}
else {
quest::say("You need more credits!");
$buffbot = undef;
}
}

if($text=~/rt2legs/i){
if ($buffbot >= 1500) {
quest::summonitem(4555);
quest::say("As you wish!");
quest::setglobal("buffbot", $buffbot-1500, 0, "Y9");
$buffbot = undef;
}
else {
quest::say("You need more credits!");
$buffbot = undef;
}
}

if($text=~/rt2wrist/i){
if ($buffbot >= 1000) {
quest::summonitem(4553);
quest::say("As you wish!");
quest::setglobal("buffbot", $buffbot-1000, 0, "Y9");
$buffbot = undef;
}
else {
quest::say("You need more credits!");
$buffbot = undef;
}
}

if($text=~/rt2arms/i){
if ($buffbot >= 1000) {
quest::summonitem(4552);
quest::say("As you wish!");
quest::setglobal("buffbot", $buffbot-1000, 0, "Y9");
$buffbot = undef;
}
else {
quest::say("You need more credits!");
$buffbot = undef;
}
}

if($text=~/rt2set/i){
if ($buffbot >= 9000) {
quest::summonitem(4550);
quest::summonitem(4551);
quest::summonitem(4552);
quest::summonitem(4553);
quest::summonitem(4553);
quest::summonitem(4554);
quest::summonitem(4555);
quest::summonitem(4556);
quest::say("As you wish!");
quest::setglobal("buffbot", $buffbot-9000, 0, "Y9");
$buffbot = undef;
}
else {
quest::say("You need more credits!");
$buffbot = undef;
}
}

if($text=~/rtier 3/i){
quest::say("I have the following to offer you:");
quest::say("Deceiver's Armor  Helm - [rt3helm] £10000.  Boots - [rt3boots] £10000.  Gloves - [rt3gloves] £10000.  Chest - [rt3chest] £20000.  Legs - [rt3legs] £15000.  Wrist - [rt3wrist] £10000.  Arms - [rt3arms] £10000.  Full Set - [rt3set] £90000.");
}
if($text=~/rt3helm/i){
if ($buffbot >= 10000) {
quest::summonitem(25377);
quest::say("As you wish!");
quest::setglobal("buffbot", $buffbot-10000, 0, "Y9");
$buffbot = undef;
}
else {
quest::say("You need more credits!");
$buffbot = undef;
}
}

if($text=~/rt3boots/i){
if ($buffbot >= 10000) {
quest::summonitem(25383);
quest::say("As you wish!");
quest::setglobal("buffbot", $buffbot-10000, 0, "Y9");
$buffbot = undef;
}
else {
quest::say("You need more credits!");
$buffbot = undef;
}
}

if($text=~/rt3gloves/i){
if ($buffbot >= 10000) {
quest::summonitem(25381);
quest::say("As you wish!");
quest::setglobal("buffbot", $buffbot-10000, 0, "Y9");
$buffbot = undef;
}
else {
quest::say("You need more credits!");
$buffbot = undef;
}
}

if($text=~/rt3chest/i){
if ($buffbot >= 20000) {
quest::summonitem(25378);
quest::say("As you wish!");
quest::setglobal("buffbot", $buffbot-20000, 0, "Y9");
$buffbot = undef;
}
else {
quest::say("You need more credits!");
$buffbot = undef;
}
}

if($text=~/rt3legs/i){
if ($buffbot >= 15000) {
quest::summonitem(25382);
quest::say("As you wish!");
quest::setglobal("buffbot", $buffbot-15000, 0, "Y9");
$buffbot = undef;
}
else {
quest::say("You need more credits!");
$buffbot = undef;
}
}

if($text=~/rt3wrist/i){
if ($buffbot >= 10000) {
quest::summonitem(25380);
quest::say("As you wish!");
quest::setglobal("buffbot", $buffbot-10000, 0, "Y9");
$buffbot = undef;
}
else {
quest::say("You need more credits!");
$buffbot = undef;
}
}

if($text=~/rt3arms/i){
if ($buffbot >= 10000) {
quest::summonitem(25379);
quest::say("As you wish!");
quest::setglobal("buffbot", $buffbot-10000, 0, "Y9");
$buffbot = undef;
}
else {
quest::say("You need more credits!");
$buffbot = undef;
}
}

if($text=~/rt3set/i){
if ($buffbot >= 90000) {
quest::summonitem(25377);
quest::summonitem(25378);
quest::summonitem(25379);
quest::summonitem(25380);
quest::summonitem(25380);
quest::summonitem(25381);
quest::summonitem(25382);
quest::summonitem(25383);
quest::say("As you wish!");
quest::setglobal("buffbot", $buffbot-90000, 0, "Y9");
$buffbot = undef;
}
else {
quest::say("You need more credits!");
$buffbot = undef;
}
}

if($text=~/rtier 4/i){
quest::say("I have the following to offer you:");
quest::say("Bidilis' Elusive Set.  Helm - [rt4helm] £30000.  Boots - [rt4boots] £30000.  Gloves - [rt4gloves] £30000.  Chest - [rt4chest] £60000.  Legs - [rt4legs] £45000.  Wrist - [rt4wrist] £30000.  Arms - [rt4arms] £30000.  Full Set - [rt4set] £240000.");
}
if($text=~/rt4helm/i){
if ($buffbot >= 30000) {
quest::summonitem(9806);
quest::say("As you wish!");
quest::setglobal("buffbot", $buffbot-30000, 0, "Y9");
$buffbot = undef;
}
else {
quest::say("You need more credits!");
$buffbot = undef;
}
}

if($text=~/rt4boots/i){
if ($buffbot >= 30000) {
quest::summonitem(19443);
quest::say("As you wish!");
quest::setglobal("buffbot", $buffbot-30000, 0, "Y9");
$buffbot = undef;
}
else {
quest::say("You need more credits!");
$buffbot = undef;
}
}

if($text=~/rt4gloves/i){
if ($buffbot >= 30000) {
quest::summonitem(12598);
quest::say("As you wish!");
quest::setglobal("buffbot", $buffbot-30000, 0, "Y9");
$buffbot = undef;
}
else {
quest::say("You need more credits!");
$buffbot = undef;
}
}

if($text=~/rt4chest/i){
if ($buffbot >= 60000) {
quest::summonitem(47648);
quest::say("As you wish!");
quest::setglobal("buffbot", $buffbot-60000, 0, "Y9");
$buffbot = undef;
}
else {
quest::say("You need more credits!");
$buffbot = undef;
}
}

if($text=~/rt4legs/i){
if ($buffbot >= 45000) {
quest::summonitem(16717);
quest::say("As you wish!");
quest::setglobal("buffbot", $buffbot-45000, 0, "Y9");
$buffbot = undef;
}
else {
quest::say("You need more credits!");
$buffbot = undef;
}
}

if($text=~/rt4wrist/i){
if ($buffbot >= 30000) {
quest::summonitem(11141);
quest::say("As you wish!");
quest::setglobal("buffbot", $buffbot-30000, 0, "Y9");
$buffbot = undef;
}
else {
quest::say("You need more credits!");
$buffbot = undef;
}
}

if($text=~/rt4arms/i){
if ($buffbot >= 30000) {
quest::summonitem(11432);
quest::say("As you wish!");
quest::setglobal("buffbot", $buffbot-10000, 0, "Y9");
$buffbot = undef;
}
else {
quest::say("You need more credits!");
$buffbot = undef;
}
}

if($text=~/rt4set/i){
if ($buffbot >= 240000) {
quest::summonitem(9806);
quest::summonitem(11141);
quest::summonitem(11141);
quest::summonitem(11432);
quest::summonitem(12598);
quest::summonitem(16717);
quest::summonitem(19443);
quest::summonitem(47648);
quest::say("As you wish!");
quest::setglobal("buffbot", $buffbot-240000, 0, "Y9");
$buffbot = undef;
}
else {
quest::say("You need more credits!");
$buffbot = undef;
}
}

if($text=~/rtier 5/i){
quest::say("I have the following to offer you:");
quest::say("Inflicted Shadowmeld set.  Helm - [rt5helm] £500000.  Boots - [rt5boots] £500000.  Gloves - [rt5gloves] £500000.  Chest - [rt5chest] £1000000.  Legs - [rt5legs] £750000.  Wrist - [rt5wrist] £500000.  Arms - [rt5arms] £500000.  Full Set - [rt5set] £3750000.");
}
if($text=~/rt5helm/i){
if ($buffbot >= 500000) {
quest::summonitem(105383);
quest::say("As you wish!");
quest::setglobal("buffbot", $buffbot-500000, 0, "Y9");
$buffbot = undef;
}
else {
quest::say("You need more credits!");
$buffbot = undef;
}
}

if($text=~/rt5boots/i){
if ($buffbot >= 500000) {
quest::summonitem(105382);
quest::say("As you wish!");
quest::setglobal("buffbot", $buffbot-500000, 0, "Y9");
$buffbot = undef;
}
else {
quest::say("You need more credits!");
$buffbot = undef;
}
}

if($text=~/rt5gloves/i){
if ($buffbot >= 500000) {
quest::summonitem(105381);
quest::say("As you wish!");
quest::setglobal("buffbot", $buffbot-500000, 0, "Y9");
$buffbot = undef;
}
else {
quest::say("You need more credits!");
$buffbot = undef;
}
}

if($text=~/rt5chest/i){
if ($buffbot >= 1000000) {
quest::summonitem(105386);
quest::say("As you wish!");
quest::setglobal("buffbot", $buffbot-1000000, 0, "Y9");
$buffbot = undef;
}
else {
quest::say("You need more credits!");
$buffbot = undef;
}
}

if($text=~/rt5legs/i){
if ($buffbot >= 750000) {
quest::summonitem(105385);
quest::say("As you wish!");
quest::setglobal("buffbot", $buffbot-750000, 0, "Y9");
$buffbot = undef;
}
else {
quest::say("You need more credits!");
$buffbot = undef;
}
}

if($text=~/rt5wrist/i){
if ($buffbot >= 500000) {
quest::summonitem(105380);
quest::say("As you wish!");
quest::setglobal("buffbot", $buffbot-500000, 0, "Y9");
$buffbot = undef;
}
else {
quest::say("You need more credits!");
$buffbot = undef;
}
}

if($text=~/rt5arms/i){
if ($buffbot >= 500000) {
quest::summonitem(105384);
quest::say("As you wish!");
quest::setglobal("buffbot", $buffbot-500000, 0, "Y9");
$buffbot = undef;
}
else {
quest::say("You need more credits!");
$buffbot = undef;
}
}

if($text=~/rt5set/i){
if ($buffbot >= 3750000) {
quest::summonitem(105380);
quest::summonitem(105380);
quest::summonitem(105381);
quest::summonitem(105382);
quest::summonitem(105383);
quest::summonitem(105384);
quest::summonitem(105385);
quest::summonitem(105386);
quest::say("As you wish!");
quest::setglobal("buffbot", $buffbot-3750000, 0, "Y9");
$buffbot = undef;
}
else {
quest::say("You need more credits!");
$buffbot = undef;
}
}

if($text=~/rother/i){
quest::say("I have the following to offer you:");
quest::say("Coming soon.");
}

## Rogue Items end ##

## Enchanter Items ##

if($text=~/enchanter/i){
quest::say("I have the following to offer you:");
quest::say("[ETier 1] items.");
quest::say("[ETier 2] items.");
quest::say("[ETier 3] items.");
quest::say("[ETier 4] items.");
quest::say("[ETier 5] items.");
quest::say("[EOther] items.");
}

## Enchanter Items end ##

## Wizard Items ##

if($text=~/wizard/i){
quest::say("I have the following to offer you:");
quest::say("[WTier 1] items.");
quest::say("[WTier 2] items.");
quest::say("[WTier 3] items.");
quest::say("[WTier 4] items.");
quest::say("[WTier 5] items.");
quest::say("[WOther] items.");
}

## Wizard Items end ##


## Translocator Script ###

if ($text =~/tele/i){
quest::say ("Hey there, $name. If you know the shortname of the zone you would like to go to, just tell me and I will see if I have a spell to send you there, or for a list of zones say[list1],[list2],[list3], and[list4].");
}
if ($text =~/list1/i)
{
quest::popup ("Zone Name - what to type", "The Abysmal Sea - abysmal
<br>The Acrylia Caverns - acrylia
<br>The Plane of Sky - airplane
<br>Ak'Anon - akanon
<br>The Akheva Ruins - akheva
<br>Anguish, the Fallen Palace - anguish
<br>Designer Apprentice - apprentice
<br>Arcstone, Isle of Spirits - arcstone
<br>The Arena - arena
<br>The Arena Two - arena2
<br>Art Testing Domain - arttest
<br>Ashengate, Reliquary of the Scale - ashengate
<br>Jewel of Atiiki - atiiki
<br>Aviak Village - aviak
<br>Barindu, Hanging Gardens - barindu
<br>Barren Coast - barren
<br>The Barter Hall - barter
<br>The Bazaar - bazaar
<br>Befallen - befallen
<br>Gorge of King Xorbb - beholder
<br>Temple of Bertoxxulous - bertoxtemple
<br>Blackburrow - blackburrow
<br>Blacksail Folly - blacksail
<br>The Bloodfields - bloodfields
<br>Bloodmoon Keep - bloodmoon
<br>Bastion of Thunder - bothunder
<br>The Broodlands - broodlands
<br>The Buried Sea - buriedsea
<br>The Burning Wood - burningwood
<br>Butcherblock Mountains - butcher
<br>Cabilis East - cabeast
<br>Cabilis West - cabwest
<br>Dagnor's Cauldron - cauldron
<br>Nobles' Causeway - causeway
<br>Accursed Temple of CazicThule - cazicthule
<br>The Howling Stones - charasis
<br>Chardok - chardok
<br>Chardok: The Halls of Betrayal - chardokb
<br>The City of Mist - citymist
<br>Loading - clz
<br>Cobaltscar - cobaltscar
<br>The Crypt of Decay - codecay
<br>The Commonlands - commonlands
<br>West Commonlands - commons
<br>Corathus Creep - corathus
<br>Sporali Caverns - corathusa
<br>The Corathus Mines - corathusb
<br>Crescent Reach - crescent
<br>Crushbone - crushbone
<br>Crypt of Shade - cryptofshade
<br>The Crystal Caverns - crystal
<br>Crystallos, Lair of the Awakened - crystallos
<br>Sunset Home - cshome
<br>The Crypt of Dalnir - dalnir
<br>The Dawnshroud Peaks - dawnshroud
<br>Deadbone Reef - deadbone
<br>Lavaspinner's Lair - delvea
<br>Tirranun's Delve - delveb
<br>The Seething Wall - devastationa
<br>The Devastation - devastation
<br>Direwind Cliffs - direwind
<br>Korafax, Home of the Riders - discord
<br>Citadel of the Worldslayer - discordtower
<br>The Hive - drachnidhive
<br>The Hatchery - drachnidhivea
<br>The Cocoons - drachnidhiveb
<br>Queen Sendaii`s Lair - drachnidhivec
<br>Dragonscale Hills - dragonscale
<br>Deepscar's Den - dragonscaleb
<br>The Ruined City of Dranik - dranik
<br>Dranik's Scar - draniksscar
<br>The Dreadlands - dreadlands
<br>Dreadspire Keep - dreadspire
<br>The Temple of Droga - droga
<br>Dulak's Harbor - dulak
<br>Eastern Plains of Karana - eastkarana
<br>The Undershore - eastkorlach
<br>Snarlstone Dens - eastkorlacha
<br>Eastern Wastes - eastwastes
<br>The Echo Caverns - echo
<br>East Commonlands - ecommons
<br>The Elddar Forest - elddar
<br>Tunare's Shrine - elddara
<br>The Emerald Jungle - emeraldjungle
<br>Erudin - erudnext
<br>The Erudin Palace - erudnint
<br>Erud's Crossing - erudsxing
<br>Marauders Mire - erudsxing2
<br>Everfrost Peaks - everfrost
<br>The Plane of Fear - fearplane
<br>The Feerrott - feerrott
<br>Northern Felwithe - felwithea
<br>Southern Felwithe - felwitheb
<br>Ferubi, Forgotten Temple of Taelosia - ferubi
<br>The Forgotten Halls - fhalls
<br>The Field of Bone - fieldofbone
<br>Firiona Vie - firiona");
}
if ($text =~/list2/i)
{
quest::popup ("Zone Name - what to type", "Academy of Arcane Sciences - freeportacademy
<br>Arena - freeportarena
<br>City Hall - freeportcityhall
<br>East Freeport - freeporteast
<br>Hall of Truth: Bounty - freeporthall
<br>Freeport Militia House: My Precious - freeportmilitia
<br>Freeport Sewers - freeportsewers
<br>Temple of Marr - freeporttemple
<br>Theater of the Tranquil - freeporttheater
<br>West Freeport - freeportwest
<br>East Freeport - freporte
<br>North Freeport - freportn
<br>West Freeport - freportw
<br>Frontier Mountains - frontiermtns
<br>Frostcrypt, Throne of the Shade King - frostcrypt
<br>The Tower of Frozen Shadow - frozenshadow
<br>The Fungus Grove - fungusgrove
<br>The Greater Faydark - gfaydark
<br>The Great Divide - greatdivide
<br>Grieg's End - griegsend
<br>Grimling Forest - grimling
<br>Grobb - grobb
<br>The Plane of Growth - growthplane
<br>The Mechamatic Guardian - guardian
<br>Guild Hall - guildhall
<br>Guild Lobby - guildlobby
<br>The Ruins of Old Guk - gukbottom
<br>The City of Guk - guktop
<br>The Gulf of Gunthak - gunthak
<br>Gyrospire Beza - gyrospireb
<br>Gyrospire Zeka - gyrospirez
<br>Halas - halas
<br>Harbinger's Spire - harbingers
<br>Plane of Hate - hateplane
<br>The Plane of Hate - hateplaneb
<br>Hate's Fury - hatesfury
<br>High Keep - highkeep
<br>Highpass Hold - highpass
<br>Highpass Hold - highpasshold
<br>HighKeep - highpasskeep
<br>Hills of Shade - hillsofshade
<br>The Halls of Honor - hohonora
<br>The Temple of Marr - hohonorb
<br>The Hole - hole
<br>Hollowshade Moor - hollowshade
<br>The Iceclad Ocean - iceclad
<br>Icefall Glacier - icefall
<br>Ikkinz, Chambers of Transcendence - ikkinz
<br>Ruins of Illsalin - illsalin
<br>Illsalin Marketplace - illsalina
<br>Temple of Korlach - illsalinb
<br>The Nargil Pits - illsalinc
<br>Inktu'Ta, the Unmasked Chapel - inktuta
<br>Innothule Swamp - innothule
<br>The Innothule Swamp - innothuleb
<br>The Jaggedpine Forest - jaggedpine
<br>Jardel's Hook - jardelshook
<br>Kael Drakkel - kael
<br>Kaesora - kaesora
<br>South Kaladim - kaladima
<br>North Kaladim - kaladimb
<br>Karnor's Castle - karnor
<br>Katta Castellum - katta
<br>Katta Castrum - kattacastrum
<br>Kedge Keep - kedge
<br>Kerra Isle - kerraridge
<br>Kithicor Forest - kithforest
<br>Kithicor Forest - kithicor
<br>Kod'Taz, Broken Trial Grounds - kodtaz
<br>Korascian Warrens - korascian
<br>Kurn's Tower - kurn
<br>Lake of Ill Omen - lakeofillomen
<br>Lake Rathetear - lakerathe
<br>The Lavastorm Mountains - lavastorm
<br>Mons Letalis - letalis
<br>The Lesser Faydark - lfaydark
<br>Loading Zone - load
<br>New Loading Zone - load2
<br>Loping Plains - lopingplains
<br>The Maiden's Eye - maiden
<br>Maiden's Grave - maidensgrave
<br>Meldrath's Majestic Mansion - mansion
<br>Fortress Mechanotus - mechanotus
<br>Goru`kar Mesa - mesa
<br>The Plane of Mischief - mischiefplane
<br>The Castle of Mistmoore - mistmoore
<br>Misty Thicket - misty
<br>The Misty Thicket - mistythicket
<br>Monkey Rock - monkeyrock
<br>Blightfire Moors - moors
<br>Marus Seru - mseru
<br>The Crypt of Nadox - nadox
<br>Najena - najena
<br>Natimbi, the Broken Shores - natimbi
<br>Dragon Necropolis - necropolis
<br>Nedaria's Landing - nedaria
<br>Nektropos - nektropos
<br>The Nektulos Forest - nektulos
<br>Shadowed Grove - nektulosa");
}
if ($text =~/list3/i)
{
quest::popup ("Zone Name - what to type","Neriak - Foreign Quarter - neriaka
<br>Neriak - Commons - neriakb
<br>Neriak - 3rd Gate - neriakc
<br>Neriak Palace - neriakd
<br>Netherbian Lair - netherbian
<br>The Lair of Terris Thule - nightmareb
<br>The Northern Plains of Karana - northkarana
<br>North Desert of Ro - northro
<br>Northern Desert of Ro - nro
<br>The Mines of Nurga - nurga
<br>Oasis of Marr - oasis
<br>Oceangreen Hills - oceangreenhills
<br>Oceangreen Village - oceangreenvillage
<br>The Ocean of Tears - oceanoftears
<br>Oggok - oggok
<br>BlackBurrow - oldblackburrow
<br>Old Bloodfields - oldbloodfield
<br>Old Commonlands - oldcommons
<br>City of Dranik - olddranik
<br>Field of Scale - oldfieldofbone
<br>Highpass Hold - oldhighpass
<br>Kaesora Library - oldkaesoraa
<br>Kaesora Hatchery - oldkaesorab
<br>Bloody Kithicor - oldkithicor
<br>Kurn's Tower - oldkurn
<br>Ocean of Tears - oot
<br>The Overthere - overthere
<br>Paineel - paineel
<br>The Paludal Caverns - paludal
<br>The Lair of the Splitpaw - paw
<br>The Permafrost Caverns - permafrost
<br>The Plane of Air - poair
<br>The Plane of Disease - podisease
<br>The Plane of Earth - poeartha
<br>The Plane of Earth - poearthb
<br>The Plane of Fire - pofire
<br>The Plane of Innovation - poinnovation
<br>The Plane of Justice - pojustice
<br>The Plane of Knowledge - poknowledge
<br>The Plane of Nightmares - ponightmare
<br>The Plane of Storms - postorms
<br>Drunder, the Fortress of Zek - potactics
<br>The Plane of Time - potimea
<br>The Plane of Time - potimeb
<br>Torment, the Plane of Pain - potorment
<br>The Plane of Valor - povalor
<br>Plane of War - powar
<br>The Plane of Water - powater
<br>The Precipice of War - precipiceofwar
<br>Muramite Provinggrounds - provinggrounds
<br>The Qeynos Aqueduct System - qcat
<br>The Western Plains of Karana - qey2hh1
<br>South Qeynos - qeynos
<br>North Qeynos - qeynos2
<br>The Qeynos Hills - qeytoqrg
<br>Qinimi, Court of Nihilia - qinimi
<br>The Surefall Glade - qrg
<br>Qvic, Prayer Grounds of Calling - qvic
<br>Qvic, the Hidden Vault - qvicb
<br>Sverag, Stronghold of Rage - rage
<br>Razorthorn, Tower of Sullon Zek - ragea
<br>Rathe Council Chamber - rathechamber
<br>The Rathe Mountains - rathemtn
<br>Redfeather Isle - redfeather
<br>Relic, the Artifact City - relic
<br>Riftseekers' Sanctum - riftseekers
<br>Rivervale - rivervale
<br>Riwwi, Coliseum of Games - riwwi
<br>Blackfeather Roost - roost
<br>The Liberated Citadel of Runnyeye - runnyeye
<br>The Scarlet Desert - scarlet
<br>The Ruins of Sebilis - sebilis
<br>Shadeweaver's Thicket - shadeweaver
<br>Shadow Haven - shadowhaven
<br>Shadowrest - shadowrest
<br>Shadow Spine - shadowspine
<br>The City of Shar Vahl - sharvahl
<br>S.H.I.P. Workshop - shipworkshop
<br>Silyssar, New Chelsith - silyssar
<br>Siren's Grotto - sirens
<br>The Skyfire Mountains - skyfire
<br>Skylance - skylance
<br>Skyshrine - skyshrine
<br>Sewers of Nihilia, Emanating Cre - sncrematory
<br>Sewers of Nihilia, Lair of Trapp - snlair
<br>Sewers of Nihilia, Purifying Pla - snplant
<br>Sewers of Nihilia, Pool of Sludg - snpool
<br>Solusek's Eye - soldunga
<br>Nagafen's Lair - soldungb
<br>The Caverns of Exile - soldungc
<br>The Tower of Solusek Ro - solrotower
<br>The Temple of Solusek Ro - soltemple
<br>Solteris, the Throne of Ro - solteris
<br>The Southern Plains of Karana - southkarana
<br>South Desert of Ro - southro
<br>Southern Desert of Ro - sro
<br>Sanctus Seru - sseru
<br>Ssraeshza Temple - ssratemple");
}
if ($text =~/list4/i)
{
quest::popup ("Zone Name - what to type","The Steam Factory - steamfactory
<br>Steamfont Mountains - steamfont
<br>The Steamfont Mountains - steamfontmts
<br>The Steppes - steppes
<br>Stillmoon Temple - stillmoona
<br>The Ascent - stillmoonb
<br>The Stonebrunt Mountains - stonebrunt
<br>Stone Hive - stonehive
<br>Suncrest Isle - suncrest
<br>Sunderock Springs - sunderock
<br>The Swamp of No Hope - swampofnohope
<br>Tacvi, The Broken Temple - tacvi
<br>Ruins of Takish-Hiz - takishruins
<br>The Root of Ro - takishruinsa
<br>The Temple of Veeshan - templeveeshan
<br>The Tenebrous Mountains - tenebrous
<br>Thalassius, the Coral Keep - thalassius
<br>Theater of Blood - theater
<br>Deathknell, Tower of Dissonance - theatera
<br>The Deep - thedeep
<br>The Grey - thegrey
<br>The Nest - thenest
<br>Thundercrest Isles - thundercrest
<br>The City of Thurgadin - thurgadina
<br>Icewell Keep - thurgadinb
<br>Timorous Deep - timorous
<br>Tipt, Treacherous Crags - tipt
<br>The Torgiran Mines - torgiran
<br>Toskirakk - toskirakk
<br>Toxxulia Forest - tox
<br>Toxxulia Forest - toxxulia
<br>Trakanon's Teeth - trakanon
<br>EverQuest Tutorial - tutorial
<br>The Mines of Gloomingdeep - tutorialb
<br>The Twilight Sea - twilight
<br>Txevu, Lair of the Elite - txevu
<br>The Umbral Plains - umbral
<br>The Estate of Unrest - unrest
<br>Uqua, the Ocean God Chantry - uqua
<br>Valdeholm - valdeholm
<br>Veeshan's Peak - veeshan
<br>Veksar - veksar
<br>Velketor's Labyrinth - velketor
<br>Vergalid Mines - vergalid
<br>Vex Thal - vexthal
<br>Vxed, the Crumbling Caverns - vxed
<br>The Wakening Land - wakening
<br>Wall of Slaughter - wallofslaughter
<br>The Warrens - warrens
<br>The Warsliks Woods - warslikswood
<br>Stoneroot Falls - westkorlach
<br>Prince's Manor - westkorlacha
<br>Caverns of the Lost - westkorlachb
<br>Lair of the Korlach - westkorlachc
<br>The Western Wastes - westwastes
<br>Yxtta, Pulpit of Exiles - yxtta
<br>Zhisza, the Shissar Sanctuary - zhisza
<br>The Nektulos Forest - nektulos
<br>Brell's Rest - brellsrest
<br>The Cooling Chamber - coolingchamber
<br>Pellucid Grotto - pellucid
<br>Arthicrex - arthicrex
<br>The Foundation - foundation
<br>The Underquarry - underquarry
<br>Brell's Arena - brellsarena
<br>Volska's Husk - stonesnake
<br>The Convorteum - convorteum
<br>The Library - thulelibrary
<br>Morell's Castle - morellcastle
<br>Al'Kabor's Nightmare - alkabormare
<br>Erudin Burning - fallen
<br>The Feerrott - feerrott2
<br>The Grounds - housegarden
<br>Miragul's Nightmare - miragulmare
<br>Sanctum Somnium - somnium
<br>Fear Itself - thuledream
<br>House of Thule - thulehouse1
<br>House of Thule, Upper Floors - thulehouse2
<br>The Well - well
<br>Sunrise Hills - neighborhood");
}
if ($text =~/abysmal/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(279, 0, -199, 140); }

if ($text =~/acrylia/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(154, -665, 20, 4); }

if ($text =~/airplane/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(71, 614, 1415, -650); }

if ($text =~/akanon/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(55, -35, 47, 4); }

if ($text =~/akheva/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(179, 60, -1395, 22); }

if ($text =~/anguish/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(317, -9, -2466, -79); }

if ($text =~/apprentice/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(999, 0, 0, 0); }

if ($text =~/arcstone/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(369, 1630, -279, 5); }

if ($text =~/arena/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(77, 146, -1009, 51); }

if ($text =~/arena2/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(180, 460.9, -41.4, 24.6); }

if ($text =~/arttest/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(996, 0, 0, 0); }

if ($text =~/ashengate/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(406, 0, -375, 8); }

if ($text =~/atiiki/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(418, -916, -1089, -39); }

if ($text =~/aviak/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(53, 0, 0, 0); }

if ($text =~/barindu/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(283, 590, -1457, -123); }

if ($text =~/barren/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(422, 1203, 698, 54); }

if ($text =~/barter/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(346, 0, 0, 0); }

if ($text =~/bazaar/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(151, -71, -250, 33); }

if ($text =~/befallen/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(36, 35, -82, 3); }

if ($text =~/befallenb/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(411, 0, 0, 0); }

if ($text =~/beholder/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(16, -21.44, -512.23, 45.13); }

if ($text =~/bertoxtemple/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(469, 2, -2, 2); }

if ($text =~/blackburrow/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(17, 39, -159, 3); }

if ($text =~/blacksail/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(428, -165, 5410, 307); }

if ($text =~/bloodfields/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(301, -1763, 2140, -928); }

if ($text =~/bloodmoon/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(445, -4, 34, 8); }

if ($text =~/bothunder/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(209, 178, 207, -1620); }

if ($text =~/broodlands/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(337, -1613, -1016, 99); }

if ($text =~/buriedsea/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(423, 3130, -1721, 308); }

if ($text =~/burningwood/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(87, -821, -4942, 204); }

if ($text =~/butcher/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(68, -700, 2550, 3); }

if ($text =~/cabeast/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(106, -417, 1362, 8); }

if ($text =~/cabwest/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(82, 767, -783, 8); }

if ($text =~/cauldron/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(70, 320, 2815, 473); }

if ($text =~/causeway/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(303, -1674, -239, 317); }

if ($text =~/cazicthule/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(48, -74, 71, 4); }

if ($text =~/charasis/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(105, 0, 0, 4); }

if ($text =~/chardok/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(103, 859, 119, 106); }

if ($text =~/chardokb/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(277, -190, 290, 7); }

if ($text =~/citymist/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(90, -734, 28, 4); }

if ($text =~/clz/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(190, 0, 0, 0); }

if ($text =~/cobaltscar/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(117, 895, -939, 318); }

if ($text =~/codecay/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(200, -170, -65, -93); }

if ($text =~/commonlands/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(408, -3492, 180, 15); }

if ($text =~/commons/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(21, -1334.24, 209.57, -51.47); }

if ($text =~/corathus/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(365, 16, -337, -46); }

if ($text =~/corathusa/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(366, -49.3, 49.84, -10.76); }

if ($text =~/corathusb/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(367, 2, 90, -15); }

if ($text =~/crescent/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(394, -8, 11, 2); }

if ($text =~/crushbone/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(58, 158, -644, 4); }

if ($text =~/cryptofshade/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(449, 985, -445, -39); }

if ($text =~/crystal/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(121, 303, 487, -74); }

if ($text =~/crystallos/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(446, -65, -200, -75); }

if ($text =~/cshome/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(26, 0, 100, 0); }

if ($text =~/dalnir/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(104, 0, 0, 6); }

if ($text =~/dawnshroud/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(174, 2085, 0, 89); }

if ($text =~/deadbone/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(427, -3817, 4044, 314); }

if ($text =~/delvea/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(341, -246, -1578, 68); }

if ($text =~/delveb/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(342, -138, -355, 17); }

if ($text =~/devastationa/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(373, -141, 1059, 4); }

if ($text =~/devastation/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(372, 1390, 216, 53); }

if ($text =~/direwind/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(405, -329, -1845, 10); }

if ($text =~/discord/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(470, 28, -20, -16); }

if ($text =~/discordtower/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(471, 0, 0, -55); }

if ($text =~/drachnidhive/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(354, 0, 0, 0); }

if ($text =~/drachnidhivea/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(355, 0, 0, 0); }

if ($text =~/drachnidhiveb/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(356, 21.25, 1248.2, 150.27); }

if ($text =~/drachnidhivec/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(357, -55.72, -70.27, -755); }

if ($text =~/dragonscale/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(442, -1954, 3916, 19); }

if ($text =~/dragonscaleb/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(451, 25, 20, 5); }

if ($text =~/dranik/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(336, -1112, -1953, -369); }

if ($text =~/draniksscar/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(302, -1519, -1468, 260); }

if ($text =~/dreadlands/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(86, 9565, 2806, 1050); }

if ($text =~/dreadspire/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(351, 1358, -1030, -572); }

if ($text =~/droga/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(81, 290, 1375, 6); }

if ($text =~/dulak/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(225, 438, 548, 4); }

if ($text =~/eastkarana/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(15, 865, 15, -33); }

if ($text =~/eastkorlach/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(362, -950, -1130, 184); }

if ($text =~/eastkorlacha/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(363, 16, 3, -12); }

if ($text =~/eastwastes/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(116, -4296, -5049, 147); }

if ($text =~/echo/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(153, -800, 840, -25); }

if ($text =~/ecommons/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(22, -1485, 9.2, -51); }

if ($text =~/elddar/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(378, 606, 296, -36); }

if ($text =~/elddara/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(379, 0, 0, -6); }

if ($text =~/emeraldjungle/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(94, 4648, -1223, 2); }

if ($text =~/erudnext/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(24, -338, 75, 20); }

if ($text =~/erudnint/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(23, 808, 712, 21); }

if ($text =~/erudsxing/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(98, 795, -1767, 11); }

if ($text =~/erudsxing2/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(130, 0, 0, 0); }

if ($text =~/everfrost/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(30, 629, 3139, -60); }

if ($text =~/fearplane/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(72, 1282, -1139, 5); }

if ($text =~/feerrott/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(47, 905, 1051, 25); }

if ($text =~/felwithea/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(61, 94, -25, 3); }

if ($text =~/felwitheb/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(62, -790, 320, -10); }

if ($text =~/ferubi/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(284, 1483, 596, 111); }

if ($text =~/fhalls/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(998, -74, -843, -11); }

if ($text =~/fieldofbone/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(78, 1617, -1684, -50); }

if ($text =~/firiona/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(84, 1440, -2392, 1); }

if ($text =~/freeportacademy/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(385, -141, -336, 49); }

if ($text =~/freeportarena/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(388, -6.75, -42.5, 3); }

if ($text =~/freeportcityhall/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(389, -46.98, -31.21, -9.92); }

if ($text =~/freeporteast/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(382, -725, -425, 7); }

if ($text =~/freeporthall/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(391, -432, 569, -100); }

if ($text =~/freeportmilitia/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(387, 7, -243, 3); }

if ($text =~/freeportsewers/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(384, -1298, 111, -80); }

if ($text =~/freeporttemple/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(386, 0, 0, 10); }

if ($text =~/freeporttheater/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(390, 0, -6, -28); }

if ($text =~/freeportwest/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(383, -67, 0, -82); }

if ($text =~/freporte/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(10, -648, -1097, -52.2); }

if ($text =~/freportn/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(8, 211, -296, 4); }

if ($text =~/freportw/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(9, 181, 335, -24); }

if ($text =~/frontiermtns/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(92, -4262, -633, 116); }

if ($text =~/frostcrypt/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(402, 0, -40, 2); }

if ($text =~/frozenshadow/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(111, 200, 120, 0); }

if ($text =~/fungusgrove/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(157, -1005, -2140, -308); }

if ($text =~/gfaydark/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(54, 10, -20, 0); }

if ($text =~/greatdivide/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(118, -965, -7720, -557); }

if ($text =~/griegsend/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(163, 3461, -19, -5); }

if ($text =~/grimling/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(167, -1020, -950, 22); }

if ($text =~/grobb/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(52, 0, -100, 3); }

if ($text =~/growthplane/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(127, 3016, -2522, -19); }

if ($text =~/guardian/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(447, -115, 60, 4); }

if ($text =~/guildhall/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(345, 0, 1, 3); }

if ($text =~/guildlobby/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(344, 19, -55, 5); }

if ($text =~/gukbottom/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(66, -217, 1197, -78); }

if ($text =~/guktop/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(65, 7, -36, 4); }

if ($text =~/gunthak/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(224, -938, 1461, 15); }

if ($text =~/gyrospireb/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(440, -9, -843, 4); }

if ($text =~/gyrospirez/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(441, -9, -843, 4); }

if ($text =~/halas/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(29, 0, 0, 3); }

if ($text =~/harbingers/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(335, 122, -98, 10); }

if ($text =~/hateplane/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(76, -353.08, -374.8, 3.75); }

if ($text =~/hateplaneb/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(186, -393, 656, 3); }

if ($text =~/hatesfury/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(228, -924, 107, 0); }

if ($text =~/highkeep/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(6, 88, -16, 4); }

if ($text =~/highpass/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(5, -104, -14, 4); }

if ($text =~/highpasshold/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(407, -219, -148, -24); }

if ($text =~/highpasskeep/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(412, 0, 0, 0); }

if ($text =~/hillsofshade/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(444, -216, -1950, -50); }

if ($text =~/hohonora/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(211, -2678, -323, 3); }

if ($text =~/hohonorb/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(220, 975, 2, 396); }

if ($text =~/hole/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(39, -1050, 640, -80); }

if ($text =~/hollowshade/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(166, 2420, 1241, 40); }

if ($text =~/iceclad/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(110, 340, 5330, -17); }

if ($text =~/icefall/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(400, 765, -1871, -46); }

if ($text =~/ikkinz/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(294, -157, 23, -2); }

if ($text =~/illsalin/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(347, 308, -182, -32); }

if ($text =~/illsalina/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(348, 8, 0, -20); }

if ($text =~/illsalinb/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(349, 0, 0, 0); }

if ($text =~/illsalinc/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(350, 0, 0, -15); }

if ($text =~/inktuta/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(296, 0, 65, -2); }

if ($text =~/innothule/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(46, -588, -2192, -25); }

if ($text =~/innothuleb/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(413, -1029, -1778, 19); }

if ($text =~/jaggedpine/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(181, 1800, 1319, -13); }

if ($text =~/jardelshook/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(424, 4677, -784, 373); }

if ($text =~/kael/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(113, -633, -47, 128); }

if ($text =~/kaesora/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(88, 40, 370, 102); }

if ($text =~/kaladima/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(60, -2, -18, 3); }

if ($text =~/kaladimb/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(67, -267, 414, 3.75); }

if ($text =~/karnor/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(102, 302, 18, 6); }

if ($text =~/katta/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(160, -545, 645, 1); }

if ($text =~/kattacastrum/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(416, -2, -425, -20); }

if ($text =~/kedge/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(64, 14, 100, 302); }

if ($text =~/kerraridge/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(74, -859.97, 474.96, 23.75); }

if ($text =~/kithforest/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(410, 0, 0, 0); }

if ($text =~/kithicor/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(20, 3828, 1889, 459); }

if ($text =~/kodtaz/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(293, -1475, 1548, -302.12); }

if ($text =~/korascian/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(476, 24, -77, 25); }

if ($text =~/kurn/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(97, 0, 0, 7); }

if ($text =~/lakeofillomen/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(85, -5383, 5747, 70); }

if ($text =~/lakerathe/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(51, 1213, 4183, 3); }

if ($text =~/lavastorm/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(27, -25, 182, -74); }

if ($text =~/letalis/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(169, -623, -1249, -29); }

if ($text =~/lfaydark/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(57, -1770, -108, 0); }

if ($text =~/load/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(184, -316, 5, 8.2); }

if ($text =~/load2/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(185, -260, -4, -724); }

if ($text =~/lopingplains/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(443, -3698, -1289, 722); }

if ($text =~/maiden/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(173, 1905, 940, -150); }

if ($text =~/maidensgrave/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(429, 4455, 2042, 307); }

if ($text =~/mansion/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(437, 0, -73, 3); }

if ($text =~/mechanotus/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(436, -1700, 350, 404); }

if ($text =~/mesa/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(397, -85, -2050, 19); }

if ($text =~/mischiefplane/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(126, -395, -1410, 115); }

if ($text =~/mistmoore/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(59, 120, -330, -178); }

if ($text =~/misty/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(33, 0, 0, 2.43); }

if ($text =~/mistythicket/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(415, 662, -7, 4); }

if ($text =~/monkeyrock/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(425, -4084, -3067, 307); }

if ($text =~/moors/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(395, 3263, -626, -20); }

if ($text =~/mseru/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(168, -1668, 540, -6); }

if ($text =~/nadox/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(227, -1340, -70, 5); }

if ($text =~/najena/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(44, 858, -76, 4); }

if ($text =~/natimbi/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(280, -1557, -853, 239); }

if ($text =~/necropolis/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(123, 2000, -100, 5); }

if ($text =~/nedaria/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(182, -1737, -181, 256); }

if ($text =~/nektropos/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(28, 0, 0, 0); }

if ($text =~/nektulos/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(25, -259, -1201, -5); }

if ($text =~/nektulosa/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(368, -11, 134, -13); }

if ($text =~/neriaka/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(40, 157, -3, 31); }

if ($text =~/neriakb/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(41, -500, 3, -10); }

if ($text =~/neriakc/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(42, -969, 892, -52); }

if ($text =~/neriakd/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(43, 0, 0, 0); }

if ($text =~/netherbian/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(161, 14, 1787, -62); }

if ($text =~/nexus/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(152, 0, 0, -28); }

if ($text =~/nightmareb/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(221, 1608, 30, -327); }

if ($text =~/northkarana/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(13, -382, -284, -8); }

if ($text =~/northro/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(392, -1262, 8590, 40); }

if ($text =~/nro/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(34, 299.12, 3537.9, -24.5); }

if ($text =~/nurga/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(107, -1762, -2200, 6); }

if ($text =~/oasis/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(37, 903.98, 490.03, 6.4); }

if ($text =~/oceangreenhills/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(466, -1140, 4542, 73); }

if ($text =~/oceangreenvillage/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(467, 83, -72, 3); }

if ($text =~/oceanoftears/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(409, -7925, 1610, -292); }

if ($text =~/oggok/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(49, -99, -345, 4); }

if ($text =~/oldblackburrow/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(468, 7, -377, 46); }

if ($text =~/oldbloodfield/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(472, -2097, 2051, 3); }

if ($text =~/oldcommons/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(457, -3492, 180, 15); }

if ($text =~/olddranik/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(474, -1799, 986, -184); }

if ($text =~/oldfieldofbone/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(452, 1692, 1194, -49); }

if ($text =~/oldhighpass/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(458, 0, 0, -5); }

if ($text =~/oldkaesoraa/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(453, 33.67, -20.86, 3.37); }

if ($text =~/oldkaesorab/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(454, -64, -30, 2); }

if ($text =~/oldkithicor/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(456, -255, 1189, 10); }

if ($text =~/oldkurn/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(455, 20, -265, 5); }

if ($text =~/oot/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(69, -9200, 390, 6); }

if ($text =~/overthere/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(93, 1450, -3500, 309); }

if ($text =~/paineel/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(75, 200, 800, 3); }

if ($text =~/paludal/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(156, -241, -3721, 195); }

if ($text =~/paw/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(18, 63, -122, 3); }

if ($text =~/permafrost/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(73, 61, -121, 2); }

if ($text =~/poair/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(215, 532, 884, -90); }

if ($text =~/podisease/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(205, -1750, -1245, -56); }

if ($text =~/poeartha/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(218, -1150, 200, 71); }

if ($text =~/poearthb/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(222, -762, 328, -56); }

if ($text =~/pofire/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(217, -1387, 1210, -182); }

if ($text =~/poinnovation/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(206, 263, 516, -53); }

if ($text =~/pojustice/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(201, 58, -61, 5); }

if ($text =~/poknowledge/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(202, -285, -148, -159); }

if ($text =~/ponightmare/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(204, 1668, 282, 212); }

if ($text =~/postorms/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(210, -1795, -2059, -471); }

if ($text =~/potactics/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(214, -210, 10, -35); }

if ($text =~/potimea/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(219, -37, -110, 8); }

if ($text =~/potimeb/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(223, 851, -141, 396); }

if ($text =~/potorment/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(207, -341, 1706, -491); }

if ($text =~/potranquility/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(203, -1507, 701, -878); }

if ($text =~/povalor/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(208, 190, -1668, 65); }

if ($text =~/powar/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(213, 0, 0, 0); }

if ($text =~/powater/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(216, -165, -1250, 4); }

if ($text =~/precipiceofwar/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(473, 985, -1110, 285); }

if ($text =~/provinggrounds/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(316, -124, -5676, -306); }

if ($text =~/qcat/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(45, 80, 860, -38); }

if ($text =~/qey2hh1/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(12, -531, 15, -3); }

if ($text =~/qeynos/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(1, 0, 10, 5); }

if ($text =~/qeynos2/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(2, -74, 428, 3); }

if ($text =~/qeytoqrg/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(4, 83, 508, 0); }

if ($text =~/qinimi/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(281, -1053, 438, -16); }

if ($text =~/qrg/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(3, 0, 0, 2); }

if ($text =~/qvic/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(295, -2515, 767, -647); }

if ($text =~/qvicb/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(299, 0, 0, -6.25); }

if ($text =~/rage/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(374, 0, 1065, 7); }

if ($text =~/ragea/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(375, 354, 63, 3); }

if ($text =~/rathechamber/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(477, -19, -10, -22); }

if ($text =~/rathemtn/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(50, 1831, 3825, 28); }

if ($text =~/redfeather/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(430, 2531, -3638, 312); }

if ($text =~/relic/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(370, 861, 618, -265); }

if ($text =~/riftseekers/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(334, -1, 297, -208); }

if ($text =~/rivervale/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(19, 0, 0, 4); }

if ($text =~/riwwi/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(282, 454, -650, 35); }

if ($text =~/roost/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(398, -1592, 2125, -308); }

if ($text =~/runnyeye/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(11, 201, 90, 4); }

if ($text =~/scarlet/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(175, -1678, -1054, -98); }

if ($text =~/sebilis/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(89, 0, 250, 44); }

if ($text =~/shadeweaver/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(165, -3570, -2122, -93); }

if ($text =~/shadowhaven/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(150, 190, -982, -28); }

if ($text =~/shadowrest/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(187, -27.3, -245.6, 8.1); }

if ($text =~/shadowspine/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(364, 2, 408, 72); }

if ($text =~/sharvahl/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(155, 85, -1135, -188); }

if ($text =~/shipmvm/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(435, -69, -47, 44); }

if ($text =~/shipmvp/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(431, 0, 68, 47); }

if ($text =~/shipmvu/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(432, -118, -193, 29); }

if ($text =~/shippvu/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(433, -116, -97, 46); }

if ($text =~/shipuvu/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(434, -116, -97, 46); }

if ($text =~/shipworkshop/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(439, 530, 457, 10); }

if ($text =~/silyssar/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(420, 167, -50, -66); }

if ($text =~/sirens/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(125, -33, 196, 4); }

if ($text =~/skyfire/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(91, -4286, -1140, 38); }

if ($text =~/skylance/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(371, 0, -95, 2); }

if ($text =~/skyshrine/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(114, -730, -210, 0); }

if ($text =~/sleeper/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(128, 0, 0, 5); }

if ($text =~/sncrematory/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(288, 31, 175, -17); }

if ($text =~/snlair/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(286, 234, -70, -14); }

if ($text =~/snplant/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(287, 150, 127, -7); }

if ($text =~/snpool/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(285, 137, -5, -19); }

if ($text =~/soldunga/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(31, -486, -476, 73); }

if ($text =~/soldungb/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(32, -263, -424, -108); }

if ($text =~/soldungc/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(278, 307, -307, -14); }

if ($text =~/solrotower/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(212, -1, -2915, -766); }

if ($text =~/soltemple/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(80, 36, 262, 0); }

if ($text =~/solteris/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(421, 0, 0, -20); }

if ($text =~/southkarana/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(14, 1294, 2348, -6); }

if ($text =~/southro/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(393, -581, -520, 126); }

if ($text =~/sro/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(35, 286, 1265, 79); }

if ($text =~/sseru/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(159, -232, 1166, 59); }

if ($text =~/ssratemple/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(162, 0, 0, 4); }

if ($text =~/steamfactory/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(438, -870, 66, 121); }

if ($text =~/steamfont/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(56, -272.86, 159.86, -21.4); }

if ($text =~/steamfontmts/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(448, -170, -42, 2); }

if ($text =~/steppes/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(399, -896, -2360, 3); }

if ($text =~/stillmoona/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(338, -9, -78, -30); }

if ($text =~/stillmoonb/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(339, 169, 1027, 44); }

if ($text =~/stonebrunt/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(100, -1643, -3428, -7); }

if ($text =~/stonehive/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(396, -1331, -521, 26); }

if ($text =~/suncrest/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(426, -2241, -650, 316); }

if ($text =~/sunderock/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(403, -393, -3454, 4); }

if ($text =~/swampofnohope/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(83, 2945, 2761, 6); }

if ($text =~/tacvi/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(298, 4, 9, -8); }

if ($text =~/takishruins/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(376, -983, 269, 62); }

if ($text =~/takishruinsa/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(377, 18, -138, -29); }

if ($text =~/templeveeshan/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(124, -499, -2086, -36); }

if ($text =~/tenebrous/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(172, 1810, 51, -36); }

if ($text =~/thalassius/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(417, 37, -86, 23); }

if ($text =~/theater/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(380, 2933, 719, 376); }

if ($text =~/theatera/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(381, 0, -108, 4); }

if ($text =~/thedeep/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(164, -700, -398, -60); }

if ($text =~/thegrey/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(171, 349, -1994, -26); }

if ($text =~/thenest/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(343, -234, -55, -85); }

if ($text =~/thundercrest/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(340, 1641, -646, 114); }

if ($text =~/thurgadina/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(115, 0, -1222, 0); }

if ($text =~/thurgadinb/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(129, 0, 250, 0); }

if ($text =~/timorous/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(96, 2194, -5392, 6); }

if ($text =~/tipt/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(289, -448, -2374, 12); }

if ($text =~/torgiran/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(226, -620, -323, 5); }

if ($text =~/toskirakk/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(475, -402.5, 309.17, 20.18); }

if ($text =~/tox/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(38, 203, 2295, -45); }

if ($text =~/toxxulia/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(414, -718, 2102, 26); }

if ($text =~/trakanon/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(95, 1486, 3868, -336); }

if ($text =~/tutorial/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(183, 0, 0, 0); }

if ($text =~/tutorialb/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(189, 18, -147, 20); }

if ($text =~/twilight/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(170, -1858, -420, -10); }

if ($text =~/txevu/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(297, -332, -1, -420); }

if ($text =~/umbral/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(176, 1900, -474, 23); }

if ($text =~/unrest/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(63, 52, -38, 3); }

if ($text =~/uqua/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(292, -17, -7, -26); }

if ($text =~/valdeholm/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(401, 119, -3215, 3); }

if ($text =~/veeshan/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(108, 1783, -5, 15); }

if ($text =~/veksar/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(109, 1, -486, -27); }

if ($text =~/velketor/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(112, -65, 581, -152); }

if ($text =~/vergalid/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(404, 14, 0, 3); }

if ($text =~/vexthal/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(158, -1655, 257, -35); }

if ($text =~/vxed/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(290, -427, -3552, 14); }

if ($text =~/wakening/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(119, -5000, -673, -195); }

if ($text =~/wallofslaughter/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(300, -1461, -2263, -69); }

if ($text =~/warrens/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(101, -930, 748, -37); }

if ($text =~/warslikswood/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(79, -468, -1429, 198); }

if ($text =~/westkorlach/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(358, -2229, 395, 895); }

if ($text =~/westkorlacha/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(359, -1549, 577, 4); }

if ($text =~/westkorlachb/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(360, 0, 4, 4); }

if ($text =~/westkorlachc/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(361, -57, 197, 43); }

if ($text =~/westwastes/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(120, -3499, -4099, -18); }

if ($text =~/yxtta/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(291, 1235, 1300, -348); }

if ($text =~/zhisza/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(419, 6, -856, 5); }

if ($text =~/nektulos/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(25, 235, -911, 24); }

if ($text =~/brellsrest/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(480, 116, -700, 53); }

if ($text =~/coolingchamber/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(483, -35, -130, 59); }

if ($text =~/pellucid/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(488, -779, -424, -53); }

if ($text =~/arthicrex/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(485, 517, -1662, 200); }

if ($text =~/foundation/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(486, 1168.49, -1023.98, -209); }

if ($text =~/underquarry/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(482, 46, -190, -196); }

if ($text =~/brellsarena/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(492, 3, -304, -4); }

if ($text =~/stonesnake/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(489, 50, 24, 0); }

if ($text =~/convorteum/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(491, 28, -24, -42); }

if ($text =~/thulelibrary/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(704, 0, 0, 0); }

if ($text =~/morellcastle/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(707, -30, -219, -36); }

if ($text =~/alkabormare/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(709, 1104, -86, -14); }

if ($text =~/fallen/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(706, 59, -15, 0); }

if ($text =~/feerrott2/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(700, 952.95, 1022.59, 40.83); }

if ($text =~/housegarden/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(703, 102.16, -0.87, -28.89); }

if ($text =~/miragulmare/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(710, -102, 36, -108); }

if ($text =~/somnium/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(708, -2, 195, 0); }

if ($text =~/thuledream/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(711, 1282, -1139, 5); }

if ($text =~/thulehouse1/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(701, 0, -332, 4); }

if ($text =~/thulehouse2/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(702, -91, 338, 64); }

if ($text =~/well/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(705, 0, 0, 52); }

if ($text =~/neighborhood/i){
quest::say ("Enjoy your adventure!");
$client->Message(6, "Dieffer Wolfhugger casts a spell to translocate you to another place.");
quest::movepc(712, 2035, -2940, 6); }



## Translocator Script End ###


## Credit System Script ##

sub EVENT_ITEM {
#give a plat, get a credit.  Takes any platinum over 1.
if($platinum >= 1){
quest::setglobal("buffbot", $buffbot+$platinum, 0, "Y9");
quest::say("Your credit has been increased by $platinum.");
$buffbot = undef;
quest::settimer(1,1);
}
else {
quest::say("I only accept platinum.");
$buffbot = undef;
}
    plugin::return_items(\%itemcount);
  
}

sub EVENT_TIMER {
if ($timer == 1) {
quest::say("Would you like to know your total [credit value]?");
quest::stoptimer(1);
}
	
## Credit System Script ends ##
	
}
}

## End of Script ##

Now i had a few other questions, might not be related to questing but its related to the general concept. I was wondering, is there a way to make merchants have like... all the rings, and another have all the chest peices, etc? I mean without the daunting amount of work. Also, Pearl Necklaces... I saw a thread around here explaining how to update to the latest version of EQ and copy a bunch of files... I followed that to a T and still couldnt get a TON of items to show up. Like Inflicted for example, Icons are all still pearl necklaces and the item graphics themselves are textureless. Is there a way to fix both the icon and the graphics? ALSO is the a way to change the item graphics to make it look like another? For example, can I make Inflicted Earthwrought (Druid armor) look like Nature's Walker (Druid Velious Armor). (Btw... I use the old models... so I have velious textures enabled, hence I dont see alot of the newer graphics and thats why im trying to figure out how to change them. The newer models look shitty to me...) Thanks in advance!

Furinex · #5 04-14-2012, 10:17 PM

Okay, the icon thing was my bad. If anyone else wants to know how to change the look of the armor it is the materials field. Still can't get it to display new graphics for armor but that could because I'm using the old models. Still wondering about the merchant thing.

blackdragonsdg · #6 04-14-2012, 11:08 PM

For item graphics you may want to read the following. Especially if you are seeing a bunch of perl necklaces.

Code:

http://www.eqemulator.org/forums/showthread.php?t=32835

Yes you can add all rings or specific armor peices to merchants but they won't all fit on one merchant. Best I remember you can have around 120 items on a single merchant. Assuming that is true..I filtered out just rings and there were 1577 rings and that would take 14 merchants to hold them all. You could always write a perl script to automate the tedious part of the creation process or it might be that one of the existing tools will create the merchantlists for you.

Furinex · #7 04-15-2012, 10:00 AM

Does this method still work? Im having a problem with it, I cant seem to get the query to go through right. This looks like the best solution for me, pricing every item based on stats... sounds great, if I can get it to work.

http://www.eqemulator.org/forums/sho...highlight=solo

Furinex · #8 04-15-2012, 02:16 PM

Also, is there a query to rid myself of LORE flags on all items?

blackdragonsdg · #9 04-15-2012, 04:37 PM

You can get rid of lore flags with this.

Code:

update items set loregroup = 0 where id > 0;

I might be mistaken but I think I remember someone saying that there is suppose to be a rule in the rule_values table for ditching lore flags. If there is then that would be a better option than using sql to do a mass change.

Furinex · #10 04-15-2012, 04:46 PM

I found it, its in the Variables table, if you don't have it, just add another entry, Variable is disablelore and value set to 1, I also just put in the date and time i put it in for completeness.