トップ一覧検索ヘルプ RSS ログイン
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(/&lt;&gt;/,$line);
		}
#-END of EDIT- SOSWiki0028v1.00-1-1/8
#-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',"アイテム探索&lt;br&gt;\n") if $mysp !~ /Nf/; <BR>
&input('radio','mode','use_before','',"アイテムの脱着・使用&lt;br&gt;\n") if $mysp =~ /Tf/; </b><BR>
<TEXTAREA name="textfield" cols="100" rows="5" wrap="OFF">
#-EDIT-	&amp;input('radio','mode','find_item',' checked',&quot;アイテム探索&lt;br&gt;\n&quot;)	 if $mysp !~ /Nf/;
#	&input('radio','mode','use_before','',"アイテムの脱着・使用<br>\n")	if $mysp =~ /Tf/;
	if ($mysp !~ /Nf/ &amp;&amp; $myhp &gt; 1) {
		$maxturn = 20;
		&amp;input('radio','mode','find_item',' checked',&quot;アイテム探索\n&quot;);
		print qq|&lt;select name=&quot;turn&quot;&gt;\n|;
		push (@editor,&quot;SION's 複数回探索 Ver 1.00 &lt;A href='http://www.SIONjam.net' target='_blank'&gt;by SION&lt;/A&gt;&quot;);
		push (@editor,&quot;SION's 複数回探索 Ver 1.00 &lt;A href='http://www.salion2.halfmoon.jp/soswiki/wiki.cgi' target='_blank'&gt;by SION & SOSWiki &lt;/A&gt;&quot;);
		$maxturn = $myhp - 1 if ($maxturn > $myhp - 1);
		print qq|&lt;option value=&quot;$maxturn&quot; selected&gt;全力で探索\n|;
		if ($maxturn &gt; 2) {
			foreach (1 .. $maxturn - 1) {
				print qq|&lt;option value=&quot;$_&quot;&gt;$_ km\n|;
		}	}
		print qq|&lt;/select&gt;&lt;BR&gt;\n|;
	} else { $checks = ' checked'; }
	&input('radio','mode','use_before',"$checks","アイテムの脱着・使用<br>\n")	if $mysp =~ /Tf/;
#-END of EDIT- SOSWiki0028v1.00-1-2/8
#-END of EDIT- SION0028v1.00-1-2/8
</TEXTAREA><BR>
<FONT color="#FF00FF">※ $maxturn = 20; の部分は一度に探索できる最大回数です。 <BR>
※ &input('radio','mode','use_before','',"アイテムの脱着・使用&lt;br&gt;\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 &lt;= 1)	  { push (@msg,'ヒットポイントが足りません');return }
#	&amp;splititem('i');
#	if (@items &gt;= $xi) { push (@msg,'これ以上は持てません');return }
#	@itemlines = &amp;opendat($itmdat);
#	if (!@itemlines) { &amp;error('アイテムデータ読みこみエラー') }
#	sleep(1); srand(time | $$);
	&amp;splititem('i');
	@itemlines = &amp;opendat($itmdat);
	if (!@itemlines) { &amp;error('アイテムデータ読みこみエラー') }
	srand(time | $$);

foreach (1 .. $Fm{'turn'}) {
	if ($av eq 'dead') { push (@msg,'死んでいます');last; }
	if ($hp &lt;= 1)	  { push (@msg,'ヒットポイントが足りません');last }
	if (@items &gt;= $xi) { push (@msg,'これ以上は持てません');last }
	@founditems = ();
#-END of EDIT- SOSWiki0028v1.00-2-3/8
#-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,&quot;$inmをみつけました&quot;);
#-ADD-
	}
	&amp;joinitem('i'); &amp;userout;
#-END of ADD- SOSWiki0028v1.00-2-4/8
#-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 &amp;&amp; length($is) &gt; $def_xs - 1) { push (@msg,'ステラツィオを発見しましたが、所持オーバーの為捨てました');return }
		if ($def_xs &amp;&amp; length($is) &gt; $def_xs - 1) { push (@msg,'ステラツィオを発見しましたが、所持オーバーの為捨てました'); next; }
#-END of EDIT- SOSWiki0028v1.00-3-6/8
#-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-		&amp;userout; return;
		next;
#-END of EDIT- SOSWiki0028v1.00-3-7/8
#-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-		&amp;userout;
#-END of DEL- SOSWiki0028v1.00-3-8/8
#-END of DEL- SION0028v1.00-3-8/8
</TEXTAREA>