EQEmulator Forums - Using Perl to randomize npc

EQEmulator Forums (https://www.eqemulator.org/forums/index.php)

- Quests::Q&A (https://www.eqemulator.org/forums/forumdisplay.php?f=599)

- - Using Perl to randomize npc_spell list. (https://www.eqemulator.org/forums/showthread.php?t=40116)

Using Perl to randomize npc_spell list.

I like to use scripts to randomize npcs so I can use less spots in the npc_types tree. I was combing through the perl reference page looking for how to assign a spell set to an npc. What I was hoping to do is create a generic npc, assign a random race, then depending on the race that is generated to then have the script select a class and the corresponding spell set that goes along with that particular class.
I know how to select a random race and even a npc_faction ID but not how to assign a class or a spell set. I can't seem to find how to do so on the reference page. I was hoping someone could shine some light on this issue.

Much appreciated. =)

Code:

$npc->AddAISpell();

$npc->RemoveAISpell();

Look into those functions.

I saw that on the reference page but I decided it wouldn't work because that would only add one spell instead of assigning an npc_spells id.
I was hoping to find a command that would assign a random spell set to the npc.
Thanks for the input, though.

Pull down a new source you can now change spell list of an NPC with ModifyNPCStat

example...

Code:

sub EVENT_SPAWN {

        $npc->ModifyNPCStat("npc_spells_id", 3);  #Spawn with spellset 3

}



sub EVENT_SAY {

        #test swapping spell lists

        if($text =~/spells/i) {

                my $new_list = substr($text, 7);

                $npc->ModifyNPCStat("npc_spells_id", $new_list);

        }

}