/*
 * Glowny obiekt drogi Weilerbergskiej
 * by Ellentir - luty 1998
 */

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

inherit STDPATH + "pogodaw.c";
inherit "/d/Imperium/std/room.c";

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))];
            if (ktory=="nozownik.c") dodaj_npca(NPCPATH + ktory);
            else 
              {
               dodaj_npca(NPCPATH + ktory);
              }
         }
    return;
}

void
create_imperium_room()
{
    ::create_imperium_room();
 
    set_short("Uliczka Weilerbergu"); 
    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("Przestraszone czyms golebie zrywaja sie "
        + "do lotu.\n",1);
    add_event("Z ciemnosci dobiega cie hukanie sowy.\n",2);
    add_event("Kolo ciebie przebiega rudy kocur i zaraz znika za rogiem.\n",0);
    add_event("Z otwartego okienka dobiega cie czyjas "
        + "rozmowa.\n",1);
    add_event("Mija cie jakis nocny wedrowiec, szybko znikajac w mroku.\n",2);
    add_event("Kolo ciebie przechodzi matka prowadzac usmarkane "
        + "i placzace dziecko.\n",1);
    add_event("Z ktoregos z okien dobiega cie placz obudzonego czyms dziecka.\n",2);
    add_event("Obok ciebie przechodzi starzec mamroczac "
        + "cos pod nosem.\n",1);      
    add_event("Mija cie chlop wracajacy z pola.\n",1);
   
    set_events_on(1);

    add_item(({"dom","domy","domki","domek","budynki"}),
        "Typowe wiejskie domy. Dachy pokryte sa strzecha, a calosc zbudowana"+
        "jest z desek.\n");
    
    reset_imperium_room();
} 

string
dlugi_opis()
{
    return("Jestes na jednej z ulic Weielrbergu.\n");
}