罪罰改造板２/551

               if($hp<4){
                       $log .= "体力が少なすぎます。<br>\n";
                       $tm= $cmd = 0;
                       $type='';
                       &call_main_st;
               }else{
                       $log    .= "修行を行います。<br>\n";
                       $tm= $cmd = 0;
                       $type   = '修行';

                       $log2 .=qq|<form action="$script" method="$method" name="ore_">\n|;
                       $log2 .=qq|<td align="center" valign="middle">\n| if($mv_mode eq 'pc');
                       $log2 .=qq|<input type="hidden" name="id" value="$id">\n<input type="hidden" name="pw" value="$pw">\n|;
                       $log2 .=qq|<select name="cmd" size="1">\n|;
                       # value="1" --> value="4"
                       $log2 .=qq|<option value="4">前回の対戦者</option>\n| if($tid);
                       $log2 .=qq|<option value="2">一覧から選出</option>\n|;
                       $log2 .=qq|<option value="0">やめる</option>\n|;
                       $log2 .=qq|</select><br>\n|;
                       $log2 .=qq|<input type="submit" $button1 value="NEXT">$td_end</form>\n|;
               }
       }
       &dat_write;
}
 
#-------------------------------------------------------------------------------
# 修行処理1
sub training_exe{

       if($cmd==0){
               $log .= "修行を中止します<br>\n";
               $tm = $cmd = 0;
               $type='';
               &call_main_st;

       }elsif($cmd==4 && !$com){   # $cmd==1 --> $cmd==4 
               # GETによる不正処理にペナルティ
               &penalty if($mv_mode eq 'pc' && $method eq 'POST' && !$post_flag);

               open(IN,"$usrdata$tid\.cgi") || &error("Open Error : $usrdata$tid\.cgi",1);