[QUOTE=Aramid]I tried this and it works for me....
[code]
#Melee Armor Quest with Setglobals
sub EVENT_SAY
{
if ($text=~/Hail/i && $meleearmorquest == 0){quest::say("Hail $name , It seems you're new here. I am having a few problems, would you like to [help] me?");}
if ($text=~/help/i && $meleearmorquest == 0){quest::say("Good.....good, what problem would you like to help me with? [Uruk Hai Chieftan], [Quest2], [Quest3], [Quest4], [Quest5], [Quest6], or [Quest7]? If at anytime you want a [new] quest let me know");
}
if ($text=~/new/i){
$meleearmorquest = undef;
quest::delglobal(meleearmorquest);
quest::setglobal(meleearmorquest,0,0,F); quest::say("Ok just hail me when you want to pick your new quest.");
}
#Quest Select
if ($text=~/Uruk Hai Chieftan/i){
quest::delglobal(meleearmorquest);
quest::setglobal(meleearmorquest,1,0,F);
quest::say("Are you [sure]?");
}
if ($text=~/Quest2/i){
quest::delglobal(meleearmorquest);
quest::setglobal(meleearmorquest,2,0,F);
quest::say("Are you [sure]?");
}
if ($text=~/Quest3/i){
quest::delglobal(meleearmorquest);
quest::setglobal(meleearmorquest,3,0,F);
quest::say("Are you [sure]?");
}
if ($text=~/Quest4/i){
quest::delglobal(meleearmorquest);
quest::setglobal(meleearmorquest,4,0,F);
quest::say("Are you [sure]?");
}
if ($text=~/Quest5/i){
quest::delglobal(meleearmorquest);
quest::setglobal(meleearmorquest,5,0,F);
quest::say("Are you [sure]?");
}
if ($text=~/Quest6/i){
quest::delglobal(meleearmorquest);
quest::setglobal(meleearmorquest,6,0,F);
quest::say("Are you [sure]?");
}
if ($text=~/Quest7/i){
quest::delglobal(meleearmorquest);
quest::setglobal(meleearmorquest,7,0,F);
quest::say("Are you [sure]?");
}
#Quest 1
if ($text=~/sure/i && $meleearmorquest == 1){quest::say("I need you to slay Uruk chieftan [Lurtz] and bring me back his head. If you do this for me I will reward you handsomely with new [equipment].");}
if ($text=~/equipment/i && $meleearmorquest == 1){quest::say("Yes, 12 pieces to be exact but I dont feel like telling you every piece you will get.");}
if ($text=~/Lurtz/i && $meleearmorquest == 1){quest::say("I have been told by my scouts that Lurtz is hiding near Befallen. He is being protected by 4 Uruk Hai bodyguards so it would be best to take a friend or 2 with you.");}
#Quest 2
if ($text=~/sure/i && $meleearmorquest == 2){quest::say("Hail $name, I didnt expect to see you back so soon. Don't tell me you need more [gear]?");}
if ($text=~/gear/i && $meleearmorquest == 2){quest::say("Ok, I guess I can find another [task] for you.");}
if ($text=~/task/i && $meleearmorquest == 2){quest::say("As you may have heard there have been some of Saruman
|