|
|
|
 |
|
|
 |
|
 |
 |
|
 |
 |
|
 |
|
| Quests::Q&A This is the quest support section |
 |
|
 |
12-03-2012, 07:41 AM
|
|
Sarnak
|
|
Join Date: Apr 2012
Posts: 55
|
|
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);
}
}
|
 |
|
 |
12-03-2012, 08:48 AM
|
 |
Developer
|
|
Join Date: Mar 2003
Posts: 1,490
|
|
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).
|
|
|
|
12-03-2012, 08:58 AM
|
 |
Dragon
|
|
Join Date: Dec 2009
Posts: 719
|
|
there are perl tutorials all over the place. it's been around since 1987 and isn't only used in the emulator.
here is the official 5.12.4 introduction.
here is a list of official, categorized 5.12.4 tutorials.
as to the problems with this script, you have an incorrectly placed closing bracket here:
Code:
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:
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.");
}
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);
}
}
Last edited by c0ncrete; 12-03-2012 at 09:28 AM..
Reason: added perl tuorial links
|
|
|
|
12-03-2012, 09:00 AM
|
|
Dragon
|
|
Join Date: Dec 2009
Posts: 719
|
|
Quote:
Originally Posted by 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).
|
i missed that one. 
also, you can run your scripts from the command line like this to help find syntax errors:
Code:
perl -c scriptname.pl
|
12-03-2012, 10:45 AM
|
|
Dragon
|
|
Join Date: May 2010
Posts: 966
|
|
And take the return items out of the logic block that is the incorrect usage of it.
Code:
else {
quest::say("You're not level 65 yet, $name.");
}
plugin::return_items(\%itemcount);
|
|
|
|
12-04-2012, 06:16 AM
|
|
Sarnak
|
|
Join Date: Apr 2012
Posts: 55
|
|
Quote:
Originally Posted by sorvani
And take the return items out of the logic block that is the incorrect usage of it.
Code:
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.
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.");
}
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);
}
}
Code:
#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);
}
}
Last edited by kmra247; 12-04-2012 at 06:28 AM..
Reason: Decided not to double post.
|
|
|
|
12-04-2012, 06:34 AM
|
|
Demi-God
|
|
Join Date: Aug 2010
Posts: 1,743
|
|
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.
Code:
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. |
12-04-2012, 06:57 AM
|
|
Developer
|
|
Join Date: Mar 2003
Posts: 1,490
|
|
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.
|
|
|
|
12-04-2012, 07:51 AM
|
|
Sarnak
|
|
Join Date: Apr 2012
Posts: 55
|
|
Quote:
Originally Posted by 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.
Code:
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.
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.");
}
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); {
}
|
|
|
|
12-04-2012, 08:29 AM
|
|
Demi-God
|
|
Join Date: Aug 2010
Posts: 1,743
|
|
Now there are 105 { and 103 }. You're headed in the right direction for sure.
|
|
|
|
12-04-2012, 10:50 AM
|
|
Dragon
|
|
Join Date: May 2010
Posts: 966
|
|
Quote:
Originally Posted by 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.
|
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/sho...54&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.
|
|
|
|
|
|
|
12-04-2012, 04:45 PM
|
|
Sarnak
|
|
Join Date: Apr 2012
Posts: 55
|
|
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)
{
}
}
|
|
|
|
12-04-2012, 05:01 PM
|
|
Dragon
|
|
Join Date: May 2009
Location: Milky Way
Posts: 541
|
|
google "loop" for a brick shitting.
|
|
|
|
12-04-2012, 05:08 PM
|
|
Dragon
|
|
Join Date: May 2010
Posts: 966
|
|
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.. search is that hard?
Code:
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);
}
|
|
|
|
12-04-2012, 05:10 PM
|
|
Dragon
|
|
Join Date: May 2010
Posts: 966
|
|
Quote:
Originally Posted by Caryatis
google "loop" for a brick shitting.
|
but that would be too easy |
Posting Rules
|
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts
HTML code is Off
|
|
|
All times are GMT -4. The time now is 05:57 AM.
|
|
 |
|
 |
|
|
|
 |
|
 |
|
 |
Linear Mode
