Fabled spawn code

[Derision]

Syntax-wise, you have an extra opening parenthesis and a missing closing curly bracket. This is a syntactically correct version:

sub EVENT_DEATH
{
	my $random_result = int(rand(100));
	my $a=63096; #npc - Fabled Garanel Rucksif
	if($random_result<70)
	{
		quest::say("Spawning Fabled");
		quest::shout ("I will be Avenged Scoundrel!");
		quest::spawn2($a, 485, 147, -33);
	}
	else
	{
		quest::say("No spawn");
	}
}

To find those issues, all I did was copy your code into a file called, e.g. D:\temp\test.pl, launched a command window and ran it through Perl like so:

D:\temp>perl test.pl
syntax error at test.pl line 4, near "){"
syntax error at test.pl line 8, near "}else"
Missing right curly or square bracket at test.pl line 10, at end of line
Execution of test.pl aborted due to compilation errors.

That won't tell you if it will work in-game, but it will catch any syntax errors for you.

If it terminates with no messages, you know your syntax is good.