Random NPC texture code

[Nydosa]

Hello,

I've been looking at some old posts, but I can't seem to get this code to work.

I have the following in default.pl, located in Quests -> global




-------------------

sub EVENT_SPAWN {

quest::settimer("texturechange", 5);

}

sub EVENT_TIMER {

if($timer eq "texturechange") {
my $NPCRace = $npc
if($NPCRace == 13){
quest::stoptimer("texturechange");
plugin::RandomFeatures($npc); ### Simply changes face, hair, etc.
}
}

}

------------



My hope is that it would make any Aviaks (race 13) randomly pick a texture, but it doesn't seem to be functioning. Coming back after a long hiatus, so I'm rusty on quest writing...

Can anyone please provide some guidance?

Thank you!

[c0ncrete]

this line is incomplete

my $NPCRace = $npc

You can check your scripts for syntax errors from the command line as shown below:

perl -c script_name.pl

[Nydosa]

Originally Posted by c0ncrete

this line is incomplete

my $NPCRace = $npc

You can check your scripts for syntax errors from the command line as shown below:

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

------