sub rand_history{
my $rand = int(rand(数値));
if($rand == 0){
$S = int((rand(9899))+100);
if($camp==1){
$cs1 -=$S;
}elsif($camp==2){
$cs2 -=$S;
}elsif($camp==3){
$cs3 -=$S;
}elsif($camp==4){
$cs4 -=$S;
}elsif($camp==5){
$cs5 -=$S;
}
$log .= "イベント内容";
} &hist_write; }