罪と罰++二律背反


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


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