# 内政の終了(功労金なし) elsif($tm==55){ $tm = $cmd = 0; $type=""; &call_main_st; }else{ # $tm = $cmd = 0; # ここを追加 $type=""; # &call_main_st; # } &write_data;