[Furinex]

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.

## 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!