罪罰改造掲示板/173

$log2 .="<option value=16>逃げる</option>\n";
$log2 .="<option value=17>降伏</option>\n";

}elsif($cmd >= 2){
〜〜〜〜〜中略〜〜〜〜〜
}

}elsif($cmd >= 2 && $cmd <= 15){
〜〜〜〜〜中略〜〜〜〜〜
}

elsif($cmd == 16){
 〜〜〜〜〜逃げるの処理〜〜〜〜〜
}elsif($cmd == 17){
 〜〜〜〜〜降伏の処理〜〜〜〜〜
}

   #---------------------------------------------------------

   # 〜〜〜〜〜逃げるの処理〜〜〜〜〜

   # 逃走
   my $escape = int(20+10*( ($ag+1)/($tag+$ag+1) ));
   my $escape = int(50+10*( ($ag+1)/($tag+$ag+1) ));
   if(rand(100)<$escape){
       # 成功
       if($type eq '戦争中' || $type eq '遭遇'
           ||$type eq '討伐中'||$type eq '闘技場'){
            $log .= qq|$nmは逃げ出した・・<br>|;
            $tm=120;
        }else{
            $log .= qq|$nm は脱兎のごとく逃げ出した！！<br>|;
            $thp=$tm=$bt=$ck=0;
            $cmd=-1;
            $G=int(rand(10))+1;
            $E=int(rand(5))+1;
            $gold+=$G;
            $exe+=$E;
            $log .="$G の金 と $E の経験値を得た<br>\n";
            $tnm_p = $tnm;
            $bst=$est=$type=$tnm='';
        }
    }else{
        # 逃走に失敗
        $log .= qq|逃げ道をふさがれた！！逃走に失敗！！<br>|;
    }
    #---------------------------------------------------------