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.

[bodi]

ok, derision's works, I think I need 6 numbers in the spawn loc instead of 3 to spawn the fabled, if I add in 0, 0, 0 to the back of the spawn loc it adds him under the world.

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");
	}
}

And if you know how I can make him emote ONLY the first time he is killed, that would be sick too. (for "SERVER FIRST" script)