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


#define VOID "/std/void"
string *pozycje = ({"/d/Imperium/Nuln/lokacje/doki_1.c","","/d/Imperium/Varn/lokacje/przystan4.c"});
string pozycja="/d/Imperium/Nuln/lokacje/doki_1.c";
int index=0;

void doplyn( object ob );
void odplyn( object ob );

string
query_pozycja()
{
    return pozycja;
}

void
create_object()
{
}

void
odplyn( object ob )
{
tell_room(environment(ob),"Statek z glosnym skrzypieniem odplywa.\n");
tell_room(OBJ+"poklad","Statek odplywa.\n");
ob->move(VOID);
if (!index)
    index=2;
    else
if (index==2)
    index=0;

pozycja=pozycje[1];

set_alarm(120.0,0.0,"doplyn",ob);
}


void
doplyn( object ob )
{
pozycja=pozycje[index];
ob->move(pozycja);
tell_room(environment(ob),"Statek dobija do brzegu.\n");
tell_room(OBJ+"poklad","Statek dobija do brzegu!\n");
set_alarm(60.0,0.0,"odplyn",ob);
}


void
odpal_statek( object ob )
{
tell_room(environment(ob),"Statek dobija do brzegu. Dobiega cie "+
	    "wolanie kapitana: ZO MINUTE ODPLYWOMY!\n");
set_alarm(60.0,0.0,"odplyn",ob);
}