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

隠れキャラ

青色は、改造箇所を示します。ファイル名：　ルーチン名：　行番号　を示します。
黒色文字は、「改造前の状態」を示します。
テキストボックスの中のプログラムを、該当の場所に上書きして下さい。

隠れキャラ Ver 1.01 ★★☆☆☆☆☆☆

　ボス敵や重要キャラなど、ＮＰＣの隠れキャラを作る改造です。
この改造を取り入れる際には、併せて【改造者表示】の改造を取り入れて頂けると嬉しいです。（非強制）

履歴
2007/02/17　Wikiにて公開　　　　　　
2003/08/21　フラグが楽器装備と被っていたので Bl に変更／細かいバグ修正 
2003/08/20　Version 1.00　公開

この改造によって－
●　フラグ Bl があるキャラクターは、リストに表示されなくなります。
●　フラグ Ng または Bl があるキャラクターは、プレイヤー総数にカウントされません。
●　フラグ Ng または Bl があるキャラクターは、ＣＰＵキャラ数としてそのキャラ数が表示されます。

●　フラグ Bl だけを持つキャラクタには、通常の方法では出会えなくなります。
　　また、ゲーム中のキャラ一覧プルダウンリストにも表示されません。別途ＮＰＣ遭遇改造などが必要です。
●　フラグ Bl と、V[a-z]の紹介状フラグを持つキャラクタは、該当する紹介状を持っている場合に限って表示されるようになります。
　　別途、街移動システムなどを導入している場合、別の街にいる場合は表示されません。
●　フラグ Bl を持たないキャラは、これまで通り通常に表示されます。

○　改造ポイント０３は、環境によって若干異なります。ご自身の該当部分を十分ご確認の上で修正を行ってください。
○　マシマロさんの分割バージョンの一部では、List In Order が２つ存在する場合があります。other.pl の方を修正して下さい。

共通改造ポイント

TOP ↑ ↓

◆改造ポイント０１リスト表示部を修正します。

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/;
next if $Fm{'order'} eq 'Rate' && $sp !~ /Tf/; #-ADD- if ($sp =~ /Bl/) { $npcplayer++; next; } if ($sp !~ /Ng/) { $totalplayer++; } else { $npcplayer++; } #-END of ADD- SION0030v1.00-1-1/5
※　ＮＰＣ数を表示しない時は $npcplayer++; ２箇所削除。

sos2.cgi # Sub Saga # Line:452
perl/option.cgi # Sub Saga # Line:105
$totalplayer = @odrlines;
#-EDIT- $totalplayer = @odrlines; if (!$npcplayer) { $npcplayer = 0 } #-END of EDIT- SION0030v1.00-1-2/5
※　ＮＰＣ数を表示しない時は $totalplayer = @odrlines; を消すだけ。

sos2.cgi # Sub Saga # Line:455
print qq|現在のプレイ人数：$playernow</b></div></td></tr>\n|;

perl/option.cgi # Sub Saga # Line:113-114
print qq|現在のプレイ人数：$playernow</b>\n|;
print qq|</div></td></tr>\n|;
#-ADD- print qq|ＣＰＵキャラ数：$npcplayer<BR>\n|; push (@editor,"隠れキャラ Ver 1.01 <A href='http://www.salion2.halfmoon.jp/soswiki/wiki.cgi' target='_blank'>by SION & SOSWiki</A>"); #-END of ADD- SION0030v1.00-1-3/5 print qq|現在のプレイ人数：$playernow</b></div></td></tr>\n|;
※　ＮＰＣ数を表示しない時は改造無し。

◆改造ポイント０２直接ＩＤ入力などで遭遇されるのを防止し、存在しない状態を偽装します。

TOP ↑ ↓

sos2.cgi # Sub Contact Check # Line:719
perl/any.cgi # Sub Contact Check # Line:6
@prclines = &get_partner("$Fm{'pd'}");
@prclines = &get_partner("$Fm{'pd'}"); #-ADD- if ($psp =~ /Bl/ && ($psp !~ /(V[a-z])/ || $bg !~ /$1/)) { &error("ID $Fm{'pd'}は存在しません"); } #-END of ADD- SION0030v1.00-2-4/5

本家版改造ポイント／dollEx版改造ポイントへ進む：改造ポイント０３を実施

本家版改造ポイント

TOP ↑ ↓

◆改造ポイント０３探索回数決定部を修正します。

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| }
#-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(/<>/,$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(/<>/,$line); next; } if ($psp =~ /Bl/ && ($psp !~ /(V[a-z])/ || $mybg !~ /$1/ || $ptw ne $mytw)) { next; } print qq|<option value="$pid">$pid：$pnm($pjb)\n|; #-END of EDIT- SION0030v1.00-3-5/5
($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 など、街・エリアフラグを追加している場合は、それを含める様にして下さい。

dollEx版改造ポイント

TOP ↑ ↓

◆改造ポイント０３探索回数決定部を修正します。

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| }
#-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/ && ($psp !~ /(V[a-z])/ || $mybg !~ /$1/ || $parea ne $myarea)) { next; } print qq|<option value="$pid">$pid：$pnm($pjb)\n|; #-END of EDIT- SION0030v1.00-3-5/5
($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);

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