View Single Post
  #3  
Old 04-13-2018, 09:43 AM
Nydosa's Avatar
Nydosa
Sarnak
 
Join Date: Jan 2013
Posts: 61
Default

Quote:
Originally Posted by c0ncrete View Post
this line is incomplete
Code:
my $NPCRace = $npc
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);
}
}

------
Reply With Quote