EQEmulator Forums

EQEmulator Forums (https://www.eqemulator.org/forums/index.php)
-   Quests::Q&A (https://www.eqemulator.org/forums/forumdisplay.php?f=599)
-   -   Random NPC texture code (https://www.eqemulator.org/forums/showthread.php?t=41844)

Nydosa 04-13-2018 12:08 AM

Random NPC texture code
 
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 04-13-2018 01:39 AM

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

Nydosa 04-13-2018 09:43 AM

Quote:

Originally Posted by c0ncrete (Post 258255)
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);
}
}

------


All times are GMT -4. The time now is 06:24 PM.

Powered by vBulletin®, Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.