罪罰改造板２/443

$lamp-- if($lamp>0);	# ランプの消費
if(!$tm){
#----------------------------------------------- ここから追加
  &dung_map_data;
  &dung_dirxy;
  $xx = $dung_dirx->[$dung_dir]->[0];
  $yy = $dung_diry->[$dung_dir]->[0];
#----------------------------------------------- ここまで追加
if($cmd==-2){ 
  if($di_a==23){	# 翼のペンダント
	$log .= "翼のペンダントが光だし、$nmは、光に包まれた。<br>\n";
	$log .= "光が収束したとき、迷宮の入り口に立っていた<br>\n";
	$tm = $cmd = 0;
	$type = '';
	&call_main_st;
 } 
}elsif($cmd<=-1){
  $log .= "$nmは、迷宮をあとにした<br>\n";
  $tm = $cmd = 0;
  $type = '';
  &call_main_st;
}elsif($cmd==0){
  # 移動
#----------------------------------------------- ここからコメントアウト
  # &dung_map_data;
  # &dung_dirxy;
  # $xx = $dung_dirx->[$dung_dir]->[0];
  # $yy = $dung_diry->[$dung_dir]->[0];
#----------------------------------------------- ここまでコメントアウト
  #$dung_xx = $dung_xx + $xx;
  #$dung_yy = $dung_yy + $yy;
  #if($dung_xx<1){ $dung_xx = 0; }
  #if($dung_yy<1){ $dung_yy = 0; }

• }elsif($cmd==7){
    $log .= "階段を上った<br>\n";
    # $dung_fl--;
    $dung_fl-- if($dung_map->[$yy+$dung_yy]->[$xx+$dung_xx] == 7);
    &dung_menu_fl_dn;
  }elsif($cmd==8){
    $log .= "階段を降りた<br>\n";
    # $dung_fl++;
    $dung_fl++ if($dung_map->[$yy+$dung_yy]->[$xx+$dung_xx] == 8);
    &dung_menu_fl_up;