Module AFTN.Encounter

Random encounters

type encounter =
  1. | Quiet
  2. | Alien_LostTheSignal
  3. | Alien_Stalk
  4. | Alien_Hunt
  5. | Order937_MeetMeInTheInfirmary
  6. | Order937_CrewExpendable
  7. | Order937_CollatingData
val string_of_encounter : encounter -> string
val encounter_is_alien : encounter -> bool
val encounter_is_order937 : encounter -> bool