罪罰改造板３/33

バトル系等が、必ず1撃(修行は無条件)で負けてしまいます。

•                        }else{
                                 # 敵キャラ通常攻撃処理
                                 &bogu_bt;
                         }
                 } else {                    #
                         &bogu_bt;           # ここが変更場所
                 }                           #
         }
  
         $log .="</font>\n";
  
         # 負け処理
         &battle_lost if($hp <= 0 && $type eq '修行中');

# 負け処理
      &battle_lost if($hp <= 0 && $type eq '修行中');
	$tm = 0;
	$cmd=-1;
	$bst ='';
	$bt =0;
	$ck =0;
	$hp =0;
	$type='';
	$G=int(rand(10))+1;
	$E=int(rand(5))+1;
	$gold+=$G;
	$exe+=$E;
	$log .="あなたは $tnm に敗れ去った…<br>\n";
	$log .="$G の金 と $E の経験値を得た<br>\n";
	$tnm_p = $tnm; # 02/10 戦争時、攻めた国の人でない人がでてくることへの対処
	$tnm='';

# 負け処理
&battle_lost if($hp <= 0 &;&; $type eq '修行中');

}

# 負け処理
sub battle_lost{