- 追加された行はこのように表示されます。
- 削除された行は
このように表示されます。
<font color=blue><b>sos2.cgi # Sub Player's Data # Line:566
perl/players.cgi # Sub Player's Data # Line:24</b></font>
print qq|体力:$hp/MAX$xp<br>\n|;
<textarea cols="100" rows="5" wrap="OFF">
print qq|体力:$hp/MAX$xp<br>\n|;
<BR>
<B><FONT color="#0000FF">sos2.cgi # Sub Player's Data # Line:566</FONT></B><BR>
<B><FONT color="#0000FF">perl/players.cgi # Sub Player's Data # Line:24</FONT></B><BR>
<B>print qq|体力:$hp/MAX$xp<br>\n|; </b><BR>
<BR>
<TEXTAREA name="textarea4" cols="100" rows="5" wrap="OFF">
print qq|体力:$hp/MAX$xp<br>\n|;
#-ADD-
if ($hp > 0) { $hpg = int($hp / $xp * 100); }
if ($hpg < 3) { $hpg = 3; }
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 ($hp > $xp) { $hpc = '#9900FF'; }
elsif ($av !~ /alive/) { $hpc = '#CC00CC'; }
elsif ($hp * 5 < $xp) { $hpc = 'pink'; }
elsif ($hp * 2 < $xp) { $hpc = 'yellow'; }
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>|;
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
</textarea>
</TEXTAREA>