!Parts1
sos2.cgi 任意の場所

#=======《 Sort ITEM 》==================================================#
sub sort_item {
	push (@editor,"アイテムソート強化 Ver 1.03 <A href='http://www.salion2.halfmoon.jp/soswiki/wiki.cgi' target='_blank'>by SION & SOSWiki</A>");
	@sitems = @items if $_[0] eq 'i';
	@sitems = @pitems if $_[0] eq 'I';
	foreach (0 .. $#sitems) {
		($item,$sts,$price) = split(/△/,$sitems[$_],3);
		if ($Fm{'mode'} =~ /up/) {
			$no = sprintf("%04d",$_);
			if ($Fm{"$_"}) { $sitems[$_] = "0$no△$sitems[$_]"; }
			else { $sitems[$_] = "9$no△$sitems[$_]"; }
		} else {
			if ($sts =~ /Q[swat]/) { $sitems[$_] = "90$sts△$sitems[$_]"; }
			elsif ($sts =~ /(Sw|Kn|Kt|Ax|Gv|Bw|Mi|Wd|Yw)/) { $sitems[$_] = "91$sts△$sitems[$_]"; }
			elsif ($sts =~ /(Sh|Ys)/) { $sitems[$_] = "92$sts△$sitems[$_]"; }
			elsif ($sts =~ /(Ar|Ya)/) { $sitems[$_] = "93$sts△$sitems[$_]"; }
			elsif ($sts =~ /(Jw|Yt)/) { $sitems[$_] = "94$sts△$sitems[$_]"; }
			elsif ($sts =~ /Ca/) { $sitems[$_] = "50$sts△$sitems[$_]"; }
			elsif ($sts =~ /Bg/) { $sitems[$_] = "60$sts△$sitems[$_]"; }
			elsif ($sts =~ /Rb/) { $sitems[$_] = "40$sts△$sitems[$_]"; }
			elsif ($sts =~ /Ss/) { $sitems[$_] = "41$sts△$sitems[$_]"; }
			elsif ($sts =~ /Ig/ && $sp =~ /(Ws|As|Sc)/) { $sitems[$_] = "31$sts△$sitems[$_]"; }
			elsif ($sts =~ /Hb/ && $sp =~ /Mf/) { $sitems[$_] = "19$sts△$sitems[$_]"; }
			elsif ($sts =~ /Fd/) { $sitems[$_] = "20$sts△$sitems[$_]"; }
			elsif ($sts =~ /Hb/) { $sitems[$_] = "21$sts△$sitems[$_]"; }
			elsif ($sts =~ /Di/) { $sitems[$_] = "10$sts△$sitems[$_]"; }
			elsif ($sts =~ /Lc/) { $sitems[$_] = "11$sts△$sitems[$_]"; }
			elsif ($sts =~ /Pi/) { $sitems[$_] = "12$sts△$sitems[$_]"; }
			elsif ($sts =~ /Oi/) { $sitems[$_] = "13$sts△$sitems[$_]"; }
			elsif ($sts =~ /Na/ && $sp =~ /(Ws|As|Sc)/) { $sitems[$_] = "30$sts△$sitems[$_]"; }
			else { $sitems[$_] = "00$sts△$sitems[$_]"; }
			if ($yoyaku) { $sitems[$_] = "0$sitems[$_]"; }
			elsif ($price) { $sitems[$_] = "1$sitems[$_]"; }
			else { $sitems[$_] = "9$sitems[$_]"; }
	}	}
	@sitems = sort @sitems;
	foreach (0 .. $#sitems) {
		($temp,$item,$sts,$price,$other) = split(/△/,$sitems[$_],5);
		$sitems[$_] = join('△',($item,$sts,$price,$other));
	}
	@items = @sitems if $_[0] eq 'i';
	@pitems = @sitems if $_[0] eq 'I';
}

!Parts2
sos2.cgi 任意の場所

!Parts3
sos2.cgi # Sub Normal Action # Line653-655
&input('radio','mode','use_before','',"アイテムの脱着・使用 \n") if $mysp =~ /Tf/;
&input('radio','mode','use_before','',"アイテムの使用 \n") if $mysp =~ /Tv/;
&input('radio','mode','dump_before','',"アイテムを捨てる \n");

sos2.cgi # Sub Use Before # Line806-825
ルーチンの全て

sos2.cgi # Sub Dump Before # Line985-1003
ルーチンの全て
!Parts4
sos2.cgi # Main Program # Line230-235
if ($Fm{'mode'} eq 'dump_before') { &play_form }
if ($Fm{'mode'} eq 'dump_after') { &play_form }
if ($Fm{'mode'} eq 'goods_before') { &action_form }
if ($Fm{'mode'} eq 'goods_after') { &play_form }
if ($Fm{'mode'} eq 'use_before') { &action_form }
if ($Fm{'mode'} eq 'use_after') { &play_form }

※ ソートの強化を行わない場合は、最後の elsifの行は削除してご利用下さい。

sos2.cgi # Sub Play Form # Line320
&dump_before if $Fm{'mode'} eq 'dump_before';

sos2.cgi # Sub Action Form # Line353
&use_before if $Fm{'mode'} eq 'use_before';
!Parts5
sos2.cgi # Sub Player's Data # Line573-578
foreach $item (@items) {
($item,$sts,$price) = split(/△/,$item);
if ($sts =~ /Q[swat]/) { print qq|【$item】 \n| }
elsif ($price > 0) { print qq|$item⇒$price\G \n| }
else { print qq|$item \n| }
}
※　改造法　タイプ１　※　ソート強化を併せて行う場合

#-EDIT-	foreach $item (@items) {
#		($item,$sts,$price) = split(/△/,$item);
#		if ($sts =~ /Q[swat]/) { print qq|【$item】 \n| }
#		elsif ($price > 0)	 { print qq|$item⇒$price\G \n| }
#		else					 { print qq|$item \n| }
#	}
	if ($Fm{'mode'} =~ /sort_item/) {
		&sort_item('i');
		&joinitem('i');
		&userout; }
	if (@items) {
		&form('start');
		print qq|<SELECT name="mode">\n|;
		print qq|<OPTION value="use_after" selected>脱着・使用\n|;
		print qq|<OPTION value="dump_after">捨てる\n|;
		print qq|<OPTION value="sort_item">並び替え\n| if (!$def_so);
		print qq|<OPTION value="sort_item_up">指定品を上へ\n|;
		print qq|</SELECT><HR>\n|;
		foreach (0 .. $#items) {
			($item,$sts,$price) = split(/△/,$items[$_]);
			if ($sts =~ /Li/) { print qq||; }
			if ($sts =~ /Q[swat]/) { &input('checkbox',"$_",'on'," id=$_ checked","【$item】 \n"); }
			elsif ($price) { &input('checkbox',"$_",'on'," id=$_","$item⇒$price\G \n"); }
			else { &input('checkbox',"$_",'on'," id=$_","$item \n"); }
			if ($sts =~ /Li/) { print qq||; }
		}
		&input('hidden','icount',"$#items",'','');
		&OKbuttoninform('n','');
		&form('end');
	} else { print qq|なし |; }
#-END of EDIT- SION0011v1.03-5-8/10

※ 文中に userout があります。getuser２度読み注意！

※　改造法　タイプ２　※　ソート強化を行わない場合

#-EDIT-	foreach $item (@items) {
#		($item,$sts,$price) = split(/△/,$item);
#		if ($sts =~ /Q[swat]/) { print qq|【$item】 \n| }
#		elsif ($price > 0)	 { print qq|$item⇒$price\G \n| }
#		else					 { print qq|$item \n| }
#	}
	if (@items) {
		&form('start');
		print qq|<SELECT name="mode">\n|;
		print qq|<OPTION value="use_after" selected>脱着・使用\n|;
		print qq|<OPTION value="dump_after">捨てる\n|;
		print qq|</SELECT><HR>\n|;
		foreach (0 .. $#items) {
			($item,$sts,$price) = split(/△/,$items[$_]);
			if ($sts =~ /Li/) { print qq||; }
			if ($sts =~ /Q[swat]/) { &input('checkbox',"$_",'on'," id=$_ checked","【$item】 \n"); }
			elsif ($price) { &input('checkbox',"$_",'on'," id=$_","$item⇒$price\G \n"); }
			else { &input('checkbox',"$_",'on'," id=$_","$item \n"); }
			if ($sts =~ /Li/) { print qq||; }
		}
		&input('hidden','icount',"$#items",'','');
		&OKbuttoninform('n','');
		&form('end');
	} else { print qq|なし |; }
#-END of EDIT- SION0011v1.03-5-8/10

!Parts6
sos2.cgi # Sub Use After # Line831-832
return if $fg ne 'UB';
&splititem('i');

sos2.cgi # Sub Dump After # Line1009-1010
return if $fg ne 'DB';
&splititem('i');
!Parts7
sos2.cgi # Sub Partner's Data # Line622-624
if ($sts =~ /Q[swat]/) { print qq|【$item】 \n| }
elsif ($price > 0) { print qq|$item⇒$price\G \n| }
else { print qq|$item \n| }
!Parts7_1
sos2.cgi # Sub Fight #
&joinitem('iI'); &fmsg('奪');
!Parts8
perl/subsos.cgi 任意の場所

#=======《 Sort ITEM 》==================================================#
sub sort_item {
	push (@editor,"アイテムソート強化 Ver 1.03 <A href='http://www.salion2.halfmoon.jp/soswiki/wiki.cgi' target='_blank'>by SION & SOSWiki</A>");
	@sitems = @items if $_[0] eq 'i';
	@sitems = @pitems if $_[0] eq 'I';
	foreach (0 .. $#sitems) {
		($item,$sts,$price) = split(/△/,$sitems[$_],3);
		if ($Fm{'mode'} =~ /up/) {
			$no = sprintf("%04d",$_);
			if ($Fm{"$_"}) { $sitems[$_] = "0$no△$sitems[$_]";
			} else { $sitems[$_] = "9$no△$sitems[$_]";
			}
		} else {
			if ($sts =~ /Q[swat]/) { $sitems[$_] = "90$sts△$sitems[$_]"; }
			elsif ($sts =~ /(Sw|Kn|Kt|Ax|Gv|Bw|Mi|Wd|Yw)/) { $sitems[$_] = "91$sts△$sitems[$_]"; }
			elsif ($sts =~ /(Sh|Ys)/) { $sitems[$_] = "92$sts△$sitems[$_]"; }
			elsif ($sts =~ /(Ar|Ya)/) { $sitems[$_] = "93$sts△$sitems[$_]"; }
			elsif ($sts =~ /(Jw|Yt)/) { $sitems[$_] = "94$sts△$sitems[$_]"; }
			elsif ($sts =~ /Ca/) { $sitems[$_] = "50$sts△$sitems[$_]"; }
			elsif ($sts =~ /Bg/) { $sitems[$_] = "60$sts△$sitems[$_]"; }
			elsif ($sts =~ /Rb/) { $sitems[$_] = "40$sts△$sitems[$_]"; }
			elsif ($sts =~ /Ss/) { $sitems[$_] = "41$sts△$sitems[$_]"; }
			elsif ($sts =~ /Ig/ && $sp =~ /(Ws|As|Sc)/) { $sitems[$_] = "31$sts△$sitems[$_]"; }
			elsif ($sts =~ /Hb/ && $sp =~ /Mf/) { $sitems[$_] = "19$sts△$sitems[$_]"; }
			elsif ($sts =~ /Fd/) { $sitems[$_] = "20$sts△$sitems[$_]"; }
			elsif ($sts =~ /Hb/) { $sitems[$_] = "21$sts△$sitems[$_]"; }
			elsif ($sts =~ /Di/) { $sitems[$_] = "10$sts△$sitems[$_]"; }
			elsif ($sts =~ /Lc/) { $sitems[$_] = "11$sts△$sitems[$_]"; }
			elsif ($sts =~ /Pi/) { $sitems[$_] = "12$sts△$sitems[$_]"; }
			elsif ($sts =~ /Oi/) { $sitems[$_] = "13$sts△$sitems[$_]"; }
			elsif ($sts =~ /Na/ && $sp =~ /(Ws|As|Sc)/) { $sitems[$_] = "30$sts△$sitems[$_]"; }
			else { $sitems[$_] = "00$sts△$sitems[$_]"; }
			if ($yoyaku) { $sitems[$_] = "0$sitems[$_]"; }
			elsif ($price) { $sitems[$_] = "1$sitems[$_]"; }
			else { $sitems[$_] = "9$sitems[$_]"; }
	}	}
	@sitems = sort @sitems;
	foreach (0 .. $#sitems) {
		($temp,$item,$sts,$price,$other) = split(/△/,$sitems[$_],5);
		$sitems[$_] = join('△',($item,$sts,$price,$other));
	}
	@items = @sitems if $_[0] eq 'i';
	@pitems = @sitems if $_[0] eq 'I';
}

!Parts9
perl/subsos.cgi # Sub Join Item # Line49-52
@items = sort(@items) if $_[0] =~ /i/ && $def_so;
$bg = join(',',@items) if $_[0] =~ /i/;
@pitems = sort(@pitems) if $_[0] =~ /I/ && $def_so;
$pbg = join(',',@pitems) if $_[0] =~ /I/;
!Parts10
sos2.cgi # Main Program # Line90
&unlock;
!Parts11
perl/players.cgi # Sub Player's Data # Line30-49
&form('start');
&splititem('i');
my($mn) = $#items + 1;
print qq|<td valign=top>アイテム$mn/MAX$xi \n|;
if ( $sp =~ /Tf/ ) { &input('radio','mode','use_after',' checked','着脱・使用 '); }
else { &input('radio','mode','use_after',' checked','使用 '); }
&input('radio','mode','dump_after','','捨てる ');
foreach (0 .. $#items) {
($item,$sts,$price) = split(/△/,$items[$_]);
if ($sts =~ /Q[swat]/) { &input('checkbox',"$_",'on',' checked',"【$item】 \n") }
elsif ($price > 0) { &input('checkbox',"$_",'on','',"$item⇒$price\G \n") }
else { &input('checkbox',"$_",'on','',"$item \n") }
}
print qq|なし \n| if !$bg;
&input('hidden','icount',"$#items",'','');
print qq|<hr>\n|;
&input('checkbox','sort','on','','並び替える');
&OKbuttoninform('n');
print qq|</td></tr>\n|;
&form('end');

※　改造法　タイプ１　※　ソート強化を併せて行う場合

#-EDIT-	&form('start');
#	&splititem('i');
#	my($mn) = $#items + 1;
#	print qq|<td valign=top>アイテム$mn/MAX$xi \n|;
#	if ( $sp =~ /Tf/ ) { &input('radio','mode','use_after',' checked','着脱・使用 '); }
#	else { &input('radio','mode','use_after',' checked','使用 '); }
#	&input('radio','mode','dump_after','','捨てる ');
#	foreach (0 .. $#items) {
#		($item,$sts,$price) = split(/△/,$items[$_]);
#		if ($sts =~ /Q[swat]/) { &input('checkbox',"$_",'on',' checked',"【$item】 \n") }
#		elsif ($price > 0) { &input('checkbox',"$_",'on','',"$item⇒$price\G \n") }
#		else { &input('checkbox',"$_",'on','',"$item \n") }
#	}
#	print qq|なし \n| if !$bg;
#	&input('hidden','icount',"$#items",'','');
#	print qq|<hr>\n|;
#	&input('checkbox','sort','on','','並び替える');
#	&OKbuttoninform('n');
#	print qq|</td></tr>\n|;
#	&form('end');
	&splititem('i');
	my($mn) = $#items + 1;
	print qq|<TD valign=top>アイテム$mn/MAX$xi \n|;
	if ($Fm{'mode'} =~ /sort_item/) {
		&sort_item('i');
		&joinitem('i');
		&userout; }
	if (@items) {
		&form('start');
		print qq|<SELECT name="mode">\n|;
		print qq|<OPTION value="use_after" selected>脱着・使用\n|;
		print qq|<OPTION value="dump_after">捨てる\n|;
		print qq|<OPTION value="sort_item">並び替え\n| if (!$def_so);
		print qq|<OPTION value="sort_item_up">指定した物を上に\n|;
		print qq|</SELECT><HR>\n|;
		foreach (0 .. $#items) {
			($item,$sts,$price) = split(/△/,$items[$_]);
			if ($sts =~ /Li/) { print qq||; }
			if ($sts =~ /Q[swat]/) { &input('checkbox',"$_",'on'," id=$_ checked","【$item】 \n"); }
			elsif ($price) { &input('checkbox',"$_",'on'," id=$_","$item⇒$price\G \n"); }
			else { &input('checkbox',"$_",'on'," id=$_","$item \n"); }
			if ($sts =~ /Li/) { print qq||; }
		}
		&input('hidden','icount',"$#items",'','');
		&OKbuttoninform('n','');
		&form('end');
	} else { print qq|なし |; }
	print qq|</TD></TR>\n|;
#-END of EDIT- SION0011v1.03-5-3/5

※　改造法　タイプ２　※　ソート強化を行わない場合

#-EDIT-	&form('start');
#	&splititem('i');
#	my($mn) = $#items + 1;
#	print qq|<td valign=top>アイテム$mn/MAX$xi \n|;
#	if ( $sp =~ /Tf/ ) { &input('radio','mode','use_after',' checked','着脱・使用 '); }
#	else { &input('radio','mode','use_after',' checked','使用 '); }
#	&input('radio','mode','dump_after','','捨てる ');
#	foreach (0 .. $#items) {
#		($item,$sts,$price) = split(/△/,$items[$_]);
#		if ($sts =~ /Q[swat]/) { &input('checkbox',"$_",'on',' checked',"【$item】 \n") }
#		elsif ($price > 0) { &input('checkbox',"$_",'on','',"$item⇒$price\G \n") }
#		else { &input('checkbox',"$_",'on','',"$item \n") }
#	}
#	print qq|なし \n| if !$bg;
#	&input('hidden','icount',"$#items",'','');
#	print qq|<hr>\n|;
#	&input('checkbox','sort','on','','並び替える');
#	&OKbuttoninform('n');
#	print qq|</td></tr>\n|;
#	&form('end');
	&splititem('i');
	my($mn) = $#items + 1;
	print qq|<TD valign=top>アイテム$mn/MAX$xi \n|;
	if (@items) {
		&form('start');
		print qq|<SELECT name="mode">\n|;
		print qq|<OPTION value="use_after" selected>脱着・使用\n|;
		print qq|<OPTION value="dump_after">捨てる\n|;
		print qq|</SELECT><HR>\n|;
		foreach (0 .. $#items) {
			($item,$sts,$price) = split(/△/,$items[$_]);
			if ($sts =~ /Li/) { print qq||; }
			if ($sts =~ /Q[swat]/) { &input('checkbox',"$_",'on'," id=$_ checked","【$item】 \n"); }
			elsif ($price) { &input('checkbox',"$_",'on'," id=$_","$item⇒$price\G \n"); }
			else { &input('checkbox',"$_",'on'," id=$_","$item \n"); }
			if ($sts =~ /Li/) { print qq||; }
		}
		&input('checkbox','sort','on','','並び替える');
		&input('hidden','icount',"$#items",'','');
		&OKbuttoninform('n','');
		&form('end');
	} else { print qq|なし |; }
	print qq|</TD></TR>\n|;
#-END of EDIT- SION0011v1.03-5-3/5

!Parts12
perl/motion.cgi # Sub Dump After # Line27
&splititem('i');
!Parts13
perl/players.cgi # Sub Partner's Data # Line104-106
if ($sts =~ /Q[swat]/) { print qq|【$item】 \n| }
elsif ($price > 0) { print qq|$item⇒$price\G \n| }
else { print qq|$item \n| }