my $dmg;
if($room==6){
    $dmg=int (rand 5)+1;
}elsif($room==3){
    $dmg=int (rand 4)+1;
}elsif($room==2){
    $dmg=int (rand 3)+1;
}elsif($room==1){
    $dmg=int (rand 2)+1;
}