!Parts1
<BR>
<TABLE width="778" border="0" cellspacing="0" cellpadding="5">
	<TR bgcolor="#CCCCFF"> 
		<TD class="text"> 
			<HR>
			<CENTER class="subject">
				$fe の利用説明 
			</CENTER>
			<HR>
			<P><FONT face="ＭＳ ゴシック, Osaka−等幅" class="text"> </FONT> 　※ $fe に「依頼費用関連」はまとめる予定です。 
				<BR>
				　　ただ闇雲に、新機能が追加毎に増やすのは効率が悪いので、下記ルールで作っていきます。<FONT face="ＭＳ ゴシック, Osaka−等幅"><FONT color="#FF0000"></FONT> 
				</FONT> </P>
			<P><FONT face="ＭＳ ゴシック, Osaka−等幅"> ($fee_rec , $fee_jud , $fee_man) = split(/,/,$fe);<BR>
				($cr , $rv , $fe_rc , $fe_hl , $fe_rs) = split(/△/,$fee_rec);</FONT> <BR>
				<FONT face="ＭＳ ゴシック, Osaka−等幅">($fe_jg , $fe_sp) = split(/△/,$fee_jud）;</FONT> 
				<BR>
				<FONT face="ＭＳ ゴシック, Osaka−等幅">($fe_bs , $fe_mf , $fe_ac) = split(/△/,$fee_man);</FONT> 
			</P>
			<P> <FONT face="ＭＳ ゴシック, Osaka−等幅"># $fee_rec ：治療系。順番に $cr/解毒 $rv/蘇生 $fe_rc/解呪 
				$fe_hl/治癒 $fe_rs/病気治療 - の予定。</FONT> <BR>
				<FONT face="ＭＳ ゴシック, Osaka−等幅"># $fee_jud ：その他。順番に $fe_jg/鑑定 $fe_sp/援護　- 
				の予定。</FONT> <BR>
				<FONT face="ＭＳ ゴシック, Osaka−等幅"># $fee_man ：製造系。順番に $fe_bs/鍛冶＋銀細工 $fe_mf/調理＋灰汁抜き 
				$fe_ac/合成 - の予定。</FONT> </P>
			<HR>
		</TD>
	</TR>
</TABLE>

!Parts2
<BR>
<B><FONT color="#0000FF">sos2.cgi # Sub Fee Before # Line1077 (本家original)</FONT></B><BR>
<B><FONT color="#0000FF">perl/cure.cgi # Sub Fee Before # Line35 (dollEx) </FONT></B><BR>
<b>($cr,$rv) = split(/△/,$fe); </b><br>
<TEXTAREA name="textarea2" cols="100" rows="4" wrap="OFF">
#-EDIT-	($cr,$rv) = split(/△/,$fe);
	($fee_rec,$fee_jud,$fee_man) = split(/,/,$fe);
	($cr,$rv) = split(/△/,$fee_rec);
#-END of EDIT- SION0017v1.02-1-1/14
</TEXTAREA><BR><BR><BR>
<B><FONT color="#0000FF">sos2.cgi # Sub Fee Before # Line1079 (本家original)</FONT></B><BR>
<B><FONT color="#0000FF">perl/cure.cgi # Sub Fee Before # Line37 (dollEx) 
</FONT></B><BR>
<B>push (@msg,'治療費を設定してください'); </b><Br>
<TEXTAREA name="textfield" cols="100" rows="3" wrap="OFF">
#-EDIT-	push (@msg,'治療費を設定してください');
	push (@msg,'治療・鑑定・製造費を設定してください');
#-END of EDIT- SION0017v1.02-1-2/14
</TEXTAREA><BR><BR><BR>
<B><FONT color="#0000FF">sos2.cgi # Sub Fee Before # Line1085 (本家original)</FONT></B><BR>
<B><FONT color="#0000FF">perl/cure.cgi # Sub Fee Before # Line44 (dollEx) 
</FONT></B><BR>
<B>&OKbuttoninform('n','fee_after'); </b><br>
<TEXTAREA name="textarea" cols="100" rows="5" wrap="OFF">
#-ADD-
	if ($judgecgi &amp;&amp; $sp =~ /(Eo|J[0a-z][0-9])/) {
		require $judgecgi;
		print qq|鑑定費：|;
		print qq|HP $hp_jg 使用\n| if $hp_jg;
		&amp;input('text','fj',&quot;$fee_jud&quot;,' size=10',' G&lt;br&gt;');
	}
#-END of ADD- SION0017v1.02-1-3/14
	&amp;OKbuttoninform('n','fee_after');
</TEXTAREA><BR><BR><BR>
<B><FONT color="#0000FF">sos2.cgi # Sub Fee After # Line1100-1101 (本家original)</FONT></B><BR>
<B><FONT color="#0000FF">perl/cure.cgi # Sub Fee After # Line58-59 (dollEx) 
</FONT></B><BR>
<b>push (@msg,'治療費を設定を終了します');<BR>
$fg = ''; $fe = "$Fm{'cr'}△$Fm{'rv'}"; &userout; </b><br>
<TEXTAREA name="textarea3" cols="100" rows="5" wrap="OFF">
#-EDIT-	push (@msg,'治療費を設定を終了します');
#	$fg = ''; $fe = &quot;$Fm{'cr'}△$Fm{'rv'}&quot;; &amp;userout;
	if (($Fm{'fj'} =~ /[^0-9]/ || !$Fm{'fj'}) &amp;&amp; $sp =~ /Eo|J[0a-z][0-9]/) {
		push (@msg,&quot;鑑定費が設定されていません&quot;); $Fm{'fj'} = 0;
	}
	push (@msg,'治療・鑑定・製造費の設定を終了します');
	$fee_rec = &quot;$Fm{'cr'}△$Fm{'rv'}&quot;;
	$fg = ''; $fe = &quot;$fee_rec,$Fm{'fj'},$Fm{'fm'}&quot;; &amp;userout;
#-END of EDIT- SION0017v1.02-1-4/14
</TEXTAREA><BR>
<b><font color="FF0000">※マシマロさん分割バージョンをご使用の場合(2007/03/04追加）</font></b><br>
<B><FONT color="#0000FF">sos2.cgi # Sub Fee After # (masimaro 版)</FONT></B><BR>
<b>return if $sp !~ /Ad|Rv/;</b><br>
<TEXTAREA name ="textarea3_1" cols="100" rows="5" wrap="OFF">
#-EDIT- return if $sp !~ /Ad|Rv/;
return if $sp !~ /Ad|Rv|Eo|J[0a-z][0-9]/;
#-END of EDIT- SION0017v1.02-1-4-1/14
</TEXTAREA><BR><BR><BR>
<B><FONT color="#0000FF">sos2.cgi # Sub Normal Action # Line660 (本家original)</FONT></B><BR>
<B><FONT color="#0000FF">perl/action.cgi # Sub Normal Action # Line49 (dollEx) </FONT></B><BR>
<B>&input('radio','mode','fee_before','',"治療費の設定&lt;br&gt;\n") if $mysp =~ 
/Ad|Rv/; </b><br>
<TEXTAREA name="textarea4" cols="100" rows="3" wrap="OFF">
#-EDIT-	&amp;input('radio','mode','fee_before','',&quot;治療費の設定&lt;br&gt;\n&quot;)			if $mysp =~ /Ad|Rv/;
	&amp;input('radio','mode','fee_before','',&quot;治療・鑑定費の設定&lt;br&gt;\n&quot;)			if $mysp =~ /Ad|Rv|Eo|J[0a-z][0-9]/;
#-END of EDIT- SION0017v1.02-1-5/14
</TEXTAREA>

!Parts3
<BR>
<B><FONT color="#0000FF">sos2.cgi # Sub Player's Data # Line568 (本家original)</FONT></B><BR>
<B><FONT color="#0000FF">perl/players.cgi # Sub Player's Data # Line26 (dollEx) </FONT></B><BR>
<b>($cr,$rv) = split(/△/,$fe); </b><br>
<TEXTAREA name="textarea6" cols="100" rows="4" wrap="OFF">
#-EDIT-	($cr,$rv) = split(/△/,$fe);
	($fee_rec,$fee_jud,$fee_man) = split(/,/,$fe);
	($cr,$rv) = split(/△/,$fee_rec);
#-END of EDIT- SION0017v1.02-2-6/14
</TEXTAREA><BR><BR><BR>
<B><FONT color="#0000FF">sos2.cgi # Sub Player's Data # Line570 (本家original)</FONT></B><BR>
<B><FONT color="#0000FF">perl/players.cgi # Sub Player's Data # Line28 (dollEx) 	</FONT></B><BR>
<B>print qq|蘇生費：$rv&lt;br&gt;| if $rv; </b><Br>
<TEXTAREA name="textarea7" cols="100" rows="4" wrap="OFF">
	print qq|蘇生費：$rv&lt;br&gt;| if $rv;
#-ADD-
	print qq|鑑定費：$fee_jud&lt;br&gt;| if $fee_jud;
#-END of ADD- SION0017v1.02-2-7/14
</TEXTAREA><BR><BR><BR>
<B><FONT color="#0000FF">sos2.cgi # Sub Partner's Data # Line610 (本家original)</FONT></B><BR>
<B><FONT color="#0000FF">perl/players.cgi # Sub Partner's Data # Line92 (dollEx) </FONT></B><BR>
<b>($cr,$rv) = split(/△/,$pfe); </b><BR>
<TEXTAREA name="textarea8" cols="100" rows="4" wrap="OFF">
#-EDIT-	($cr,$rv) = split(/△/,$pfe);
	($fee_rec,$fee_jud,$fee_man) = split(/,/,$pfe);
	($cr,$rv) = split(/△/,$fee_rec);
#-END of EDIT- SION0017v1.02-2-8/14
</TEXTAREA><BR><BR><BR>
<B><FONT color="#0000FF">sos2.cgi # Sub Partner's Data # Line612 (本家original)</FONT></B><BR>
<B><FONT color="#0000FF">perl/players.cgi # Sub Partner's Data # Line94 (dollEx) </FONT></B><BR>
<B>print qq|蘇生費：$rv&lt;br&gt;| if $rv; </b><BR>
<TEXTAREA name="textarea15" cols="100" rows="4" wrap="OFF">
	print qq|蘇生費：$rv&lt;br&gt;| if $rv;
#-ADD-
	print qq|鑑定費：$fee_jud&lt;br&gt;| if $fee_jud;
#-END of ADD- SION0017v1.02-2-9/14
</TEXTAREA><BR><BR><BR>
<B><FONT color="#0000FF">sos2.cgi # Sub Player List # Line2043 (本家original)</FONT></B><BR>
<B><FONT color="#0000FF">list.cgi # Sub Player List # Line57 (dollEx) </FONT></B><BR>
<B>($cu,$rv) = split(/△/,$fe); </b><Br>
<TEXTAREA name="textarea16" cols="100" rows="4" wrap="OFF">
#-EDIT-			($cu,$rv) = split(/△/,$fe);
			($fee_rec , $fee_jud , $fee_man) = split(/,/,$fe);
			($cr , $rv , $fe_rc , $fe_hl , $fe_rs) = split(/△/,$fee_rec);
			($fe_jg , $fe_sp) = split(/△/,$fee_jud);
			($fe_bs , $fe_mf , $fe_ac) = split(/△/,$fee_man);
#-END of EDIT- SION0017v1.02-2-10/14
</TEXTAREA><BR><BR><BR>
<B><FONT color="#0000FF">sos2.cgi # Sub Cure & Revive # Line1522 (本家original)</FONT></B><BR>
<B><FONT color="#0000FF">perl/cure.cgi # Sub Cure & Revive # Line14 (dollEx) 	</FONT></B><BR>
<B>($cu,$rv) = split(/△/,$pfe); </b><BR>
<TEXTAREA name="textarea9" cols="100" rows="4" wrap="OFF">
#-EDIT-			($cu,$rv) = split(/△/,$pfe);
			($fee_rec , $fee_jud , $fee_man) = split(/,/,$pfe);
			($cr , $rv , $fe_rc , $fe_hl , $fe_rs) = split(/△/,$fee_rec);
#-END of EDIT- SION0017v1.02-2-11/14
</TEXTAREA>

!Parts4
<BR>
<B><FONT color="#0000FF">sos2.cgi # Main Program # Line238</FONT></B><BR>
<B>if ($Fm{'mode'} eq 'stell_comp') { &play_form } </b><BR>
<TEXTAREA name="textarea10" cols="100" rows="4" wrap="OFF">
if ($Fm{'mode'} eq 'stell_comp')   { &amp;play_form	}
#-ADD-
elsif ($Fm{'mode'} =~ /partner_judge/)  { &amp;contact_form	}
#-END of ADD- SION0017v1.02-3-12/14
</TEXTAREA><BR><BR><BR>
<B><FONT color="#0000FF"><BR>	sos2.cgi # Sub Contact Form # Line341</FONT></B><BR>
<B>&msg; </B><BR>
<TEXTAREA name="textarea11" cols="100" rows="4" wrap="OFF">
#-ADD-
	if ($Fm{'mode'} =~ /judge/) { require $judgecgi; &amp;judge_before; }
#-END of ADD- SION0017v1.02-3-13/14
	&amp;msg;
</TEXTAREA><BR><BR><BR>
<B><FONT color="#0000FF">sos2.cgi # Sub Contact Action # Line705</FONT></B><BR>
<B>&amp;input('radio','mode','fight','',&quot;戦う&lt;br&gt;\n&quot;) if $psp =~ /Tf/ &amp;&amp; $sp =~ /Tf/; </B><BR>
<TEXTAREA name="textarea12" cols="100" rows="4" wrap="OFF">
#-ADD-
	&amp;input('radio','mode','partner_judge_before','',&quot;鑑定して貰う&lt;br&gt;\n&quot;) if $psp =~ /Eo|J[0a-z][0-9]/ &amp;&amp; $fee_jud;
#-END of ADD- SION0017v1.01-3-14/14
	&amp;input('radio','mode','fight','',&quot;戦う&lt;br&gt;\n&quot;) if $psp =~ /Tf/ &amp;&amp; $sp =~ /Tf/;
</TEXTAREA>

!Parts5
<BR>
<B><FONT color="#0000FF">sos2.cgi # Main Program # Line45</FONT></B><BR>
<B>elsif ($Fm{'mode'} eq 'stell_comp') { require $formpl; &play_form } </b><BR>
<TEXTAREA name="textarea5" cols="100" rows="4" wrap="OFF">
elsif ($Fm{'mode'} eq 'stell_comp') { require $formpl; &amp;play_form }
#-ADD-
elsif ($Fm{'mode'} =~ /partner_judge/)  { require $formpl; &amp;contact_form	}
#-END of ADD- SION0017v1.02-3-12/14
</TEXTAREA><BR><BR><BR>
<B><FONT color="#0000FF">perl/form.cgi # Sub Contact Form # Line72</FONT></B><BR>
<B>&msg; </b><BR>
<TEXTAREA name="textarea14" cols="100" rows="4" wrap="OFF">
#-ADD-
	if ($Fm{'mode'} =~ /judge/) { require $judgecgi; &amp;judge_before; }
#-END of ADD- SION0017v1.02-3-13/14
	&amp;msg;
</TEXTAREA><BR><BR><BR>
<B><FONT color="#0000FF">perl/action.cgi # Sub Contact Action # Line81</FONT></B><BR>
<B>&amp;input('radio','mode','fight','',&quot;戦う&lt;br&gt;\n&quot;) if $psp =~ /Tf/ &amp;&amp; $sp =~ /Tf/; </B><BR>
<TEXTAREA name="textarea13" cols="100" rows="4" wrap="OFF">
#-ADD-
	&amp;input('radio','mode','partner_judge_before','',&quot;鑑定して貰う&lt;br&gt;\n&quot;) if $psp =~ /Eo|J[0a-z][0-9]/ &amp;&amp; $fee_jud;
#-END of ADD- SION0017v1.02-3-14/14
	&amp;input('radio','mode','fight','',&quot;戦う&lt;br&gt;\n&quot;) if $psp =~ /Tf/ &amp;&amp; $sp =~ /Tf/;
</TEXTAREA>