罪罰改造板２/69

# sub dung_menu にコマンドを追加

$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|<option value="3">後ろを向く</option>\n|;
$log2 .=qq|<option value="10">所持品</option>\n|;
$log2 .=qq|<option value="4">あたりを見る</option>\n|;
$log2 .=qq|</select><br>\n|;
$log2 .=qq|<input type="submit" $button1 value="NEXT">$td_end</form>\n|;

# 下の６行を追加 --- ここから
$log .= qq|<form action="$script" method="$method" name="ore_">|;
$log .=qq|<input type="hidden" name="id" value="$id">\n<input type="hidden"　name="pw" value="$pw">\n|;
$log .= qq|<input type="submit" name="cmd" value="進む">\n|;
$log .= qq|<input type="submit" name="cmd" value="左">|;
$log .= qq|<input type="submit" name="cmd" value="右">|;
$log .= qq|</form>|;
# --- ここまで

}

# sub dung_exe を修正
if(!$tm){

    # 下の３行を追加 
    $cmd=0 if($cmd eq '進む');
    $cmd=1 if($cmd eq '右');
    $cmd=2 if($cmd eq '左');

if($cmd<=-1){
  $log .= "$nmは、迷宮をあとにした<br>\n";
  $tm = $cmd = 0;
  $type = '';
  &call_main_st;
}elsif($cmd==0){