View Single Post
  #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