do{
  $goblin=$goblin-$damage;
  if($goblin<0){
  $goblin=0;
  }if($wizard<0){
  $wizard=0;
  }
  if($room==6){
   my  $dmg=int (rand 5)+1;
  }elsif($room==3){
   my  $dmg=int (rand 4)+1;
  }elsif($room==2){
   my  $dmg=int (rand 3)+1;
  }elsif($room==1){
   my  $dmg=int (rand 2)+1;
  }
  $wizard-=$dmg;
  print "wizard health: $wizard\t";
  print "$monster health: $goblin\n";
 }until($goblin<=0 || $wizard<=0);
  if($wizard>0){
   print "good job you got $newgold gold!\n";
   $gold+=$newgold;
   &freedale;
  }elsif($wizard<=0){
  &die;
}
    }else{
      print "Please enter 1, 2, or q...\n";
      &battle;
        }
           }