MQEmulator.net • -

a_drunkard.pl - Quest File

General Info

Quest File

# items: 13035, 13347, 13349, 13348, 13350, 2314, 2007, 2005, 23359
sub EVENT_SAY {
  if ($text=~/hail/i) {
    quest::say("Can you -hic- . . . spare some copper or -hic- . . . silver? I just . . . -Hic- . . . need some change to buy something to drin . . Er . . Eat . -Hic-");
  }
  if ($text=~/tandan nybright/i) {
    quest::say("How did you know my name? You must be from Felwithe. Hic.. Excuse my condition. I am not the man I was. I have had a [shocking experience].");
  }
  if ($text=~/shocking/i) {
    quest::say("My daughters have become blood thirsty bandits. They went off to visit Antonica and when they returned they became bandits. They now attack every poor traveler who happens upon them. They have disgraced the name of Nybright. Will you [hunt the Nybright Sisters] or is this not to your liking?");
  }
  if ($text=~/hunt/i) {
    quest::say("I am most thankful. Many adventurers would not help me with this matter. Go and seek out the Nybright sisters. I gave all four of them a Personalized Necklace. Return them all to me when the deed is done. May the Tribunal watch over you.");
  }
}

sub EVENT_ITEM {
  if (plugin::check_handin(\%itemcount, 13035 => 1)) {
    quest::say("Thank you kind sir <hic>, I am most grateful for your generosity.");
    quest::exp(150);
  }
  elsif (plugin::check_handin(\%itemcount, 13347 => 1, 13349 => 1, 13348 => 1, 13350 => 1)) {
    quest::say("This is a sad day, but it was the just thing to do. The Nybright name will no longer be tarnished. Here you are my friend. This is a bit uncared for, but it is yours. My warrior days are over. Now go. I must be alone.");
    quest::summonitem(quest::ChooseRandom(2314, 2007, 2005, 23359)); # Item(s): Bearskin Gloves (2314)
    quest::faction(5001, 20); # Faction: Anti-mage
    quest::faction(226, 20); # Faction: Clerics of Tunare
    quest::faction(279, 20); # Faction: King Tearis Thex
    quest::exp(300);
  }
  plugin::return_items(\%itemcount);
}

sub EVENT_WAYPOINT_ARRIVE {
  if(($wp == 3) || ($wp == 9) || ($wp == 15) || ($wp == 24) || ($wp == 26) || ($wp == 33)) {
    quest::say("Please.. Can anyone spare some coppers? <Hic>.. Anyone?");
  }
}

#END of FILE Zone:gfaydark  ID:54059 -- a_drunkard

Source: 17 Jan 2022
Quest Source: 28 May 2022