#Vulak_Trigger.pl

[Splose]

I was having serious issues with this script as it was provided through my downloaded quests folder.. I have rewritten it and it works 100% of the time.


#Vulak_Trigger.pl - templeveeshan
http://pastebin.com/gnnQ35q3

sub EVENT_SPAWN {
quest::settimer("vulaksearch",10);
quest::depopall(124021); quest::depopall(124080); quest::depopall(124157); #Guardian Spirits
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);
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);
}

sub EVENT_TIMER {
my $check = 0; #:: We check every 10 seconds if there are Lords and Ladies spawned
if($timer eq "vulaksearch") {
my @lords_and_ladies = (124077, 124076, 124008, 124103, 124074, 124017);
foreach my $dragons (@lords_and_ladies) {
if($entity_list->GetNPCByNPCTypeID($dragons)) {
$check++
}
}
if($check == 0 && !defined $qglobals{"vulak"} && !$entity_list->GetMobByNpcTypeID(124155)) { #:: The stars have aligned - Let's spawn Vulak
quest::spawn2(124155,0,0,-739.4,517.2,121,255);
quest::setglobal("vulak",1,2,H6);
}
$check = undef;
}
}