ボールの販売不可

ボールの販売を制限します。

以下のファイルを修正します。
tyuko.cgi
└sub jobsel

赤文字が追加部分・青文字が削除部分です。
以下の内容の全てを追加しています。 （ボール販売制限・オークションの時間制限・コメントの制限）

機体引出しを画面表示前に入れ替えて、エラー表示を追加しているだけです。

tyuko.cgi

ルーチン名 sub jobsel
行数 48行目近辺
変更前

#ストックファイル読み出し
if( open(IN,"$chara_path/$msstock_file$in{'id'}\.stk"))
{
@stock = <IN>;
close(IN);
}

#画面編集
$page_dsp = "";
変更後

#ストックファイル読み出し
if( open(IN,"$chara_path/$msstock_file$in{'id'}\.stk"))
{
@stock = <IN>;
close(IN);
}


#機体引出し
foreach(@stock)
{
@stkdat=split(/<>/,$_);
if( $stkdat[16] eq $csyoku)
{
($ksyoku,$kunitname,$klp,$ktai,$kmaxtai,$ksou,$kun,$ksaku,$ken,$kmaxen,$kweight,$kunit_lv,$kunit_gif,$kitem,$kitem2,$kmons,$kchara ) = split(/<>/,$_);
last;
}
}
if($ksyoku == '0') { &error("この機体は売買出来ません。"); }


#画面編集
$page_dsp = "";
ルーチン名 sub jobsel
行数 72行目近辺
変更前
※削除します

<th>装備重量</th>
<th></th>
EOM


#機体引出し
foreach(@stock)
{
@stkdat=split(/<>/,$_);
if( $stkdat[16] eq $csyoku)
{
($ksyoku,$kunitname,$klp,$ktai,$kmaxtai,$ksou,$kun,$ksaku,$ken,$kmaxen,$kweight,$kunit_lv,$kunit_gif,$kitem,$kitem2,$kmons,$kchara ) = split(/<>/,$_);
last;
}
}


# グラフの設定
@clc_len = &glf_calc($kn_0,$kn_1,$kn_2,$kn_3,$kn_4,$kweight,$kmons,$kun,$ksaku,$ksou,$kmaxtai,$ktai,$kmaxen,$ken,$kmesei,$klv,$next_ex,$kex);
変更後

<th>装備重量</th>
<th></th>
EOM


# グラフの設定
@clc_len = &glf_calc($kn_0,$kn_1,$kn_2,$kn_3,$kn_4,$kweight,$kmons,$kun,$ksaku,$ksou,$kmaxtai,$ktai,$kmaxen,$ken,$kmesei,$klv,$next_ex,$kex);

オークションの時間制限

オークションでの締め切り時間を設定します。

以下のファイルを修正します。
tyuko.cgi
└sub jobselset

赤文字が追加部分です。

下記では締め切りを４８時間以上に出来ない設定にしています。

tyuko.cgi

ルーチン名 sub jobselset
行数 177行目近辺
変更前

#自動戻り（エラー用）
$ebak_url="job.cgi?mode=itiran&id=$in{'id'}&pass=$in{'pass'}&back=no";

if($in{'syoku'} eq 'no') { &error("機体を選択してください。"); }
if($in{'kakaku'} eq '') { &error("最低価格を入力してください。"); }
if($in{'kakaku'} =~ /\D/ ) { &error("最低価格を数字で入力してください。"); }

if( $in{'ocution'} == 1)
{
if($in{'sime'} eq '') { &error("締め切りを入力してください。"); }
if($in{'sime'} =~ /\D/ ) { &error("締め切りを数字で入力してください。"); }
}

# ユニット判定
$csyoku = $in{'syoku'};
変更後

#自動戻り（エラー用）
$ebak_url="job.cgi?mode=itiran&id=$in{'id'}&pass=$in{'pass'}&back=no";

if($in{'syoku'} eq 'no') { &error("機体を選択してください。"); }
if($in{'kakaku'} eq '') { &error("最低価格を入力してください。"); }
if($in{'kakaku'} =~ /\D/ ) { &error("最低価格を数字で入力してください。"); }

if( $in{'ocution'} == 1)
{
if($in{'sime'} eq '') { &error("締め切りを入力してください。"); }
if($in{'sime'} =~ /\D/ ) { &error("締め切りを数字で入力してください。"); }
if($in{'sime'} >= '49') { &error("締め切りは48時間以内にして下さい。"); }
}

# ユニット判定
$csyoku = $in{'syoku'};

簡単です。72時間にしたい場合は「49」の部分を「73」にして下さい。

余談ですが、中古売買のどこかへ「締め切りは４８時間以内で設定して下さい。」などの記述を入れた方が良いでしょう。

また、下記のように追加すればコメント無しの売買も防止出来ます。

#自動戻り（エラー用）
$ebak_url="job.cgi?mode=itiran&id=$in{'id'}&pass=$in{'pass'}&back=no";

if($in{'syoku'} eq 'no') { &error("機体を選択してください。"); }
if($in{'kakaku'} eq '') { &error("最低価格を入力してください。"); }
if($in{'kakaku'} =~ /\D/ ) { &error("最低価格を数字で入力してください。"); }
if($in{'comment'} eq '') { &error("コメントを入力してください。"); }

if( $in{'ocution'} == 1)
{
if($in{'sime'} eq '') { &error("締め切りを入力してください。"); }
if($in{'sime'} =~ /\D/ ) { &error("締め切りを数字で入力してください。"); }
if($in{'sime'} >= '49') { &error("締め切りは48時間以内にして下さい。"); }
if($in{'comment'} eq '') { &error("コメントを入力してください。"); }
}

# ユニット判定
$csyoku = $in{'syoku'};
＜＜BACK