Go Back   EQEmulator Home > EQEmulator Forums > Quests > Quests::Q&A

Quests::Q&A This is the quest support section

Reply
 
Thread Tools Display Modes
  #1  
Old 04-13-2018, 12:08 AM
Nydosa's Avatar
Nydosa
Sarnak
 
Join Date: Jan 2013
Posts: 61
Default 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!
Reply With Quote
  #2  
Old 04-13-2018, 01:39 AM
c0ncrete's Avatar
c0ncrete
Dragon
 
Join Date: Dec 2009
Posts: 719
Default

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
__________________
I muck about @ The Forge.
say(rand 99>49?'try '.('0x'.join '',map{unpack 'H*',chr rand 256}1..2):'incoherent nonsense')while our $Noport=1;
Reply With Quote
  #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
Reply

Thread Tools
Display Modes

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is On
Smilies are On
[IMG] code is On
HTML code is Off

Forum Jump

   

All times are GMT -4. The time now is 10:35 AM.


 

Everquest is a registered trademark of Daybreak Game Company LLC.
EQEmulator is not associated or affiliated in any way with Daybreak Game Company LLC.
Except where otherwise noted, this site is licensed under a Creative Commons License.
       
Powered by vBulletin®, Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Template by Bluepearl Design and vBulletin Templates - Ver3.3