EQEmulator Forums - Larn_Brugal.pl (Updated)

Code:


############################################

# 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