罪罰メニューに組み込み

# メインコマンド
my @c = ('現状維持','修業','内政','戦争','能力','仕官','情報','討伐','軍事','通信','迷宮');

# 初期メニュー
elsif(!$type && $cmd==10 && $act_cnt<$act_cnt_limit ) { require './inc/ore_sub-dung.cgi'; &dung; }

# 続行メニュー
elsif($type eq '迷宮') { require './inc/ore_sub-dung.cgi'; &dung_exe; }