罪と罰++二律背反

	}elsif($tm==32){#売-2
		if($cmd<=0){#消
			$log .= "その他はどうしますか?<br>\n";
		}else{
			foreach(11 .. $#df_data){
				if($cmd eq $_ && $gold >= $df_data[$_][2]){
					$log .= "$df_data[$_][2]Gを支払い、$df_data[$_][1] を購入しました。<br>\n";
					$gold -= $df_data[$_][2];
					$df_a = $_;
					$df_cnt = $df_data[$_][3];
				}elsif($cmd eq $_ && $gold<$df_data[$_][2]){
					$log .= "お金が足りません。<br>\n";
				}
			}
	}elsif($cmd==3){
	if($df_a>0 && $df_cnt<10){
	my $v = int($df_data[$df_a][2]*(1+$bg_lv*$bg_lv*1/10));
	$log .= qq|使い込まれた $df_data[$df_a][1] だな。これなら、$v\G で修理できるぞ<br>\n |;
	$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|</select><br>\n|;
	$log2 .=qq|<input type="submit" $button1 value="NEXT">$td_end</form>\n|;
	$tm=45;
	}elsif($df_a>0){
	$log .= qq|あんたの防具はまだまだ使えるぞ。使えなくなったら持って来てくれ。新品同様にしてやるよ|;
	$tm = $cmd = 0;
	&shop_menu;
	}else{
	$log .= qq|防具を装備していないな。<br>\n|;
	$tm = $cmd = 0;
	&shop_menu;
	}
	}elsif($tm==32){
	my $v = int($df_data[$df_a][2]*(1+$bg_lv*$bg_lv*1/10));
	if($cmd<=0){
   	  }elsif($gold<$v){
	$log .= qq|残念だが、お金が足りないぞ。<br>\n|;
	}elsif($cmd==1){
	$log .= qq|待たせたな。これでかなり手に馴染んだはずだ。|;
	$df_lv++;
	$df_cnt = $df_data[$df_a][3];
	$gold -= $v;
 }
 $tm = $cmd = 0;
 &shop_menu;
	}elsif($tm==45){#買-2
		if($cmd<=0){#消
			$log .= "他にどうしますか?<br>\n";
		}elsif($cmd==1){
			my $v = int(($df_data[$df_a][2]-$df_data[$df_a][2]/$df_cnt)/2);
			$log .= "$df_data[$df_a][1] を $v G で売却しました。<br>\n";
			$gold += $v;
			$df_a = $df_cnt = 0;
		}
		$tm = $cmd = 0;
		&shop_menu;



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