/*
 * Glowny obiekt sciezki do Weilerbergu
 * by Tanis - styczen 1998
 */

#include "sciezka.h"
#include "ellentir.h"
#include "/d/Imperium/sys/alarm.h"

inherit STDPATH + "pogoda.c";
inherit "/d/Imperium/std/droga";

void
ludzie(int liczba_ludzi)
{
    int x;
    string ktory;
    object czlowiek;
    string *rodzaj=JACY_LUDZIE
    
    for (x = 0; x < liczba_ludzi; x++)
        {
            ktory=rodzaj[random(sizeof(rodzaj))];
            dodaj_npca(NPCPATH + ktory);
         }
    return;
}

void
create_droga_room()
{
    set_short("Droga do Weierbergu"); 
    set_long("@@dlugi_opis");

    add_prop(ROOM_I_INSIDE, 0); 
    add_prop(ROOM_I_LIGHT, 1); 
 
    set_event_time(10.0, 100.0); 

    add_event("Z daleka slychac wycie wilka.\n", 2);
    add_event("Z ciemnosci dobiega cie hukanie sowy.\n",2);
    add_event("Kolo ciebie widzisz wiewiorke.\n",0);
    add_event("Z daleka dochodza cie krzyki.\n", 1); 
   
    set_events_on(1);

} 

string
dlugi_opis()
{
    return("Jestes na drodze do Weilerbergu.\n");
}