SION0028
Parts1
<BR>
<B><FONT color="#0000FF">sos2.cgi # Sub Normal Action # Line:642</FONT></B><BR>
<b>if ($Fm{'id'} eq $pid) { $mysp = $psp; $mybp = $pbp } </b><br>
<TEXTAREA name="textfield" cols="100" rows="5" wrap="OFF">
#-EDIT- if ($Fm{'id'} eq $pid) { $mysp = $psp; $mybp = $pbp }
if ($Fm{'id'} eq $pid) { ($null,$null,$null,$null,$null,$mysp,$mybp,$null,$null,$null,$myhp,$myxp,$null,$null,$myav,$null,$null, $null,$null,$null,$null,$null,$null,$null,$null,$null,$null,$null,$null,$null) = split(/<>/,$line); }
#-END of EDIT- SION0028v1.00-1-1/8
</TEXTAREA><BR>
<FONT color="#FF00FF">※ $null や $my** の部分は必要に応じて変更して下さい。 </FONT> <br><br>
<B><FONT color="#0000FF">sos2.cgi # Sub Normal Action # Line:652</FONT></B><BR>
<b>&input('radio','mode','find_item',' checked',"アイテム探索<br>\n") if $mysp !~ /Nf/; <BR>
&input('radio','mode','use_before','',"アイテムの脱着・使用<br>\n") if $mysp =~ /Tf/; </b><BR>
<TEXTAREA name="textfield" cols="100" rows="5" wrap="OFF">
#-EDIT- &input('radio','mode','find_item',' checked',"アイテム探索<br>\n") if $mysp !~ /Nf/;
# &input('radio','mode','use_before','',"アイテムの脱着・使用<br>\n") if $mysp =~ /Tf/;
if ($mysp !~ /Nf/ && $myhp > 1) { $maxturn = 20; &input('radio','mode','find_item',' checked',"アイテム探索\n"); print qq|<select name="turn">\n|; push (@editor,"SION's 複数回探索 Ver 1.00 <A href='http://www.salion2.halfmoon.jp/soswiki/wiki.cgi' target='_blank'>by SION & SOSWiki </A>"); $maxturn = $myhp - 1 if ($maxturn > $myhp - 1); print qq|<option value="$maxturn" selected>全力で探索\n|; if ($maxturn > 2) { foreach (1 .. $maxturn - 1) { print qq|<option value="$_">$_ km\n|; } } print qq|</select><BR>\n|; } else { $checks = ' checked'; } &input('radio','mode','use_before',"$checks","アイテムの脱着・使用<br>\n") if $mysp =~ /Tf/;
#-END of EDIT- SION0028v1.00-1-2/8
</TEXTAREA><BR>
<FONT color="#FF00FF">※ $maxturn = 20; の部分は一度に探索できる最大回数です。 <BR>
※ &input('radio','mode','use_before','',"アイテムの脱着・使用<br>\n") if $mysp =~ /Tf/; <BR>
の部分は、他の行でも構いません。 </FONT>
Parts2
<BR>
<B><FONT color="#0000FF">sos2.cgi # Sub Find Item # Line:752-761</FONT></B><BR>
<b>if ($av eq 'dead') { push (@msg,'死んでいます');return }<BR>
if ($hp <= 1) { push (@msg,'ヒットポイントが足りません');return }<BR>
<BR>
&splititem('i');<BR>
if (@items >= $xi) { push (@msg,'これ以上は持てません');return }<BR>
<BR>
@itemlines = &opendat($itmdat);<BR>
if (!@itemlines) { &error('アイテムデータ読みこみエラー') } <BR>
<BR>
sleep(1); srand(time | $$); </b><br>
<TEXTAREA name="textarea" cols="100" rows="5" wrap="OFF">
#-EDIT- if ($av eq 'dead') { push (@msg,'死んでいます');return }
# if ($hp <= 1) { push (@msg,'ヒットポイントが足りません');return }
# &splititem('i');
# if (@items >= $xi) { push (@msg,'これ以上は持てません');return }
# @itemlines = &opendat($itmdat);
# if (!@itemlines) { &error('アイテムデータ読みこみエラー') }
# sleep(1); srand(time | $$);
&splititem('i'); @itemlines = &opendat($itmdat); if (!@itemlines) { &error('アイテムデータ読みこみエラー') } srand(time | $$);
foreach (1 .. $Fm{'turn'}) {
if ($av eq 'dead') { push (@msg,'死んでいます');last; } if ($hp <= 1) { push (@msg,'ヒットポイントが足りません');last } if (@items >= $xi) { push (@msg,'これ以上は持てません');last } @founditems = ();
#-END of EDIT- SION0028v1.00-2-3/8
</TEXTAREA><BR><BR><BR>
<B><FONT color="#0000FF">sos2.cgi # Sub Find Item # Line:803-804</FONT></B><BR>
<b>push (@msg,"$inmをみつけました");<BR>
} </b><br>
<TEXTAREA name="textarea" cols="100" rows="5" wrap="OFF">
push (@msg,"$inmをみつけました");
#-ADD-
} &joinitem('i'); &userout;
#-END of ADD- SION0028v1.00-2-4/8
}
</TEXTAREA>
Parts3
<BR>
<B><FONT color="#0000FF">sos2.cgi # Sub Find Item # Line:785</FONT></B><BR>
<b>if ($def_xs && length($is) > $def_xs - 1) { push (@msg,'ステラツィオを発見しましたが、所持オーバーの為捨てました');return }</b><br>
<TEXTAREA name="textarea3" cols="100" rows="3" wrap="OFF">
#-EDIT- if ($def_xs && length($is) > $def_xs - 1) { push (@msg,'ステラツィオを発見しましたが、所持オーバーの為捨てました');return }
if ($def_xs && length($is) > $def_xs - 1) { push (@msg,'ステラツィオを発見しましたが、所持オーバーの為捨てました'); next; }
#-END of EDIT- SION0028v1.00-3-6/8
</TEXTAREA><BR><BR><BR>
<B><FONT color="#0000FF">sos2.cgi # Sub Find Item # Line:789</FONT></B><BR>
<b>&userout; return; </b><br>
<TEXTAREA name="textarea3" cols="100" rows="3" wrap="OFF">
#-EDIT- &userout; return;
next;
#-END of EDIT- SION0028v1.00-3-7/8
</TEXTAREA><BR><BR><BR>
<B><FONT color="#0000FF">sos2.cgi # Sub Find Item # Line:794</FONT></B><BR>
<b>&userout; </b><br>
<TEXTAREA name="textarea4" cols="100" rows="2" wrap="OFF">
#-DEL- &userout;
#-END of DEL- SION0028v1.00-3-8/8
</TEXTAREA>