Perl Issue
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.
Code:
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);
}
}
|