罪と罰++二律背反

	# 道具屋 - 買 or 売
	}elsif($tm==50){
		if($cmd<=0){#消
			$log .= "他なにか御用ですか?<br>\n";
			$tm = $cmd = 0;
			&shop_menu;
		}elsif($cmd==1){#買-1
			if($sogo==3||$sogo==4){
				$log .= "$sogo_p[$sogo] の烙印ついていては買い物はできません。<br>\n";
				$tm = $cmd = 0;
				&shop_menu;
			}else{
				$log .= "何をお買い上げですか?<br>ちなみに道具は1個しか所持できません。<br>\n";
				$tm=52;
				require "./inc/ore_sub-shop-p1_$mv_mode\.cgi";&dogu_s;
			}
		}elsif($cmd==2){#売-1
			if(!$di_a){
				$log .= "$nm さんは道具を所持していません。<br>\n";
				$tm = $cmd = 0;
				&shop_menu;
				}
				$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|;
			}
		}
	if($tm==52){
		if($cmd<=0){#消
			$log .= "他なにか御用ですか?<br>\n";
		}else{
			foreach(1 .. $#di_data){
				if($cmd eq $_ && $gold >= $di_data[$_][2]){
					$log .= "$di_data[$_][2]Gを支払い、$di_data[$_][1] を購入しました。<br>\n";
					$gold -= $di_data[$_][2];
					$di_a = $_;
					$di_cnt = $di_data[$_][3];
				}elsif($cmd eq $_ && $gold<$di_data[$_][2]){
					$log .= "お金が足りません。お引取り願います。<br>\n";
				}
			}
		}
		$tm = $cmd = 0;
		&shop_menu;
	}elsif($tm==65){
		if($cmd<=0){#消
			$log .= "他何か御用ですか?<br>\n";
		}elsif($cmd==1){
			my $v = int(($di_data[$di_a][2])/2);
			$log .= "$di_data[$di_a][1] を $v G で売却しました。<br>\n";
			$gold += $v;
			$di_a = 0;
		}
		$tm = $cmd = 0;
		&shop_menu;




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