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

SION0011

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"); 
<TEXTAREA name="textarea9" cols="100" rows="4" wrap="OFF">
#-DEL- &input('radio','mode','use_before','',"アイテムの脱着・使用 \n") if $mysp =~ /Tf/;
# &input('radio','mode','use_before','',"アイテムの使用 \n") if $mysp =~ /Tv/;
# &input('radio','mode','dump_before','',"アイテムを捨てる \n");
#-END of DEL- SION0011v1.03-3-2/10
</TEXTAREA> 
sos2.cgi # Sub Use Before # Line806-825 
ルーチンの全て 
<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.03-3-3/10
</TEXTAREA> 
sos2.cgi # Sub Dump Before # Line985-1003 
ルーチンの全て 
<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.03-3-4/10
</TEXTAREA>

Parts4

TOP ↑ ↓

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 } 
<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.03-4-5/10
</TEXTAREA> 
※ ソートの強化を行わない場合は、最後の elsifの行は削除してご利用下さい。 
 
sos2.cgi # Sub Play Form # Line320 
&dump_before if $Fm{'mode'} eq 'dump_before'; 
<TEXTAREA name="textarea27" cols="100" rows="2" wrap="OFF">
#-DEL- &dump_before if $Fm{'mode'} eq 'dump_before';
#-END of DEL- SION0011v1.03-4-6/10
</TEXTAREA> 
sos2.cgi # Sub Action Form # Line353 
&use_before if $Fm{'mode'} eq 'use_before'; 
<TEXTAREA name="textarea5" cols="100" rows="2" wrap="OFF">
#-DEL- &use_before if $Fm{'mode'} eq 'use_before';
#-END of DEL- SION0011v1.03-4-7/10
</TEXTAREA>

Parts5

TOP ↑ ↓

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| } 
} 
 ※　改造法　タイプ１　※　ソート強化を併せて行う場合 
<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】 \n| }
# elsif ($price > 0) { print qq|$item⇒$price\G \n| }
# else { print qq|$item \n| }
# }

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

#-END of EDIT- SION0011v1.03-5-8/10
</TEXTAREA> 
※ 文中に userout があります。getuser２度読み注意！ 
 ※　改造法　タイプ２　※　ソート強化を行わない場合
<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】 \n| }
# elsif ($price > 0) { print qq|$item⇒$price\G \n| }
# else { print qq|$item \n| }
# }

if (@items) {
	&amp;form('start');
	print qq|&lt;SELECT name=&quot;mode&quot;&gt;\n|;
	print qq|&lt;OPTION value=&quot;use_after&quot; selected&gt;脱着・使用\n|;
	print qq|&lt;OPTION value=&quot;dump_after&quot;&gt;捨てる\n|;
	print qq|&lt;/SELECT&gt;&lt;HR&gt;\n|;
	foreach (0 .. $#items) {
		($item,$sts,$price) = split(/△/,$items[$_]);
		if ($sts =~ /Li/) { print qq|&lt;FONT color=&quot;red&quot;&gt;|; }
		if ($sts =~ /Q[swat]/) { &amp;input('checkbox',&quot;$_&quot;,'on',&quot; id=$_ checked&quot;,&quot;【$item】&lt;BR&gt;\n&quot;); }
		elsif ($price)         { &amp;input('checkbox',&quot;$_&quot;,'on',&quot; id=$_&quot;,&quot;$item⇒$price\G&lt;BR&gt;\n&quot;); }
		else                   { &amp;input('checkbox',&quot;$_&quot;,'on',&quot; id=$_&quot;,&quot;$item&lt;BR&gt;\n&quot;); }
		if ($sts =~ /Li/) { print qq|&lt;/FONT&gt;|; }
	}
	&amp;input('hidden','icount',&quot;$#items&quot;,'','');
	&amp;OKbuttoninform('n','');
	&amp;form('end');
} else { print qq|なし&lt;BR&gt;|; }

#-END of EDIT- SION0011v1.03-5-8/10
</TEXTAREA>

Parts6

TOP ↑ ↓

sos2.cgi # Sub Use After # Line831-832 
return if $fg ne 'UB'; 
&splititem('i'); 
<TEXTAREA name="textarea16" cols="100" rows="5" wrap="OFF">
#-EDIT- return if $fg ne 'UB';
# &splititem('i');

&amp;splititem('i');
return if ($Fm{'icount'} != $#items);

#-END of EDIT- SION0011v1.03-6-9/10
</TEXTAREA> 
sos2.cgi # Sub Dump After # Line1009-1010 
return if $fg ne 'DB'; 
&splititem('i'); 
<TEXTAREA name="textarea17" cols="100" rows="5" wrap="OFF">
#-EDIT- return if $fg ne 'DB';
# &splititem('i');

&amp;splititem('i');
return if ($Fm{'icount'} != $#items);

#-END of EDIT- SION0011v1.03-6-10/10
</TEXTAREA>

Parts7

TOP ↑ ↓

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| } 
<TEXTAREA name="textarea15" cols="100" rows="5" wrap="OFF">
#-ADD-

	if ($sts =~ /Li/) { print qq|&lt;FONT color=&quot;red&quot;&gt;|; }

#-END of ADD- SION0011v1.03-7-5(1)/5

	if ($sts =~ /Q[swat]/) { print qq|【$item】&lt;br&gt;\n| }
	elsif ($price &gt; 0)	   { print qq|$item⇒$price\G&lt;br&gt;\n| }
	else					 { print qq|$item&lt;br&gt;\n| }

#-ADD-

	if ($sts =~ /Li/) { print qq|&lt;/FONT&gt;|; }

#-END of ADD- SION0011v1.03-7-5(2)/5
</TEXTAREA>

Parts7_1

TOP ↑ ↓

sos2.cgi # Sub Fight # 
&joinitem('iI'); &fmsg('奪'); 
<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

TOP ↑ ↓

perl/subsos.cgi 任意の場所 
<TEXTAREA name="textarea18" cols="100" rows="5" wrap="OFF">
#=~~《 Sort ITEM 》~~============#
sub sort_item {

push (@editor,&quot;アイテムソート強化 Ver 1.03 &lt;A href='http://www.salion2.halfmoon.jp/soswiki/wiki.cgi' target='_blank'&gt;by SION & SOSWiki&lt;/A&gt;&quot;);
@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(&quot;%04d&quot;,$_);
		if ($Fm{&quot;$_&quot;}) { $sitems[$_] = &quot;0$no△$sitems[$_]&quot;;
		} else { $sitems[$_] = &quot;9$no△$sitems[$_]&quot;;
		}
	} else {
		if ($sts =~ /Q[swat]/)                         { $sitems[$_] = &quot;90$sts△$sitems[$_]&quot;; }
		elsif ($sts =~ /(Sw|Kn|Kt|Ax|Gv|Bw|Mi|Wd|Yw)/) { $sitems[$_] = &quot;91$sts△$sitems[$_]&quot;; }
		elsif ($sts =~ /(Sh|Ys)/)                      { $sitems[$_] = &quot;92$sts△$sitems[$_]&quot;; }
		elsif ($sts =~ /(Ar|Ya)/)                      { $sitems[$_] = &quot;93$sts△$sitems[$_]&quot;; }
		elsif ($sts =~ /(Jw|Yt)/)                      { $sitems[$_] = &quot;94$sts△$sitems[$_]&quot;; }
		elsif ($sts =~ /Ca/)                           { $sitems[$_] = &quot;50$sts△$sitems[$_]&quot;; }
		elsif ($sts =~ /Bg/)                           { $sitems[$_] = &quot;60$sts△$sitems[$_]&quot;; }
		elsif ($sts =~ /Rb/)                           { $sitems[$_] = &quot;40$sts△$sitems[$_]&quot;; }
		elsif ($sts =~ /Ss/)                           { $sitems[$_] = &quot;41$sts△$sitems[$_]&quot;; }
		elsif ($sts =~ /Ig/ &amp;&amp; $sp =~ /(Ws|As|Sc)/)    { $sitems[$_] = &quot;31$sts△$sitems[$_]&quot;; }
		elsif ($sts =~ /Hb/ &amp;&amp; $sp =~ /Mf/)            { $sitems[$_] = &quot;19$sts△$sitems[$_]&quot;; }
		elsif ($sts =~ /Fd/)                           { $sitems[$_] = &quot;20$sts△$sitems[$_]&quot;; }
		elsif ($sts =~ /Hb/)                           { $sitems[$_] = &quot;21$sts△$sitems[$_]&quot;; }
		elsif ($sts =~ /Di/)                           { $sitems[$_] = &quot;10$sts△$sitems[$_]&quot;; }
		elsif ($sts =~ /Lc/)                           { $sitems[$_] = &quot;11$sts△$sitems[$_]&quot;; }
		elsif ($sts =~ /Pi/)                           { $sitems[$_] = &quot;12$sts△$sitems[$_]&quot;; }
		elsif ($sts =~ /Oi/)                           { $sitems[$_] = &quot;13$sts△$sitems[$_]&quot;; }
		elsif ($sts =~ /Na/ &amp;&amp; $sp =~ /(Ws|As|Sc)/)    { $sitems[$_] = &quot;30$sts△$sitems[$_]&quot;; }
		else                                           { $sitems[$_] = &quot;00$sts△$sitems[$_]&quot;; }
		if ($yoyaku)   { $sitems[$_] = &quot;0$sitems[$_]&quot;; }
		elsif ($price) { $sitems[$_] = &quot;1$sitems[$_]&quot;; }
		else           { $sitems[$_] = &quot;9$sitems[$_]&quot;; }
}	}
@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

TOP ↑ ↓

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/; 
<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/;

&amp;sort_item('i')	if $_[0] =~ /i/ &amp;&amp; $def_so;
$bg = join(',',@items)   if $_[0] =~ /i/;
&amp;sort_item('I')  if $_[0] =~ /I/ &amp;&amp; $def_so;
$pbg = join(',',@pitems) if $_[0] =~ /I/;

#-END of EDIT- SION0011v1.03-2-1/10
</TEXTAREA>

Parts10

TOP ↑ ↓

sos2.cgi # Main Program # Line90 
&unlock; 
<TEXTAREA name="textarea19" cols="100" rows="3" wrap="OFF">
#-ADD-
elsif ($Fm{'mode'} =~ /sort_item/) { require $formpl; &play_form }
#-END of ADD- SION0011v1.03-4-2/5
</TEXTAREA>

Parts11

TOP ↑ ↓

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'); 
※　改造法　タイプ１　※　ソート強化を併せて行う場合 
<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 \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');

&amp;splititem('i');
my($mn) = $#items + 1;
print qq|&lt;TD valign=top&gt;アイテム$mn/MAX$xi&lt;BR&gt;\n|;
if ($Fm{'mode'} =~ /sort_item/) {
	&amp;sort_item('i');
	&amp;joinitem('i');
	&amp;userout; }
if (@items) {
	&amp;form('start');
	print qq|&lt;SELECT name=&quot;mode&quot;&gt;\n|;
	print qq|&lt;OPTION value=&quot;use_after&quot; selected&gt;脱着・使用\n|;
	print qq|&lt;OPTION value=&quot;dump_after&quot;&gt;捨てる\n|;
	print qq|&lt;OPTION value=&quot;sort_item&quot;&gt;並び替え\n| if (!$def_so);
	print qq|&lt;OPTION value=&quot;sort_item_up&quot;&gt;指定した物を上に\n|;
	print qq|&lt;/SELECT&gt;&lt;HR&gt;\n|;
	foreach (0 .. $#items) {
		($item,$sts,$price) = split(/△/,$items[$_]);
		if ($sts =~ /Li/) { print qq|&lt;FONT color=&quot;red&quot;&gt;|; }
		if ($sts =~ /Q[swat]/) { &amp;input('checkbox',&quot;$_&quot;,'on',&quot; id=$_ checked&quot;,&quot;【$item】&lt;BR&gt;\n&quot;); }
		elsif ($price)         { &amp;input('checkbox',&quot;$_&quot;,'on',&quot; id=$_&quot;,&quot;$item⇒$price\G&lt;BR&gt;\n&quot;); }
		else                   { &amp;input('checkbox',&quot;$_&quot;,'on',&quot; id=$_&quot;,&quot;$item&lt;BR&gt;\n&quot;); }
		if ($sts =~ /Li/) { print qq|&lt;/FONT&gt;|; }
	}
	&amp;input('hidden','icount',&quot;$#items&quot;,'','');
	&amp;OKbuttoninform('n','');
	&amp;form('end');
} else { print qq|なし&lt;BR&gt;|; }
print qq|&lt;/TD&gt;&lt;/TR&gt;\n|;

#-END of EDIT- SION0011v1.03-5-3/5
</TEXTAREA> 
 ※　改造法　タイプ２　※　ソート強化を行わない場合 
<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 \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');

&amp;splititem('i');
my($mn) = $#items + 1;
print qq|&lt;TD valign=top&gt;アイテム$mn/MAX$xi&lt;BR&gt;\n|;
if (@items) {
	&amp;form('start');
	print qq|&lt;SELECT name=&quot;mode&quot;&gt;\n|;
	print qq|&lt;OPTION value=&quot;use_after&quot; selected&gt;脱着・使用\n|;
	print qq|&lt;OPTION value=&quot;dump_after&quot;&gt;捨てる\n|;
	print qq|&lt;/SELECT&gt;&lt;HR&gt;\n|;
	foreach (0 .. $#items) {
		($item,$sts,$price) = split(/△/,$items[$_]);
		if ($sts =~ /Li/) { print qq|&lt;FONT color=&quot;red&quot;&gt;|; }
		if ($sts =~ /Q[swat]/) { &amp;input('checkbox',&quot;$_&quot;,'on',&quot; id=$_ checked&quot;,&quot;【$item】&lt;BR&gt;\n&quot;); }
		elsif ($price)         { &amp;input('checkbox',&quot;$_&quot;,'on',&quot; id=$_&quot;,&quot;$item⇒$price\G&lt;BR&gt;\n&quot;); }
		else                   { &amp;input('checkbox',&quot;$_&quot;,'on',&quot; id=$_&quot;,&quot;$item&lt;BR&gt;\n&quot;); }
		if ($sts =~ /Li/) { print qq|&lt;/FONT&gt;|; }
	}
	&amp;input('checkbox','sort','on','','並び替える');
	&amp;input('hidden','icount',&quot;$#items&quot;,'','');
	&amp;OKbuttoninform('n','');
	&amp;form('end');
} else { print qq|なし&lt;BR&gt;|; }
print qq|&lt;/TD&gt;&lt;/TR&gt;\n|;

#-END of EDIT- SION0011v1.03-5-3/5
</TEXTAREA>

Parts12

TOP ↑ ↓

perl/motion.cgi # Sub Dump After # Line27 
&splititem('i'); 
<TEXTAREA name="textarea25" cols="100" rows="4" wrap="OFF">

&amp;splititem('i');

#-ADD-

return if ($Fm{'icount'} != $#items);

#-END of ADD- SION0011v1.03-6-4/5
</TEXTAREA>

Parts13

TOP ↑ ↓

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| } 
<TEXTAREA name="textarea22" cols="100" rows="5" wrap="OFF">
#-ADD-

	if ($sts =~ /Li/) { print qq|&lt;FONT color=&quot;red&quot;&gt;|; }

#-END of ADD- SAIL0011v1.00-7-5(1)/5

	if ($sts =~ /Q[swat]/) { print qq|【$item】&lt;br&gt;\n| }
	elsif ($price &gt; 0)	   { print qq|$item⇒$price\G&lt;br&gt;\n| }
	else					 { print qq|$item&lt;br&gt;\n| }

#-ADD-

	if ($sts =~ /Li/) { print qq|&lt;/FONT&gt;|; }

#-END of ADD- SION0011v1.03-7-5(2)/5
</TEXTAREA>

SION0011

Parts1

Parts2

Parts3

Parts4

Parts5

Parts6

Parts7

Parts7_1

Parts8

Parts9

Parts10

Parts11

Parts12

Parts13