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

SION0017

Parts1

TOP ↑ ↓

<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

TOP ↑ ↓

<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

TOP ↑ ↓

<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

TOP ↑ ↓

<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

TOP ↑ ↓

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

Copyright (C) 2002-2006 to-ya
Powered by FreeStyleWiki3.6.2 with Perl5.008009

Counter　234319

はじめに
コンテンツ
検索
キーワード

最近更新されたページ
参照数の多いページ