SION0033の変更点

• 追加された行はこのように表示されます。
• 削除された行はこのように表示されます。

<font color=blue><b>sos2.cgi # Sub Player's Data # Line:566<br>
perl/players.cgi # Sub Player's Data # Line:24</b></font><br>
print qq|体力：$hp/MAX$xp&lt;br&gt;\n|; <br>
<textarea cols="100" rows="5" wrap="OFF">
	print qq|体力：$hp/MAX$xp&lt;br&gt;\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&lt;br&gt;\n|; </b><BR>
<BR>
<TEXTAREA name="textarea4" cols="100" rows="5" wrap="OFF">
	print qq|体力：$hp/MAX$xp&lt;br&gt;\n|;
#-ADD-
	if ($hp > 0)  { $hpg = int($hp / $xp * 100); }
	if ($hpg < 3) { $hpg = 3; }
	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 > $xp)      { $hpc = '#9900FF'; }
	elsif ($hp &gt; $xp)      { $hpc = '#9900FF'; }
	elsif ($av !~ /alive/) { $hpc = '#CC00CC'; }
	elsif ($hp * 5 < $xp)  { $hpc = 'pink'; }
	elsif ($hp * 2 < $xp)  { $hpc = 'yellow'; }
	elsif ($hp * 5 &lt; $xp)  { $hpc = 'pink'; }
	elsif ($hp * 2 &lt; $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|&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>
</TEXTAREA>