!Parts1

masimaro さんの配布されております、[ 装備使用回数制限 ] と併用する場合には、下記修正を必ず実施して下さい。
[ 装備使用回数制限 ] は、非戦闘系の戦闘を想定していない為、この修正が必要となります。
# sub fight #　【 if ($pc > 0) { 】の行を、【 if ($break == 0 || $pc > 0) { 】として下さい。

ねる部屋さんの配布されておりました、[ 戦闘に解説を付ける ] と併用する場合には、下記修正を必ず実施して下さい。
[ 戦闘に解説を付ける ] の該当部分は、問題を孕んでいます。
battle.pl 　sub bmsg　
foreach $item (@items) {
($item,$sts,$price) = split(/△/,$item);
の所を、
foreach $temp (@items) {
($item,$sts,$price) = split(/△/,$temp);
として下さい。

!Parts2
sos2.cgi # Sub Get Partner # Line:2164
perl/subsos.cgi # Sub Get Partner # Line:83
shift(@_);

※ 街移動システム／エリア移動システムが未導入の場合、特に必要ありません。
※【ＮＰＣ強化】改造を併せてお奨めします。 !Parts3
sos2.cgi # Sub Fight # Line:1550
if ($plf eq $id) { push (@msg,"$pnmとは暫く戦えません"); return }

sos2.cgi # Sub Fight # Line:1572
$uatk = $ak + $ab + $uw + $uo; $patk = $pak + $pab + $def_ab + $pw + $po;

sos2.cgi # Sub Fight # Line:1626
if (!$Bidice) {

sos2.cgi # Sub Fight # Line:1649-1661
if ($itemchance && $pitems[$Sidice]) {
&splititem('i');
($item,$sts,$price) = split(/△/,$pitems[$Sidice]);
if ($sts !~ /Ns/) {
if ($sts =~ s/Q[swat]//g) { $pab -= substr($sts,4,2); $pdb -= substr($sts,6,2) }
splice(@pitems,$Sidice,1); push(@items,"$item△$sts");
$psp =~ s/Qb//g if $sts =~ /Bw/;
$psp =~ s/Qk//g if $sts =~ /Kt/;
$psp =~ s/Qx//g if $sts =~ /Ax/;
$psp =~ s/Qm//g if $sts =~ /Sw/;
&joinitem('iI'); &fmsg('奪');
}
}

#-ADD-
	if (!$find) {
#-END of ADD- SOSWiki0002v3.01-2-5(1)/18
		if ($itemchance && $pitems[$Sidice]) {
			&splititem('i');
			($item,$sts,$price) = split(/△/,$pitems[$Sidice]);
			if ($sts !~ /Ns/) {
				if ($sts =~ s/Q[swat]//g) { $pab -= substr($sts,4,2); $pdb -= substr($sts,6,2) }
				splice(@pitems,$Sidice,1); push(@items,"$item△$sts");
				$psp =~ s/Qb//g if $sts =~ /Bw/;
				$psp =~ s/Qk//g if $sts =~ /Kt/;
				$psp =~ s/Qx//g if $sts =~ /Ax/;
				$psp =~ s/Qm//g if $sts =~ /Sw/;
				&joinitem('iI'); &fmsg('奪');
			}
		}
#-ADD-
	} else {
		if ($itemchance && $items[$Sidice]) {
			&splititem('i');
			($item,$sts,$price) = split(/△/,$items[$Sidice]);
			if ($sts !~ /Ns/) {
				if ($sts =~ s/Q[swat]//g) { $ab -= substr($sts,4,2); $db -= substr($sts,6,2) }
				splice(@items,$Sidice,1); push(@pitems,"$item△$sts");
				$sp =~ s/Qb//g if $sts =~ /Bw/;
				$sp =~ s/Qk//g if $sts =~ /Kt/;
				$sp =~ s/Qx//g if $sts =~ /Ax/;
				$sp =~ s/Qm//g if $sts =~ /Sw/;
				&joinitem('iI'); &fmsg('失');
	}	}	}
#-END of ADD- SOSWiki0002v3.01-2-5(2)/18

sos2.cgi # Fight Message # Line:1727
'奪',"$pnmから$itemを奪いました",
!Parts4
sos2.cgi # ---------- USER DIRECTORY Line34
$usrdir = 'userdata/'; # ユーザデータを格納するフォルダ

※ 'NPC' の部分は任意に変更して下さい。
ファイル名を変更せず、デフォルト（ＩＤ４桁のみ）を使う場合は Null（''）にして下さい。 !Parts5
sos2.cgi # Sub Find Item # Line792
if ($idt !~ /Gl/) { push(@items,"$inm△$idt"); &joinitem('i') }

※ 出会いやすくしたり出会い難くするスキルを追加する場合は、
$runrd = int(rand(100) + 1); の行を改造します。
※ 複数回探索を取り入れている場合には、１つ目の return を last に書き換えて下さい。
また、foreach のループの外にある &userout; は、if (!$find) { &userout; }として下さい。 !Parts6
sos2.cgi # Sub Play Form # Line299
&find_item if $Fm{'mode'} eq 'find_item';

sos2.cgi # Sub Contact Form # Line329
sub contact_form {

sos2.cgi # Main Program # Line229
if ($Fm{'mode'} eq 'find_item') { &play_form }
!Parts7