鑑定屋さん
- 青色は、改造箇所を示します。ファイル名: ルーチン名: 行番号 を示します。
- 黒色文字は、「改造前の状態」を示します。
- テキストボックスの中のプログラムを、該当の場所に上書きして下さい。
鑑定屋さん Ver 1.02 ★★☆☆☆☆☆☆
鑑定屋を実現します。 ※ 要:上位鑑定システム又は互換の改造
※この 改造を取り入れる際には、併せて 【 改造者表示 】 の改造を取り入れて頂けると嬉しいです。(非強制)
※【 上位鑑定システム 】が導入済みである事が前提の改造です。
履歴 2007/03/04 Version 1.02 SIONjamサポート掲示板の報告を元に修正 2007/02/21 Wikiにて公開 2003/08/09 Version 1.01 修正すべき点を掲載 2003/07/24 Version 1.00 公開
$fe の利用説明
※ $fe に「依頼費用関連」はまとめる予定です。
($fee_rec , $fee_jud , $fee_man) = split(/,/,$fe); # $fee_rec :治療系。順番に $cr/解毒 $rv/蘇生 $fe_rc/解呪
$fe_hl/治癒 $fe_rs/病気治療 - の予定。 |
共通改造ポイント
◆改造ポイント01 鑑定費の設定ルーチンを作ります。(治療費ルーチンを流用)
sos2.cgi # Sub Fee Before # Line1077 (本家original)
perl/cure.cgi # Sub Fee Before # Line35 (dollEx)
($cr,$rv) = split(/△/,$fe);
sos2.cgi # Sub Fee Before # Line1079 (本家original)
perl/cure.cgi # Sub Fee Before # Line37 (dollEx)
push (@msg,'治療費を設定してください');
sos2.cgi # Sub Fee Before # Line1085 (本家original)
perl/cure.cgi # Sub Fee Before # Line44 (dollEx)
&OKbuttoninform('n','fee_after');
sos2.cgi # Sub Fee After # Line1100-1101 (本家original)
perl/cure.cgi # Sub Fee After # Line58-59 (dollEx)
push (@msg,'治療費を設定を終了します');
$fg = ''; $fe = "$Fm{'cr'}△$Fm{'rv'}"; &userout;
※マシマロさん分割バージョンをご使用の場合(2007/03/04追加)
sos2.cgi # Sub Fee After # (masimaro 版)
return if $sp !~ /Ad|Rv/;
sos2.cgi # Sub Normal Action # Line660 (本家original)
perl/action.cgi # Sub Normal Action # Line49 (dollEx)
&input('radio','mode','fee_before','',"治療費の設定<br>\n") if $mysp =~
/Ad|Rv/;
◆改造ポイント02 鑑定費の表示部分です。
sos2.cgi # Sub Player's Data # Line568 (本家original)
perl/players.cgi # Sub Player's Data # Line26 (dollEx)
($cr,$rv) = split(/△/,$fe);
sos2.cgi # Sub Player's Data # Line570 (本家original)
perl/players.cgi # Sub Player's Data # Line28 (dollEx)
print qq|蘇生費:$rv<br>| if $rv;
sos2.cgi # Sub Partner's Data # Line610 (本家original)
perl/players.cgi # Sub Partner's Data # Line92 (dollEx)
($cr,$rv) = split(/△/,$pfe);
sos2.cgi # Sub Partner's Data # Line612 (本家original)
perl/players.cgi # Sub Partner's Data # Line94 (dollEx)
print qq|蘇生費:$rv<br>| if $rv;
sos2.cgi # Sub Player List # Line2043 (本家original)
list.cgi # Sub Player List # Line57 (dollEx)
($cu,$rv) = split(/△/,$fe);
sos2.cgi # Sub Cure & Revive # Line1522 (本家original)
perl/cure.cgi # Sub Cure & Revive # Line14 (dollEx)
($cu,$rv) = split(/△/,$pfe);
本家版改造ポイント / 人形版改造ポイントへ進む :改造ポイント3以降を実施
本家版改造ポイント
◆改造ポイント03 鑑定の依頼部分です。※ 要:上位鑑定システム又は互換の改造
sos2.cgi # Main Program # Line238
if ($Fm{'mode'} eq 'stell_comp') { &play_form }
sos2.cgi # Sub Contact Form # Line341
&msg;
sos2.cgi # Sub Contact Action # Line705
&input('radio','mode','fight','',"戦う<br>\n") if $psp =~ /Tf/ && $sp =~ /Tf/;
dollEx版改造ポイント
◆改造ポイント03 鑑定の依頼部分です。※ 要:上位鑑定システム又は互換の改造
sos2.cgi # Main Program # Line45
elsif ($Fm{'mode'} eq 'stell_comp') { require $formpl; &play_form }
perl/form.cgi # Sub Contact Form # Line72
&msg;
perl/action.cgi # Sub Contact Action # Line81
&input('radio','mode','fight','',"戦う<br>\n") if $psp =~ /Tf/ && $sp =~ /Tf/;