/* Wejscie do namiotu szefa orkow
   110297 Rangar*/


#include "/sys/stdproperties.h"
/* Tutaj dziedziczymy i wlaczamy podstawowe i przydatne funkcje dotyczace
 * pokoju. */
#include "local.h"
// Tutaj dolaczamy definicje statsow - potrzebne przy tescie strachu.
#include <ss_types.h>
// Tutaj dziedziczymy standardowy pokoj Imperium, pozwalajacy m.in. na 
// sprawdzenie czasu i pogody.
inherit IR;
#include "ork.h"

void
reset_imperium_room() {
    ludzie(3);
}

create_imperium_room() {
    
    set_long("@@my_long");
    set_short("Wejscie do namiotu dowodcy");
    
    add_exit(HOME+"/oboz2", "zachod", 0);
    add_exit(HOME+"/oboz3", "polnocny-zachod", 0);
    add_exit(HOME+"/oboz4", "poludniowy-zachod", 0);
// jezeli ktos chce wejsc do namiotu dowodcy, sprawdzamy czy sie odwazy.
    add_exit(HOME+"/tent", ({"namiot","do namiotu"}), 0);

    add_prop(ROOM_I_LIGHT, 5);

// Tutaj dodaje wydarzenia losowe - cos krzyknie, cos zapachnie i tak dalej...
// Deklaracja, ze pierwsze wydazenie nastapi po 10 sekundach od wejscia do
// lokacji, nastepne (losowe) po 100 sekuundach od porzedniego.
    set_event_time(10.0,100.0);
// Add_event dodaje wydarzenia.
    add_event("Slyszysz jakies jeki, dobiegajace z namiotu.\n");
    add_event("Masz wrazenie, jakby sie ktos tobie badacznie przygladal...\n");
    add_event("Slyszysz wyrazne chrupniecie w namiocie, jakby ktos lamal kosci... chyba karku.\n");
    add_event("Z namiotu dobiega nieludzki, przeszywajacy skrzek.\n");
    add_event("Cos tu smierdzi.\n");
    add_event("Z namiotu dobiega zlowieszczy rechot.\n");
    add_event("Ptaki kraza dosc nisko, jakby spodziewaly sie zeru.\n");
// A teraz wlaczmy te wydazenia:
    set_events_on(1);
    add_item("namiot","Najporzadniej wykona konstrukcja sposrod tych ktore " +
    	"widzales tu do tej pory. \n");
   add_item("namioty","Wokol widzisz wiele malych, szarych namiotow. Jedzie od "+
        "nich nieprzecietny smrod, z czego wnosisz ze zamieszkuja je orki.\n");
    add_item(({"smieci","resztki","jedzenie"}),"Wszystko dokola pokryte jest warstwa "+
        "odpadkow, obficie produkowanych przez mieszkajace tu orki.\n");
    add_item("orki","Kreca sie dokola, patrolujac okolice.\n");    

    ludzie(3);
               }

string
my_long() {
  return "Znajdujesz sie w obozie orkow, przed soba widzisz calkiem spory namiot, " +
  	      "ktory jak sie domyslasz nalezy do dowodcy tej bandy. " +
  	      opis_pory_roku() + " Wokol siebie widzisz dziesiatki szarych, "
             +"brudnych namiotow. Smrod, jaki roznosi sie wkolo nich jest tak potworny, ze doprowadza "+
             "cie niemal do szalenstwa.\n";
           }