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.
Code:
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)
{
}
}
|