Cadale Brohat

[provocating]

Quest ID's will need to be changed to whatever Cavedude decides on.

Cadale_Brohat.pl

#zone: gunthak NPC: Cadale Brohat (29060)
#Provocating

sub EVENT_SAY { 
if ($text=~/Hail/i){
		quest::emote("smiles widely at you. 'Welcome. You are brave to venture to Broken Skull Rock. Don't mind the others. Everyone is a bit touchy around here. If you are interested in dyes, feel free to peruse what I have to offer. Playing with them has given me hours of entertainment! Just be careful on this rock, and watch your back. Oh, before I forget, I'm looking for someone to help me with some [tasks] that I need to get done. All my time with the dyes has kept me from some of the more important things I need to take care of.'");
	}
	
    if ($text=~ /task/i)
	{
		my @task_array;
		push(@task_array, 500);
		push(@task_array, 501);
		push(@task_array, 502);
		push(@task_array, 503);
		push(@task_array, 504);
		push(@task_array, 505);
		push(@task_array, 506);
		push(@task_array, 507);
		quest::taskselector(@task_array);
  }
}

sub EVENT_ITEM {
  quest::say("I do not need this.");
  plugin::return_items(\%itemcount);
}

[provocating]

Same thing here, and I noticed from live the Task NPC's direct you to other ones, probably needs to be cleaned up as i have no idea what the level breaks are for the tasks.

Guard_Gregor.pl

sub EVENT_COMBAT {
	if($combat_state == 1){
	my $cur_target = $npc->GetHateTop();
		if($cur_target) {
		my $target_name = $cur_target->GetCleanName();
		quest::say("Time to die $target_name!");
		}
	}
}

sub EVENT_DEATH {
	quest::say("My comrades will avenge my death.");
}

sub EVENT_SAY {
	if($text=~/hail/i) {
		quest::say("I\'m only looking for those individuals who are strong of character and lack the fear of the world as is so common these days. A [task] completed and well done is all I care about.");
	} elsif ($text=~/task/i) {
		if(($ulevel >= 20) && ($ulevel <= 30)) {
			quest::say("Excellent! I was hoping you would be able to help me.");
			my @task_array;
			push(@task_array, 143); #Task: Bringing Goods to the Karanas
			push(@task_array, 509); #Task: Protect the Fishermen
      push(@task_array, 510); #Task: Danger to the North
			quest::taskselector(@task_array);
		}
		if ($ulevel>=31) {
			$client->Message(18,"You can speak with Klok F\`tshai, Marana Dreadflats, or Hoobert Flinkl in the Dreadlands.");
			$client->Message(18,"You can speak with Klok G\`rshai, Finlay Kitoran, Uggrig Skullchomper, or Skizz Skazz in the Overthere."); 
		}
		if ($ulevel>=50) {
			$client->Message(18,"You can speak with Cadale Brohat or Assistant Vagli in the Gulf of Gunthak."); 
		}
	}
}

sub EVENT_ITEM {
  quest::say("I have no use for this.");
  plugin::return_items(\%itemcount);
}

[provocating]

Barrenzin.pl

#zone: poknowledge NPC: Barrenzin 
#Provocating

sub EVENT_SAY {
  if($text=~/hail/i) {
    if(quest::istaskactivityactive(207,4)) { #Ambushed! Step 3
      quest::say("Before you got here I received a dispatch from Dellweena discussing the note she discovered. It all makes sense now, the seemingly random attacks...some objects being taken while others left untouched. I am a fool for I should have seen this earlier! But I assumed that none of my rivals had the audacity to attempt to undermine me. Nevertheless they have struck and now I must find out who is behind this and what exactly they are trying to accomplish. This note with the seal for my house will garner you a significant reward from your guildmaster.");
    }
    else {
      quest::say("'Greetings, $name,' Barrenzin smiles as he hands you a glass of wine. 'Thank you for coming on such short notice. Please make yourself comfortable and then we can discuss [business].'");
    }
  }
  if($text=~/business/i) {
    quest::say("'A $class that gets right to point,' Barrenzin smiles again. 'Such a refreshing change of pace from the pandering rabble I normally deal with. Allow me to be blunt then. I recently lost several, let's say, 'associates' of mine and I'm a little understaffed at the moment. I've been following your adventuring career since Gloomingdeep and I think you could go far in my [organization]. What say you? [Interested] in making a name for yourself? Or perhaps you have a [group] assembled that's looking for a little coin?'");
  }
  if($text=~/business/i) {
  quest::say("I am the leader of the Black Hand. The details of our business can get rather messy so let me just put it this way. Goods from all over Norrath and beyond flow through the Plane of Knowledge. It is literally the hub of all reality. My organization moved here to deal in the subset of goods that are best traded. . .hmm. . .under the table. . .if you understand what I mean. Still [interested]");
  }
  if($text=~/interested/i) {
    quest::say("Very well then. Here are the tasks I have for you right now. Be sure to report back to me as you gain field experience. As sure as the accursed sunrise, there's always more work to be done around here.");
    my @task_array;
	push(@task_array, 207); #Ambushed!
	push(@task_array, 508); #The Cabilisian Trade Route
	quest::taskselector(@task_array);
  }
}

sub EVENT_ITEM {
  quest::say("I do not need this.");
  plugin::return_items(\%itemcount);
}