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 }) );
}