#include "local.h"
inherit IR;
object glabruz;
void
reset_imperium_room() 
{
    if(!glabruz)
    {
    glabruz = clone_object("/d/Imperium/alkin/orki/npc/ogr");
    glabruz->move(this_object());
    }
}
    
create_imperium_room() 
{
    
    set_long("@@my_long");
    set_short("Namiot dowodcy obozu.");
    
    add_exit(HOME+"/oboz17", ({"wyjscie","na zewnatrz"}));
    
    glabruz = clone_object("/d/Imperium/alkin/orki/npc/ogr");
    glabruz->move(this_object());
    
    add_prop(ROOM_I_LIGHT, 1);
    add_prop(ROOM_I_INSIDE, 1);
    
    set_event_time(10.0,100.0);
    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";
}