罪と罰++二律背反


$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;


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