roll_v5.R

roll <- function(dados, fome, dif) {

  resultados_dados <- sample(1:10, dados, replace = T)
  
  sucessos <- 
    sum(resultados_dados > 5) + 
    (sum(resultados_dados == 10) %/% 2) * 2
  
  if (fome >= dados) {
    
    comuns <- 0
    
  } else {
    
    comuns <- dados - fome
    
  }
  
  resultados_normais <- head(resultados_dados, comuns)
  resultados_fome    <- tail(resultados_dados, fome)
  
  if (sucessos >= dif) {                            #sucesso
    if ((sum(resultados_dados == 10) %/% 2) >= 1) { # critico
      if ((sum(resultados_fome == 10) >= 1)) {      # critico bestial
        
        resolucao <- 'Critico Bestial!'
        
      } else {                                      # critico comum
        
        resolucao <- 'Sucesso critico!'
        
      }
   
    } else {                                        # sucesso comum
      
      resolucao <- 'Sucesso!'
      
    }
    
  } else {                                          # falha
    if (sum(resultados_fome == 1) >= 1) {           # falha bestial
      
      resolucao <- 'Falha Bestial!'
      
    } else {                                        # falha comum
      
      resolucao <- 'Falha!'
      
    }
  }
  
  resultado <- 
    list(dados_normais = resultados_normais,
         dados_de_fome = resultados_fome,
         sucessos = sucessos,
         dificuldade = dif,
         resolucao = resolucao)
  
  str(resultado)
  
}

roll(5,3,3)