Effect of reinvigoration on number of spell cast in battle

turn_of_casting

turn_of_casting = function(spell_fatigue, reinvigoration, turn_max=100){
    tcast = c()
    fatigue = 0

    for(turn in seq_len(turn_max)){
        if(fatigue < 100){
            # cast spell
            fatigue = fatigue + spell_fatigue
            tcast = c(tcast, turn)
        } else {
            # nap
            fatigue = fatigue - 5
        }
        # reinvigoration always applies
        fatigue = fatigue - reinvigoration
    }

    tcast
}