Select Code to Download

Select or download this

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->{'xp2nextle
+vel'})) * 100) ;
my @XPcolors = qw(4A2625 71131C 9A0213 BD0606 FF0000 9E3B00 1D8700 41A
+F00 12E800 00FF00);
my $rest = abs(100-$percentXP);

Select or download this

<table border="0" height="100%" width="100%" cellpadding="0" cellspaci
+ng="0" align="center"> # Line 297
<tr><td><table border="0" cellpadding="0" cellspacing="0" width="100%"
+><tr><td bgcolor="#$XPcolors[int($percentXP/10)-1]" width="$percentXP
+%">&nbsp;</td><td width="$rest%"bgcolor="#CCCCCC">&nbsp;</td></tr></t
+able></td></tr>