罪罰/迷宮のカスタマイズ

• sub dung_exe{
    $enc_hit=5;   # 遭遇確率
    $layout_flag = 1;

• • #拾得物処理
    sub syutoku1{
    	$log .="$tnm が消滅した場所に何か落ちている・・・・・<br>$nm は ";
    	my $S = int(rand(14)+1);
    	# debug
    	# my $S = 14;

• • # 武具
    if($S == 1){
    	$log .="$dg_data[18][1]を発見した!!<br><br>装備する場合、現在所持している武具";
    	$tm = 110;

• • if($tm==110){
    	$log .="$dg_data[18][1]";
    	$dg_a = 18;
    	$dg_cnt=$dg_data[18][3];

• $di_data[29] = [29,'？？？のカギ',0,1,'骨を削り出した髑髏の柄のカギ'];
  $di_data[102] = [102,'髑髏のカギ',0,1,'骨を削り出した髑髏の柄のカギ'];

@map_parts = (
  '壁です'
 ,'真っ暗です'
 ,'壁です'            # 2:幻の壁
 ,'','','',''
 ,'上への階段です'
 ,'下への階段です'
 ,'出口です'
 );
@map_parts2 = (
  '■'
 ,'□'
 ,'■'                # 2:幻の壁
 ,'','','','◇'
 ,'↑'
 ,'↓'
 ,'↑'
 );

$dung_map[1] = [
 [0,0,0,0,0]
,[0,9,1,1,1]
,[0,1,1,0,1]
,[0,2,0,8,1]      # ←このように2(幻の壁)を配置
,[0,1,1,1,1]
];