!Parts1
<br>
<TABLE width="778" border="0" cellspacing="0" cellpadding="5">
<TR bgcolor="#CCCCFF"> 
<TD class="text"> 
<HR>
<FONT face="ＭＳ ゴシック, Osaka−等幅" class="text"> この改造によって−<BR>
●　フラグ Bl があるキャラクターは、リストに表示されなくなります。<BR>
●　フラグ Ng または Bl があるキャラクターは、プレイヤー総数にカウントされません。<BR>
●　フラグ Ng または Bl があるキャラクターは、ＣＰＵキャラ数としてそのキャラ数が表示されます。<BR>
<BR>
●　フラグ Bl だけを持つキャラクタには、通常の方法では出会えなくなります。<BR>
　　また、ゲーム中のキャラ一覧プルダウンリストにも表示されません。 別途ＮＰＣ遭遇改造などが必要です。<BR>
●　フラグ Bl と、V[a-z]の紹介状 フラグを持つキャラクタは、該当する紹介状を持っている場合に限って表示されるようになります。<BR>
　　別途、街移動システムなどを導入している場合、別の街にいる場合は表示されません。<BR>
●　フラグ Bl を持たないキャラは、これまで通り通常に表示されます。</FONT> <BR>
<HR>
</TD>
</TR>
</TABLE>
<TABLE width="778" border="0" cellspacing="0" cellpadding="5">
<TR bgcolor="#FFCCCC"> 
<TD class="text"> 
<HR>
<FONT color="#FF0000">○　改造ポイント０３は、環境によって若干異なります。 ご自身の該当部分を十分ご確認の上で修正を行ってください。<BR>
○　マシマロさんの分割バージョンの一部では、List In Order が２つ存在する場合があります。other.pl の方を修正して下さい。</FONT> 
<BR>
<HR>
</TD>
</TR>
</TABLE>

!Parts2
<BR>
<B><FONT color="#0000FF">sos2.cgi # Sub List In Order # Line:1940</FONT></B><BR>
<B><FONT color="#0000FF">perl/other.cgi </FONT></B><B><FONT color="#0000FF"># Sub List In Order # Line:16</FONT></B><BR>
<b>next if $Fm{'order'} eq 'Rate' && $sp !~ /Tf/; </b><br>
<TEXTAREA name="textarea5" cols="100" rows="5" wrap="OFF">
		next if $Fm{'order'} eq 'Rate'   &amp;&amp; $sp !~ /Tf/;
#-ADD-
		if ($sp =~ /Bl/) { $npcplayer++; next; }
		if ($sp !~ /Ng/) { $totalplayer++; } else { $npcplayer++; }
#-END of ADD- SION0030v1.00-1-1/5
</TEXTAREA><BR>
※　<FONT color="#FF0000">ＮＰＣ数を表示しない時は $npcplayer++; ２箇所削除。</FONT><BR><BR><BR>
<B><FONT color="#0000FF">sos2.cgi # Sub Saga # Line:452</FONT></B><BR>
<B><FONT color="#0000FF">perl/option.cgi # Sub Saga # Line:105</FONT></B><BR>
<b>$totalplayer = @odrlines; </b><br>
<TEXTAREA name="textarea9" cols="100" rows="3" wrap="OFF">
#-EDIT-	$totalplayer = @odrlines;
	if (!$npcplayer) { $npcplayer = 0 } 
#-END of EDIT- SION0030v1.00-1-2/5
</TEXTAREA><BR>
※　<FONT color="#FF0000">ＮＰＣ数を表示しない時は $totalplayer = @odrlines; を消すだけ。</FONT> <BR><BR><BR>
<B><FONT color="#0000FF">sos2.cgi # Sub Saga # Line:455</FONT></B><BR>
<b>print qq|現在のプレイ人数：$playernow&lt;/b>&lt;/div>&lt;/td>&lt;/tr>\n|; </b><br>
<B><FONT color="#0000FF"><BR>perl/option.cgi # Sub Saga # Line:113-114</FONT></B><BR>
<b>print qq|現在のプレイ人数：$playernow&lt;/b>\n|; <BR>
print qq|&lt;/div>&lt;/td>&lt;/tr>\n|; </b><Br>
<TEXTAREA name="textarea6" cols="100" rows="4" wrap="OFF">
#-ADD-
	print qq|ＣＰＵキャラ数：$npcplayer&lt;BR&gt;\n|;
	push (@editor,&quot;隠れキャラ Ver 1.01 &lt;A href='http://www.salion2.halfmoon.jp/soswiki/wiki.cgi' target='_blank'&gt;by SION & SOSWiki&lt;/A&gt;&quot;);
#-END of ADD- SION0030v1.00-1-3/5
	print qq|現在のプレイ人数：$playernow&lt;/b&gt;&lt;/div&gt;&lt;/td&gt;&lt;/tr&gt;\n|;
</TEXTAREA><BR>
※　<FONT color="#FF0000">ＮＰＣ数を表示しない時は改造無し。</FONT> 

!Parts3
<BR>
<B><FONT color="#0000FF">sos2.cgi # Sub Contact Check # Line:719</FONT></B><BR>
<B><FONT color="#0000FF">perl/any.cgi # Sub Contact Check # Line:6</FONT></B><BR>
<b>@prclines = &get_partner("$Fm{'pd'}"); </b><Br>
<TEXTAREA name="textarea" cols="100" rows="5" wrap="OFF">	
@prclines = &amp;get_partner(&quot;$Fm{'pd'}&quot;);
#-ADD-
	if ($psp =~ /Bl/ &amp;&amp; ($psp !~ /(V[a-z])/ || $bg !~ /$1/)) {
		&amp;error(&quot;ID $Fm{'pd'}は存在しません&quot;);
	}
#-END of ADD- SION0030v1.00-2-4/5
</TEXTAREA>

!Parts4
<BR>
<B><FONT color="#0000FF">sos2.cgi # Sub Normal Action # Line:641-643</FONT></B><BR>
<b>($pid,$pnm,$pps,$pjb,$pig,$psp,$pbp,$others) = split(/<>/,$line);<BR>
if ($Fm{'id'} eq $pid) { $mysp = $psp; $mybp = $pbp }<BR>
else { print qq|&lt;OPTION value="$pid">$pid：$pnm($pjb)\n| } </b><BR>
<FONT color="#6666FF">
<TEXTAREA name="textarea13" cols="100" rows="5" wrap="OFF">
#-EDIT-		($pid,$pnm,$pps,$pjb,$pig,$psp,$pbp,$others) = split(/&lt;&gt;/,$line);
#		if ($Fm{'id'} eq $pid) { $mysp = $psp; $mybp = $pbp }
#		else { print qq|&lt;option value=&quot;$pid&quot;&gt;$pid：$pnm($pjb)\n| }
		($pid,$pnm,$pps,$pjb,$pig,$psp,$pbp,$pbn,$pak,$pdd,$php,$pxp,$pab,$pdb,$pav,
			$pwn,$plz,$pdt,$pmn,$pbg,$pxi,$ptm,$plf,$pfe,$pcm,$pis,$pht,$pfg,$prw,$pkl)
			= split(/&lt;&gt;/,$line);
		if ($Fm{'id'} eq $pid) {
			($myid,$null,$null,$null,$null,$mysp,$mybp,$null,$null,$null,$myhp,$myxp,
				$null,$null,$myav,$null,$null,$null,$null,$mybg,$null,$null,$null,$null,
				$null,$null,$null,$null,$null,$null) = split(/&lt;&gt;/,$line);
			next;
		}
		if ($psp =~ /Bl/ &amp;&amp; ($psp !~ /(V[a-z])/ || $mybg !~ /$1/ || $ptw ne $mytw))
			{ next; }
		print qq|&lt;option value=&quot;$pid&quot;&gt;$pid：$pnm($pjb)\n|;
#-END of EDIT- SION0030v1.00-3-5/5
</TEXTAREA><br>
($pid,$pnm,$pps,$pjb,$pig,$psp,$pbp,$pbn,$pak,$pdd,$php,$pxp,$pab,$pdb,$pav, <BR>
$pwn,$plz,$pdt,$pmn,$pbg,$pxi,$ptm,$plf,$pfe,$pcm,$pis,$pht,$pfg,$prw,$pkl)<BR>
= split(/&lt;&gt;/,$line);</FONT></P>
<P><FONT color="#6666FF"> ($myid,$null,$null,$null,$null,$mysp,$mybp,$null,$null,$null,$myhp,$myxp,<BR>
$null,$null,$myav,$null,$null,$null,$null,$mybg,$null,$null,$null,$null,<BR>
$null,$null,$null,$null,$null,$null) = split(/&lt;&gt;/,$line); </FONT></P>
<P><FONT color="#FF00FF">上記２箇所は、環境・他の改造などに併せて修正して下さい。<BR>
また、$tw や $area/$paa など、街・エリアフラグを追加している場合は、それを含める様にして下さい。</FONT></P>

!Parts5
<BR>
<B><FONT color="#0000FF">perl/action.cgi 	# Sub Normal Action # Line:11-13</FONT></B><BR>
<b>($pid,$pnm,$parea,$pps,$pjb,$pig,$psp,$pbp,$pbn,$pak,$pdd,$php,$others) = split(/<>/,$line);<BR>
if ($Fm{'id'} eq $pid) { $mysp = $psp; $mybp = $pbp; $myhp = $php } <BR>
else { print qq|&lt;OPTION value="$pid">$pid：$pnm($pjb)\n| } <BR></b>
<FONT color="#6666FF"> 
<TEXTAREA name="textarea2" cols="100" rows="5" wrap="OFF">
#-EDIT-	($pid,$pnm,$parea,$pps,$pjb,$pig,$psp,$pbp,$pbn,$pak,$pdd,$php,$others) = split(/<>/,$line);
#		if ($Fm{'id'} eq $pid) { $mysp = $psp; $mybp = $pbp; $myhp = $php }
#		else { print qq|&lt;option value=&quot;$pid&quot;&gt;$pid：$pnm($pjb)\n| }
		($pid,$pnm,$parea,$pps,$pjb,$pig,$psp,$pbp,$pbn,$pak,$pdd,$php,$pxp,$pab,
			$pdb,$pav,$pwn,$plz,$pdt,$pmn,$pbg,$pxi,$ptm,$plf,$pfe,$pcm,$pis,$pht,
			$pfg,$prw,$pkl,$plv,$pexp,$pct) = split(/<>/,$line);
		if ($Fm{'id'} eq $pid) {
			($myid,$null,$myarea,$null,$null,$null,$mysp,$mybp,$null,$null,$null,
				$myhp,$myxp,$null,$null,$myav,$null,$null,$null,$null,$mybg,$null,$null,
				$null,$null,$null,$null,$null,$null,$null,$null,$null,$null,$null)
				 = split(/<>/,$line);
			next;
		}
		if ($psp =~ /Bl/ &amp;&amp; ($psp !~ /(V[a-z])/ || $mybg !~ /$1/ || $parea ne $myarea))
			{ next; }
		print qq|&lt;option value=&quot;$pid&quot;&gt;$pid：$pnm($pjb)\n|;
#-END of EDIT- SION0030v1.00-3-5/5
</TEXTAREA><br>
($pid,$pnm,$parea,$pps,$pjb,$pig,$psp,$pbp,$pbn,$pak,$pdd,$php,$pxp,$pab,<BR>
$pdb,$pav,$pwn,$plz,$pdt,$pmn,$pbg,$pxi,$ptm,$plf,$pfe,$pcm,$pis,$pht,<BR>
$pfg,$prw,$pkl,$plv,$pexp,$pct) = split(/<>/,$line);</FONT></P>
<P><FONT color="#6666FF">
($myid,$null,$myarea,$null,$null,$null,$mysp,$mybp,$null,$null,$null,<BR>
$myhp,$myxp,$null,$null,$myav,$null,$null,$null,$null,$mybg,$null,$null,<BR>
$null,$null,$null,$null,$null,$null,$null,$null,$null,$null,$null)<BR>
 = split(/<>/,$line);</FONT></P>
<P><FONT color="#FF00FF">上記２箇所は、環境・他の改造などに併せて修正して下さい。</FONT></P>