モンスターとの修行

sub training {
  if(!$type){

     # ・・・（　省　略　）・・・

     $log2 .=qq|<select name="cmd" size="1">\n|;
     $log2 .=qq|<option value="1">前回の対戦者</option>\n| if($tid && -e "$usrdata$tid\.cgi");
     $log2 .=qq|<option value="2">一覧から選出</option>\n|;
     $log2 .=qq|<option value="3">モンスター</option>\n|;   # ←この行を追加
     $log2 .=qq|<option value="0">やめる</option>\n|;
     $log2 .=qq|</select><br>\n|;

sub training_exe {

     # ・・・（　省　略　）・・・

     }elsif($cmd==3){
               require './inc/ore_sub-npc_2.cgi';
               local $v=int(rand(7));

               $nation=$camp; # 自国モンスター固定
               # $nation=int(rand(5)+1); # モンスター可変

               &ck_ne_2;
               $type='修行中';
               $tm=0;
               $cmd=-1;
               $log .= qq|モンスターとの対戦を行います|;
               &dat_write;
               require './inc/ore_sub-battle.cgi';     &bt_st;
     }else{
               &sele_list;
     }