トップ一覧検索ヘルプ RSS ログイン

SION0033の変更点

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

<B><FONT color="#0000FF"><BR>
sos2.cgi # Sub Player's Data # Line:566<BR>
</FONT></B><B><FONT color="#0000FF">perl/players.cgi # Sub Player's Data 
# Line:24</FONT></B><BR>
print qq|体力：$hp/MAX$xp&lt;br&gt;\n|; <BR>
<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 &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>