罪と罰++二律背反
罪罰/オークション修正履歴
をテンプレートにして作成
[
トップ
] [
新規
|
一覧
|
単語検索
|
最終更新
|
ヘルプ
] [
リンク元
]
開始行:
[[罪罰/オークション]]
**旧バージョン [#jf0db325]
-1_5_ore_sub-auction.cgiは、1.5バージョンです。
-1_4_ore_sub-auction.cgiは、1.4バージョンです。
-old_ore_sub-auction.cgiは、念のため置いてありますが、古...
-また、1.4と1.2のバージョンは、データファイルが変更されて...
-1.2から1.4へのバージョンアップは、ファイルを上書きするだ...
**VER 1.5 - 受け取り待ちを表示 [#j57f882c]
show_listの最後付近に追加
$gold+=$kakaku; # 資金受け取り
$auc_ary[$_]="";
&re_auc_list;
&auc_write;
### ここから #####
}elsif($flg==1 && $id ne $aid){
if($UNM{$anm} eq ""){ # 受取者なしの為削除
$auc_ary[$_]="";
&re_auc_list;
&auc_write;
}else{
# 落札済み&出品者以外
$limit = $range; &limit_time;
$log .= qq|<tr bgcolor=#eecccc >|;
$log .= qq|<td title="代金受取り待ち">済</td><td>$date_...
if($itype==11){
$log .= qq|$dg_data[$item_no][1]|;
}elsif($itype==12){
$log .= qq|$df_data[$item_no][1]|;
}elsif($itype==13){
$log .= qq|$di_data[$item_no][1]|;
}else{
$log .= qq|----|;
}
$log .= qq|($item_cnt)</td><td>$UNM{$anm}</td><td>$UNM{...
$log .= qq|</td>|;
$log .= qq|</tr>|;
}
### ここまで #####
}else{
# $log .= qq|落札済み|;
}
}
}
**VER 1.7 - 入札上限設定 [#z7471bbc]
設定
# 入札価格上限倍率 0:上限なし 100:定価の100倍まで
$high_wm = 100; # アイテム定価の100倍まで
定価を取得するルーチンを追加
#-------------------------------------------------------...
# 定価取得
sub get_teika{
$ret = 0;
$ret = int($dg_data[$_[1]][2]) if($_[0]==11);
$ret = int($df_data[$_[1]][2]) if($_[0]==12);
$ret = int($di_data[$_[1]][2]) if($_[0]==13);
return $ret;
}
入札価格チェック
sub nyusatu2{
my($anm,$aid,$itype,$item_no,$item_cnt,$atime,$range,$ra...
$hwm = int(&get_teika($itype, $item_no) * $high_wm);
$in{'kakaku'}=$in{'kakaku'}+0;
if($gold<$in{'kakaku'}){
$log .= qq|お金がありません<br>|;
#-------------- ここから追加
}elsif($cmd>-1 && $cmd<=$#auc_ary
&& $in{'kakaku'}>=$hwm && $hwm>0){
$log .= qq|入札できません<br>入札価格はアイテム定価の$h...
#-------------- ここまで追加
}elsif($cmd>-1 && $cmd<=$#auc_ary
&& $in{'kakaku'}>$kakaku2 && $in{'kakaku'}>0){
$log .= qq|$UNM{$aid}さん出品の|;
$log .= $dg_data[$item_no][1] if($itype==11);
$log .= $df_data[$item_no][1] if($itype==12);
$log .= $di_data[$item_no][1] if($itype==13);
$log.=qq|に$in{'kakaku'}Gで入札しました<br>|;
$auc_ary[$cmd]="<>$aid<>$itype<>$item_no<>$item_cnt<>$a...
&re_auc_list;
&auc_write;
}else{
$log .= qq|入札できませんでした<br>|;
}
}
**VER 1.13 [#e725d57e]
if($tm==500){
if($cmd==1){ # 出品する
$tm=510; # ←順番を入れ替える
&syupin1; #
}elsif($cmd==2){ # 入札する
終了行:
[[罪罰/オークション]]
**旧バージョン [#jf0db325]
-1_5_ore_sub-auction.cgiは、1.5バージョンです。
-1_4_ore_sub-auction.cgiは、1.4バージョンです。
-old_ore_sub-auction.cgiは、念のため置いてありますが、古...
-また、1.4と1.2のバージョンは、データファイルが変更されて...
-1.2から1.4へのバージョンアップは、ファイルを上書きするだ...
**VER 1.5 - 受け取り待ちを表示 [#j57f882c]
show_listの最後付近に追加
$gold+=$kakaku; # 資金受け取り
$auc_ary[$_]="";
&re_auc_list;
&auc_write;
### ここから #####
}elsif($flg==1 && $id ne $aid){
if($UNM{$anm} eq ""){ # 受取者なしの為削除
$auc_ary[$_]="";
&re_auc_list;
&auc_write;
}else{
# 落札済み&出品者以外
$limit = $range; &limit_time;
$log .= qq|<tr bgcolor=#eecccc >|;
$log .= qq|<td title="代金受取り待ち">済</td><td>$date_...
if($itype==11){
$log .= qq|$dg_data[$item_no][1]|;
}elsif($itype==12){
$log .= qq|$df_data[$item_no][1]|;
}elsif($itype==13){
$log .= qq|$di_data[$item_no][1]|;
}else{
$log .= qq|----|;
}
$log .= qq|($item_cnt)</td><td>$UNM{$anm}</td><td>$UNM{...
$log .= qq|</td>|;
$log .= qq|</tr>|;
}
### ここまで #####
}else{
# $log .= qq|落札済み|;
}
}
}
**VER 1.7 - 入札上限設定 [#z7471bbc]
設定
# 入札価格上限倍率 0:上限なし 100:定価の100倍まで
$high_wm = 100; # アイテム定価の100倍まで
定価を取得するルーチンを追加
#-------------------------------------------------------...
# 定価取得
sub get_teika{
$ret = 0;
$ret = int($dg_data[$_[1]][2]) if($_[0]==11);
$ret = int($df_data[$_[1]][2]) if($_[0]==12);
$ret = int($di_data[$_[1]][2]) if($_[0]==13);
return $ret;
}
入札価格チェック
sub nyusatu2{
my($anm,$aid,$itype,$item_no,$item_cnt,$atime,$range,$ra...
$hwm = int(&get_teika($itype, $item_no) * $high_wm);
$in{'kakaku'}=$in{'kakaku'}+0;
if($gold<$in{'kakaku'}){
$log .= qq|お金がありません<br>|;
#-------------- ここから追加
}elsif($cmd>-1 && $cmd<=$#auc_ary
&& $in{'kakaku'}>=$hwm && $hwm>0){
$log .= qq|入札できません<br>入札価格はアイテム定価の$h...
#-------------- ここまで追加
}elsif($cmd>-1 && $cmd<=$#auc_ary
&& $in{'kakaku'}>$kakaku2 && $in{'kakaku'}>0){
$log .= qq|$UNM{$aid}さん出品の|;
$log .= $dg_data[$item_no][1] if($itype==11);
$log .= $df_data[$item_no][1] if($itype==12);
$log .= $di_data[$item_no][1] if($itype==13);
$log.=qq|に$in{'kakaku'}Gで入札しました<br>|;
$auc_ary[$cmd]="<>$aid<>$itype<>$item_no<>$item_cnt<>$a...
&re_auc_list;
&auc_write;
}else{
$log .= qq|入札できませんでした<br>|;
}
}
**VER 1.13 [#e725d57e]
if($tm==500){
if($cmd==1){ # 出品する
$tm=510; # ←順番を入れ替える
&syupin1; #
}elsif($cmd==2){ # 入札する
ページ名: