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

SION0030

Parts1

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

Parts2

TOP ↑ ↓

sos2.cgi # Sub List In Order # Line:1940 
perl/other.cgi # Sub List In Order # Line:16 
next if $Fm{'order'} eq 'Rate' && $sp !~ /Tf/; 
<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> 
※　ＮＰＣ数を表示しない時は $npcplayer++; ２箇所削除。 
sos2.cgi # Sub Saga # Line:452 
perl/option.cgi # Sub Saga # Line:105 
$totalplayer = @odrlines; 
<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> 
※　ＮＰＣ数を表示しない時は $totalplayer = @odrlines; を消すだけ。 
sos2.cgi # Sub Saga # Line:455 
print qq|現在のプレイ人数：$playernow</div></td></tr>\n|; 
 perl/option.cgi # Sub Saga # Line:113-114 
print qq|現在のプレイ人数：$playernow\n|; 
print qq|</div></td></tr>\n|; 
<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> 
※　ＮＰＣ数を表示しない時は改造無し。

Parts3

TOP ↑ ↓

sos2.cgi # Sub Contact Check # Line:719 
perl/any.cgi # Sub Contact Check # Line:6 
@prclines = &get_partner("$Fm{'pd'}"); 
<TEXTAREA name="textarea" cols="100" rows="5" wrap="OFF">
@prclines = &get_partner("$Fm{'pd'}");
#-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

TOP ↑ ↓

sos2.cgi # Sub Normal Action # Line:641-643 
($pid,$pnm,$pps,$pjb,$pig,$psp,$pbp,$others) = split(/<>/,$line); 
if ($Fm{'id'} eq $pid) { $mysp = $psp; $mybp = $pbp } 
else { print qq|<OPTION value="$pid">$pid：$pnm($pjb)\n| } 

<TEXTAREA name="textarea13" cols="100" rows="5" wrap="OFF">
#-EDIT- ($pid,$pnm,$pps,$pjb,$pig,$psp,$pbp,$others) = split(/<>/,$line);
# if ($Fm{'id'} eq $pid) { $mysp = $psp; $mybp = $pbp }
# else { print qq|<option value="$pid">$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> 
($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(/<>/,$line);
 ($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(/<>/,$line); 
上記２箇所は、環境・他の改造などに併せて修正して下さい。 
また、$tw や $area/$paa など、街・エリアフラグを追加している場合は、それを含める様にして下さい。

Parts5

TOP ↑ ↓

perl/action.cgi # Sub Normal Action # Line:11-13 
($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|<OPTION value="$pid">$pid：$pnm($pjb)\n| } 

<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|<option value="$pid">$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> 
($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);

($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);</FONT></P>

上記２箇所は、環境・他の改造などに併せて修正して下さい。