Module AFTN.Events

type event =
  1. | NoEvent
  2. | SafeEvent
  3. | JonesyEvent
  4. | XenoEvent
val random_event : unit -> event * int

Get a random event, along with the morale delta

val trigger_event : Character.character -> Map.room option -> event

Trigger a post-move event, return it