罪罰改造板３/16

if($tm==55){

			if($cmd==10){

				my $btp = $ag + int(rand($lv)*0.8);
				my $bte = $tag+ int(rand($tlv)*0.8);

				if($btp>=$bte){
					$log .="$nm は 脱兎の如く逃げ出した･･･<br>評価が著しく下がった<br>\n";
					$tm=0;
					$v = int(2 + rand(4));
					$rank_exe-=$v;

					$sol=0;
					$tnm='';
					$ck=0;
					$nation=0;#討伐
					$type='';

					$vv = int(rand(2));
					if(!$vv){
						$we2-- if($we2>0);
					}
				}else{
					$log .="$nm は 脱兎の如く逃げ出した･･･<br>しかし！　$tnm に追いつかれてしまった！！<br>\n";
					$tm=65;
					$rank_exe-=1;
				}

				# 賞金(自国優位)
				if($nation==$camp){
					$G =int($my_cg/(rand(6)+15));
					$G =int(rand(500))+850 if(int(2000>=$G));
					$G =int(rand(1500))+2900 if(int(5000<=$G));
				}else{
					if($nation==1){$G =int($cg1/(rand(11)+11));}
					elsif($nation==2){$G =int($cg2/(rand(11)+11));}
					elsif($nation==3){$G =int($cg2/(rand(11)+11));}
					elsif($nation==4){$G =int($cg2/(rand(11)+11));}
					elsif($nation==5){$G =int($cg2/(rand(11)+11));}

					$G =int(rand(500))+500 if(int(1000>=$G));
					$G =int(rand(1000))+2500 if(int(3500<=$G));
				}

				$exe+=$E;
				$gold+=$G;

				$tsol=int($tsol/2);

				$log .="$cmp[$nation]から $G の賞金を得た！<br>\n";#討伐

				$V =int(rand(4));
				$sol_lv-=$V;
				$rank_exe+=int($V*2)+5;

				# 拾得物処理 1
				if(int(rand(100))==0){
					&syutoku1;
				}else{
					$sol=0;
					$tnm='';
					$ck = $tm = 0;
					$nation=0;
					$type='';
				}

				$we2++;
				if($we2>250){
					$log .="ｴﾙﾀﾆｱの地に蔓延る魑魅魍魎の討伐の励みより $nm は $sogo_p[5] の称号を授かった！<br>\n";
					$sogo =5;
					$we2 =0;
				}