View Single Post
  #3  
Old 05-23-2011, 09:22 AM
Dragonthorne
Fire Beetle
 
Join Date: Jul 2010
Posts: 5
Default

All taken care of. Here is the final code. If anyone sees anything here, please let me know:

Code:
sub EVENT_SPAWN
{
my $x;
my $y;
my $z;
my $h;

$x = $npc->GetX();
$y = $npc->GetY();
$z = $npc->GetZ();
$h = $npc->GetHeading();

  quest::set_proximity( $x-40,$x+40,$y-40,$y+40,$z-40,$z+40);
}

sub EVENT_ENTER
{
  quest::say("Hello, $name!  I need some assistance.");
}


sub EVENT_EXIT
{
  quest::say("Have a wonderful day, $name!");
}

sub EVENT_SAY
{
   if($text =~ /Hail/i){ 
   quest::say("Hello there, $name!  I have had a hard time lately finding my [fishing] supplies"); }
   
   if($text =~ /fishing/i){
   quest::say("Yes!  I lost my fishing rod and the grubs I used for bait.  Can you help [find] them?"); }
   
   if($text =~ /find/i){
   quest::say("Great!  Thank you very much!  I hear that they can be found in the Field of Bone.  Be careful, however!  The Field of Bone is a dangerous place!"); }
}   

sub EVENT_ITEM
{
     if  (plugin::check_handin(\%itemcount, 1096 => 1, 1118 => 1))  
          { 
         quest::say("Thank you for the help. Here's your reward!"); 
         quest::SummonItem(1079);
          } 
}
Reply With Quote