罪罰/オークション

sub shop_menu{
  # ショッピングモ−ル
  my @sg		 = ('去る','武具屋','防具屋','道具屋','金融業','プチロト','診療所','オークション');

#-------------------------------------------------------------------------------
#ショッピングモ−ル処理
sub shop_exe{
	# 行き先選択
	if(!$tm){
		if($cmd<=0){
・・・（省略）・・・
		}elsif($cmd==6){
			$log .= "いらっしゃい。罪罰診療所にようこそ。<br>\n";
			$tm=120;

			$log2 .=qq|<form action="$script" method="$method" name="ore_">\n|;
			$log2 .=qq|<td align="center" valign="middle">\n| if($mv_mode eq 'pc');
			$log2 .=qq|<input type="hidden" name="id" value="$id">\n<input type="hidden" name="pw" value="$pw">\n|;
			$log2 .=qq|<select name=cmd size=1>\n|;
			$log2 .=qq|<option value=0>やめる</option>\n|;
			$log2 .=qq|<option value=1>治療</option>\n|;
			$log2 .=qq|<option value=2>性転換</option>\n|;
			$log2 .=qq|</select><br>\n|;
			$log2 .=qq|<input type="submit" $button1 value="NEXT">$td_end</form>\n|;

		}elsif($cmd==7){     # ショップメニューに追加した数字に合わせる
			require './inc/ore_sub-auction.cgi'; &auc_menu;

	elsif($tm>=500 && $tm<600){
		require './inc/ore_sub-auction.cgi';&auc_exe;
	}

#-----------------------------------------------------------
# 設定
#
$aucfile="./logdata/auction.cgi"; # オークションデータ 
$aucback="./logdata/auction.bak"; # 

# 倉庫で受け取る:1 倉庫を使用しない:0
# ※倉庫は当サイトで配布されている倉庫を前提としています
# ※が、修正は簡単だと思うので他の倉庫を使われている方は修正してお使いください

$flg_soko=0;
# 現在時刻
$time=time;

# $default_range = $time+60*5;		# 期限5分
$default_range = $time+3600*24*3;	# 期限３日

• # 落札した物を期限内に受け取らなければギルド払に
  # ※無効にするには、行頭に#でコメントアウト
  # $flg_dai = 60*8;
  $flg_dai = 3600*24*3;

• # ３日経過したら、現在持っているアイテムを捨てて受け取る
  # ※無効にするには、行頭に#でコメントアウト
  # $flg_uwa = 60*8;
  $flg_uwa = 3600*24*3;