Beefy Boxes and Bandwidth Generously Provided by pair Networks
Just another Perl shrine
 
PerlMonks  

Re: framechat (XP progress bar)

by OeufMayo (Curate)
on Mar 13, 2001 at 00:27 UTC ( #63941=note: print w/ replies, xml ) Need Help??


in reply to framechat

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 +%">&nbsp;</td><td width="$rest%"bgcolor="#CCCCCC">&nbsp;</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>


Comment on Re: framechat (XP progress bar)
Select or Download Code

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://63941]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others contemplating the Monastery: (4)
As of 2014-07-30 01:38 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    My favorite superfluous repetitious redundant duplicative phrase is:









    Results (229 votes), past polls