sos2.cgi # Sub Player's Data # Line:566 perl/players.cgi # Sub Player's Data # Line:24 print qq|体力：$hp/MAX$xp
\n|; print qq|体力：$hp/MAX$xp<br>\n|; #-ADD- if ($hp > 0) { $hpg = int($hp / $xp * 100); } if ($hpg < 3) { $hpg = 3; } $hpg2 = 100 - $hpg; if ($av =~ /dead/) { $hpc = 'red'; } elsif ($hp > $xp) { $hpc = '#9900FF'; } elsif ($av !~ /alive/) { $hpc = '#CC00CC'; } elsif ($hp * 5 < $xp) { $hpc = 'pink'; } elsif ($hp * 2 < $xp) { $hpc = 'yellow'; } else { $hpc = 'green'; } print qq|<TABLE width=90% bgcolor="#CCFFCC" border=1 cellspacing=0 cellpadding=0><TR height=4>|; print qq|<TD width="$hpg%" bgcolor="$hpc"></TD><TD width="$hpg2%"></TD></TR></TABLE>|; #-END of ADD- SION0033v1.00-1-1/1