!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,&quot;ステラツィオソート Ver 2.01 &lt;A href='http://www.salion2.halfmoon.jp/soswiki/wiki.cgi' target='_blank'&gt;by SION & SOSWiki&lt;/A&gt;&quot;);
	$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">※　改造法　タイプ２　※　ステラツィオの種類分類優先バージョン。　（aaAccCbbB･･･）</FONT></B> 
<TEXTAREA name="textarea" cols="100" rows="5" wrap="OFF">
#=======《 Sub Stellatio Sort 》=========================================#
sub stell_sort {
	push (@editor,&quot;ステラツィオソート Ver 2.01 &lt;A href='http://www.salion2.halfmoon.jp/soswiki/wiki.cgi' target='_blank'&gt;by SION & SOSWiki&lt;/A&gt;&quot;);
	$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 = &amp;stell_sort($is);
	$pis = &amp;stell_sort($pis);
#-END of ADD- SION0006v2.01-2-1/4
	$fg = ''; &amp;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 = &amp;stell_sort($is);
#-END of ADD- SION0006v2.01-2-2/4
	&amp;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 = &amp;stell_sort($is);
#-END of ADD- SION0006v2.01-2-3/4
	$fg = ''; &amp;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 = &amp;stell_sort($is);
#-END of ADD- SION0006v2.01-3-4/4
	&amp;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 = &amp;stell_sort($is);
#-END of ADD- SION0006v2.01-3-4/4
	&amp;userout;	return;
</TEXTAREA>