equipment <- c("flashlight", "snacks", "pick")
{
trace.msg(1, "Begin descent")
trace.msg(2, "Oh no, forgot the %s!", sample(equipment, 1))
trace.msg(2, "Hello? Can you throw it down to me?", time=FALSE)
trace.msg(1, "Aw shucks, I'm coming back up.")
}
Run the code above in your browser using DataLab