R/travel_events.R

In rpg-tips/RPGTips: RPG helper functions to play solo

# Travel events extracted from Enemy in Shadows companion, WFRP 4e.

#' @export
travel_good_event <- function(){
  sample(c("Encounter with nice travellers",
           "Find something useful to the adventure",
           "Wonderful accomodation",
           "Idle time (extra activity)",
           "A kind word with a traveller (future good reputation)",
           "A shortcut!",
           "Restful journey"),
         size = 1,
         prob = c(25, 20,15,15,15,5,5))
}

#' @export
travel_neutral_event <- function(){
  sample(c("Suspicious surroundings",
           "Battlefied",
           "Huddled masses",
           "A rival or past annoyance resurges",
           "Something out of the ordinary tempts the PCs",
           "A bad interaction with a traveller (future bad reputation)",
           "Toll road",
           "Something that shouldn't be there",
           "Divine providence",
           "A friend in need"),
         size = 1,
         prob = c(10,10,10,10,10,
                   15,10,5,10,10))
}

#' @export
travel_bad_event <- function(){
  sample(c("Tiring journey",
           "Thieves",
           "Unfriendly territory (bandits / monsters)",
           "Poisoned earth",
           "Natural danger",
           "Terrible weather",
           "Damaged goods",
           "Filthy conditions",
           "Mount disappears"),
         size = 1,
         prob = c(10, 10,10,10,10,
                   20,10,10, 10))
}