Quote:
Originally Posted by c0ncrete
this line is incomplete
You can check your scripts for syntax errors from the command line as shown below:
Code:
perl -c script_name.pl
|
Thanks for the help! I will remember to use that to check syntax.
In the meanwhile, here is a working code for anyone in the future... Changes aviaks to random texture. Leaving in other options as well. Hope this helps someone!
in default.pl
---------
sub EVENT_SPAWN {
my $NPCRace = $npc->GetRace();
if($NPCRace == 13)
{
my $Race = $npc->GetRace();
my $Gender = $npc->GetGender();
#my $Texture = $npc->GetTexture();
#my $HelmTexture = $npc->GetHelmTexture();
my $Face = $npc->GetLuclinFace();
my $HairStyle = $npc->GetHairStyle();
my $HairColor = $npc->GetHairColor();
my $Beard = $npc->GetBeard();
my $BeardColor = $npc->GetBeardColor();
my $DrakkinHeritage = $npc->GetDrakkinHeritage();
my $DrakkinTattoo = $npc->GetDrakkinTattoo();
my $DrakkinDetails = $npc->GetDrakkinDetails();
my $Size = $npc->GetSize();
my $Texture = plugin::RandomRange(0,3);
#my $SelectHead = plugin::RandomRange(0,1);
$npc->SendIllusion(13, 2, $Texture, $Texture);
## FORMAT FOR ADDITIONAL CHAGNES
##$npc->SendIllusion($Race, $Gender, $Texture, $HelmTexture, $Face, $HairStyle, $HairColor, $Beard, $BeardColor, $DrakkinHeritage, $DrakkinTattoo, $DrakkinDetails, $Size);
}
}
------