罪と罰++二律背反

		$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_txt $time_txt</td><td>|;
		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{$raku}</td><td>$kakaku G</td>|;
		$log .= qq|</td>|;
		$log .= qq|</tr>|;
		}
            ### ここまで #####
	    }else{
		# $log .= qq|落札済み|;
	    }
	}
}
# 入札価格上限倍率 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,$raku2,$kakaku2,$flg) = split(/<>/,$auc_ary[$cmd]);
	$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>入札価格はアイテム定価の$high_wm倍($hwm G)までです<br>|;
        #-------------- ここまで追加
	}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<>$atime<>$range<>$id<>$in{'kakaku'}<>0<>";
		&re_auc_list;
		&auc_write;
	}else{
		$log .= qq|入札できませんでした<br>|;
	}
}
	if($tm==500){
		if($cmd==1){	 # 出品する

			$tm=510;  # ←順番を入れ替える
			&syupin1; # 

		}elsif($cmd==2){ # 入札する

トップ   編集 凍結 差分 バックアップ 添付 複製 名前変更 リロード   新規 一覧 単語検索 最終更新   ヘルプ   最終更新のRSS
Last-modified: 2012-06-08 (金) 00:26:00 (3098d)