I'm trying to implement a large number of EQLive quests for a legit, custom content server that still operates off the base zones. Here's the Quest for Elemental / Ornate Armors...just in case anyone wants it =)
Code:
#Zone - Plane of Tranquility (203, Potranquility)
#Mob - Bor Wharhammer (Dwarf, Level 60)
#Quest - Ornate/Elemental Armor
sub EVENT_SAY
{
if($text=~ /Hail/i)
{
quest::Say("Greetin's t'ye $name! Isn't the area 'round 'ere so nice
an' quiet? Suc a departure form 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
fround in the planes.");
}
if($text=~ /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
an' will throw in with the price. The kit acts as a focal point fer the wild magic energy o'the
Planes. Ye will only be able t'use each emblem an' kit once when ye create the piece,
'owever I dinnae be goin' anywhere soon! Just venture back when ye need another an'
dinnae ferget the coin!")
}
if($text=~ /planar armors/i)
{
quest::say("From me understanding, the very fabric o'the planes is so
strong out 'ere, it can be found in raw form the deeper ye traverse. Anyone who ventures
far into the planes finds that they must wear excellent armor t'protect them from the savage
environment. The very essence of planar energy can be focused into a form that can fit our
shape. As ye progress deeper into the planes, ye will find many molds an' patterns with
which t'base a set o'armor. If ye want t'know 'ow t'craft the various types o'armor, I can
instruct ye about plate, chain, leather an' silk.")
}
if($text=~ /chain/i)
{
quest::say("Ahhhhh $name! Chain armors, while not as sturdy as
plate, provide so much more mobility if constructed properly. T'construct a piece o'chain
armor, ye need t'combine a chain pattern, an emblem, various amounts of ethereal metal
rings an' use one o'those crafty Tanaan smithin' 'ammers all within a furnace touched by
Ro. Ethereal metal ring construction is another matter. Ye will need to combine a brick
o'ethereal energy, an ethereal temper an' a file within a Tanaan forge. I would seek a
skilled craftsperson t'make the rings fer ye; the emblem will enable ye t'craft the final armor
piece no matter what yer skill be.");
}
if($text=~ /plate/i)
{
quest::say("Ahhhhh $name! The fine rigid armor that can stop a shaft
from piercing yer heart! Too bad it be so cumbersome an' difficult t'move about in. To
construct a piece o'plate armor, ye need t'combine a plate mold, an emblem, various
amounts o'sheet metal an' use one o'those crafty Tanaan smithin' 'ammers all within a
furnace touched by Ro. Ethereal metal sheet construction is another matter. Ye will need
t'combine two bricks o'ethereal energy, an ethereal temper an' a Tanaan smithin' 'ammer
within a Tanaan forge. I would seek a skilled craftsperson t'make the metal sheets fer ye;
the emblem will enable ye t'craft the final armor piece no matter what yer skill be.");
}
if($text=~ /silk/i)
{
quest::say("'Har! It be quite funny that we be referin' t'silk as armor, fer
the amount o'protection it provides be miniscule at best. The planar armor made from
strands o'ether can still be quite useful fer its magical properties, 'owever. Ye will need
t'take up a Tanaan embroidery needle, a pattern, an emblem an' various amounts o'ether
silk swatches t'create a piece. Craft it all within a sewing kit boilin' with magical energy");
}
if($text=~ /swatches/i)
{
quest::say("T'make a swatch, ye need t'combine two strands o'ether
along with a curing agent in a Tanaan loom. Ye will need t'seek a skilled brew master
t'make the curing agent fer ye. Just 'ave them create it by using two celestial essences,
soda an' paeala sap");
}
if($text=~ /leather/i)
{
quest::say("Leather armor provides little protection due t'the make-up
o'the materials. We shall do our best, 'owever, t'see ye make a quality piece. T'do so, ye
must combine a pattern, an emblem, various pieces o'cured ethereal energy an' a Tanaan
embroidery needle all within a sewing kit boilin' with magical energy. The cured energy
may be problematic fer an unskilled craftsman, 'owever. Just sew two silk ethereal
swatches together using a Tanaan embroidery needle within a Tanaan loom. I can just
imagine yer next question t'be about swatches, aye?");
}
}
sub EVENT_ITEM
{
if($platinum == 500)
{
if($class == Warrior || $class == Paladin || $class == Shadowknight ||
$class == Cleric || $class == Bard || $class == Berserker || $class == Ranger || $class ==
Shaman || $class == Rogue)
{
quest::say("Wonderful! This coin will go towards me fines
with the Myrist library. They charge quite a bit fer overdue volumes! 'ere be yer emblem an'
a kit in which ye may craft planar armor. The kit only 'as enough magical energy t'craft one
piece before the energies expire, be sure ye understand. May the armor ye make with it
provide ye with much protection.");
quest::summonitem(MysticalFurnaceofRo);
}
if($class == Monk || $class == Beastlord || $class == Druid || $class
== Wizard || $class == Enchanter || $class == Magician || $class = Necromancer)
{
quest::say("Wonderful! This coin will go towards me fines
with the Myrist library. They charge quite a bit fer overdue volumes! 'ere be yer emblem an'
a kit in which ye may craft planar armor. The kit only 'as enough magical energy t'craft one
piece before the energies expire, be sure ye understand. May the armor ye make with it
provide ye with much protection.");
quest::summointem(DruzzilMysticalSewingKit);
}
if($class == Warrior)
{
quest::summonitem(WarriorEmblem);
}
if($class == Paladin)
{
quest::summonitem(PaladinEmblem);
}
if($class == Shadowknight)
{
quest::summonitem(ShadowKnightEmblem);
}
if($class == Cleric)
{
quest::summonitem(ClericEmblem);
}
if($class == Bard)
{
quest::summonitem(BardEmblem);
}
if($class == Berserker)
{
quest::summonitem(BerserkerEmblem);
}
if($class == Ranger)
{
quest:summonitem(RangerEmblem);
}
if($class == Rogue)
{
quest::summonitem(RogueEmblem);
}
if($class == Shaman)
{
quest::summonitem(ShamanEmblem);
}
if($class == Monk)
{
quest::summonitem(MonkEmblem);
}
if($class == Beastlord)
{
quest::summonitem(BeastlordEmblem);
}
if($class == Druid)
{
quest::summonitem(DruidEmblem);
}
if($class == Enchanter)
{
quest::summonitem(EnchanterEmblem);
}
if($class == Magician)
{
quest::summonitem(MagicianEmblem);
}
if($class == Wizard)
{
quest::summonitem(WizardEmblem);
}
if($class == Necromancer)
{
quest::summonitem(NecromancerEmblem);
}
}
}
Replace all the Words in the summonitem blocks with the item IDS of your items...if you hafta make them and such.
As far as i know there are no bugs in that, but lemme know if you find one =).
Ornate/Elemental Armor Quest
Threaded Mode
