#' Level Up Mana
#'
#' Spends a level up to increase max mana by one point.
#' @export
level.mana <- function(){
if(stats$levelup > 0){
stats$max.mana <<- stats$max.mana + 1
stats$mana <<- stats$mana + 1
stats$levelup <<- stats$levelup - 1
write.csv(stats, savespot)
return("Your max mana has increased.")
}else{
return("You don't have an available level up to spend.")
}
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.