罪罰/迎撃キャラ調整

# if ($nation==$DAT{'camp'} && $DAT{'lv'}>$z){
if (&chk_vs){

sub chk_vs {
   $lr_range = 30; # lr差が30%

   $hantei = int(rand(100));
   # $log .= qq|$hantei [$cmp[$DAT{'camp'}]]$DAT{'nm'} lr:$DAT{'lr'} |;

   if($nation==$DAT{'camp'}){
       # LR
       if( $hantei<60 && abs($DAT{'lr'}-$lr)/$lr*100<$lr_range ){
           # $log .= qq|LR<br>|;
           return 1;
       }elsif( $hantei>80 && abs($DAT{'lr'}-$lr)/$lr*100>$lr_range){
           # $log .= qq|LR_OUT<br>|;
           return 1;
       }else{
           # $log .= qq|NPC<br>|;
           return 0;
       }
   } else {
       # $log .= qq|NA<br>|;
       return 0;
   }

}