MQEmulator.net • -

#a_sonic_defender.pl - Quest File

General Info

Quest File

#Sonic wolf war defenders

my $local_total; #need local as global takes time to update

my %AggroText = (
  1 => "growls as it senses the presence of an outsider.",
  2 => "lunges forward, saliva dripping from its fanged jaw.",
  3 => "sniffs at the ground, picking up the scent of a threat."
);

my %DeathText = (
  1 => "collapses, its fur matted with blood.",
  2 => "defiantly tries to make one final swipe at you with its claws.",
  3 => "whines pitifully as an attack cuts his life short."
);

sub EVENT_AGGRO 
	{ 
	my $RandomNumber = int(rand(3)) + 1;
	quest::emote("$AggroText{$RandomNumber}");
	}

sub EVENT_DEATH_COMPLETE {
	$local_total = $qglobals{DeadDefenderCount}+1;
  	quest::setglobal("DeadDefenderCount", $qglobals{DeadDefenderCount}+1, 7, "F"); # how many dead

# Need to test local_total - refresh of global based on above set not
	# fast enough.

if ($local_total >= 5)
		{
		# Defenders are down - send signal.
		quest::signalwith(166257, 1, 0); # NPC: War_Trigger
		}
  my $RandomNumber = int(rand(3)) + 1;
  quest::emote("$DeathText{$RandomNumber}");
}

Source: 17 Jan 2022
Quest Source: 28 May 2022