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

int il = 4;

void
create_object()
{
    ustaw_nazwe("zwoj");
    dodaj_przym("czarny","czarni");
    dodaj_przym("zapisany","zapisani");
    
    set_long("Dlugi zwoj. Jesli chcesz, mozesz sprobowac odczytac "+
	"inskrypcje.\n");
}


int
odczytaj( string str )
{

    if (str != "inskrypcje")
	return notify_fail("Odczytaj co?\n");
	
    write("Glosno recytujesz slowa zawarte na zwoju. Nagle przed toba "+
	"otwiera sie portal!\n");
    saybb(QCIMIE(this_player(),PL_MIA)+" glosno recytuje slowa "+
	"zawarte na zwoju. Nagle w przestrzeni otwiera sie "+
	"portal.\n",({this_player()}));
	
    setuid();seteuid(getuid());
    clone_object("/d/Imperium/Pieklo/Itemy/portal.c")->move(environment(this_player()));

    il--;

    if ( il <= 0 )  {
	write("Zwoj rozpada sie.\n");
	remove_object();
    }
    
    return 1;
}

void
init()
{
    add_action("odczytaj","odczytaj");
}