my$nxtlvl = ($xpinfo->{'level'}+1); # line 290 my@levelXP = qw(0 0 20 50 100 200 500 1000 1600 2300 3000); my $percentXP = int(( ($xpinfo->{'xp'} - $levelXP[$xpinfo->{'level'}]) / ($xpinfo->{'xp'}-$levelXP[$xpinfo->{'level'}]+$xpinfo->{'xp2nextlevel'})) * 100) ; my @XPcolors = qw(4A2625 71131C 9A0213 BD0606 FF0000 9E3B00 1D8700 41AF00 12E800 00FF00); my $rest = abs(100-$percentXP);