SION0006

Parts1

<BR>
<B><FONT color="#0000FF">sos2.cgi (original ver)</FONT></B> <BR>
<B><FONT color="#0000FF">perl/stell.cgi (dollEx ver.)</FONT></B> <BR>
<b>任意の場所に追加して下さい。 </b><BR>
<B><FONT color="#666666">※　改造法　タイプ１　※　トレード設定の分類優先バージョン。　（aaccbb・・・ACB･･･）</FONT></B>
<TEXTAREA name="textfield" cols="100" rows="5" wrap="OFF">
#=《 Sub Stellatio Sort 》===========#
sub stell_sort {

push (@editor,"ステラツィオソート Ver 2.01 <A href='http://www.salion2.halfmoon.jp/soswiki/wiki.cgi' target='_blank'>by SION & SOSWiki</A>");
$newis = '';
$oldis = @_[0];
foreach (0 .. $#iti) {
	$check = lc($iti[$_]);
	while ($oldis =~ /$check/) {
		$newis .= $check;
		$oldis =~ s/$check//;
}	}
foreach (0 .. $#iti) {
	$check = $iti[$_];
	while ($oldis =~ /$check/) {
		$newis .= $check;
		$oldis =~ s/$check//;
}	}
return($newis); 

}
</TEXTAREA><BR><BR><BR>
<B><FONT color="#666666">※　改造法　タイプ２　※　ステラツィオの種類分類優先バージョン。　（aaAccCbb?B･･･）</FONT></B>
<TEXTAREA name="textarea" cols="100" rows="5" wrap="OFF">
#=《 Sub Stellatio Sort 》===========#
sub stell_sort {

push (@editor,"ステラツィオソート Ver 2.01 <A href='http://www.salion2.halfmoon.jp/soswiki/wiki.cgi' target='_blank'>by SION & SOSWiki</A>");
$newis = '';
$oldis = @_[0];
foreach (0 .. $#iti) {
	$check = lc($iti[$_]);
	while ($oldis =~ /$check/) {
		$newis .= $check;
		$oldis =~ s/$check//;
	}
	$check = $iti[$_];
	while ($oldis =~ /$check/) {
		$newis .= $check;
		$oldis =~ s/$check//;
}	}
return($newis); 

}
</TEXTAREA>

Parts2

<BR>
<B><FONT color="#0000FF">sos2.cgi # Sub Trade After # Line1407 (original ver)</FONT></B><BR>
<B><FONT color="#0000FF">perl/stell.cgi # Sub Trade After # Line105 (dollEx ver.)</FONT></B><BR>
<b>$fg = ''; &userout;</b><BR>
<TEXTAREA name="textarea2" cols="100" rows="5" wrap="OFF">
#-ADD-

$is = &stell_sort($is);
$pis = &stell_sort($pis);

#-END of ADD- SION0006v2.01-2-1/4

$fg = ''; &userout;

</TEXTAREA><BR><BR><BR>
<B><FONT color="#0000FF">sos2.cgi # Sub Stellatio After # Line1133 (original ver)</FONT></B><BR>
<B><FONT color="#0000FF">perl/stell.cgi # Sub Stellatio After # Line39 (dollEx ver.)</FONT></B><BR>
<b>&userout;</b><BR>
<TEXTAREA name="textarea4" cols="100" rows="4" wrap="OFF">
#-ADD-

$is = &stell_sort($is);

#-END of ADD- SION0006v2.01-2-2/4

&userout;

</TEXTAREA><BR><BR><BR>
<B><FONT color="#666666">※　改造ポイント１で、タイプ１を選んだ場合のみ↓追加。</FONT></B><BR>
<B><FONT color="#0000FF">sos2.cgi # Sub Stellatio Complete Line1155 (original ver)</FONT></B><BR>
<B><FONT color="#0000FF">perl/stell.cgi # Sub Stellatio Complete Line61 (dollEx ver.)</FONT></B><BR>
<B>$fg = ''; &userout;</b><BR>
<TEXTAREA name="textarea3" cols="100" rows="4" wrap="OFF">
#-ADD-

$is = &stell_sort($is);

#-END of ADD- SION0006v2.01-2-3/4

$fg = ''; &userout;		

</TEXTAREA>

Parts3

<BR>
<B><FONT color="#0000FF">sos2.cgi # Sub Find Item # Line789</FONT></B><BR>
<b>&userout; return;</b><BR>
<TEXTAREA name="textarea6" cols="100" rows="4" wrap="OFF">
#-ADD- thanksストロベリージャム様

$is = &stell_sort($is);

#-END of ADD- SION0006v2.01-3-4/4

&userout;	return;

</TEXTAREA>

Parts4

<BR>
<B><FONT color="#0000FF">perl/find.cgi # Sub Find Item # Line39</FONT></B><BR>
<b>&userout; return;</b><BR>
<TEXTAREA name="textarea5" cols="100" rows="4" wrap="OFF">
#-ADD- thanksストロベリージャム様

require $stellcgi; $is = &stell_sort($is);

#-END of ADD- SION0006v2.01-3-4/4

&userout;	return;

</TEXTAREA>