Wenn ein zufaellig ausgewaehlter Passagier eines Schiffes unterwegs
seekrank werden soll, koennte man das wie folgt realisieren:
protected void create() {
  ...
  AddFun("seekrank", 5);
  ...
}
seekrank() {
  // soll nicht immer passieren
  if (random(5))
    return;
  // Opfer auswaehlen
  object* passagiere = QueryPassengers();
  object opfer;
  if (sizeof(passagiere))
    opfer = passagiere[random(sizeof(passagiere))];
  tell_object(opfer,
    "Du wirst seekrank! Schnell stuerzt Du zur Reling, um Dich zu\n"
    "uebergeben.\n");
  tell_room(this_object(),
    sprintf("%s ueberkommt die Seekrankheit!\n"
            "%s stuerzt an die Reling, um sich zu uebergeben.\n",
            opfer->Name(WEN),
            capitalize(opfer->QueryPronoun(WER))), ({ opfer }) );
}