Bor_Wharhammer.pl

[leyen]

This is my first attempt at a quest please be gental. i wanted to contribute something to the emu after playing for over a year. i do not have perl installed on this computer currently but will once i reinstall if someone could see what mistakes there are would be a great help. This quest is like the orgional but with the following changes to make it easier on players and gm's as well. it utilizes more money and takes away tradeskill from the players and alows the npc to craft the items for the players.
#############
#Quest Name: Ornate Armor Quest
#Author: Leyan
#NPCs Involved: Bor Wharhammer
#Items Involved: Berserker Emblem, Ranger Emblem, Rogue Emblem, Shaman Emblem, Beastlord Emblem, Druid Emblem, Monk Emblem, Bard #Emblem, Warrior Emblem, Paladin Emblem, Shadowknight Emblem, Cleric Emblem, Wizard Emblem, Enchanter Emblem, Magician Emblem, #Necromancer Emblem, Ornate Chain Boot Pattern, Ornate Chain Bracelet Pattern, Ornate Chain Coif Pattern, Ornate Chain Glove Pattern, #Ornate Chain Pant Pattern, Ornate Chain Sleeve Pattern, Ornate Chain Tunic Pattern, Ornate Leather Boot Pattern, Ornate Leather Glove #Pattern, Ornate Leather Helm Pattern, Ornate Leather Pant Pattern, Ornate Leather Sleeve Pattern, Ornate Leather Tunic Pattern, Ornate #Leather Wristband Pattern, Ornate Boot Mold, Ornate Bracer Mold, Ornate Breastplate Mold, Ornate Gauntlet Mold, Ornate Greaves Mold, #Ornate Helm Mold, Ornate Vambrace Mold, Ornate Silk Boot Pattern, Ornate Silk Bracelet Pattern, Ornate Silk Glove Pattern, Ornate Silk #Pant Pattern, Ornate Silk Robe #Pattern, Ornate Silk Sleeve Pattern, Ornate Silk Turban Pattern
#
# This is a fairly easy quest to do it utilizes the use of money as well as items you will need 1k per item.
#
#################
#Bor Wharhammer
}
sub EVENT_SAY
}
if ($text=~/Hail/i){quest::say("Greetin's t'ye $name! Isn't the area 'round 'ere so nice an' quiet? Such a departure from me old days; slaving o'er the forge t'create masterpieces! T'be 'onest, at times I do miss the old forge, but after I created me finest breastplate, it seemed as if nothing else I made could ever live up t'it. So I left me home to'wander the land an' see what I could learn o'the world. I 'ave learned quite a bit from the elders 'ere an' the skilled craftspeople in New Tanaan. I 'ave even devised a type o'[emblem] that will impart the magic o'tranquility into the user t'create planar armors from pieces o'energy found in the planes.")
if ($text=~/What emblem/i){quest::say("Well, the emblems dinnae be easy t'craft but I will gladly give ye one fer the price of 500 platinum pieces. They allow a planes traveler with no craftin' skills t'create many fine pieces o'planar armor in a special, magical kit I also 'ave'. The kit acts as a focal point fer the wild magic energy o'the Planes. Just hand me the emblem and the armor mold and 500 platinum and I will craft the armor for you. Just venture back when ye need another an' dinnae ferget the coin!");
}
#turn in 500p
}
sub EVENT_ITEM
}
if ($platinum == 500){
quest::text ("Here is The Emblem, don't be losin it. Return to me when you have a Mold for me to craft for ye.");
if ($class == shaman);
quest::summonitem(16274)
if ($class == Rogue);
quest::summonitem(16273)
if ($class == Ranger);
quest::summonitem(16272)
if ($class == Berserker);
quest::summonitem(32000)
if ($class == Beastlord);
quest::summonitem(16277)
if ($class == Druid);
quest::summonitem(16276)
if ($class == Monk);
quest::summonitem(16275)
if ($class == Warrior);
quest::summonitem(16267)
if ($class == Shadowknight);
quest::summonitem(16270)
if ($class == Paladin);
quest::summonitem(16269)
if ($class == Cleric);
quest::summonitem(16271)
if ($class == Bard);
quest::summonitem(16268)
if ($class == Wizard);
quest::summonitem(16279)
if ($class == Necromancer);
quest::summonitem(16278)
if ($class == Magician);
quest::summonitem(16280)
if ($class == Enchanter);
quest::summonitem(16281)
}