Perl Issue

[c0ncrete]

there are perl tutorials all over the place. it's been around since 1987 and isn't only used in the emulator.

here is the official 5.12.4 introduction.
here is a list of official, categorized 5.12.4 tutorials.

as to the problems with this script, you have an incorrectly placed closing bracket here:

      if (plugin::check_handin(\%itemcount, 150062 => 1)) {
         quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
         quest::level(1);
         quest::summonitem(150063, 1);
         quest::ding();
      }
            }

additionally, you have two else statements in the same part of your logic chain at the bottom. you can only use one.

finally, you should be using if/elsif statements in your chains, not just if statements. elsif causes the script to stop looking for matches after it finds one. in your script's case, it will continue looking at each condition, even after a match is found.

example:

sub EVENT_SAY
{
    my $ring = quest::saylink("ring", 1);
    my $one  = quest::saylink("one", 1);

    if($text=~/Hail/i) {
        quest::say("Hand me your $ring and I'll upgrade it, as long as you're Level 65.");
    }
    elsif($text=~/Ring/i) {
        quest::say("Yes, the Ring of Armageddon, do you need $one?");
    }
    elsif($text=~/One/i) {
        quest::say("Here you go, enjoy!");
        quest::summonitem(150009, 1);
    }
}