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

SION0002

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

<TEXTAREA name="textarea10" cols="100" wrap="OFF" rows="5">
#-ADD-

if ($find || $Fm{'find'}) {
	$ptw = $tw; $parea = $area;
	if ($php &lt; 3) { $php = 3; }
}

#-END of ADD- SION0002v3.01-1-1/18

shift(@_);

</TEXTAREA> 
※ 街移動システム／エリア移動システムが未導入の場合、特に必要ありません。 
※【ＮＰＣ強化】</A>改造を併せてお奨めします。

Parts3

TOP ↑ ↓

sos2.cgi # Sub Fight # Line:1550 
if ($plf eq $id) { push (@msg,"$pnmとは暫く戦えません"); return } 
<TEXTAREA name="textarea13" cols="100" wrap="OFF" rows="3">
#-EDIT- if ($plf eq $id) { push (@msg,"$pnmとは暫く戦えません"); return }

if ($plf eq $id &amp;&amp; !$find) { push (@msg,&quot;$pnmとは暫く戦えません&quot;); return }

#-END of EDIT- SION0002v3.01-2-2/18
</TEXTAREA> 
sos2.cgi # Sub Fight # Line:1572 
$uatk = $ak + $ab + $uw + $uo; $patk = $pak + $pab + $def_ab + $pw + $po; 
<TEXTAREA name="textarea13" cols="100" wrap="OFF" rows="3">
#-EDIT- $uatk = $ak + $ab + $uw + $uo; $patk = $pak + $pab + $def_ab + $pw + $po;

if ($find) { $uatk = $ak + $ab + $def_ab + $uw + $uo; $patk = $pak + $pab + $pw + $po;
	push (@editor,&quot;ＮＰＣ遭遇（モンスター遭遇） Ver 3.00 &lt;A href='http://www.salion2.halfmoon.jp/soswiki/wiki.cgi' target='_blank'&gt;by SION & SOSWiki&lt;/A&gt;&quot;); }
else       { $uatk = $ak + $ab + $uw + $uo; $patk = $pak + $pab + $def_ab + $pw + $po; }

#-END of EDIT- SION0002v3.01-2-3/18
</TEXTAREA> 
sos2.cgi # Sub Fight # Line:1626 
if (!$Bidice) { 
<TEXTAREA name="textarea13" cols="100" wrap="OFF" rows="3">
#-EDIT- unless ($Bidice) {

if (!$Bidice &amp;&amp; !$find) {

#-END of EDIT- SION0002v3.01-2-4/18
</TEXTAREA> 
sos2.cgi # Sub Fight # Line:1649-1661 
if ($itemchance && $pitems[$Sidice]) {

		&splititem('i');<BR>
		($item,$sts,$price) = split(/△/,$pitems[$Sidice]);<BR>
		if ($sts !~ /Ns/) {<BR>
		if ($sts =~ s/Q[swat]//g) { $pab -= substr($sts,4,2); $pdb -= substr($sts,6,2) 
		}<BR>
		splice(@pitems,$Sidice,1); push(@items,"$item△$sts");<BR>
		$psp =~ s/Qb//g if $sts =~ /Bw/;<BR>
		$psp =~ s/Qk//g if $sts =~ /Kt/;<BR>
		$psp =~ s/Qx//g if $sts =~ /Ax/; <BR>
		$psp =~ s/Qm//g if $sts =~ /Sw/;<BR>
		&joinitem('iI'); &fmsg('奪');<BR>
		}<BR>
		} </b><br>

<TEXTAREA name="textarea14" cols="100" wrap="OFF" rows="5">
#-ADD-

if (!$find) {

#-END of ADD- SION0002v3.01-2-5(1)/18

	if ($itemchance &amp;&amp; $pitems[$Sidice]) {
		&amp;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,&quot;$item△$sts&quot;);
			$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/;
			&amp;joinitem('iI'); &amp;fmsg('奪');
		}
	}

#-ADD-

} else {
	if ($itemchance &amp;&amp; $items[$Sidice]) {
		&amp;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,&quot;$item△$sts&quot;);
			$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/;
			&amp;joinitem('iI'); &amp;fmsg('失');
}	}	}

#-END of ADD- SION0002v3.01-2-5(2)/18
</TEXTAREA> 
sos2.cgi # Fight Message # Line:1727 
'奪',"$pnmから$itemを奪いました", 
<TEXTAREA name="textarea13" cols="100" wrap="OFF" rows="4">

		  '奪',&quot;$pnmから$itemを奪いました&quot;,

#-ADD-

		  '失',&quot;$pnm に $itemを奪われました&quot;,

#-END of ADD- SION0002v3.01-2-6/18
</TEXTAREA>

Parts4

TOP ↑ ↓

sos2.cgi # ---------- USER DIRECTORY Line34 
$usrdir = 'userdata/'; # ユーザデータを格納するフォルダ 

<TEXTAREA name="textarea15" cols="100" wrap="OFF" rows="4">
$usrdir = 'userdata/'; # ユーザデータを格納するフォルダ
#-ADD-
$nghead = 'NPC'; # npcファイルの接頭子(***0000.dat)
#-END of ADD- SION0002v3.01-3-7/18
</TEXTAREA> 
※ 'NPC' の部分は任意に変更して下さい。 
ファイル名を変更せず、デフォルト（ＩＤ４桁のみ）を使う場合は Null（''）にして下さい。

Parts5

TOP ↑ ↓

sos2.cgi # Sub Find Item # Line792 
if ($idt !~ /Gl/) { push(@items,"$inm△$idt"); &joinitem('i') } 

<TEXTAREA name="textarea16" cols="100" wrap="OFF" rows="5">
#-ADD-
#-------- ＮＰＣ出現 -------------------

if ($idt =~ /Ng/ || $idt =~ /Ms/) {
	$ngid = substr($idt,0,4);
	$Fm{'pd'} = $nghead . $ngid;
	$runtf = substr($idt,4,2);
	$runtv = substr($idt,6,2);
	if ($sp =~ /Tf/) { $run = $runtf } else { $run = $runtv }
	$runrd = int(rand(100) + 1);
	if ($run &gt;= $runrd ) {
		if ($idt =~ /Ms/) {
			push (@msg,&quot;何かが近づく気配に気付いたので、うまくやり過ごしました。&quot;);
			$exp += int(rand(5));	}
		else {
			push (@msg,&quot;何物かが草陰から走り去って行きました。&quot;); }
	} else {
		$find = 'find';
		&amp;joinitem('i'); &amp;userout;
		$getuserflag = 0;
		if ($idt =~ /Ms/) {
			push (@msg,&quot;&lt;HR&gt;$inm が現れ、戦闘となりました。&lt;HR&gt;&quot;);
			&amp;fight; }
		else {
			push (@msg,&quot;&lt;HR&gt;$inm に出会いました。&quot;);
			$notfound = 0; }
		return; }                   # 複数回探索を取り入れている場合は、last; に変更する。
	return; }

#-END of ADD- SION0002v3.01-4-8/18

if ($idt !~ /Gl/) { push(@items,&quot;$inm△$idt&quot;); &amp;joinitem('i') }

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

Parts6

TOP ↑ ↓

sos2.cgi # Sub Play Form # Line299 
&find_item if $Fm{'mode'} eq 'find_item'; 
<TEXTAREA name="textarea17" cols="100" wrap="OFF" rows="2">
#-DEL- &find_item if $Fm{'mode'} eq 'find_item';
#-END of DEL- SION0002v3.01-5-9/18
</TEXTAREA> 
sos2.cgi # Sub Contact Form # Line329 
sub contact_form { 
<TEXTAREA name="textarea17" cols="100" wrap="OFF" rows="4">
sub contact_form {
#-ADD-

if ($Fm{'mode'} eq 'find_item') { $notfound = 1; &amp;find_item; }

#-END of ADD- SION0002v3.01-5-10/18
</TEXTAREA> 
sos2.cgi # Main Program # Line229 
if ($Fm{'mode'} eq 'find_item') { &play_form } 
<TEXTAREA name="textarea17" cols="100" wrap="OFF" rows="3">
#-EDIT-if ($Fm{'mode'} eq 'find_item') { &play_form }
elsif ($Fm{'mode'} eq 'find_item') { &contact_form }
#-END of EDIT- SION0002v3.01-5-11/18
</TEXTAREA>

Parts7

TOP ↑ ↓

sos2.cgi # Sub Contact Action # Line685 
 if ($psp =~ /(V[a-z])/) {

		$vflag = $1;<BR>
		&splititem('i'); <BR>
		foreach (@items) {<BR>
		$right = 1 if (split(/△/))[1] =~ /$vflag/;<BR>
		}<BR>
		if (!$right) {<BR>
		&error("$pnmに会うためにはあるアイテムが必要です"); <BR>
		} <BR>
		} </b><BR>

<TEXTAREA name="textarea18" cols="100" wrap="OFF" rows="5">
#-EDIT- if ($psp =~ /(V[a-z])/) {
# $vflag = $1;
# &splititem('i');
# foreach (@items) {
# $right = 1 if (split(/△/))[1] =~ /$vflag/;
# }
# if (!$right) {
# &error("$pnmに会うためにはあるアイテムが必要です");
# }
# }

if (!$post) { return; }

#-END of EDIT- SION0002v3.01-6-12/18
</TEXTAREA> 
※ $method をGETに変更していると動作しなくなります。POST の設定に戻してください。 
何らかの事情で GET にせざるを得ない場合は、if (!$post) { return } の行を削除すれば 
動作はしますが、不正行為が行われやすくなります。 
sos2.cgi # Sub Contact Action # Line685 
&OKbuttoninform('on'); 
<TEXTAREA name="textarea18" cols="100" wrap="OFF" rows="5">
#-ADD-

if ($find || $Fm{'find'}) {
	push (@editor,&quot;ＮＰＣ遭遇 Ver 3.00 &lt;A href='http://www.salion2.halfmoon.jp/soswiki/wiki.cgi' target='_blank'&gt;by SION & SOSWiki&lt;/A&gt;&quot;);
	&amp;input('hidden','find','on','',''); }

#-END of ADD- SION0002v3.01-6-13/18

&amp;OKbuttoninform('on');

</TEXTAREA>

Parts8

TOP ↑ ↓

if ($find || $Fm{'find'}) {
	if ($php &lt; 3) { $php = 3; }
	$parea = $area; }

#-END of ADD- SION0002v3.01-1-1/18

shift(@_);

</TEXTAREA> 
※ 街移動システム／エリア移動システムが未導入の場合、特に必要ありません。 
※【ＮＰＣ強化】改造を併せてお奨めします。

Parts9

TOP ↑ ↓

perl/fight.cgi # Sub Fight # Line:9 
my($afgt_chk,$afck_msg) = &fight_check; 
<TEXTAREA name="textarea20" cols="100" wrap="OFF" rows="3">
#-EDIT- my($afgt_chk,$afck_msg) = &fight_check;

if (!$find &amp;&amp; !$Fm{'find'}) { my($afgt_chk,$afck_msg) = &amp;fight_check; }

#-END of EDIT- SION0002v3.01-2-2/18
</TEXTAREA> 
 perl/fight.cgi # Sub Fight # Line:33 
$uatk = $ak + $ab + $def_ab + $uw + $uo; $patk = $pak + $pab + $pw + $po; 
<TEXTAREA name="textarea20" cols="100" wrap="OFF" rows="5">
#-EDIT- $uatk = $ak + $ab + $uw + $uo; $patk = $pak + $pab + $def_ab + $pw + $po;

if ($find) { $uatk = $ak + $ab + $def_ab + $uw + $uo; $patk = $pak + $pab + $pw + $po; }
	           push (@editor,&quot;ＮＰＣ遭遇（モンスター遭遇） Ver 3.00 &lt;A href='http://www.salion2.halfmoon.jp/soswiki/wiki.cgi' target='_blank'&gt;by SION & SOSWiki&lt;/A&gt;&quot;);
else       { $uatk = $ak + $ab + $uw + $uo; $patk = $pak + $pab + $def_ab + $pw + $po; }

#-END of EDIT- SION0002v3.01-2-3/18
</TEXTAREA> 
perl/fight.cgi # Sub Fight # Line:128 
unless ($Bidice) { 
<TEXTAREA name="textarea20" cols="100" wrap="OFF" rows="3">
#-EDIT- unless ($Bidice) {

if (!$Bidice &amp;&amp; !$find) {

#-END of EDIT- SION0002v3.01-2-4/18
</TEXTAREA> 
perl/fight.cgi # Sub Fight # Line:155-171 
if ($itemchance && $pitems[$Sidice]) {

		&splititem('i');<BR>
		($item,$sts,$price) = split(/△/,$pitems[$Sidice]); <BR>
		if ($sts !~ /Ns/) {<BR>
		if ($sts =~ s/Q[swat]//g) { $pab -= substr($sts,4,2); $pdb -= substr($sts,6,2) 
		}<BR>
		splice(@pitems,$Sidice,1); push(@items,"$item△$sts");<BR>
		$psp =~ s/Qb//g if $sts =~ /Bw/;<BR>
		$psp =~ s/Qk//g if $sts =~ /Kt/;<BR>
		$psp =~ s/Qx//g if $sts =~ /Ax/; <BR>
		$psp =~ s/Qm//g if $sts =~ /Sw/;<BR>
		$psp =~ s/Of// if $sts =~ /Of/; # 釣り竿の盗み処理<BR>
		#属性<BR>
		foreach (@element_ak) { if($sts =~ /$_/) { $psp =~ s/$_// } }<BR>
		foreach (@element_df) { if($sts =~ /$_/) { $psp =~ s/$_// } }<BR>
		&joinitem('iI'); &fmsg('奪');<BR>
		}<BR>
		} </b><br>

<TEXTAREA name="textarea20" cols="100" wrap="OFF" rows="5">
#-ADD-

if (!$find) {

#-END of ADD- SION0002v3.01-2-5(1)/18

	if ($itemchance &amp;&amp; $pitems[$Sidice]) {
		&amp;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,&quot;$item△$sts&quot;);
			$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/;
			$psp =~ s/Of// if $sts =~ /Of/; # 釣り竿の盗み処理

#属性

			foreach (@element_ak) { if($sts =~ /$_/) { $psp =~ s/$_// } }
			foreach (@element_df) { if($sts =~ /$_/) { $psp =~ s/$_// } }
			&amp;joinitem('iI'); &amp;fmsg('奪');
		}
	}

#-ADD-

} else {
	if ($itemchance &amp;&amp; $items[$Sidice]) {
		&amp;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,&quot;$item△$sts&quot;);
			$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/;
			$sp =~ s/Of//  if $sts =~ /Of/; # 釣り竿の盗み処理

#属性

			foreach (@element_ak) { if($sts =~ /$_/) { $sp =~ s/$_// } }
			foreach (@element_df) { if($sts =~ /$_/) { $sp =~ s/$_// } }
			&amp;joinitem('iI'); &amp;fmsg('失');
		}
	}
}

#-END of ADD- SION0002v3.01-2-5(2)/18
</TEXTAREA> 
perl/fight.cgi # Fight Message # Line:237 
'奪',"$pnmから$itemを奪いました", 
<TEXTAREA name="textarea20" cols="100" wrap="OFF" rows="4">

		  '奪',&quot;$pnmから$itemを奪いました&quot;,

#-ADD-

		  '失',&quot;$pnm に $itemを奪われました&quot;,

#-END of ADD- SION0002v3.01-2-6/18
</TEXTAREA>

Parts10

TOP ↑ ↓

ini/filepath.cgi # ---------- USER DIRECTORY Line:19 
$usrdir = 'userdata/'; # ユーザデータを格納するフォルダ 

<TEXTAREA name="textarea20" cols="100" wrap="OFF" rows="4">
$usrdir = 'userdata/'; # ユーザデータを格納するフォルダ
#-ADD-
$nghead = 'NPC'; # npcファイルの接頭子(***0000.dat)
#-END of ADD- SION0002v3.01-3-7/18
</TEXTAREA> 
※ 'NPC' の部分は任意に変更して下さい。 
ファイル名を変更せず、デフォルト（ＩＤ４桁のみ）を使う場合は Null（''）にして下さい。

Parts11

TOP ↑ ↓

perl/find.cgi # Sub Find Item # Line:45 
require $itemcreatorpl; ($inm,$idt) = &item_ceator($inm,$idt); 

<TEXTAREA name="textarea20" cols="100" wrap="OFF" rows="5">
#-ADD-
#-------- ＮＰＣ出現 -------------------

if ($idt =~ /Ng/ || $idt =~ /Ms/) {
	$ngid = substr($idt,0,4);
	$Fm{'pd'} = $nghead . $ngid;
	$runtf = substr($idt,4,2);
	$runtv = substr($idt,6,2);
	if ($sp =~ /Tf/) { $run = $runtf } else { $run = $runtv }
	$runrd = int(rand(100) + 1);
	&amp;joinitem('i'); &amp;userout;
	if ($run &gt;= $runrd ) {
		if ($idt =~ /Ms/) { push (@msg,&quot;何かが近づく気配に気付いたので、うまくやり過ごしました。&quot;);
			$exp += int(rand(5)); }
		else              { push (@msg,&quot;何物かが草陰から走り去って行きました。&quot;); }
	} else {
		$find = 'find';
		if ($idt =~ /Ms/) {
			push (@msg,&quot;&lt;HR&gt;$inm が現れ、戦闘となりました。&lt;HR&gt;&quot;);
			require $fightpl; &amp;fight; }
		else {
			push (@msg,&quot;&lt;HR&gt;$inm に出会いました。&quot;);
			$notfound = 0; }
		last; }
	return; }

#-END of ADD- SION0002v3.01-4-8/18

require $itemcreatorpl; ($inm,$idt) = &amp;item_ceator($inm,$idt);

</TEXTAREA> 
※ 出会いやすくしたり出会い難くするスキルを追加する場合は、 
$runrd = int(rand(100) + 1); 
の行を改造します。

Parts12

TOP ↑ ↓

perl/form.cgi # Sub Play Form # Line:14-19 
 if ( $Fm{'mode'} eq 'find_item' ) {

		require $findpl; srand(time | $$);<BR>
		foreach(0 .. ($Fm{'it'} -1)) { undef @founditems; &find_item; } <BR>
		}<BR>
		#鍛冶<BR>
		elsif ( $Fm{'mode'} eq 'smith_after' ) { require $smithpl; &smith_after; 
		} </b><br>

<TEXTAREA name="textarea20" cols="100" wrap="OFF" rows="5">
#-EDIT- if ( $Fm{'mode'} eq 'find_item' ) {
# require $findpl; srand(time | $$);
# foreach(0 .. ($Fm{'it'} -1)) { undef @founditems; &find_item; }
# }
##鍛冶
# elsif ( $Fm{'mode'} eq 'smith_after' ) { require $smithpl; &smith_after; }

if ( $Fm{'mode'} eq 'smith_after' ) { require $smithpl; &amp;smith_after; }

#-END of EDIT- SION0002v3.01-5-9/18
</TEXTAREA> 
perl/form.cgi # Sub Contact Form # Line:61 
if ( $Fm{'mode'} eq 'find_partner' ) { require $anypl; &contact_check } 
<TEXTAREA name="textarea20" cols="100" wrap="OFF" rows="5">
#-EDIT- if ( $Fm{'mode'} eq 'find_partner' ) { require $anypl; &contact_check }

if ( $Fm{'mode'} eq 'find_item' ) {
	$notfound = 1; 
	require $findpl; srand(time | $$);
	foreach(0 .. ($Fm{'it'} -1)) { undef @founditems; &amp;find_item; }
}
elsif ( $Fm{'mode'} eq 'find_partner' ) { require $anypl; &amp;contact_check }

#-END of ADD- SION0002v3.01-5-10/18
</TEXTAREA> 
sos2.cgi # Main Program # Line:36 
elsif ($Fm{'mode'} eq 'find_item') { require $formpl; &play_form } 
<TEXTAREA name="textarea20" cols="100" wrap="OFF" rows="3">
#-EDIT-elsif ($Fm{'mode'} eq 'find_item') { require $formpl; &play_form }
elsif ($Fm{'mode'} eq 'find_item') { require $formpl; &contact_form }
#-END of EDIT- SION0002v3.01-5-11/18
</TEXTAREA>

Parts13

TOP ↑ ↓

perl/action.cgi # Sub Contact Action # Line:69 
if ($psp =~ /(V[a-z])/ && $bg !~ /$1/) { &error("$pnmに会うためにはあるアイテムが必要です")

		} </b><br>

<TEXTAREA name="textarea20" cols="100" wrap="OFF" rows="2">
#-DEL- if ($psp =~ /(V[a-z])/ && $bg !~ /$1/) { &error("$pnmに会うためにはあるアイテムが必要です") }
#-END of DEL- SION0002v3.01-6-12/18
</TEXTAREA> 
perl/action.cgi # Sub Contact Action # Line:85 
&OKbuttoninform('on'); 
<TEXTAREA name="textarea20" cols="100" wrap="OFF" rows="5">
#-ADD-

if ($find || $Fm{'find'}) {
	push (@editor,&quot;ＮＰＣ遭遇 Ver 3.01 &lt;A href='http://www.salion2.halfmoon.jp/soswiki/wiki.cgi' target='_blank'&gt;by SION & SOSWiki&lt;/A&gt;&quot;);
	&amp;input('hidden','find','on','',''); }

#-END of ADD- SION0002v3.01-6-13/18

&amp;OKbuttoninform('on');

</TEXTAREA>

Parts14

TOP ↑ ↓

ufs2.cgi # ------------ USER DIRECTORY Line39 
dollEx 版は不要 
$usrdir = 'userdata/'; # ユーザデータを格納しているフォルダ 
<TEXTAREA name="textarea19" cols="100" wrap="OFF" rows="4">
$usrdir = 'userdata/'; # ユーザデータを格納しているフォルダ
#-ADD-
$nghead = 'NPC'; # npcファイルの接頭子(***0000.dat)
#-END of ADD- SION0002v3.01-7-14/18
</TEXTAREA> 
※ 改造ポイント０３に併せて下さい。 
ufs2.cgi # Sub Make From # Line576 
ufs/make.cgi # Sub Make From # Line:6 
print qq|<tr><td>名前</td><td><input type=text name=name></td></tr>\n|; 
<TEXTAREA name="textarea19" cols="100" wrap="OFF" rows="4">
#-ADD-

print qq|&lt;tr&gt;&lt;td colspan=2&gt;&lt;input type=checkbox name=npc&gt; ＮＰＣ&lt;/td&gt;&lt;/tr&gt;\n|;

#-END of ADD- SION0002v3.01-7-15/18

print qq|&lt;tr&gt;&lt;td&gt;名前&lt;/td&gt;&lt;td&gt;&lt;input type=text name=name&gt;&lt;/td&gt;&lt;/tr&gt;\n|;

</TEXTAREA> 
ufs2.cgi # Sub Made From # Line605 
ufs/make.cgi # Sub Made From # Line:33 
while (-e "$usrdir$id\.dat") { $id++; $id = sprintf("%04d",$id) } 
<TEXTAREA name="textarea19" cols="100" wrap="OFF" rows="5">
#-EDIT- while (-e "$usrdir$id\.dat") { $id++; $id = sprintf("%04d",$id) }

if (!$Fm{'npc'}) { while (-e &quot;$usrdir$id\.dat&quot;) { $id++; $id = sprintf(&quot;%04d&quot;,$id) }
} else {
	while (-e &quot;$usrdir$nghead$id\.dat&quot;) { $id++; $id = sprintf(&quot;%04d&quot;,$id) }
	$id = $nghead . $id;
	if ($jsp !~ /Ng/) { $jsp .= 'Ng'; }
}

#-END of EDIT- SION0002v3.01-7-16/18
</TEXTAREA> 
※ 必要に応じ、.dat を .cgi に修正して下さい（３箇所） 
ufs2.cgi # Sub Make Free # Line620 
ufs/make.cgi # Sub Make Free # Line:46 
print qq|<tr><td>名前</td><td><input type=text name=name></td></tr>\n|; 
<TEXTAREA name="textarea19" cols="100" wrap="OFF" rows="4">
#-ADD-

print qq|&lt;tr&gt;&lt;td colspan=2&gt;&lt;input type=checkbox name=npc&gt; ＮＰＣ&lt;/td&gt;&lt;/tr&gt;\n|;

#-END of ADD- SION0002v3.01-7-17/18

print qq|&lt;tr&gt;&lt;td&gt;名前&lt;/td&gt;&lt;td&gt;&lt;input type=text name=name&gt;&lt;/td&gt;&lt;/tr&gt;\n|;

</TEXTAREA> 
ufs2.cgi # Sub Made Free # Line647 
ufs/make.cgi # Sub Made Free # Line:73 
while (-e "$usrdir$id\.dat") { $id++; $id = sprintf("%04d",$id) } 
<TEXTAREA name="textarea19" cols="100" wrap="OFF" rows="5">
#-EDIT- while (-e "$usrdir$id\.dat") { $id++; $id = sprintf("%04d",$id) }

if (!$Fm{'npc'}) {
	while (-e &quot;$usrdir$id\.dat&quot;) { $id++; $id = sprintf(&quot;%04d&quot;,$id) }
} else {
	while (-e &quot;$usrdir$nghead$id\.dat&quot;) { $id++; $id = sprintf(&quot;%04d&quot;,$id) }
	$id = $nghead . $id;
	if ($Fm{'sp'} !~ /Ng/) { $Fm{'sp'} .= 'Ng'; }
}

#-END of EDIT- SION0002v3.01-7-18/18
</TEXTAREA> 
※ 必要に応じ、.dat を .cgi に修正して下さい（３箇所）

Parts15

TOP ↑ ↓

ＮＰＣとの遭遇データを設定します。 
itm.dat 任意の場所に追加 （ dollEx ver の場合は、dat/itm.cgi )
ＮＰＣ名<>８桁のステータス＋Ng<>出現割合<> として、ＮＰＣを設置するか、または 
ＮＰＣ名<>８桁のステータス＋Ms<>出現割合<> として、モンスタを設置します。
ＮＰＣ名 
例えば「キメラ」の場合、「キメラ」と設定しても構いませんが、「鳥の様なモンスター」と設定しても面白いでしょう。 
ステータス（１～４桁目） 
　ＮＰＣのＩＤの数値部分４桁を設定します。 
　実際のＮＰＣ-ＩＤは、改造ポイント３で設定した $nghead＋このＩＤ４桁となります。
ステータス（５～６桁目）

　戦闘系キャラ（Tf）の場合の、逃げる（またはＮＰＣに逢い損ねる）確率を設定します。 </P>

ステータス（７～８桁目）

　非戦闘系キャラ（Tfが無い）の場合の、逃げる（またはＮＰＣに逢い損ねる）確率を設定します。 </P>

Ms 
　遭遇した場合、強制的に戦闘を開始します。Ng より優先されます。
Ng 
　Ms が設定されていない場合には、そのＮＰＣとの遭遇画面となります。
出現割合には、そのＮＰＣに出会う確率値を入れます。通常のアイテムと同様に設定して下さい。 
ufs2.cgi を使用して設定する事も可能です。 
この場合、次の様に設定して下さい。
アイテム名　⇒　ＮＰＣ名 
買取価格　　⇒　ステータス　１～４桁目 
属性　　　　⇒　Ms 又は Ng 
攻撃値　　　⇒　ステータス　５～６桁目 
防御値　　　⇒　ステータス　７～８桁目 
発見確率　　⇒　出現割合

Parts16

TOP ↑ ↓

ＮＰＣデータを作成します。 
通常の「キャラクタを作る手順」で作成して構いません。
ufs2.cgi を使用して作成する場合には、ＮＰＣのチェックボックスをONにして作成して下さい。 
この場合、自動的にキャラスキルフラグに Ng が追加されます。

Parts17

TOP ↑ ↓

sos2.cgi # Sub fight # Line:1662 
perl/fight.cgi # Sub fight # Line:172 
$bp = $bn = $pbp = $pbn = ''; $plf = $id; 
<TEXTAREA name="textarea" cols="100" wrap="OFF" rows="5"> $bp = $bn = $pbp = $pbn = ''; $plf = $id;
#-ADD-

if ($psp =~ /Ng/) {
	if ($psp =~ /KIL(\d\d\d\d)/ &amp;&amp; $pav =~ /dead/) { $mn += $1; push(@msg,&quot;モンスターは $1 Gを落とした！&quot;); }
	elsif ($psp =~ /MNY(\d\d\d\d)/ &amp;&amp; $result == 1) { $mn += $1; push(@msg,&quot;モンスターは $1 Gを落とした！&quot;); }
}

#-END of ADD- SION0002v3.01-10-add
</TEXTAREA> 
KIL0000 フラグを追加したＮＰＣを「殺害」すると 0000 G入手出来る。 
MNY0000 フラグを追加したＮＰＣに「勝利」すると 0000 G入手出来る。

いずれも、ゲーム内の所持金流通量を増加させるため、ゲームバランスの調整が難しくお奨めではありません。<BR>

最低限、乱用はさけ、また入手できる金額も抑えましょう。