罪罰/冒険者ギルド

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){     # ショップメニューに追加した数字に合わせる
			$log .= "ここは冒険者ギルドだ。なんか用か？<br>\n";
			$tm=100;	# tmは自分用に合わせてください
			$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=3>報酬を貰う</option>\n|;
			$log2 .=qq|<option value=4>依頼解除</option>\n|;
			$log2 .=qq|<option value=5>依頼回数</option>\n|;
			$log2 .=qq|</select><br>\n|;
			$log2 .=qq|<input type="submit" $button1 value="NEXT">$td_end</form>\n|;

	# 冒険者ギルド
	elsif($tm>=0 && $tm<300){require './inc/ore_sub-shop-girudo.cgi';&girudo;}

                        }else{
                               # 敵キャラ通常攻撃処理
                               &bogu_bt;
                       }
               } else {                    #
                       &bogu_bt;           # ここが変更場所
               }                           #
       }

       $log .="</font>\n";

       # 負け処理
       &battle_lost if($hp <= 0 && $type eq '修行中');

	elsif(!$type && $cmd==13 && $act_cnt<$act_cnt_limit)	{ require './inc/ore_sub-girub.cgi';	&giru; }

	elsif($type eq 'ギルド依頼')	{ require './inc/ore_sub-girubtime.cgi';&gi_st; }
	elsif($type eq 'ギルド')		{ require './inc/ore_sub-girub.cgi';	&giru_exe; }