トップ差分一覧ソース検索ヘルプ PDF RSS ログイン

SION0033

sos2.cgi # Sub Player's Data # Line:566 
perl/players.cgi # Sub Player's Data # Line:24 
print qq|体力：$hp/MAX$xp \n|; 
 
<TEXTAREA name="textarea4" cols="100" rows="5" wrap="OFF">

print qq|体力：$hp/MAX$xp&lt;br&gt;\n|;

#-ADD-

if ($hp &gt; 0)  { $hpg = int($hp / $xp * 100); }
if ($hpg &lt; 3) { $hpg = 3; }
$hpg2 = 100 - $hpg;
if    ($av =~ /dead/)  { $hpc = 'red'; }
elsif ($hp &gt; $xp)      { $hpc = '#9900FF'; }
elsif ($av !~ /alive/) { $hpc = '#CC00CC'; }
elsif ($hp * 5 &lt; $xp)  { $hpc = 'pink'; }
elsif ($hp * 2 &lt; $xp)  { $hpc = 'yellow'; }
else                   { $hpc = 'green'; }
print qq|&lt;TABLE width=90% bgcolor=&quot;#CCFFCC&quot; border=1 cellspacing=0 cellpadding=0&gt;&lt;TR height=4&gt;|;
print qq|&lt;TD width=&quot;$hpg%&quot; bgcolor=&quot;$hpc&quot;&gt;&lt;/TD&gt;&lt;TD width=&quot;$hpg2%&quot;&gt;&lt;/TD&gt;&lt;/TR&gt;&lt;/TABLE&gt;|;

#-END of ADD- SION0033v1.00-1-1/1
</TEXTAREA>