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