!part1
<textarea col=80 row=6>
	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
</textarea>