CAAD

función eventoaleatorio(probabilidad)
  Si random(100) < probabilidad entonces
    escoge_mensaje_aleatorio;
    imprime_mensaje_aleatorio;
fin

Claro: Room 'Claro del Bosque'
    atmosphereList: ShuffledEventList
    {
        [
            'Una ardilla huye disparada hacia la copa de un roble y desaparece fuera de tu vista.  ',
            'En tu camino te cruzas con un zorro. Te mira, gira sobre sí mismo y se pierde entre la espesura. ',
            'Se oye el murmullo de pequeños animales en la maleza. ',
            'A cierta distancia a tu derecha, un grupo de pájaros alzan el vuelo. '
        ]
        eventPercent = 75 // Posibilidad de que suceda uno de los efectos.
        eventReduceAfter = 4 // Número de veces que se disparan los efectos hasta que se reduce la posibilidad de otro suceso.
        eventReduceTo = 25 // Reducción de la probabilidad de que sucedan.
    }

/*
r: habitación donde tendrá lugar el evento
probability: probabilidad entre 0 y 1 de que suceda un evento
texts: textos aleatorios para elegir uno que se mostrará en caso de que suceda el evento
*/
void randomEvent ( Room r , double probability , String[] texts )
{
    if ( world.getRandom().nextDouble() < probability ) //echar a suertes si hay evento
    {
        int eventIndex = Math.abs( world.getRandom().nextInt() % texts.length ); //elegir qué mensaje se muestra
        r.reportActionAuto ( null , null , texts[eventIndex] , false ); //mostrar el mensaje
    }
}

/*
m: criatura que recibirá el evento
probability: probabilidad entre 0 y 1 de que suceda un evento
texts: textos aleatorios para elegir uno que se mostrará en caso de que suceda el evento
*/
void randomEvent ( Mobile m , double probability , String[] texts )
{
    if ( world.getRandom().nextDouble() < probability ) //echar a suertes si hay evento
    {
        int eventIndex = Math.abs( world.getRandom().nextInt() % texts.length ); //elegir qué mensaje se muestra
        m.writeStory ( texts[eventIndex] ); //mostrar el mensaje 
    }
}

String[] mensajes = {"Un trueno hace resonar todo el vestíbulo.","Desde un rincón oscuro del vestíbulo, oyes el chirrido de una rata."};
randomEvent ( room("Vestíbulo") , 0.5 , mensajes );

Lugar is a room. "La noche. La espesura. La soledad."

Every turn when a random chance of 1 in 3 succeeds and location is Lugar:
   say "[one of]Un grillo suena en la distancia.[or]Un olor a madreselva llega hasta tu nariz.[or]Una lejana y triste música parece provenir de la espesura.[at random]".