Advertisement
Guest User

Untitled

a guest
Aug 11th, 2014
369
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Perl 1.00 KB | None | 0 0
  1. sub EVENT_SPAWN {
  2.     quest::settimer("vulaksearch",10);
  3.     quest::depopall(124021); quest::depopall(124080); quest::depopall(124157);  #Guardian Spirits
  4.     quest::spawn2(124021,0,0,-796,564,129,102); quest::spawn2(124021,0,0,-800,510,129,66); quest::spawn2(124021,0,0,-796,463,129,33);
  5.     quest::spawn2(124080,0,0,-680,509,129,190); quest::spawn2(124080,0,0,-687,562,129,160); quest::spawn2(124080,0,0,-680,461,129,224);
  6. }
  7.  
  8. sub EVENT_TIMER {
  9.     my $check = 0;  #:: We check every 10 seconds if there are Lords and Ladies spawned
  10.     if($timer eq "vulaksearch") {
  11.         my @lords_and_ladies = (124077, 124076, 124008, 124103, 124074, 124017);
  12.         foreach my $dragons (@lords_and_ladies) {
  13.             if($entity_list->GetNPCByNPCTypeID($dragons)) {
  14.                 $check++
  15.             }
  16.         }
  17.         if($check == 0 && !defined $qglobals{"vulak"} && !$entity_list->GetMobByNpcTypeID(124155)) {    #:: The stars have aligned - Let's spawn Vulak
  18.             quest::spawn2(124155,0,0,-739.4,517.2,121,255);
  19.             quest::setglobal("vulak",1,2,H6);
  20.         }
  21.         $check = undef;
  22.     }
  23. }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement