Larn_Brugal.pl (Updated)

[mwmdragon]

############################################
# ZONE: West Freeport (freportw)
# DATABASE: PEQ-Velios
# LAST EDIT DATE: April 5,2005
# VERSION: 2.0
# DEVELOPER: MWMDRAGON
#
# *** NPC INFORMATION ***
#
# NAME: Larn_Brugal
# ID: 9113
# TYPE: Guild Master Warrior
# RACE: Human
# LEVEL: 61
#
# *** ITEMS GIVEN OR TAKEN ***
#
# Sealed Letter ID-1717  *** Uses a Sealed Letter from another quest for now.
# Raw Short Sword 1 ID-12241
# Raw Short Sword 2 ID-12242
# Raw Short Sword 3 ID-12243
# Raw Short Sword 4 ID-12244
# Groflar's Stoutbite ID-5418
#
# *** QUESTS INVOLVED IN ***
#
#1 - Warrior Weapon Shipment
#
# *** QUESTS AVAILABLE TO ***
#
#1 - Warrior
#
############################################

sub EVENT_SAY
{
 if($text =~ /hail/i)
 {
	quest::say("Good day to you $name ! I hope you yearn to become a Steel Warrior as we all are here in the Bunker. We are in need of more recruits to continue the [war].");
 }

 if($text =~ /war/i)
 {
	quest::say("The war I speak of is the one we Steel Warriors have sworn to wage agianst [Clan Deathfist] in the Commonlands. We are doing a fine job but we require more weapons. We are expecting a shipment of blades from Groflahs Forge. We require a warrior of the bunker to [get our shipment]. Maybe you.");
 }

 if($text =~ /Clan Deathfist/i)
 {
	quest::say("If you do not know of Clan Deathfist go ask Cain who they are. He will not only tell you he will sign you up to help fight our war!");
 }

 if($text =~ /get our shipment/i && $class == 'Warrior')
 {
	quest::say("We would be most thankful for your service. Please take this voucher over to Groflah at Groflahs Forge in North Freeport. He will give you the shipment of weapons.");
 quest::summonitem(1717);
 }

}

sub EVENT_ITEM
{
    if($class != 'Warrior')
	{
		quest::say("You are not a member of my guild. I will not train you!");
		quest::summonitem($item1) if($item1);
		quest::summonitem($item2) if($item2);
		quest::summonitem($item3) if($item3);
		quest::summonitem($item4) if($item4);
		return;
	}
	else
	{
 	#do all other handins first, then let it do disciplines
 	# Raw Short Sword 1 ID-12241 - Raw Short Sword 2 ID-12242 - Raw Short Sword 3 ID-12243 - Raw Short Sword 4 ID-12244
 	if($itemcount{12241} == 1 && $itemcount{12242} == 1 && $itemcount{12243} == 1 && $itemcount{12244} == 1)
 	{
  	quest::say("I heard you were on your way back. Here then. Let us sharpen that blade for you. There you are. That should be much better in a fray now.");
  	quest::ding();
  	# Groflar's Stoutbite ID-5418
  	quest::summonitem(5418);
  	quest::exp(50)

 	}
 	else
 	{
	#assume it is a discipline tome...
	quest::traindisc($item1) if(quest::isdisctome($item1));
	quest::traindisc($item2) if(quest::isdisctome($item2));
	quest::traindisc($item3) if(quest::isdisctome($item3));
	quest::traindisc($item4) if(quest::isdisctome($item4));
 	}

}
}
#END of FILE Zone:freportw  ID:9113 -- Larn_Brugal