バトル系等が、必ず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{