EQEmulator Forums - Upgraded Absor

Here is a little informal mod I did of the Absor NPC in Angelox's new tutorialb. You can turn in bladed rusty weapons and a bronze bar to get a tarnished version, also there is a two-handed bronze sword quest in there too.
Code:
#zone: tutorialb

#Revised Angelox and CrabClaw's Upgraded Absor v1.1 mod



sub EVENT_SAY{

  if ($text=~/hail/i){quest::say("Weapons are one of your main forms of combat. And a faster weapon can make the battle go in your favor. While helping out here , I found enough stones to sharpen weapons. If youd like I can sharpen your's , simply hand it to me. Although, if you get me some raw materials I can do much [better]!");

 }elsif ($text=~/better/i){quest::say("I can repair any rusty bladed weapon if you bring it to me with a chunk of bronze, such as a Short Sword, Long Sword and the like. The kobolds are the ones you seek for the bronze, those greedy vermin have a particular eye for shiny metal ignots.  Given even more resources, I can forge you a very nice [Two Hander].");

 }elsif ($text=~/Two Hander/i){quest::say("Interested in a weapon of real power are ya? Well it be not an easy task but get me a chunk of iron, a chunk of bronze and a Tarnished Two Handed Sword and I can forge you a mighty sword that will make you the envy of all others! Now go forth and seek said materials adventurer!");

 }

}



sub EVENT_ITEM{

  if ($item1==9997){

    quest::summonitem(7021);

    quest::say("This will do just fine. Now let me see... Ah ha! There we go. Take this and give those kobolds a sound strike on the head!");

  }elsif ($item1==9998){

    quest::summonitem(5042);

    quest::say("This will do just fine. Now let me see... Ah ha! There we go. Take this and give those kobolds a sound strike on the head!");

  }elsif ($item1==9999){

    quest::summonitem(6030);

    quest::say("This will do just fine. Now let me see... Ah ha! There we go. Take this and give those kobolds a sound strike on the head!");

  }elsif ($item1==55623){

    quest::summonitem(5071);

    quest::say("This will do just fine. Now let me see... Ah ha! There we go. Take this and give those kobolds a sound strike on the head!");

  }elsif ($itemcount{54229} == 1 && $itemcount{5013} == 1){

    quest::say("Now let me see... Ah ha! Here ya go! A much better Short Sword to help fend off those nasties!");

    quest::summonitem(5042);

  }elsif ($itemcount{54229} == 1 && $itemcount{5014} == 1){

    quest::say("Now let me see... Ah ha! Here ya go! A spiffy, repaired Axe to aid you in your adventures!");

    quest::summonitem(5043);

  }elsif ($itemcount{54229} == 1 && $itemcount{5015} == 1){

    quest::say("Now let me see... Ah ha! Here ya go! Here's a much sharper Scythe!");

    quest::summonitem(5049);

  }elsif ($itemcount{54229} == 1 && $itemcount{5016} == 1){

    quest::say("Now let me see... Ah ha! Here ya go! A mighty Broad Sword!");

    quest::summonitem(5044);

  }elsif ($itemcount{54229} == 1 && $itemcount{5019} == 1){

    quest::say("Now let me see... Ah ha! Here ya go! A refurbished Long Sword to help fend off those nasties!");

    quest::summonitem(5045);

  }elsif ($itemcount{54229} == 1 && $itemcount{5020} == 1){

    quest::say("Now let me see... Ah ha! Here ya go! A powerful Battle Axe to help defeat your foes!");

    quest::summonitem(5046);

  }elsif ($itemcount{54229} == 1 && $itemcount{5021} == 1){

    quest::say("Now let me see... Ah ha! Here ya go! A new Scimitar to help fend off those nasties!");

    quest::summonitem(5047);

  }elsif ($itemcount{54229} == 1 && $itemcount{5022} == 1){

    quest::say("Now let me see... Ah ha! Here ya go! A refurbished Bastard Sword to help fend off those nasties!");

    quest::summonitem(5048);

  }elsif ($itemcount{54229} == 1 && $itemcount{5023} == 1){

    quest::say("Now let me see... Ah ha! Here ya go! A powerful Two-Handed Sword to help fend off those nasties!");

    quest::summonitem(5070);

  }elsif ($itemcount{54229} == 1 && $itemcount{5024} == 1){

    quest::say("Now let me see... Ah ha! Here ya go! A mighty Halberd to help fend off those vermin!");

    quest::summonitem(5071);

  }elsif ($itemcount{54229} == 1 && $itemcount{59954} == 1 && $itemcount{5070} == 1){

    quest::say("Now let me see... Ah ha! Here ya go! A mighty Two Hander to conquer those vermin!");

    quest::summonitem(5030);

 }

}