First, big ++ to epoptai for this really nice CB client with tons of functionnalities. Hey! it even links to Babelfish!
Though this is a realy cool piece of code, I wanted to add
a nifty progress bar (like the one in the Tk Client), so
here it is (you may want to change the colors to git your favorite theme)
Line 290:
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);
Line 297
<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
+%"> </td><td width="$rest%"bgcolor="#CCCCCC"> </td></tr></t
+able></td></tr>
Update: Added coloration according to the user's progress (gradient from red to green)
Cheers, OeufMayo
<kbd>--
my $ OeufMayo = new PerlMonger::Paris({http => ' paris.mongueurs.net'});</kbd>
-
Are you posting in the right place? Check out Where do I post X? to know for sure.
-
Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
<code> <a> <b> <big>
<blockquote> <br /> <dd>
<dl> <dt> <em> <font>
<h1> <h2> <h3> <h4>
<h5> <h6> <hr /> <i>
<li> <nbsp> <ol> <p>
<small> <strike> <strong>
<sub> <sup> <table>
<td> <th> <tr> <tt>
<u> <ul>
-
Snippets of code should be wrapped in
<code> tags not
<pre> tags. In fact, <pre>
tags should generally be avoided. If they must
be used, extreme care should be
taken to ensure that their contents do not
have long lines (<70 chars), in order to prevent
horizontal scrolling (and possible janitor
intervention).
-
Want more info? How to link
or How to display code and escape characters
are good places to start.
|