| c0ncrete |
03-13-2018 04:35 AM |
Individually Randomized Stat Scaling Method
Code:
# ============
# aliasing via typeglobs
# https://perldoc.perl.org/perldata.html#Typeglobs-and-Filehandles
*randRange = \*plugin::RandomRange;
# ============
# hash of stuff we want to possibly randomize, and by how much.
# this setup allows you to tweak chances of and ranges of scaling each stat
# it also allows you to keep the logic below a little cleaner.
my $target = {
# strength
str => {
# chance at randomization defined here (25%)
randomize => do { rand 100 > 75 },
# 'normal' scaling is a range of 110-130% at a 75% chance
# 'critical' scaling is a range of 130-200% at a 25% chance
modifier => do { rand 100 > 75 ? randRange(10, 25) : randRange(25, 75) },
# workaround since each stat has its own method of retrieval
accessor => do { $npc->GetSTR() },
# arbitrary here, but it's a good idea to have the ones below
cleanup => do { $npc->Emote("snarls menacingly...") },
},
# intelligence
_int => {
randomize => do { rand 100 > 75 },
modifier => do { rand 100 > 75 ? randRange(10, 30) : randRange(30, 100) },
accessor => do { $npc->GetINT() },
cleanup => do { $npc->SetMana($npc->GetMaxMana()) },
},
# wisdom
wis => {
randomize => do { rand 100 > 75 },
modifier => do { rand 100 > 75 ? randRange(10, 30) : randRange(30, 100) },
accessor => do { $npc->GetWIS() },
cleanup => do { $npc->SetMana($npc->GetMaxMana()) },
},
# stamina
sta => {
randomize => do { rand 100 > 75 },
modifier => do { rand 100 > 75 ? randRange(10, 30) : randRange(30, 100) },
accessor => do { $npc->GetSTA() },
cleanup => do { $npc->Heal() },
},
};
# for each stat listed in the table of targets...
foreach my $stat (keys %$target)
{
# skip stat if we don't roll a chance to randomize it
# TODO: further modify chances based on race/class
next unless $target->{$stat}->{randomize};
# get the current value of the stat we are looking at
my $current = $target->{$stat}->{accessor};
# roll for and retrieve the modifier to use to scale the stat
my $scale = $target->{$stat}->{modifier};
# stat scaling calculation happens here
my $modified = $current + int($current*(rand $scale/100));
# change applied
$npc->ModifyNPCStat($stat, $modified);
# do any cleanup defined for the current stat
$target->{$stat}->{cleanup} if defined $target->{$stat}->{cleanup};
};
|