#include "local.h"
inherit IR;

object opluj, krepus;

void
reset_imperium_room() 
{
    if(!opluj)
    {
    opluj = clone_object(DHOME + "npc/opluj");
    opluj->move(this_object());
    }
    if(!krepus)
    {
    krepus = clone_object(DHOME + "npc/krepus");
    krepus->move(this_object());
    }
}
    
create_imperium_room() {
    
    set_long("@@my_long");
    set_short("Namiot dowodcy obozu.");
    
    add_exit(HOME+"/oboz5", ({"wyjscie","na zewnatrz"}));
    
    opluj = clone_object(DHOME + "npc/opluj.c");
    opluj->move(this_object());
    krepus = clone_object(DHOME + "npc/krepus.c");
    krepus->move(this_object());
    
    add_prop(ROOM_I_LIGHT, 1);
    add_prop(ROOM_I_INSIDE, 1);
    
    set_event_time(10.0,100.0);
    add_event("Slyszysz cichy jek dochadzacy z dywanu!\n");
    add_event("Rozlane wino powoli skapuje ze stolu.\n");
    add_event("Jakis snotling rozpaczliwie probuje wydostac sie z klatki.\n");
    add_event("Cos zielonego pelznie po scianie namiotu.\n");
    set_events_on(1);
    add_item(({"bronie","bron"}),"Widzisz tu zrzucone na stos rozmaite bronie w roznym stanie.\n");
    add_item(({"dywan","dywany"}), "Dywany zrabowane jakiejs karawanie.\n");
    add_item("klatke", "Klatka ze snotlingami.\n");    
               }

string
my_long() 
{
  return"Jestes w okazalym namiocie. Moze on naprawde robic"+
      " wrazenie. Pod scianami leza zrolowane dywany, na podlodze walaja sie"+
      " bronie i zbroje. W jednym z rogow namiotu znajduje sie stol."+
      " Panuje tu balagan nie mniejszy niz w innych czesciach obozu. Jednoczesnie"+
      " ilosc nagromadzonych tu lupow sugeruje, ze mieszka tu ktos, kto potrafi"+
      " wymusic posluszenstwo u swych kompanow i tym samym zagwarantowac dla"+
      " siebie wiekszy udzial w 'zyskach'.\n";
}