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

#define TP this_player()
#define TO this_object()

void
create_object()
{
    ustaw_nazwe("portal");
    dodaj_przym("czerwony","czerwoni");
    
    set_long("Czerwony, migoczacy portal, ktory prowadzi do "+
	"wnetrza ziemi!\n");

    add_prop(OBJ_M_NO_GET,1);	
    add_prop("portal_balroga",1);
}


int
wejdz( string str )
{
    if (str != "w portal")
	return notify_fail("Wejdz w co?\n");
	
    TP->catch_msg("Wchodzisz w portal.\n");
    saybb(QCIMIE(TP,PL_MIA)+" wchodzi w portal, zamykajac go za soba.\n",({TP}));

    TP->move(PATH+"hell01.c");
    TP->do_glance(1);

    remove_object();
    return 1;
}

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