MQEmulator.net • -

Lokar_To-Biath.pl - Quest File

General Info

Quest File

#:: Lokar_To-Biath.pl
#:: Red Wine (Part of Tome of Ages)
# items: 18200

sub EVENT_COMBAT {
	#:: Match combat state 1 - entered combat
	if ($combat_state == 1) {
		quest::say("Come and feel the blade of the Dark Bargainers.");
	}
}

sub EVENT_SAY {
	if ($text=~/hail/i) {
		quest::say("I am the Scribe of Innoruuk. If you do not have business with me, begone!");
	}
	elsif ($text=~/innoruuk/i) {
		quest::say("I am his scribe, and He is our god. There is nothing else to be said.");
	}
	elsif ($text=~/scribe of dal/i) {
		quest::say("The Scribes of Dal? All of them are long since [dead].. or at least most would say that.");
	}
	elsif ($text=~/dead/i) {
		quest::say("Perhaps, perhaps not. I cannot remember, but perhaps Innoruuk would help me remember should you tithe him a bottle of red wine from the Blind Fish.");
	}
	elsif ($text=~/vow/i) {
		quest::say("Break the vow? She might. Were you to tithe 70 gold to your god, Innoruuk, he might aid you.");
	}
}

sub EVENT_ITEM {
	#:: Match seventy gold pieces
	if (plugin::takeCoin(0, 0, 70, 0)) {
		quest::say("Take this note to the Scribe of Dal, and perhaps she will break her vow.");
		#:: Give a 18200 - Note
		quest::summonitem(18200); # Item: Note
		#:: Ding!
		quest::ding();
		#:: Set factions
		quest::faction(236, 10);			#:: + Dark Bargainers
		quest::faction(334, 1);				#:: + Dreadguard Outer
		quest::faction(370, 1);				#:: + Dreadguard Inner
		#:: Grant a small amount of experience
		quest::exp(100);
	}
	#:: Match one 13030 - Red Wine
	elsif (plugin::takeItems(13030 => 1)) {
		#:: Match if faction is Indifferent or better
		if ($faction <= 5) {
			quest::say("Ah, yes, let me pray to our god.. Yes, Innoruuk has given me wisdom. A Scribe of Dal still exists, disguised as a barkeep in the Blind Fish. This information will not help you though, for she has sworn a [vow] of silence and will not speak of the Dal.");
			#:: Ding!
			quest::ding();
			#:: Set factions
			quest::faction(236, 10);		#:: + Dark Bargainers
			quest::faction(334, 1);			#:: + Dreadguard Outer
			quest::faction(370, 1);			#:: + Dreadguard Inner
			#:: Grant a small amount of experience
			quest::exp(150);
		}
		else {
			quest::say("Leave my sight at once! You are no friend to the Dark Bargainers.");
		}
	}
	#:: Return unused items
	plugin::returnUnusedItems();
}

sub EVENT_DEATH_COMPLETE {
     quest::say("The death of a Dark Bargainer never goes unnoticed!");
}

#:: END of FILE Zone:neriakc  ID:42037 -- Lokar_To`Biath

Source: 17 Jan 2022
Quest Source: 28 May 2022