罪罰改造板２/319

}elsif($flg==1 && $id eq $aid){  # 落札済み＆出品者
		$log .= qq|落札され代金を受け取りました<br>\n|;

		if($itype==13){
		$wr_mes=qq|$date $UNM{$raku} が落札した $di_data[$item_no][1] の代金を$cmp[$camp]の$nm が受け取りました<br>|; &hist_write;
		}elsif($itype==15){
		$wr_mes=qq|$date $UNM{$raku} が落札した $dp_data[$item_no][1] の代金を$cmp[$camp]の$nm が受け取りました<br>|; &hist_write;
               }elsif($itype==16){
		$wr_mes=qq|$date $UNM{$raku} が落札した $du_data[$item_no][1] の代金を$cmp[$camp]の$nm が受け取りました<br>|; &hist_write;
		}elsif($itype==17){
		$wr_mes=qq|$date $UNM{$raku} が落札した $syou_data[$item_no][1] の代金を$cmp[$camp]の$nm が受け取りました<br>|; &hist_write;
               }elsif($itype==18){
		$wr_mes=qq|$date $UNM{$raku} が落札した $skill_data[$item_no][1] の代金を$cmp[$camp]の$nm が受け取りました<br>|; &hist_write;
		}elsif($itype==19){
		$wr_mes=qq|$date $UNM{$raku} が落札した $skill_data[$item_no][1] の代金を$cmp[$camp]の$nm が受け取りました<br>|; &hist_write;
               }elsif($itype==20){
		$wr_mes=qq|$date $UNM{$raku} が落札した $db_data[$item_no][1] の代金を$cmp[$camp]の$nm が受け取りました<br>|; &hist_write;
		}

		$gold+=$kakaku; # 資金受け取り
		$auc_ary[$_]="";
		&re_auc_list;
		&auc_write;