!Parts1
<B><FONT color="#0000FF"><BR>
sos2.cgi # Sub Find Item # Line:751<BR>
</FONT></B><B><FONT color="#0000FF">perl/find.cgi # Sub Find Item # Line:4</FONT></B><BR>
@rcdlines = &get_user("$Fm{'id'}"); 
<CENTER>
	<FONT color="#009900">※ＴＹＰＥ１　消費量固定タイプ</FONT>：常時一定量体力消費<BR>
	<TEXTAREA name="textarea5" cols="100" rows="4" wrap="OFF">	@rcdlines = &amp;get_user(&quot;$Fm{'id'}&quot;);
#-ADD-
	$exh = 1;
#-END of ADD- SION0029v1.00-1-1/3
	</TEXTAREA>
	<BR>
※　<FONT color="#FF00FF">$exh に設定した数値が消費体力量</FONT>です。<BR>
	<BR>
</CENTER>
<CENTER>
	<FONT color="#009900">※ＴＹＰＥ２　消費量最大体力比例タイプ</FONT>：最大体力が上がると消費体力が上がる<BR>
	<TEXTAREA name="textarea5" cols="100" rows="4" wrap="OFF">	@rcdlines = &amp;get_user(&quot;$Fm{'id'}&quot;);
#-ADD-
	$exh = int($xp / 15); if ($exh &lt; 1) { $exh = 1; }
#-END of ADD- SION0029v1.00-1-1(1)/3
	</TEXTAREA>
	<BR>
※　<FONT color="#FF00FF">消費体力量は($xp / 15) を調整</FONT>して下さい。 
</CENTER>
<B><FONT color="#0000FF"><BR>
sos2.cgi # Sub Find Item # Line:764<BR>
</FONT></B><B><FONT color="#0000FF">perl/find.cgi # Sub Find Item # Line:17</FONT></B><BR>
$rnd = int(rand(100)) + 1; 
<CENTER>
	<FONT color="#009900">※ＴＹＰＥ２　消費量最大体力比例タイプ</FONT><BR>
	消費体力が上がる分、より良いアイテムを発見しやすくなる。<FONT color="#FF0000">TYPE１では不用。</FONT><BR>
	<TEXTAREA name="textarea9" cols="100" rows="4" wrap="OFF">	$rnd = int(rand(100)) + 1;
#-ADD-
	$rnd = $rnd - ($exh - 1); if ($rnd &lt; 1) { $rnd = 1; }
#-END of ADD- SION0029v1.00-1-1(2)/3
	</TEXTAREA>
	<BR>
※　<FONT color="#FF0000">$rnd を1〜10000に変更している場合、($exh - 1) の部分を ($exh - 1) * 5 等にして調整</FONT>して下さい。<BR>
	<BR>
</CENTER>
<B><FONT color="#0000FF"></FONT></B><B><FONT color="#0000FF"><BR>
sos2.cgi # Sub Find Item # Line:753</FONT></B><B><FONT color="#0000FF"><BR>
</FONT></B><B><FONT color="#0000FF">perl/find.cgi # Sub Find Item # Line:6</FONT></B><BR>
if ($hp <= 1) { push (@msg,'ヒットポイントが足りません');return } 
<CENTER>
	<TEXTAREA name="textarea6" cols="100" rows="3" wrap="OFF">#-EDIT-	if ($hp &lt;= 1)	  { push (@msg,'ヒットポイントが足りません');return }
	if ($hp &lt;= $exh)	  { push (@msg,'ヒットポイントが足りません');return }
#-END of EDIT- SION0029v1.00-1-2/3
	</TEXTAREA>
	<BR>
	<FONT color="#FF00FF"> </FONT> 
</CENTER>
<B><FONT color="#0000FF"></FONT></B><B><FONT color="#0000FF"><BR>
sos2.cgi # Sub Find Item # Line:777</FONT></B><B><FONT color="#0000FF"><BR>
</FONT></B><B><FONT color="#0000FF">perl/find.cgi # Sub Find Item # Line:30</FONT></B><BR>
$hp--; 
<CENTER>
	<TEXTAREA name="textarea7" cols="100" rows="3" wrap="OFF">#-EDIT-	$hp--;
	$hp -= $exh;
#-END of EDIT- SION0029v1.00-1-3/3
	</TEXTAREA>
</CENTER>