/* wnetrze namiotu */

inherit "/d/Imperium/std/room";
#include "tigr.h"

object nam,enam;

create_imperium_room()
{
   set_short("Wnetrze namiotu");
   
   set_long("Znajdujesz sie w namiocie. Cale wnetrzne oswietlone jest " +
   	    "tylko przez nikle swiatlo, przeciskajace sie pomiedzy skorami, " +
   	    "stanowiacymy sciane tej konstrukcji. Palki, na ktorych wszystko " +
   	    "sie trzyma, sa w wiekzosci zbutwiale, lub sprochniale. Po " +
   	    "podlodze walaja sie kosci i resztki jedzenia, co sprawia zdecydowanie " +
   	    "nieprzyjemne wrazenie. Wypelniajacy to miejsce smrod, omal nie " +
   	    "zwala cie z nog. Twoje zmysly podpowiadaja ci, ze pare minut " +
   	    "spedzonych w takim zaduchu moze zakonczyc sie tragicznie.\n");
   	    
   add_prop(ROOM_I_INSIDE, 1);
   add_prop(CONT_I_VOLUME, 700000);
   
}

ustaw_nam(object n)
{
   nam=n;
   if (n) enam=environment(n);
}

object
query_nam()
{
   return nam;
}

utworz_wyjscie(object dokad)
{
   string str_dokad=MASTER_OB(dokad);
   
   add_exit(str_dokad,"wyjscie",0,1);
}

remove_object()
{
   object *inv=all_inventory(TO);
   
   inv->move(enam,1);
   inv->catch_msg("Namiot w ktorym sie znajdowales rozpadl sie " +
   	"odslaniajac cie!\n");
   
   ::remove_object();
}