Will post more
Code:
########Kval_the_Rich (3.0 Quest Giver / Rewarder)
####Zone:Thundercrest
########
sub EVENT_SAY
{
if(($text=~/Hail/i) && ($ulevel <=79))
{
quest::say("Sorry young $class, I am afraid you are of no use to me!")
}
elsif(($text=~/Hail/i) && ($ulevel >=80))
{
quest::say("Hail, $name . Will you [assist] me with my research?");
}
if (($text=~/assist/i) && ($ulevel >=80))
{
quest::say("I've been looking for a strong $class like you that would care to assist me in my research of the godly... as in, what makes a god tick.. if you can bring me the Statue of Vyre, Ethereal Dragon Heart of your class, and Heart of the Shissar.. I will reward you with a weapon of great power I have been constructing!");
}
}
sub EVENT_ITEM
{
if ($itemcount{55985} == 1 && $itemcount{81890} == 1 && $itemcount{1118} == 1 && $class eq 'Berserker')
{
quest::summonitem (11664);
quest::shout2("Congratulations $name the $class has cleansed the world of the tainted gods and received their 3.0!");
quest::ding ();
}
elsif ($itemcount{55985} == 1 && $itemcount{81890} == 1 && $itemcount{1079} == 1 && $class eq 'Cleric')
{
quest::summonitem (22998);
quest::shout2("Congratulations $name the $class has cleansed the world of the tainted gods and received their 3.0!");
quest::ding ();
}
elsif ($itemcount{55985} == 1 && $itemcount{81890} == 1 && $itemcount{1319} == 1 && $class eq 'Druid')
{
quest::summonitem (11688);
quest::shout2("Congratulations $name the $class has cleansed the world of the tainted gods and received their 3.0!");
quest::ding ();
}
elsif ($itemcount{55985} == 1 && $itemcount{81890} == 1 && $itemcount{1261} == 1 && $class eq 'Magician')
{
quest::summonitem (11662);
quest::shout2("Congratulations $name the $class has cleansed the world of the tainted gods and received their 3.0!");
quest::ding ();
}
elsif ($itemcount{55985} == 1 && $itemcount{81890} == 1 && $itemcount{1261} == 1 && $class eq 'Necromancer')
{
quest::summonitem (11662);
quest::shout2("Congratulations $name the $class has cleansed the world of the tainted gods and received their 3.0!");
quest::ding ();
}
elsif ($itemcount{55985} == 1 && $itemcount{81890} == 1 && $itemcount{1261} == 1 && $class eq 'Enchanter')
{
quest::summonitem (11662);
quest::shout2("Congratulations $name the $class has cleansed the world of the tainted gods and received their 3.0!");
quest::ding ();
}
elsif ($itemcount{55985} == 1 && $itemcount{81890} == 1 && $itemcount{1119} == 1&& $class eq 'Monk,Beastlord')
{
quest::summonitem (2699);
quest::shout2("Congratulations $name the $class has cleansed the world of the tainted gods and received their 3.0!");
quest::ding ();
}
elsif ($itemcount{55985} == 1 && $itemcount{81890}== 1 && $itemcount{1266} == 1&& $class eq 'Rogue')
{
quest::summonitem (2595);
quest::shout2("Congratulations $name the $class has cleansed the world of the tainted gods and received their 3.0!");
quest::ding ();
}
elsif ($itemcount{55985} == 1 && $itemcount{81890}== 1 && $itemcount{1266} == 1&& $class eq 'Ranger')
{
quest::summonitem (2595);
quest::shout2("Congratulations $name the $class has cleansed the world of the tainted gods and received their 3.0!");
quest::ding ();
}
elsif ($itemcount{55985} == 1 && $itemcount{81890}== 1 && $itemcount{1266} == 1&& $class eq 'Bard')
{
quest::summonitem (2595);
quest::shout2("Congratulations $name the $class has cleansed the world of the tainted gods and received their 3.0!");
quest::ding ();
}
elsif ($itemcount{55985} == 1 && $itemcount{81890} == 1 && $itemcount{1264} == 1 && $class eq 'Shaman')
{
quest::summonitem (3374);
quest::shout2("Congratulations $name the $class has cleansed the world of the tainted gods and received their 3.0!");
quest::ding ();
}
elsif ($itemcount{55985} == 1 && $itemcount{81890} == 1 && $itemcount{9340} == 1 && $class eq 'Warrior')
{
quest::summonitem (10821);
quest::shout2("Congratulations $name the $class has cleansed the world of the tainted gods and received their 3.0!");
quest::ding ();
}
elsif ($itemcount{55985} == 1 && $itemcount{81890} == 1 && $itemcount{1096} == 1 && $class eq 'Wizard')
{
quest::summonitem (16576);
quest::exp(1);
quest::shout2("Congratulations $name the $class has cleansed the world of the tainted gods and received their 3.0!");
quest::ding ();
}
elsif ($itemcount{55985} == 1 && $itemcount{81890} == 1 && $itemcount{9340} == 1 && $class eq 'ShadowKnight')
{
quest::summonitem (10821);
quest::shout2("Congratulations $name the $class has cleansed the world of the tainted gods and received their 3.0!");
quest::ding ();
}
elsif ($itemcount{55985} == 1 && $itemcount{81890} == 1 && $itemcount{9340} == 1 && $class eq 'Paladin')
{
quest::summonitem (10821);
quest::shout2("Congratulations $name the $class has cleansed the world of the tainted gods and received their 3.0!");
quest::ding ();
}
}