|
|
|
 |
|
|
 |
|
 |
 |
|
 |
 |
|
 |
|
| Quests::Q&A This is the quest support section |
 |
|
 |
12-04-2012, 05:08 PM
|
|
Dragon
|
|
Join Date: May 2010
Posts: 965
|
|
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:46 PM
|
|
Dragon
|
|
Join Date: May 2010
Posts: 965
|
|
i balance my helpfulness. you were told multiple times how to check your perl script for syntax errors. You apparently never did it based on the errors in the last one you posted.
That said I still fixed your script. What Cary is referring to is your script is horribly long and repetitive with the only thing changing being an incrementing number. That is the classic best case for a FOR loop. your entire check_handin logic section could shrink to about 15 lines of code.
|
|
|
|
12-04-2012, 07:17 PM
|
 |
Dragon
|
|
Join Date: Dec 2009
Posts: 719
|
|
here's an (untested except for syntax) example of how looping could greatly reduce your code, and due to that, the chance of syntax errors. i added comments directing you to information in the perl documentation (which i sent you links to in my first response) that applies to what i have done here.
Code:
# subroutines covered @ http://perldoc.perl.org/5.12.4/perlsub.html
sub customRoutine {
# private variables covered @ http://perldoc.perl.org/5.12.4/perlsub.html#Private-Variables-via-my%28%29
my $itemcount = shift;
# lists covered @ http://perldoc.perl.org/5.12.4/perldata.html#List-value-constructors
# range operator covered @ http://perldoc.perl.org/5.12.4/perlop.html#Range-Operators
my @validitems = (150009..150107);
# foreach loop covered @ http://perldoc.perl.org/5.12.4/perlsyn.html#Foreach-Loops
foreach my $itemid (@validitems) {
# note: $itemcount is already a hashref, so we don't pass it like we did before
if (plugin::check_handin($itemcount, $itemid => 1)) {
quest::say("Well done, $name, you are now level 1 with an upgraded ring.");
quest::level(1);
# your reward item always seemed to be the itemid of the handin +1, so this does that
quest::summonitem($itemid+1, 1);
quest::ding();
}
}
}
sub EVENT_ITEM {
if ($ulevel > 64) {
# pass by reference covered @ http://perldoc.perl.org/5.12.4/perlsub.html#Pass-by-Reference
customRoutine(\%itemcount);
}
else {
quest::say("You're not level 65 yet, $name.");
}
plugin::return_items(\%itemcount);
}
|
|
|
|
02-22-2013, 09:34 PM
|
|
Discordant
|
|
Join Date: Jan 2013
Posts: 284
|
|
This was almost two months ago, no need to necro old posts. ;D
|
02-22-2013, 09:40 PM
|
|
Dragon
|
|
Join Date: Dec 2009
Posts: 719
|
|
if you haven't caught on yet, he's simply parroting exactly what someone else has said in the thread. :p
__________________
I muck about @ The Forge.
say(rand 99>49?'try '.('0x'.join '',map{unpack 'H*',chr rand 256}1..2):'incoherent nonsense')while our $Noport=1;
|
02-22-2013, 09:55 PM
|
|
Discordant
|
|
Join Date: Jan 2013
Posts: 284
|
|
Yeah, I noticed, haha.
|
| Thread Tools |
|
|
| Display Modes |
 Hybrid Mode
|
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 03:29 AM.
|
|
 |
|
 |
|
|
|
 |
|
 |
|
 |
