Perl Issue

[kmra247]

I've been having some issues with a Perl script, and I don't know why, can anyone be of some help as there aren't many guide for Perl to my knowledge. Here's the issue, everything in sub EVENT_SAY works, but the item hand-ins don't work, please help. D: Thanks!

P.S. I don't know the appropriate section for this, would be great if you could help me with that if this isn't the correct section.

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.");
}
if($text=~/Ring/i) {
quest::say("Yes, the Ring of Armageddon, do you need $one?");
}
if($text=~/One/i) {
quest::say("Here you go, enjoy!");
quest::summonitem(150009, 1);
}
}

sub EVENT_ITEM {
if ($ulevel > 64)) {
if (plugin::check_handin(\%itemcount, 150009 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150010, 1);
quest::ding();
}
if (plugin::check_handin(\%itemcount, 150010 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150011, 1);
quest::ding();
}
if (plugin::check_handin(\%itemcount, 150011 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150012, 1);
quest::ding();
}
if (plugin::check_handin(\%itemcount, 150012 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150013, 1);
quest::ding();
}
if (plugin::check_handin(\%itemcount, 150013 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150014, 1);
quest::ding();
}
if (plugin::check_handin(\%itemcount, 150014 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150015, 1);
quest::ding();
}
if (plugin::check_handin(\%itemcount, 150015 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150016, 1);
quest::ding();
}
if (plugin::check_handin(\%itemcount, 150016 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150017, 1);
quest::ding();
}
if (plugin::check_handin(\%itemcount, 150017 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150018, 1);
quest::ding();
}
if (plugin::check_handin(\%itemcount, 150018 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150019, 1);
quest::ding();
}
if (plugin::check_handin(\%itemcount, 150019 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150020, 1);
quest::ding();
}
if (plugin::check_handin(\%itemcount, 150020 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150021, 1);
quest::ding();
}
if (plugin::check_handin(\%itemcount, 150021 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150022, 1);
quest::ding();
}
if (plugin::check_handin(\%itemcount, 150022 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150023, 1);
quest::ding();
}
if (plugin::check_handin(\%itemcount, 150023 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150024, 1);
quest::ding();
}
if (plugin::check_handin(\%itemcount, 150024 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150025, 1);
quest::ding();
}
if (plugin::check_handin(\%itemcount, 150025 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150026, 1);
quest::ding();
}
if (plugin::check_handin(\%itemcount, 150027 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150027, 1);
quest::ding();
}
if (plugin::check_handin(\%itemcount, 150027 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150028, 1);
quest::ding();
}
if (plugin::check_handin(\%itemcount, 150028 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150029, 1);
quest::ding();
}
if (plugin::check_handin(\%itemcount, 150029 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150030, 1);
quest::ding();
}
if (plugin::check_handin(\%itemcount, 150030 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150031, 1);
quest::ding();
}
if (plugin::check_handin(\%itemcount, 150031 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150032, 1);
quest::ding();
}
if (plugin::check_handin(\%itemcount, 150032 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150033, 1);
quest::ding();
}
if (plugin::check_handin(\%itemcount, 150033 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150034, 1);
quest::ding();
}
if (plugin::check_handin(\%itemcount, 150034 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150035, 1);
quest::ding();
}
if (plugin::check_handin(\%itemcount, 150035 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150036, 1);
quest::ding();
}
if (plugin::check_handin(\%itemcount, 150036 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150037, 1);
quest::ding();
}
if (plugin::check_handin(\%itemcount, 150037 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150038, 1);
quest::ding();
}
if (plugin::check_handin(\%itemcount, 150038 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");;
quest::level(1);
quest::summonitem(150039, 1);
quest::ding();
}
if (plugin::check_handin(\%itemcount, 150039 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150040, 1);
quest::ding();
}
if (plugin::check_handin(\%itemcount, 150040 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150041, 1);
quest::ding();
}
if (plugin::check_handin(\%itemcount, 150042 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150043, 1);
quest::ding();
}
if (plugin::check_handin(\%itemcount, 150043 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150044, 1);
quest::ding();
}
if (plugin::check_handin(\%itemcount, 150044 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150045, 1);
quest::ding();
}
if (plugin::check_handin(\%itemcount, 150045 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150045, 1);
quest::ding();
}
if (plugin::check_handin(\%itemcount, 150045 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150046, 1);
quest::ding();
}
if (plugin::check_handin(\%itemcount, 150046 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150047, 1);
quest::ding();
}
if (plugin::check_handin(\%itemcount, 150048 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150049, 1);
quest::ding();
}
if (plugin::check_handin(\%itemcount, 150049 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150050, 1);
quest::ding();
}
if (plugin::check_handin(\%itemcount, 150050 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150051, 1);
quest::ding();
}
if (plugin::check_handin(\%itemcount, 150051 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150052, 1);
quest::ding();
}
if (plugin::check_handin(\%itemcount, 150052 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150053, 1);
quest::ding();
}
if (plugin::check_handin(\%itemcount, 150053 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150054, 1);
quest::ding();
}
if (plugin::check_handin(\%itemcount, 150054 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150055, 1);
quest::ding();
}
if (plugin::check_handin(\%itemcount, 150055 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150056, 1);
quest::ding();
}
if (plugin::check_handin(\%itemcount, 150056 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150057, 1);
quest::ding();
}
if (plugin::check_handin(\%itemcount, 150057 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150058, 1);
quest::ding();
}
if (plugin::check_handin(\%itemcount, 150058 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150059, 1);
quest::ding();
}
if (plugin::check_handin(\%itemcount, 150059 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150060 1);
quest::ding();
}
if (plugin::check_handin(\%itemcount, 150060 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150061, 1);
quest::ding();
}
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();
}
}
if (plugin::check_handin(\%itemcount, 150063 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150064, 1);
quest::ding();
}
if (plugin::check_handin(\%itemcount, 150064 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150065, 1);
quest::ding();
}
if (plugin::check_handin(\%itemcount, 150065 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150066, 1);
quest::ding();
}
if (plugin::check_handin(\%itemcount, 150066 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150067, 1);
quest::ding();
}
if (plugin::check_handin(\%itemcount, 150067 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150068, 1);
quest::ding();
}
if (plugin::check_handin(\%itemcount, 150068 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150069, 1);
quest::ding();
}
if (plugin::check_handin(\%itemcount, 150069 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150070, 1);
quest::ding();
}
if (plugin::check_handin(\%itemcount, 150070 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150071, 1);
quest::ding();
}
if (plugin::check_handin(\%itemcount, 150071 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150072, 1);
quest::ding();
}
if (plugin::check_handin(\%itemcount, 150072 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150073, 1);
quest::ding();
}
if (plugin::check_handin(\%itemcount, 150073 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150074, 1);
quest::ding();
}
if (plugin::check_handin(\%itemcount, 150074 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150075, 1);
quest::ding();
}
if (plugin::check_handin(\%itemcount, 150075 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150076, 1);
quest::ding();
}
if (plugin::check_handin(\%itemcount, 150076 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150077, 1);
quest::ding();
}
if (plugin::check_handin(\%itemcount, 150077 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150078, 1);
quest::ding();
}
if (plugin::check_handin(\%itemcount, 150078 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150079, 1);
quest::ding();
}
if (plugin::check_handin(\%itemcount, 150079 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150080, 1);
quest::ding();
}
if (plugin::check_handin(\%itemcount, 150080 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150081, 1);
quest::ding();
}
if (plugin::check_handin(\%itemcount, 150081 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150082, 1);
quest::ding();
}
if (plugin::check_handin(\%itemcount, 150082 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150083, 1);
quest::ding();
}
if (plugin::check_handin(\%itemcount, 150083 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150084, 1);
quest::ding();
}
if (plugin::check_handin(\%itemcount, 150084 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150085, 1);
quest::ding();
}
if (plugin::check_handin(\%itemcount, 150085 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150086, 1);
quest::ding();
}
if (plugin::check_handin(\%itemcount, 150086 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150087, 1);
quest::ding();
}
if (plugin::check_handin(\%itemcount, 150087 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150088, 1);
quest::ding();
}
if (plugin::check_handin(\%itemcount, 150088 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150089, 1);
quest::ding();
}
if (plugin::check_handin(\%itemcount, 150089 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150090, 1);
quest::ding();
}
if (plugin::check_handin(\%itemcount, 150090 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150091, 1);
quest::ding();
}
if (plugin::check_handin(\%itemcount, 150091 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");;
quest::level(1);
quest::summonitem(150092, 1);
quest::ding();
}
if (plugin::check_handin(\%itemcount, 150092 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150093, 1);
quest::ding();
}
if (plugin::check_handin(\%itemcount, 150093 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150094, 1);
quest::ding();
}
if (plugin::check_handin(\%itemcount, 150094 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150095, 1);
quest::ding();
}

if (plugin::check_handin(\%itemcount, 150095 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150096, 1);
quest::ding();
}
if (plugin::check_handin(\%itemcount, 150096 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");;
quest::level(1);
quest::summonitem(150097, 1);
quest::ding();
}
if (plugin::check_handin(\%itemcount, 150098 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150099, 1);
quest::ding();
}
if (plugin::check_handin(\%itemcount, 150099 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150100, 1);
quest::ding();
}
if (plugin::check_handin(\%itemcount, 150100 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150101, 1);
quest::ding();
}

if (plugin::check_handin(\%itemcount, 150101 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150102, 1);
quest::ding();
}
if (plugin::check_handin(\%itemcount, 150102 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150103, 1);
quest::ding();
}
if (plugin::check_handin(\%itemcount, 150103 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150104, 1);
quest::ding();
}
if (plugin::check_handin(\%itemcount, 150104 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150105, 1);
quest::ding();
}
if (plugin::check_handin(\%itemcount, 150105 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150106, 1);
quest::ding();
}
if (plugin::check_handin(\%itemcount, 150106 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150107, 1);
quest::ding();
}
if (plugin::check_handin(\%itemcount, 150107 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150108, 1);
quest::ding();
}
}

else {
quest::say("I have no need for this, $name.");
plugin::return_items(\%itemcount);
}
else {
quest::say("You're not level 65 yet, $name.");
plugin::return_items(\%itemcount);
}
}

[joligario]

Just a quick glance as I don't have a lot of time, I see and extra close parenthesis in your event item (first line).

[c0ncrete]

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

here (http://perldoc.perl.org/5.12.4/perlintro.html) is the official 5.12.4 introduction.
here (http://perldoc.perl.org/5.12.4/index-tutorials.html) 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);
}
}

[c0ncrete]

Just a quick glance as I don't have a lot of time, I see and extra close parenthesis in your event item (first line).

i missed that one. :)

also, you can run your scripts from the command line like this to help find syntax errors:

perl -c scriptname.pl

[sorvani]

And take the return items out of the logic block that is the incorrect usage of it.
else {
quest::say("You're not level 65 yet, $name.");
}
plugin::return_items(\%itemcount);

[kmra247]

And take the return items out of the logic block that is the incorrect usage of it.
else {
quest::say("You're not level 65 yet, $name.");
}
plugin::return_items(\%itemcount);

Okay, where you said that is the incorrect usage, it also shows up in Vanilla scripts such as Guard_Vyrinn.pl. I don't see any other way for me to return their items if they're not the correct level or it's not the correct item.

Edit: All the NPC does when I hand him items is eat them, he doesn't reset my level or anything. Here's the revised script.

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);
}
}

sub EVENT_ITEM {
if ($ulevel > 64) {
if (plugin::check_handin(\%itemcount, 150009 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150010, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150010 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150011, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150011 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150012, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150012 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150013, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150013 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150014, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150014 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150015, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150015 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150016, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150016 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150017, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150017 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150018, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150018 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150019, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150019 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150020, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150020 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150021, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150021 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150022, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150022 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150023, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150023 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150024, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150024 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150025, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150025 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150026, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150027 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150027, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150027 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150028, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150028 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150029, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150029 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150030, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150030 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150031, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150031 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150032, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150032 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150033, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150033 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150034, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150034 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150035, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150035 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150036, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150036 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150037, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150037 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150038, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150038 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");;
quest::level(1);
quest::summonitem(150039, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150039 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150040, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150040 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150041, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150042 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150043, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150043 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150044, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150044 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150045, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150045 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150045, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150045 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150046, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150046 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150047, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150048 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150049, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150049 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150050, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150050 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150051, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150051 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150052, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150052 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150053, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150053 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150054, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150054 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150055, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150055 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150056, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150056 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150057, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150057 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150058, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150058 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150059, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150059 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150060 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150060 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150061, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150061 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150062, 1);
quest::ding();
}
elsif (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();
}
elsif (plugin::check_handin(\%itemcount, 150063 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150064, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150064 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150065, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150065 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150066, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150066 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150067, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150067 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150068, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150068 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150069, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150069 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150070, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150070 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150071, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150071 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150072, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150072 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150073, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150073 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150074, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150074 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150075, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150075 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150076, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150076 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150077, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150077 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150078, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150078 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150079, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150079 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150080, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150080 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150081, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150081 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150082, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150082 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150083, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150083 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150084, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150084 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150085, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150085 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150086, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150086 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150087, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150087 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150088, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150088 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150089, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150089 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150090, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150090 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150091, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150091 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");;
quest::level(1);
quest::summonitem(150092, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150092 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150093, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150093 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150094, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150094 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150095, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150095 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150096, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150096 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");;
quest::level(1);
quest::summonitem(150097, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150098 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150099, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150099 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150100, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150100 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150101, 1);
quest::ding();
}

elsif (plugin::check_handin(\%itemcount, 150101 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150102, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150102 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150103, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150103 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150104, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150104 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150105, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150105 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150106, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150106 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150107, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150107 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150108, 1);
quest::ding();
}

else {
quest::say("You're not level 65 yet, $name.");
plugin::return_items(\%itemcount);
}
}


#zone: tutorialb
#npc: Guard Vyrinn (Beginner Missions)
#quest:
# - Spider Caves - taskid:28 - starts
# - Spider Tamer Gugan - taskid:29 - starts/completes
# - Arachnophobia (Group) - taskid:33 - starts

sub EVENT_SAY {
if($text=~/Hail/i) {
quest::say("My mate, Rahtiz, and I will hold this position. We need you to explore the tunnels beyond.");
quest::taskselector(28,29,33);
}
}

sub EVENT_ITEM {
if (quest::istaskactivityactive(29,1)) {
if (plugin::check_handin(\%itemcount, 54604 => 1)) {
#Gloomingdeep Violet
quest::say("Well done, my friend. You have probably saved many lives.");
quest::updatetaskactivity(29,1);
quest::exp(12000);
quest::ding();
}
else {
quest::say("I have no need for this, $name.");
plugin::return_items(\%itemcount);
}
}
else {
quest::say("I have no need for this, $name.");
plugin::return_items(\%itemcount);
}
}

[lerxst2112]

As was suggested before, you have tools available to make sure your script is syntactically correct first before worring about whether the logic is correct.


C:\Temp>perl -c t.pl
Number found where operator expected at t.pl line 317, near "150060 1"
(Missing operator before 1?)
syntax error at t.pl line 317, near "150060 1"
Missing right curly or square bracket at t.pl line 608, at end of line
syntax error at t.pl line 608, at EOF
t.pl had compilation errors.


There are 104 { characters, and 103 } characters. You can use the Notepad++ count feature to see this easily. I'll leave you to figure out where you have a mismatch.

[joligario]

When Sorvani says that it is incorrect usage - he means it is now incorrect. The plugin was changed recently, but all the quests that operated with this method have not yet been changed.

[kmra247]

As was suggested before, you have tools available to make sure your script is syntactically correct first before worring about whether the logic is correct.


C:\Temp>perl -c t.pl
Number found where operator expected at t.pl line 317, near "150060 1"
(Missing operator before 1?)
syntax error at t.pl line 317, near "150060 1"
Missing right curly or square bracket at t.pl line 608, at end of line
syntax error at t.pl line 608, at EOF
t.pl had compilation errors.


There are 104 { characters, and 103 } characters. You can use the Notepad++ count feature to see this easily. I'll leave you to figure out where you have a mismatch.

I took your advice, found the mistake, hopefully this is better, haven't tested it yet.
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);
}
}

sub EVENT_ITEM {
if ($ulevel > 64) {
if (plugin::check_handin(\%itemcount, 150009 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150010, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150010 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150011, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150011 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150012, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150012 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150013, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150013 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150014, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150014 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150015, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150015 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150016, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150016 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150017, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150017 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150018, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150018 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150019, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150019 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150020, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150020 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150021, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150021 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150022, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150022 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150023, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150023 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150024, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150024 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150025, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150025 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150026, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150027 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150027, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150027 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150028, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150028 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150029, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150029 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150030, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150030 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150031, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150031 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150032, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150032 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150033, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150033 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150034, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150034 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150035, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150035 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150036, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150036 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150037, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150037 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150038, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150038 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");;
quest::level(1);
quest::summonitem(150039, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150039 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150040, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150040 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150041, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150042 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150043, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150043 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150044, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150044 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150045, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150045 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150045, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150045 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150046, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150046 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150047, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150048 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150049, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150049 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150050, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150050 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150051, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150051 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150052, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150052 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150053, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150053 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150054, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150054 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150055, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150055 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150056, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150056 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150057, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150057 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150058, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150058 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150059, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150059 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150060, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150060 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150061, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150061 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150062, 1);
quest::ding();
}
elsif (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();
}
elsif (plugin::check_handin(\%itemcount, 150063 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150064, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150064 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150065, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150065 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150066, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150066 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150067, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150067 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150068, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150068 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150069, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150069 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150070, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150070 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150071, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150071 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150072, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150072 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150073, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150073 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150074, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150074 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150075, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150075 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150076, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150076 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150077, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150077 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150078, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150078 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150079, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150079 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150080, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150080 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150081, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150081 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150082, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150082 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150083, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150083 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150084, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150084 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150085, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150085 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150086, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150086 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150087, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150087 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150088, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150088 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150089, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150089 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150090, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150090 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150091, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150091 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");;
quest::level(1);
quest::summonitem(150092, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150092 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150093, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150093 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150094, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150094 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150095, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150095 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150096, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150096 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");;
quest::level(1);
quest::summonitem(150097, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150098 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150099, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150099 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150100, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150100 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150101, 1);
quest::ding();
}

elsif (plugin::check_handin(\%itemcount, 150101 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150102, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150102 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150103, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150103 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150104, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150104 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150105, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150105 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150106, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150106 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150107, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150107 => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150108, 1);
quest::ding();
}

else {
quest::say("You're not level 65 yet, $name.");
}
plugin::return_items(\%itemcount); {
}

[lerxst2112]

Now there are 105 { and 103 }. You're headed in the right direction for sure.

[sorvani]

When Sorvani says that it is incorrect usage - he means it is now incorrect. The plugin was changed recently, but all the quests that operated with this method have not yet been changed.

Actually, the return items check was always supposed to be outside of any if block by design. The items in the hash are removed by the check_handin if the logic passed to it is true.
So regardless of whether or not there is anything left in the hash, you call the return_items at the end of the EVENT_ITEM and it will appropriately return anything not used up.
The recent changes to this plugin do not affect this basic design. The recent changes were to let the plugin support the new multi-quest functionality built into the NPC's..

Edit: Post from 2009 on the subject: http://www.eqemulator.org/forums/showpost.php?p=181254&postcount=3

Basically all the vanilla quests are wrong. Granted for almost all basic quest logic there con ONLY be an if and else. But a lot of the quests will eat extra items because of this.

[kmra247]

Here's the re-revised code, I put a plugin for the return items, and an if statement after, hope this is better. D:

Edit: I also added "my $roa = $item(150009);" because I wanted to test whether or not that was how to make an NPC link an item, I am fairly new to Perl, any help or feedback is greatly appreciated.


sub EVENT_SAY {

my $ring = quest::saylink("ring", 1);
my $one = quest::saylink("one", 1);
my $roa = $item(150009);

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 $roa, do you need $one?");
}
elsif($text=~/One/i) {
quest::say("Here you go, enjoy!");
quest::summonitem(150009, 1);
}
}

sub EVENT_ITEM {
if ($ulevel > 64) {
if (plugin::check_handin(\%itemcount, 150009 > 0)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150010, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150010 > 0)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150011, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150011 > 0)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150012, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150012 > 0)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150013, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150013 > 0)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150014, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150014 > 0)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150015, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150015 > 0)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150016, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150016 > 0)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150017, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150017 > 0)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150018, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150018 > 0)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150019, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150019 > 0)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150020, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150020 > 0)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150021, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150021 > 0)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150022, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150022 > 0)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150023, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150023 > 0)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150024, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150024 > 0)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150025, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150025 > 0)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150026, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150027 > 0)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150027, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150027 > 0)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150028, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150028 > 0)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150029, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150029 > 0)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150030, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150030 > 0)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150031, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150031 > 0)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150032, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150032 > 0)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150033, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150033 > 0)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150034, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150034 > 0)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150035, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150035 > 0)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150036, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150036 > 0)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150037, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150037 > 0)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150038, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150038 > 0)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");;
quest::level(1);
quest::summonitem(150039, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150039 > 0)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150040, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150040 > 0)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150041, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150042 > 0)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150043, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150043 > 0)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150044, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150044 > 0)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150045, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150045 > 0)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150045, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150045 > 0)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150046, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150046 > 0)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150047, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150048 > 0)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150049, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150049 > 0)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150050, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150050 > 0)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150051, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150051 > 0)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150052, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150052 > 0)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150053, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150053 > 0)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150054, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150054 > 0)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150055, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150055 > 0)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150056, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150056 > 0)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150057, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150057 > 0)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150058, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150058 > 0)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150059, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150059 > 0)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150060, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150060 > 0)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150061, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150061 > 0)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150062, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150062 > 0)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150063, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150063 > 0)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150064, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150064 > 0)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150065, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150065 > 0)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150066, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150066 > 0)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150067, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150067 > 0)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150068, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150068 > 0)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150069, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150069 > 0)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150070, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150070 > 0)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150071, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150071 > 0)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150072, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150072 > 0)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150073, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150073 > 0)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150074, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150074 > 0)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150075, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150075 > 0)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150076, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150076 > 0)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150077, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150077 > 0)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150078, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150078 > 0)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150079, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150079 > 0)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150080, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150080 > 0)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150081, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150081 > 0)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150082, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150082 > 0)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150083, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150083 > 0)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150084, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150084 > 0)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150085, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150085 > 0)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150086, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150086 > 0)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150087, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150087 > 0)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150088, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150088 > 0)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150089, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150089 > 0)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150090, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150090 > 0)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150091, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150091 > 0)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");;
quest::level(1);
quest::summonitem(150092, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150092 > 0)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150093, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150093 > 0)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150094, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150094 > 0)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150095, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150095 > 0)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150096, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150096 > 0)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");;
quest::level(1);
quest::summonitem(150097, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150098 > 0)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150099, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150099 > 0)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150100, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150100 > 0)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150101, 1);
quest::ding();
}

elsif (plugin::check_handin(\%itemcount, 150101 > 0)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150102, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150102 > 0)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150103, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150103 > 0)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150104, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150104 > 0)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150105, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150105 > 0)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150106, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150106 > 0)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150107, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150107 > 0)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150108, 1);
quest::ding();
}
plugin::return_items(\%itemcount);
if($ulevel < 65)
{
}
}

[Caryatis]

google "loop" for a brick shitting.

[sorvani]

geez, open a command prompt and change to your quest directory. type perl -c filename.pl and fix what it says is broke... here i fixed it.

Here is the wiki to saylink (http://www.eqemulator.net/wiki/wikka.php?wakka=SayLink).. search is that hard?

sub EVENT_SAY {

my $ring = quest::saylink("ring", 1);
my $one = quest::saylink("one", 1);
#this will not compile are you trying to display the item name?
#my $roa = $item(150009);
my $roa = "Ring of uberness";

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 $roa, do you need $one?");
}
elsif($text=~/One/i) {
quest::say("Here you go, enjoy!");
quest::summonitem(150009, 1);
}
}

sub EVENT_ITEM {
if ($ulevel > 64) {
if (plugin::check_handin(\%itemcount, 150009 > 0)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150010, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150010 > 0)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150011, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150011 > 0)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150012, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150012 > 0)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150013, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150013 > 0)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150014, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150014 > 0)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150015, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150015 > 0)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150016, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150016 > 0)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150017, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150017 > 0)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150018, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150018 > 0)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150019, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150019 > 0)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150020, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150020 > 0)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150021, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150021 > 0)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150022, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150022 > 0)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150023, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150023 > 0)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150024, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150024 > 0)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150025, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150025 > 0)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150026, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150027 > 0)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150027, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150027 > 0)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150028, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150028 > 0)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150029, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150029 > 0)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150030, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150030 > 0)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150031, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150031 > 0)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150032, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150032 > 0)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150033, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150033 > 0)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150034, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150034 > 0)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150035, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150035 > 0)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150036, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150036 > 0)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150037, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150037 > 0)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150038, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150038 > 0)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");;
quest::level(1);
quest::summonitem(150039, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150039 > 0)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150040, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150040 > 0)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150041, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150042 > 0)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150043, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150043 > 0)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150044, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150044 > 0)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150045, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150045 > 0)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150045, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150045 > 0)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150046, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150046 > 0)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150047, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150048 > 0)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150049, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150049 > 0)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150050, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150050 > 0)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150051, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150051 > 0)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150052, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150052 > 0)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150053, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150053 > 0)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150054, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150054 > 0)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150055, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150055 > 0)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150056, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150056 > 0)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150057, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150057 > 0)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150058, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150058 > 0)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150059, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150059 > 0)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150060, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150060 > 0)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150061, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150061 > 0)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150062, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150062 > 0)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150063, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150063 > 0)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150064, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150064 > 0)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150065, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150065 > 0)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150066, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150066 > 0)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150067, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150067 > 0)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150068, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150068 > 0)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150069, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150069 > 0)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150070, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150070 > 0)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150071, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150071 > 0)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150072, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150072 > 0)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150073, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150073 > 0)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150074, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150074 > 0)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150075, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150075 > 0)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150076, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150076 > 0)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150077, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150077 > 0)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150078, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150078 > 0)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150079, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150079 > 0)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150080, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150080 > 0)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150081, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150081 > 0)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150082, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150082 > 0)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150083, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150083 > 0)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150084, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150084 > 0)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150085, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150085 > 0)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150086, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150086 > 0)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150087, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150087 > 0)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150088, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150088 > 0)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150089, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150089 > 0)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150090, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150090 > 0)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150091, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150091 > 0)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");;
quest::level(1);
quest::summonitem(150092, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150092 > 0)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150093, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150093 > 0)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150094, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150094 > 0)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150095, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150095 > 0)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150096, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150096 > 0)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");;
quest::level(1);
quest::summonitem(150097, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150098 > 0)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150099, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150099 > 0)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150100, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150100 > 0)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150101, 1);
quest::ding();
}

elsif (plugin::check_handin(\%itemcount, 150101 > 0)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150102, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150102 > 0)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150103, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150103 > 0)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150104, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150104 > 0)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150105, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150105 > 0)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150106, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150106 > 0)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150107, 1);
quest::ding();
}
elsif (plugin::check_handin(\%itemcount, 150107 > 0)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
quest::summonitem(150108, 1);
quest::ding();
}
else {
#do something here if you want.
} #this is the end of the if check_handin block
} #this is the end of the if 64 block
else {
quest::say("You're not level 65 yet, $name.");
}
plugin::return_items(\%itemcount);
}

[sorvani]

google "loop" for a brick shitting.

but that would be too easy

[kmra247]

I don't see the need to be rude, as I said, I'm new to Perl, I apologize for not knowing everything. But in the saylink, I didn't want him to say "Ring of Armageddon" in purple text and make you click on it, I wanted him to link the item to where you could click on it and see the stats. Like a person linking an item in /ooc and you click on it, except an NPC. But, I guess I can Google it...

Edit: I found the thing it would be "my $roa = quest::varlink(150009);". Thanks to everyone who helped.

[sorvani]

i balance my helpfulness. you were told multiple times how to check your perl script for syntax errors. You apparently never did it based on the errors in the last one you posted.
That said I still fixed your script. What Cary is referring to is your script is horribly long and repetitive with the only thing changing being an incrementing number. That is the classic best case for a FOR loop. your entire check_handin logic section could shrink to about 15 lines of code.

[c0ncrete]

here's an (untested except for syntax) example of how looping could greatly reduce your code, and due to that, the chance of syntax errors. i added comments directing you to information in the perl documentation (which i sent you links to in my first response) that applies to what i have done here.


# subroutines covered @ http://perldoc.perl.org/5.12.4/perlsub.html
sub customRoutine {
# private variables covered @ http://perldoc.perl.org/5.12.4/perlsub.html#Private-Variables-via-my%28%29
my $itemcount = shift;
# lists covered @ http://perldoc.perl.org/5.12.4/perldata.html#List-value-constructors
# range operator covered @ http://perldoc.perl.org/5.12.4/perlop.html#Range-Operators
my @validitems = (150009..150107);
# foreach loop covered @ http://perldoc.perl.org/5.12.4/perlsyn.html#Foreach-Loops
foreach my $itemid (@validitems) {
# note: $itemcount is already a hashref, so we don't pass it like we did before
if (plugin::check_handin($itemcount, $itemid => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
# your reward item always seemed to be the itemid of the handin +1, so this does that
quest::summonitem($itemid+1, 1);
quest::ding();
}
}
}

sub EVENT_ITEM {
if ($ulevel > 64) {
# pass by reference covered @ http://perldoc.perl.org/5.12.4/perlsub.html#Pass-by-Reference
customRoutine(\%itemcount);
}
else {
quest::say("You're not level 65 yet, $name.");
}
plugin::return_items(\%itemcount);
}

[Zamthos]

This was almost two months ago, no need to necro old posts. ;D

[c0ncrete]

if you haven't caught on yet, he's simply parroting exactly what someone else has said in the thread. :p

[Zamthos]

Yeah, I noticed, haha.