inherit "/d/Imperium/std/room.c";
#include <stdstatek.h>
#include <macros.h>




void
create_imperium_room()
{
set_short("Poklad statku");
set_long("Poklad statku.\n");
}


int
zsiadz( string str )
{

    if (str!="ze statku")
	{
	write("Zsiadz z czego?\n");
	return 1;
	}
	
	if ((OBJ+"ship")->query_pozycja() == "")
	    {
	    write("Kazdy by tak chcial.\n");
	    return 1;
	    }

	write("Zsiadasz ze statku.\n");
	say(QCIMIE(TP,PL_MIA)+" zsiada ze statku.\n");
	TP->move((OBJ+"ship")->query_pozycja());
	tell_room(environment(TP),""+QCIMIE(TP,PL_MIA)+" zchodzi ze statku.\n",({TP}));
	return 1;
}


void
init()
{
::init();
add_action("zsiadz","zsiadz");
}