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;