- 追加された行はこのように表示されます。
- 削除された行は
このように表示されます。
!Parts1
<BR>
<B><FONT color="#0000FF">sos2.cgi 任意の場所</FONT></B>
<TEXTAREA name="textfield" cols="100" rows="5" wrap="OFF">
#=======《 Sort ITEM 》==================================================#
sub sort_item {
push (@editor,"アイテムソート強化 Ver 1.01 <A href='http://www.salion2.halfmoon.jp/soswiki/wiki.cgi' target='_blank'>by SION & SOSWiki</A>");
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';
}
</TEXTAREA>
!Parts2
<BR>
<B><FONT color="#0000FF">sos2.cgi 任意の場所</FONT></B><br>
<TEXTAREA name="textfield" cols="100" rows="5" wrap="OFF">
#=======《 Sort ITEM 》==================================================#
sub sort_item {
push (@editor,"アイテムソート強化 Ver 1.01 <A href='http://www.salion2.halfmoon.jp/soswiki/wiki.cgi' target='_blank'>by SION & SOSWiki</A>");
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';
}
</TEXTAREA>
!Parts3
<BR>
<B><FONT color="#0000FF">sos2.cgi # Sub Normal Action # Line653-655 </FONT></B> <BR>
<b>&input('radio','mode','use_before','',"アイテムの脱着・使用<br>\n") if $mysp =~ /Tf/;<BR>
&input('radio','mode','use_before','',"アイテムの使用<br>\n") if $mysp =~ /Tv/;<BR>
&input('radio','mode','dump_before','',"アイテムを捨てる<br>\n"); </b><br>
<TEXTAREA name="textarea9" cols="100" rows="4" wrap="OFF">
#-DEL- &input('radio','mode','use_before','',"アイテムの脱着・使用<br>\n") if $mysp =~ /Tf/;
# &input('radio','mode','use_before','',"アイテムの使用<br>\n") if $mysp =~ /Tv/;
# &input('radio','mode','dump_before','',"アイテムを捨てる<br>\n");
#-END of DEL- SION0011v1.02-3-2/10
#-END of DEL- SION0011v1.03-3-2/10
</TEXTAREA><br><br><br>
<B><FONT color="#0000FF">sos2.cgi # Sub Use Before # Line806-825 </FONT></B> <BR>
<b>ルーチンの全て </b><br>
<TEXTAREA name="textarea10" cols="100" rows="5" wrap="OFF">
#-DEL-# Sub Use Before #
#sub use_before {
# @rcdlines = &get_user("$Fm{'id'}");
# if (!$bg) { push (@msg,'何ももっていません'); return }
# $fg = 'UB'; &userout;
# push (@msg,"脱着・使用するアイテムにチェックをいれて$def_okボタンを押してください");
# &splititem('i');
# &form('start'); print qq|<tr><td colspan=2>|;
# foreach (0 .. $#items) {
# ($item,$sts,$price) = split(/△/,$items[$_]);
# if ($sts =~ /Q[swat]/) {
# &input('checkbox',"$_",'on',' checked','');
# print qq|【$item】 \n| }
# else {
# &input('checkbox',"$_",'on','','');
# print qq|$item \n| }
# }
# &OKbuttoninform('n','use_after');
# print qq|</td></tr>|; &form('end');
#}
#-END of DEL- SION0011v1.02-3-3/10
#-END of DEL- SION0011v1.03-3-3/10
</TEXTAREA><br><BR><BR>
<B><FONT color="#0000FF">sos2.cgi # Sub Dump Before # Line985-1003 </FONT></B><BR>
<b>ルーチンの全て </b><br>
<TEXTAREA name="textarea13" cols="100" rows="5" wrap="OFF">
#-DEL-# Sub Dump Before #
#sub dump_before {
# @rcdlines = &get_user("$Fm{'id'}");
# if (!$bg) { push (@msg,'何ももっていません'); return }
# $fg = 'DB'; &userout;
# push (@msg,"捨てるアイテムにチェックを入れ$def_okボタンを押してください");
# &splititem('i');
# &form('start'); print qq|<tr><td colspan=2>|;
# foreach (0 .. $#items) {
# ($item,$sts,$price) = split(/△/,$items[$_]);
# $pc = int(substr($sts,0,4));
# if ($sts =~ /Q[swat]/) { print qq| 装備中:【$item】\n| }
# else { &input('checkbox',"$_",'on','',''); print qq|$item\n|;
# print qq| ($pc)\n| if $sp =~ /Fa/ && $sts =~ /Li/;
# }
# }
# &OKbuttoninform('n','dump_after');
# print qq|</td></tr>|; &form('end');
#}
#-END of DEL- SION0011v1.02-3-4/10
#-END of DEL- SION0011v1.03-3-4/10
</TEXTAREA>
!Parts4
<BR>
<B><FONT color="#0000FF">sos2.cgi # Main Program # Line230-235</FONT></B> <BR>
<b>if ($Fm{'mode'} eq 'dump_before') { &play_form } <BR>
if ($Fm{'mode'} eq 'dump_after') { &play_form } <BR>
if ($Fm{'mode'} eq 'goods_before') { &action_form } <BR>
if ($Fm{'mode'} eq 'goods_after') { &play_form } <BR>
if ($Fm{'mode'} eq 'use_before') { &action_form } <BR>
if ($Fm{'mode'} eq 'use_after') { &play_form } </b><br>
<TEXTAREA name="textarea14" cols="100" rows="5" wrap="OFF">
#-EDIT-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 ($Fm{'mode'} eq 'dump_after') { &play_form }
elsif ($Fm{'mode'} eq 'goods_before') { &action_form }
elsif ($Fm{'mode'} eq 'goods_after') { &play_form }
elsif ($Fm{'mode'} eq 'use_after') { &play_form }
elsif ($Fm{'mode'} =~ /sort_item/) { &play_form }
#-END of ADD- SION0011v1.02-4-5/10
#-END of ADD- SION0011v1.03-4-5/10
</TEXTAREA><BR>
<B><FONT color="#FF0000">※ ソートの強化を行わない場合は、最後の elsifの行 は削除してご利用下さい。</FONT><BR></B>
<BR><BR>
<B><FONT color="#0000FF">sos2.cgi # Sub Play Form # Line320</FONT></B><BR>
<b>&dump_before if $Fm{'mode'} eq 'dump_before'; </b><br>
<TEXTAREA name="textarea27" cols="100" rows="2" wrap="OFF">
#-DEL- &dump_before if $Fm{'mode'} eq 'dump_before';
#-END of DEL- SION0011v1.02-4-6/10
#-END of DEL- SION0011v1.03-4-6/10
</TEXTAREA><BR><BR><BR>
<B><FONT color="#0000FF">sos2.cgi # Sub Action Form # Line353</FONT></B> <BR>
<b>&use_before if $Fm{'mode'} eq 'use_before'; </b><br>
<TEXTAREA name="textarea5" cols="100" rows="2" wrap="OFF">
#-DEL- &use_before if $Fm{'mode'} eq 'use_before';
#-END of DEL- SION0011v1.02-4-7/10
#-END of DEL- SION0011v1.03-4-7/10
</TEXTAREA>
!Parts5
<BR>
<B><FONT color="#0000FF">sos2.cgi # Sub Player's Data # Line573-578 </FONT></B><BR>
<b>foreach $item (@items) {<BR>
($item,$sts,$price) = split(/△/,$item);<BR>
if ($sts =~ /Q[swat]/) { print qq|【$item】<br>\n| }<BR>
elsif ($price > 0) { print qq|$item⇒$price\G<br>\n| }<BR>
else { print qq|$item<br>\n| } <BR>
}</b><br>
<B><FONT color="#666666"> ※ 改造法 タイプ1 ※ ソート強化を併せて行う場合</FONT></B> <br>
<TEXTAREA name="textarea28" cols="100" rows="5" wrap="OFF">
#-EDIT- foreach $item (@items) {
# ($item,$sts,$price) = split(/△/,$item);
# if ($sts =~ /Q[swat]/) { print qq|【$item】<br>\n| }
# elsif ($price > 0) { print qq|$item⇒$price\G<br>\n| }
# else { print qq|$item<br>\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|<FONT color="red">|; }
if ($sts =~ /Q[swat]/) { &input('checkbox',"$_",'on'," id=$_ checked","【$item】<BR>\n"); }
elsif ($price) { &input('checkbox',"$_",'on'," id=$_","$item⇒$price\G<BR>\n"); }
else { &input('checkbox',"$_",'on'," id=$_","$item<BR>\n"); }
if ($sts =~ /Li/) { print qq|</FONT>|; }
}
&input('hidden','icount',"$#items",'','');
&OKbuttoninform('n','');
&form('end');
} else { print qq|なし<BR>|; }
#-END of EDIT- SION0011v1.02-5-8/10
#-END of EDIT- SION0011v1.03-5-8/10
</TEXTAREA><BR>
<FONT color="#FF0000">※ 文中に userout があります。getuser2度読み注意!</FONT><BR><BR>
<B><FONT color="#666666"> ※ 改造法 タイプ2 ※ ソート強化を行わない場合</FONT></B>
<TEXTAREA name="textarea29" cols="100" rows="5" wrap="OFF">
#-EDIT- foreach $item (@items) {
# ($item,$sts,$price) = split(/△/,$item);
# if ($sts =~ /Q[swat]/) { print qq|【$item】<br>\n| }
# elsif ($price > 0) { print qq|$item⇒$price\G<br>\n| }
# else { print qq|$item<br>\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|<FONT color="red">|; }
if ($sts =~ /Q[swat]/) { &input('checkbox',"$_",'on'," id=$_ checked","【$item】<BR>\n"); }
elsif ($price) { &input('checkbox',"$_",'on'," id=$_","$item⇒$price\G<BR>\n"); }
else { &input('checkbox',"$_",'on'," id=$_","$item<BR>\n"); }
if ($sts =~ /Li/) { print qq|</FONT>|; }
}
&input('hidden','icount',"$#items",'','');
&OKbuttoninform('n','');
&form('end');
} else { print qq|なし<BR>|; }
#-END of EDIT- SION0011v1.02-5-8/10
#-END of EDIT- SION0011v1.03-5-8/10
</TEXTAREA>
!Parts6
<BR>
<B><FONT color="#0000FF">sos2.cgi # Sub Use After # Line831-832 </FONT></B> <BR>
<b>return if $fg ne 'UB';<BR>
&splititem('i'); </b><Br>
<TEXTAREA name="textarea16" cols="100" rows="5" wrap="OFF">
#-EDIT- return if $fg ne 'UB';
# &splititem('i');
&splititem('i');
return if ($Fm{'icount'} != $#items);
#-END of EDIT- SION0011v1.02-6-9/10
#-END of EDIT- SION0011v1.03-6-9/10
</TEXTAREA><BR><BR><BR>
<B><FONT color="#0000FF">sos2.cgi # Sub Dump After # Line1009-1010 </FONT></B> <BR>
<b>return if $fg ne 'DB';<BR>
&splititem('i'); </b><br>
<TEXTAREA name="textarea17" cols="100" rows="5" wrap="OFF">
#-EDIT- return if $fg ne 'DB';
# &splititem('i');
&splititem('i');
return if ($Fm{'icount'} != $#items);
#-END of EDIT- SION0011v1.02-6-10/10
#-END of EDIT- SION0011v1.03-6-10/10
</TEXTAREA>
!Parts7
<BR>
<B><FONT color="#0000FF">sos2.cgi # Sub Partner's Data # Line622-624</FONT></B> <BR>
<b>if ($sts =~ /Q[swat]/) { print qq|【$item】<br>\n| }<BR>
elsif ($price > 0) { print qq|$item⇒$price\G<br>\n| }<BR>
else { print qq|$item<br>\n| }</b><br>
<TEXTAREA name="textarea15" cols="100" rows="5" wrap="OFF">
#-ADD-
if ($sts =~ /Li/) { print qq|<FONT color="red">|; }
#-END of ADD- SION0011v1.02-7-5(1)/5
#-END of ADD- SION0011v1.03-7-5(1)/5
if ($sts =~ /Q[swat]/) { print qq|【$item】<br>\n| }
elsif ($price > 0) { print qq|$item⇒$price\G<br>\n| }
else { print qq|$item<br>\n| }
#-ADD-
if ($sts =~ /Li/) { print qq|</FONT>|; }
#-END of ADD- SION0011v1.02-7-5(2)/5
#-END of ADD- SION0011v1.03-7-5(2)/5
</TEXTAREA>
!Parts7_1
<BR>
<B><FONT color="#0000FF">sos2.cgi # Sub Fight #</FONT></B> <BR>
<b>&joinitem('iI'); &fmsg('奪');</b><br>
<TEXTAREA name="textarea15_1" cols="100" rows="5" wrap="OFF">
#-EDIT- &joinitem('iI'); &fmsg('奪');
&fmsg('奪'); &joinitem('iI');
#-END of ADD- SION0011v1.03-7_1-1/1
</TEXTAREA>
!Parts8
<BR>
<B><FONT color="#0000FF">perl/subsos.cgi 任意の場所</FONT></B> <br>
<TEXTAREA name="textarea18" cols="100" rows="5" wrap="OFF">
#=======《 Sort ITEM 》==================================================#
sub sort_item {
push (@editor,"アイテムソート強化 Ver 1.01 <A href='http://www.salion2.halfmoon.jp/soswiki/wiki.cgi' target='_blank'>by SION & SOSWiki</A>");
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';
}
</TEXTAREA>
!Parts9
<BR>
<B><FONT color="#0000FF">perl/subsos.cgi # Sub Join Item # Line49-52 </FONT></B> <BR>
<b>@items = sort(@items) if $_[0] =~ /i/ && $def_so;<BR>
$bg = join(',',@items) if $_[0] =~ /i/;<BR>
@pitems = sort(@pitems) if $_[0] =~ /I/ && $def_so;<BR>
$pbg = join(',',@pitems) if $_[0] =~ /I/; </b><br>
<TEXTAREA name="textarea18" cols="100" rows="5" wrap="OFF">
#-EDIT- @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/;
&sort_item('i') if $_[0] =~ /i/ && $def_so;
$bg = join(',',@items) if $_[0] =~ /i/;
&sort_item('I') if $_[0] =~ /I/ && $def_so;
$pbg = join(',',@pitems) if $_[0] =~ /I/;
#-END of EDIT- SION0011v1.02-2-1/10
#-END of EDIT- SION0011v1.03-2-1/10
</TEXTAREA>
!Parts10
<BR>
<B><FONT color="#0000FF">sos2.cgi # Main Program # Line90</FONT></B><BR>
<b>&unlock; </b><br>
<TEXTAREA name="textarea19" cols="100" rows="3" wrap="OFF">
#-ADD-
elsif ($Fm{'mode'} =~ /sort_item/) { require $formpl; &play_form }
#-END of ADD- SION0011v1.02-4-2/5
#-END of ADD- SION0011v1.03-4-2/5
</TEXTAREA>
!Parts11
<BR>
<B><FONT color="#0000FF">perl/players.cgi # Sub Player's Data # Line30-49 </FONT></B><BR>
<b>&form('start');<BR>
&splititem('i');<BR>
my($mn) = $#items + 1;<BR>
print qq|<td valign=top>アイテム$mn/MAX$xi<br>\n|;<BR>
if ( $sp =~ /Tf/ ) { &input('radio','mode','use_after',' checked','着脱・使用<br>');
}<BR>
else { &input('radio','mode','use_after',' checked','使用<br>');
}<BR>
&input('radio','mode','dump_after','','捨てる<br><br>');<BR>
foreach (0 .. $#items) {<BR>
($item,$sts,$price) = split(/△/,$items[$_]);<BR>
if ($sts =~ /Q[swat]/) { &input('checkbox',"$_",'on',' checked',"【$item】<br>\n")
}<BR>
elsif ($price > 0) { &input('checkbox',"$_",'on','',"$item⇒$price\G<br>\n")
}<BR>
else { &input('checkbox',"$_",'on','',"$item <br>\n") }<BR>
}<BR>
print qq|なし<br>\n| if !$bg;<BR>
&input('hidden','icount',"$#items",'','');<BR>
print qq|<hr>\n|;<BR>
&input('checkbox','sort','on','','並び替える');<BR>
&OKbuttoninform('n');<BR>
print qq|</td></tr>\n|;<BR>
&form('end');</b><Br><BR>
<B><FONT color="#666666">※ 改造法 タイプ1 ※ ソート強化を併せて行う場合</FONT></B> <br>
<TEXTAREA name="textarea20" cols="100" rows="5" wrap="OFF">
#-EDIT- &form('start');
# &splititem('i');
# my($mn) = $#items + 1;
# print qq|<td valign=top>アイテム$mn/MAX$xi<br>\n|;
# if ( $sp =~ /Tf/ ) { &input('radio','mode','use_after',' checked','着脱・使用<br>'); }
# else { &input('radio','mode','use_after',' checked','使用<br>'); }
# &input('radio','mode','dump_after','','捨てる<br><br>');
# foreach (0 .. $#items) {
# ($item,$sts,$price) = split(/△/,$items[$_]);
# if ($sts =~ /Q[swat]/) { &input('checkbox',"$_",'on',' checked',"【$item】<br>\n") }
# elsif ($price > 0) { &input('checkbox',"$_",'on','',"$item⇒$price\G<br>\n") }
# else { &input('checkbox',"$_",'on','',"$item <br>\n") }
# }
# print qq|なし<br>\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<BR>\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|<FONT color="red">|; }
if ($sts =~ /Q[swat]/) { &input('checkbox',"$_",'on'," id=$_ checked","【$item】<BR>\n"); }
elsif ($price) { &input('checkbox',"$_",'on'," id=$_","$item⇒$price\G<BR>\n"); }
else { &input('checkbox',"$_",'on'," id=$_","$item<BR>\n"); }
if ($sts =~ /Li/) { print qq|</FONT>|; }
}
&input('hidden','icount',"$#items",'','');
&OKbuttoninform('n','');
&form('end');
} else { print qq|なし<BR>|; }
print qq|</TD></TR>\n|;
#-END of EDIT- SION0011v1.02-5-3/5
#-END of EDIT- SION0011v1.03-5-3/5
</TEXTAREA><BR><BR><BR>
<B><FONT color="#666666"> <BR>※ 改造法 タイプ2 ※ ソート強化を行わない場合</FONT></B> <br>
<TEXTAREA name="textarea21" cols="100" rows="5" wrap="OFF">
#-EDIT- &form('start');
# &splititem('i');
# my($mn) = $#items + 1;
# print qq|<td valign=top>アイテム$mn/MAX$xi<br>\n|;
# if ( $sp =~ /Tf/ ) { &input('radio','mode','use_after',' checked','着脱・使用<br>'); }
# else { &input('radio','mode','use_after',' checked','使用<br>'); }
# &input('radio','mode','dump_after','','捨てる<br><br>');
# foreach (0 .. $#items) {
# ($item,$sts,$price) = split(/△/,$items[$_]);
# if ($sts =~ /Q[swat]/) { &input('checkbox',"$_",'on',' checked',"【$item】<br>\n") }
# elsif ($price > 0) { &input('checkbox',"$_",'on','',"$item⇒$price\G<br>\n") }
# else { &input('checkbox',"$_",'on','',"$item <br>\n") }
# }
# print qq|なし<br>\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<BR>\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|<FONT color="red">|; }
if ($sts =~ /Q[swat]/) { &input('checkbox',"$_",'on'," id=$_ checked","【$item】<BR>\n"); }
elsif ($price) { &input('checkbox',"$_",'on'," id=$_","$item⇒$price\G<BR>\n"); }
else { &input('checkbox',"$_",'on'," id=$_","$item<BR>\n"); }
if ($sts =~ /Li/) { print qq|</FONT>|; }
}
&input('checkbox','sort','on','','並び替える');
&input('hidden','icount',"$#items",'','');
&OKbuttoninform('n','');
&form('end');
} else { print qq|なし<BR>|; }
print qq|</TD></TR>\n|;
#-END of EDIT- SION0011v1.02-5-3/5
#-END of EDIT- SION0011v1.03-5-3/5
</TEXTAREA>
!Parts12
<BR>
<B><FONT color="#0000FF">perl/motion.cgi # Sub Dump After # Line27 </FONT></B> <BR>
<b>&splititem('i'); </b><br>
<TEXTAREA name="textarea25" cols="100" rows="4" wrap="OFF">
&splititem('i');
#-ADD-
return if ($Fm{'icount'} != $#items);
#-END of ADD- SION0011v1.02-6-4/5
#-END of ADD- SION0011v1.03-6-4/5
</TEXTAREA>
!Parts13
<BR>
<B><FONT color="#0000FF">perl/players.cgi # Sub Partner's Data # Line104-106 </FONT></B><BR>
<b>if ($sts =~ /Q[swat]/) { print qq|【$item】<br>\n| }<BR>
elsif ($price > 0) { print qq|$item⇒$price\G<br>\n| }<BR>
else { print qq|$item<br>\n| }</b><br>
<TEXTAREA name="textarea22" cols="100" rows="5" wrap="OFF">
#-ADD-
if ($sts =~ /Li/) { print qq|<FONT color="red">|; }
#-END of ADD- SAIL0011v1.00-7-5(1)/5
if ($sts =~ /Q[swat]/) { print qq|【$item】<br>\n| }
elsif ($price > 0) { print qq|$item⇒$price\G<br>\n| }
else { print qq|$item<br>\n| }
#-ADD-
if ($sts =~ /Li/) { print qq|</FONT>|; }
#-END of ADD- SION0011v1.02-7-5(2)/5
#-END of ADD- SION0011v1.03-7-5(2)/5
</TEXTAREA>