/* 
 * Las goblinow
 * Lokacja z lasu goblinow
 * Copyright (C): Julian 1999
 */
 
inherit "/d/Imperium/std/las";

#include <composite.h>
#include <std.h>
#include <macros.h>
#include <stdproperties.h>
#include "julian.h"
 
void
create_las_room()
{
    set_short ("Gleboki las");
    set_long ("Przed toba stoi drzewo. Jest gigantyczne i bez watpienia bardzo stare. "
            + "Cale poroslo gruba warstwa mchu. W drzewie znajduje sie wielka dziupla. " 
            + "W calym lasie rosna stare i wysokie drzewa. Wysoko nad twoja glowa " 
            + "rozposcieraja sie ogromne korony drzew. Do nizszych partii lasu przedostaje "
            + "sie przez nie tylko niewielka ilosc swiatla, co sprawia, ze w calym lesie panuje polmrok. "
		    + "Pien gigantycznego drzewa pomazany jest farba. Mialy to byc chyba jakies obrazy, "
			+ "lecz nie przypominaja wlasciwie niczego.\n");


    add_item ( ({"drzewo", "drzewa"}),
              "Rosna tu ogromne, bardzo stare drzewa. Ich kora jest cala pomarszczona. Przez ich "
            + "korony przedostaje sie tylko niewielka ilosc swiatla. Na jednym z drzew dostrzegasz "
            + "jakies znaki namalowane kolorowym plynem.\n");

    add_item ( ({"korone", "korony"}),
              "Wysoko nad twoja glowa rozposcieraja sie korony drzew.\n");

    add_item ( ({"dziuple", "otwor"}),
              "W gigantycznym drzewie wydrazona jest sporych rozmiarow dziupla. "
			+ "Pewnie mozna do niej wejsc.\n");

      add_cmd_item("do dziupli","wejdz","@@dzi");


add_exit ("las10.c", "polnoc");
add_exit ("las16.c", "wschod");

    dodaj_npca(JPATH + "npc/goblin3.c");
	dodaj_npca(JPATH + "npc/goblin3.c");

	set_event_time (9.0, 65.0);
	add_event ("Slyszysz szum lisci.\n");
	add_event ("Czujesz sie tu jakos nieswojo.\n");
    add_event ("Z dziupli dobiegaja cie jakies niepokojace chalasy.\n");
    add_event ("Czujesz, ze cos cie obserwuje.\n");
	set_events_on (1);

}

int
dzi()
{
    write("Przeciskasz sie przez otwor do ogromnej dziupli.\n");
    say(QCNAME(this_player()) + " przeciska sie przez otwor do ogromnej dziupli.\n");
    this_player()->move_living("M", JPATH+"lokacje/dziupla.c",1,0);
    say(QCNAME(this_player()) + " wchodzi przez ogromny otwor.\n");
    return 1;
}

leave_inv(object ob,object to)
{
    ::leave_inv(ob,to);  
}