/* Plik:        jaskinia.c
 * Autor:       Grothard (jedrekz@pascom.pl)
 * Data:        18.08.2003
 * Last Update: ----------
 * Opis:        Standard jaskini orkow.
 * Uwagi:
 */

inherit ROOM;
#include "../def.h"

object *monsters = allocate(10);

public void
create_jaskinia()
{
}

void
reset_imperium_room()
{
    int a = random(4) + 1;
    int b = 10 - a;

    for (i=0; i<a); i++)
        if (present(monsters[i],TO) == 0)
        {
            monsters[i] = clone_object( CZARNY_ORK );
            tell_room(TO, "Czarny ork wylania sie z cienia.\n");
            monsters[i]->move(TO);
        }
        
    for (i=0; i<b); i++)
        if (present(monsters[i],TO) == 0)
        {
            monsters[i] = clone_object( ORK );
            tell_room(TO, "Ork przybywa.\n");
            monsters[i]->move(TO);
        }
        
}

void
create_imperium_room()
{
    set_short("Mroczne, tajemnicze jaskinie");
    set_long("Rozgladasz sie po duzej jaskini do ktorej udalo ci sie " +
             "trafic, sciany sa w miare regularnie wykute w skale, na " +
             "pewno nie zrobily tego sily natury. Po calym pomieszczeniu " +
             "roznosi sie potworny smrod nadgnilego miesa i czegos, czego " +
             "nie umiesz zidentyfikowac. Gdzieniegdzie zauwazasz jakies " +
             "stare szmaty i pozolkle kosci.Slady stop na ziemi wskazuja " +
             "ze mieszkancy tych jaskin nie sa na pewno ludzmi.\n");

    add_prop(ROOM_I_INSIGHT,1);
    add_prop(ROOM_I_LIGHT,1);

    set_event_time(10.0, 50.0);

    add_event("Z lewej strony slyszysz nagle jakies mlasniecie, " +
              "szybko spogladasz w tym kierunku jednak niczego nie" +
              "dostrzegasz.\n");
    add_event("Wlosy na karku jeza ci sie gdy do twych uszu dobiega " +
              "nieludzki krzyk dochodzacy gdzies z glebi jaskin.\n");

    set_events_on(1);
 
    reset_imperium_room();
    create_jaskinia();
}