Code

### Exp Hack ###
      $oldposts = $userprofile{$user}->[6];
      if($oldposts eq $txt{'683'}) {
          $posts = 1;
          $nextlevel = 1;
      }
# Uncomment this to count negative posts as something other than negative.
# elsif ($oldposts < 0) {
#          $posts = 0;
#          $nextlevel = 1;
#      }
      else {
            $diffa = "1000000";
            $diffb = "1000000";
            $nexthighest = "0";
            $nextlowest = "0";
            $msstatcount = "0";
            while($MemStat[$msstatcount]) {
                  if($MemPostNum[$msstatcount] ne "x") {
                        $tmpa = $MemPostNum[$msstatcount] - $oldposts;
                        $tmpb = $oldposts - $MemPostNum[$msstatcount];
                        if($tmpa >= 0 && $tmpa < $diffa) {$diffa = $tmpa; $nexthighest = $MemPostNum[$msstatcount];}
                        if($tmpb >= 0 && $tmpb < $diffb) {$diffb = $tmpb; $nextlowest = $MemPostNum[$msstatcount];}
                  }  
                  ++$msstatcount;
            }
            if ($nexthighest > $nextlowest) {$nextlevel = $nexthighest - $nextlowest; $posts = $oldposts - $nextlowest;} else {$nextlevel = $oldposts; $posts = $oldposts;}
      }

      # Comment this out to use a working bar for Admins.
      if($userprofile{$user}->[7] eq 'Administrator') {$nextlevel = $posts;}

      $exp{$user} = sprintf("%.1f", $posts / $nextlevel * 100);

      if($exp{$user} == 100) { $exp{$user} = qq~<img src="$imagesdir/full_bar.gif" width="104" height="6"><br>\nGot this level beat. ;)~; } else {

          $fill_bar = int($exp{$user});
          if($fill_bar){$fill_bar = qq~<img src="$imagesdir/fill_bar.gif" width="$fill_bar" height="6">~;} else {$fill_bar = "";}

          $empty_bar = 100 - $exp{$user};
          if($empty_bar){$empty_bar = qq~<img src="$imagesdir/empty_bar.gif" width="$empty_bar" height="6">~;} else {$empty_bar = ""; }

          $exp{$user} = qq~<img src="$imagesdir/l_bar.gif" width="2" height="6">$fill_bar$empty_bar<img src="$imagesdir/r_bar.gif" width="3" height="6"><br>\nTo level: $exp{$user}% ($posts/$nextlevel)~;
      }
      $exp{$user} .= '<!-- Experience Bar Hack by Michael (mrtorrent@yahoo.com) -->';
###/Exp Hack ###