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

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

 
 
Thread Tools Display Modes
Prev Previous Post   Next Post Next
  #1  
Old 08-13-2018, 08:42 PM
superpally1
Sarnak
 
Join Date: Jul 2018
Location: Tennessee
Posts: 33
Default A little Help with Script.

Hello, I am fairly new to these forums. I have played on eqemu servers for years but I have only recently tried to run my own server. I have used Akkadius's npc scaling system recently however since i updated my server, i can not seem to get it to work anymore. Ive tried ID 50 and 10. Rules- true and false for zone controller. No luck. Here are my files if anyone feels the need to help/correct me. https://ufile.io/j68ey https://ufile.io/3ndl4
https://ufile.io/j8xl4
even made xml since it doesnt work with json https://ufile.io/y59qp
So I took it upon myself to make a scaling system I can use. Here is what i have so far. I can not figure out why this doesnt work. i am tryin to use what my charecter says as value for level and/or hp etc but i can not seem to get it to work. i can make it work with just level if i alter script to only account for that but i really want it to handle everything. =/

#Mob scaling
#---------------------------------------------
#---------------------------------------------
#---------------------------------------------
sub EVENT_SAY {

my $Level = quest::saylink("Scale Level", 1, "ScaleLevel");
my $HP = quest::saylink("Scale HP", 1, "ScaleHP");
# my $Hits = quest::saylink("Scale Min/Max Attack", 1, "ScaleMin/MaxAttack");
# my $HPRegen = quest::saylink("Scale HP Regen", 1, "ScaleHPRegen");
# my $ManaRegen = quest::saylink("Scale Mana Regen", 1, "ScaleManaRegen");
# my $Stats = quest::saylink("Scale Stats", 1, "ScaleStats");
# my $Resists = quest::saylink("Scale Resists", 1, "ScaleResists");
# my $Skills = quest::saylink("Scale Skills", 1, "ScaleSkills");

if ($text =~/Hail/i)
{
plugin::Whisper("Are you ready to [$Level], [$HP]");
# plugin::Whisper("Are you ready to [$Level], [$HP], [$Hits], [$HPRegen], [$ManaRegen], [$Stats], [$Resists], [$Skills]");
}
if ($text =~/Scale Level/i)
{
$client->Message(4, "What Level?");
if($text!~/Hail|Scale Level|ScaleLevel|WhatLevel|What Level/i)
{
plugin::ScaleLevel($text);
}
}
if ($text =~/Scale HP/i)
{
$client->Message(4, "What HP?");
if($text!~/Hail|Scale HP|ScaleHP|WhatHP|What HP/i)
{
plugin::ScaleHP($text);
}
}

}

i altered out the rest of script becouse i can not seem to even get this to work. Any help would be greatly appreciated







here are my plugins for Level and HP the others are the same.



sub ScaleLevel {
my $min = $_[0];
my $e = plugin::val('entity_list');
my @n = $e->GetNPCList();
foreach my $p (@n) {
$p->SetLevel($min);
}
}

sub ScaleHP {
my $min = $_[0];
my $e = plugin::val('entity_list');
my @n = $e->GetNPCList();
foreach my $p (@n) {
$p->ModifyNPCStat("max_hp",$min);
}
}
Reply With Quote
 


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 01:14 PM.


 

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