罪と罰++二律背反

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;
				}



トップ   編集 凍結 差分 バックアップ 添付 複製 名前変更 リロード   新規 一覧 単語検索 最終更新   ヘルプ   最終更新のRSS
Last-modified: 2012-06-08 (金) 00:30:54 (2978d)