inherit "/std/object.c";
#include "../kislev.h"
#include <macros.h>
#include <stdproperties.h>


void
odpal()
{
(OBJ+"ship")->odpal_statek(TO);
}

void
create_object()
{
ustaw_nazwe(({"statek","statku","statkowi","statek","statkiem","statku"}),
	    ({"statki","statkow","statkom","statki","statkami","statkach"}),
	    PL_MESKI_NOS_NZYW);
	    
	set_long("Jest to dosc spory statek dodatkowo wzmocniony, "+
		"zapewne z uwagi na to, iz przeplywa przez grozne "+
		"obszary gdzies na polnocy.\n");
		
		dodaj_przym("wielki","wielcy");
		dodaj_przym("zasniezony","zasniezeni");


add_prop(OBJ_M_NO_GET,"Statek?\n");
set_alarm(1.0,0.0,"odpal");
}


int
wejdz( string str )
{
if (str!="na statek")
    {
    write("Wejdz na co?\n");
    return 1;    
    }
    
    write("Wsiadasz na statek.\n");
    say(QCIMIE(TP,PL_MIA)+" wsiada na statek.\n");
    TP->move(OBJ+"poklad.c");
    return 1;    

}

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