トップ差分一覧ソース検索ヘルプ PDF RSS ログイン

SION0029

Parts1

sos2.cgi # Sub Find Item # Line:751 
perl/find.cgi # Sub Find Item # Line:4 
@rcdlines = &get_user("$Fm{'id'}"); 
※ＴＹＰＥ１　消費量固定タイプ：常時一定量体力消費 
<TEXTAREA name="textarea5" cols="100" rows="4" wrap="OFF"> @rcdlines = &get_user("$Fm{'id'}");
#-ADD-

$exh = 1;

#-END of ADD- SION0029v1.00-1-1/3
</TEXTAREA> 
※　$exh に設定した数値が消費体力量です。 
 
※ＴＹＰＥ２　消費量最大体力比例タイプ：最大体力が上がると消費体力が上がる 
<TEXTAREA name="textarea5" cols="100" rows="4" wrap="OFF"> @rcdlines = &get_user("$Fm{'id'}");
#-ADD-

$exh = int($xp / 15); if ($exh &lt; 1) { $exh = 1; }

#-END of ADD- SION0029v1.00-1-1(1)/3
</TEXTAREA> 
※　消費体力量は($xp / 15) を調整して下さい。 
sos2.cgi # Sub Find Item # Line:764 
perl/find.cgi # Sub Find Item # Line:17 
$rnd = int(rand(100)) + 1; 
※ＴＹＰＥ２　消費量最大体力比例タイプ

消費体力が上がる分、より良いアイテムを発見しやすくなる。<FONT color="#FF0000">TYPE１では不用。</FONT><BR>

$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> 
※　$rnd を1～10000に変更している場合、($exh - 1) の部分を ($exh - 1) * 5 等にして調整して下さい。 
sos2.cgi # Sub Find Item # Line:753 
perl/find.cgi # Sub Find Item # Line:6 
if ($hp <= 1) { push (@msg,'ヒットポイントが足りません');return } 
<TEXTAREA name="textarea6" cols="100" rows="3" wrap="OFF">
#-EDIT- if ($hp <= 1) { push (@msg,'ヒットポイントが足りません');return }

if ($hp &lt;= $exh)	  { push (@msg,'ヒットポイントが足りません');return }

#-END of EDIT- SION0029v1.00-1-2/3
</TEXTAREA> 
sos2.cgi # Sub Find Item # Line:777 
perl/find.cgi # Sub Find Item # Line:30 
$hp--; 
<TEXTAREA name="textarea7" cols="100" rows="3" wrap="OFF">
#-EDIT- $hp--;

$hp -= $exh;

#-END of EDIT- SION0029v1.00-1-3/3
</TEXTAREA>

Parts2

TOP ↑ ↓

perl/action.cgi # Sub Normal Action # Line:34 
if($myhp > 2){ 
※ＴＹＰＥ１　消費量固定タイプ：常時一定量体力消費 
<TEXTAREA name="textarea13" cols="100" rows="5" wrap="OFF">
#-EDIT- if($myhp > 2){

	$exh = 1;
	if($myhp &gt; $exh) {
		$maxturn = int(($myhp - 1) / $exh);

#-END of EDIT- SION0029v1.00-2-4/
</TEXTAREA> 
※　$exh に設定した数値が消費体力量です。改造ポイント０１にあわせて下さい。 
 
※ＴＹＰＥ２　消費量最大体力比例タイプ：最大体力が上がると消費体力が上がる 
<TEXTAREA name="textarea14" cols="100" rows="5" wrap="OFF">
#-EDIT- if($myhp > 2){

	$exh = int($xp / 15); if ($exh &lt; 1) { $exh = 1; }
	if($myhp &gt; $exh) {
		$maxturn = int(($myhp - 1) / $exh);

#-END of EDIT- SION0029v1.00-2-4/
</TEXTAREA> 
※　消費体力量は($xp / 15) を調整して下さい。改造ポイント０１にあわせて下さい。 
perl/action.cgi # Sub Normal Action # Line:36 
foreach(1 .. ($myhp - 1)) { print qq|<OPTION value="$_">$_\n| } 
<TEXTAREA name="textarea8" cols="100" rows="3" wrap="OFF">
#-EDIT- foreach(1 .. ($myhp - 1)) { print qq|<option value="$_">$_\n| }

		foreach(1 .. $maxturn) { print qq|&lt;option value=&quot;$_&quot;&gt;$_\n| }

#-END of EDIT- SION0029v1.00-2-5/
</TEXTAREA>

Parts3

TOP ↑ ↓

# Sub Normal Action # 
if($mysp !~ /Nf/ && $myhp > 1) 
※ＴＹＰＥ１　消費量固定タイプ：常時一定量体力消費 
<TEXTAREA name="textarea12" cols="100" rows="4" wrap="OFF">
#-EDIT- if($mysp !~ /Nf/ && $myhp > 1)

$exh = 1;
if($mysp !~ /Nf/ &amp;&amp; $myhp &gt; $exh)

#-END of EDIT- SION0029v1.00-2-4/
</TEXTAREA> 
※　$exh に設定した数値が消費体力量です。改造ポイント０１にあわせて下さい。 
※ＴＹＰＥ２　消費量最大体力比例タイプ：最大体力が上がると消費体力が上がる 
<TEXTAREA name="textarea12" cols="100" rows="4" wrap="OFF">
#-EDIT- if($mysp !~ /Nf/ && $myhp > 1)

$exh = int($xp / 15); if ($exh &lt; 1) { $exh = 1; }
if($mysp !~ /Nf/ &amp;&amp; $myhp &gt; $exh)

#-END of EDIT- SION0029v1.00-2-4/
</TEXTAREA> 
※　消費体力量は($xp / 15) を調整して下さい。改造ポイント０１にあわせて下さい。 
# Sub Normal Action # 
$t_max = $myhp-1 if $t_max > $myhp-1; 
<TEXTAREA name="textarea12" cols="100" rows="3" wrap="OFF">
#-EDIT- $t_max = $myhp-1 if $t_max > $myhp-1;

	$t_max = int(($myhp - 1) / $exh) if $t_max &gt; int(($myhp - 1) / $exh);

#-END of EDIT- SION0029v1.00-2-5/
</TEXTAREA>

Parts4

TOP ↑ ↓

# Sub Normal Action # 
if ($mysp !~ /Nf/ && $myhp > 1) {

$maxturn = 20; </b><br>

※ＴＹＰＥ１　消費量固定タイプ：常時一定量体力消費 
<TEXTAREA name="textarea" cols="100" rows="5" wrap="OFF">
#-EDIT- if ($mysp !~ /Nf/ && $myhp > 1) {
# $maxturn = 20;

$exh = 1;
if ($mysp !~ /Nf/ && $myhp > $exh) {
	$maxturn = int(($myhp - 1) / $exh);

#-END of EDIT- SION0029v1.00-2-4/
</TEXTAREA> 
※　$exh に設定した数値が消費体力量です。改造ポイント０１にあわせて下さい。 
※ＴＹＰＥ２　消費量最大体力比例タイプ：最大体力が上がると消費体力が上がる 
<TEXTAREA name="textarea" cols="100" rows="5" wrap="OFF">
#-EDIT- if ($mysp !~ /Nf/ && $myhp > 1) {
# $maxturn = 20;

$exh = int($myxp / 20); if ($exh < 1) { $exh = 1; }
if ($mysp !~ /Nf/ && $myhp > $exh) {
	$maxturn = int(($myhp - 1) / $exh);

#-END of EDIT- SION0029v1.00-2-4/
</TEXTAREA> 
※　消費体力量は($xp / 15) を調整して下さい。改造ポイント０１にあわせて下さい。 
# Sub Normal Action # 
$maxturn = $myhp - 1 if ($maxturn > $myhp - 1); 
<TEXTAREA name="textarea11" cols="100" rows="2" wrap="OFF">
#-DEL- $maxturn = $myhp - 1 if ($maxturn > $myhp - 1);
#-END of DEL- SION0029v1.00-2-5/
</TEXTAREA>