Guest User

Untitled

a guest
Jun 14th, 2016
102
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Perl 0.45 KB | None | 0 0
  1. sub DoArmorHandin {
  2.  
  3.     my $armor_list;
  4.     $tmp_zone = 113;
  5.     $tmp_class = 9;
  6.     $armor_list[$tmp_zone][$tmp_class][6] = {slot => 19, item => 24938, reward => 31014}; #boots
  7.    
  8.     foreach my $entry ($armor_list[$zoneid][$class]) {
  9.         quest::say("Requires ".$entry);
  10.         if (plugin::check_handin(\%itemcount,$entry{item}) => 1 &&
  11.             $cash >= (plugin::DoPricingBySlot($entry{slot})*1000)) {
  12.             quest::summonitem($entry{reward});
  13.             return 1;
  14.         }
  15.     }
  16.     return 0;
  17. }
Advertisement
Add Comment
Please, Sign In to add comment