Final 3 NPCs:
Wenden_Blackhammer in freporte:
Code:
############################################
# ZONE: East Freeport (freporte)
# DATABASE: Caveman + PEQ (from Serverpack 3.52)
# LAST EDIT DATE: 5/1/06
# VERSION: 1.0
# BASE QUEST BY: PEQ Team
# DEVELOPER: MWMDRAGON
# EDITED BY: ATTEMPT37
#
# *** NPC INFORMATION ***
#
# NAME: Wenden_Blackhammer
# ID: 10116
# TYPE: Warrior
# RACE: Dwarf
# LEVEL: 50
#
# *** ITEMS GIVEN OR TAKEN ***
#
# Unjeweled Dragon Head Hilt ID-20668
# Diamond ID-10037
# Black Sapphire ID-10036
# Jacinth ID-10053
# Jeweled Dragon Head Hilt ID-20671
# Severely Damaged Dragon Head Hilt ID- 20669
# Rejesiam Ore ID-20666
# Ball of Everliving Golem ID-20677
# Finely Crafted Dragon Head Hilt ID-20672
#
#
# *** QUESTS INVOLVED IN ***
#
#1 - Repair of the Unjeweled Dragon Head Hilt
#2 - Repair of the Severely Damaged Dragon Head Hilt
#
# *** QUESTS AVAILABLE TO ***
#
#1 - Warrior
#
#
############################################
sub EVENT_SAY
{
if($class eq "Warrior") {
if($text=~/Hail/i)
{
quest::say("What do you need? Be specific. I'm busy right now!");
}
if($text=~/what hilt/i)
{
quest::say("What is it you need to be knowing about hilts? Do you need one made or [repaired]?");
}
if($text=~/repaired/i)
{
quest::say("Well. tell me the name of the hilt you need repaired and I'll see what I can do.");
}
if($text=~/unjeweled dragon head hilt/i)
{
quest::say("That just looks like it's missing some gems. I'm not quite sure what type of gems either but I can tell
you two things about them just by the settings. They were all different. and they all were very. very expensive.
If I try to put the wrong kind of gems in these slots. it may be ruined forever. I'll do whatever you want though.
Just bring me the three gems you want me to try and put in the hilt.");
}
if($text=~/Severely Damaged Dragon Head Hilt/i)
{
quest::say("Unfotunatly this hilt can only be reforged with the propper components. You might have a rough time
finding the correct ore types needed for this hilt. I'll do whatever you want though. Just bring me the two
components you want me to use to try and reforge this hilt with and I'll do it.");
}
}
}
sub EVENT_ITEM
{
# Unjeweled Dragon Head Hilt ID-20668 - Diamond ID-10037 - Black Sapphire ID-10036 - Jacinth ID-10053
if($itemcount{20668} == 1 && $itemcount{10037} == 1 && $itemcount{10036} == 1 && $itemcount{10053} == 1)
{
quest::emote("begins to fiddle with the hilt, gently pressing the gems into place. It seems to take forever as
you watch in silence. Wenden slowly places the last gem in place and gently bends the settings to hold the gems
before he hands it back to you. 'That's a very impressive looking hilt there. The material it is made out of seems
strangely familiar,' Wenden says as he turns back to his forge and his other work.");
quest::exp("1000");
quest::ding();
# Jeweled Dragon Head Hilt ID-20671
quest::summonitem("20671");
}
# Severely Damaged Dragon Head Hilt ID- 20669 - Rejesiam Ore ID-20666 - Ball of Everliving Golem ID-20677
elsif($itemcount{20669} == 1 && $itemcount{20666} == 1 && $itemcount{20677} == 1)
{
quest::emote("works his magic with his forge as you have never seen done quite like this. The bending and shaping
to repair the hilt is only something a master of his art could even fathom to try. Once the hilt has been cooled in
a near by bucket of ice cold water, he checks it for balance and resonance before handing it to you.");
quest::exp("1000");
quest::ding();
# Finely Crafted Dragon Head Hilt ID-20672
quest::summonitem("20672");
}
}
#REQUIRES 2 EMPTY LINES AFTER END OF FILE
#END of FILE Zone:freporte ID:10116 -- Wenden_Blackhammer
Mentrax_Mountainbone in frontiermtns:
Code:
############################################
# ZONE: Frontier Mountains (frontiermtns)
# DATABASE: Caveman + PEQ (from Serverpack 3.52)
# LAST EDIT: 5/1/06
# VERSION: 1.0
# DEVELOPER: ATTEMPT37
#
# *** NPC INFORMATION ***
#
# NAME: Mentrax_Mountainbone
# ID: 92148
# TYPE: Warrior
# RACE: Giant
# LEVEL: 50
#
# *** ITEMS GIVEN OR TAKEN ***
#
# Giant Sized Monocle ID-20678
# Rejesiam Ore ID-20666
#
# *** QUESTS INVOLVED IN ***
#
#1 - Jagged Blade of War - Warrior Epic
#
#
#
#
############################################
sub EVENT_SAY {
if($text=~/Hail/i) {
quest::say("What be it you want? Go away before I eat you for dinner!"); }
}
sub EVENT_ITEM {
# Giant Sized Monocle ID-20678
if($itemcount{20678} == 1) {
quest::say("Eh, you actually found one! Thank you, $name. Here is a block of ore for you. Just don't
let the other giants know.");
quest::ding();
# Rejesiam Ore ID-20666
quest::summonitem("20666"); }
}
#REQUIRES 2 EMPTY LINES AFTER END OF FILE
#END of FILE Zone:frontiermtns ID:92148 -- Mentrax_Mountainbone
Denken_Strongpick in oot:
Code:
############################################
# ZONE: Ocean of Tears (oot)
# DATABASE: Caveman + PEQ (from Serverpack 3.52)
# LAST EDIT: 5/1/06
# VERSION: 1.0
# DEVELOPER: ATTEMPT37
#
# *** NPC INFORMATION ***
#
# NAME: Denken_Strongpick
# ID: 69061
# TYPE: Warrior
# RACE: Dwarf
# LEVEL: 50
#
# *** ITEMS GIVEN OR TAKEN ***
#
# Keg of Vox Tail Ale ID-20664
# Block of Permafrost ID-20665
# Rebreather ID-16889
# Ancient Sword Blade ID-20667
#
# *** QUESTS INVOLVED IN ***
#
#1 - Jagged Blade of War - Warrior Epic
#
# *** QUESTS AVAILABLE TO ***
#
#1 - Warrior
#
# *** NPC NOTES ***
#
#
#
############################################
sub EVENT_SAY {
if($text=~/Hail/i) {
quest::say("Hello, $name. I am Denken Strongpick. I wish I could get off this rock, silly clan
honor. My boss broke our rebreathers and we can not go back to the mainland before we gather some goblin relics.");
}
if($text=~/goblin relics/i) {
quest::say("There are supposedly goblin ruins around here somewhere. Fendlemend thinks we will find
paydirt underwater. We did find one thing."); }
if($text=~/what did you find/i) {
quest::say("We found a very fine sword blade.");
quest::emote("pulls open his pack and shows you a razor sharp sword covered with runes.");
quest::say("I can't figure out what type of metal it is and I sure can't figure out what technique
was used to forge it. Perhaps you would like to take it off my hands and [buy] it?"); }
if($text=~/buy/i) {
quest::say("Out here, money is fairly useless to me. You see, I can't leave Fendlemend out here
alone. I signed on with a very detailed contract. I could sure [use] a few things from the mainland though."); }
if($text=~/use/i) {
quest::say("I would be willing to part with this very fine blade for; a keg of Vox tail ale, a block
of permafrost to keep it cool, and two new rebreathers to get this operation back underway.");}
}
sub EVENT_ITEM {
# Keg of Vox tail ale ID-20664 and Block of Permafrost ID-20665 and 2 Rebreather ID-16889
if($itemcount{20664} == 1 && $itemcount{20665} == 1 && $itemcount{16889} == 2) {
quest::say("Excellent! Here is your sword. I feel like I'm at home already!");
quest::ding();
# Ancient Sword Blade ID-20667
quest::summonitem("20667"); }
}
#REQUIRES 2 EMPTY LINES AFTER END OF FILE
#END of FILE Zone:oot ID:69061 -- Denken_Strongpick