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


#define S "sublok_diamentu"

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

object portale;

void
create_object()
{
        ustaw_nazwe(({"diament", "diamentu", "diamentowi", "diament", "diamentem", "diamentach"}),
                    ({"diamenty", "diamentow", "diamentom", "diamenty", "diamentami", "diamentach"}),
                    PL_NIJAKI_NOS);
 dodaj_nazwy(({"diament", "diamentu", "diamentowi", "diament",
"diamentem", "diamentach"}),
                    ({"diamenty", "diamentow", "diamentom", "diamenty",
"diamentami", "diamentach"}),
                    PL_NIJAKI_NOS);
    
    set_long("Jest to starozytny diament, krwistoczerwony, w ktorym "+
	"zakleta jest dusza jakiegos demona. Spogladajac tak "+
	"na ten mistyczny kamien nagle cos szepce ci "+
	"do ucha... Wbij go... wbij!\n");
	    
}

void
bak( object ob )
{
    ob->catch_msg("Cos cie przenosi...\n");
    ob->move(PATH+"hell08.c");
    ob->do_glance(1);

}

int
wbij( string str )
{
int i;

    if (str != "diament w czolo")
	return notify_fail("Wbij diament w co?\n");

    if (TP->query_prop("_ma_wbity_diament"))
	return notify_fail("Masz juz wbity diament.\n");  	
    
    TP->catch_msg("Niepewnie unosisz diament, po czym jego ostra "+
	"czesc wbijasz w swe czolo!!! Czujesz jak jakas obca moc "+
	"ogarnia twe czlonki, przestajesz panowac nad wlasnym cialem, "+
	"az w koncu nawiedza cie czern...\n");

    TO->add_prop(OBJ_M_NO_DROP,1);
    TO->add_prop(OBJ_M_NO_GIVE,1);

    TP->remove_subloc(S);
    TP->add_subloc(S,TO);
    TO->move(TP,S);
    TP->move(PATH+"void.c");
    
    TP->set_stat_extra(0,150);
    TP->set_stat_extra(1,150);
    TP->set_stat_extra(2,150);
    TP->set_skill_extra(SS_DEFENCE,30);
    TP->set_skill_extra(SS_PARRY,30);
    TP->add_prop("_ma_wbity_diament",1);    

    set_alarm(40.0,0.0,"bak",TP);    
    
    return 1;
}

string
show_subloc( string subloc, object ob, object obf )
{
if ( subloc != S ) return "";
    if ( obf == ob )
        return "";

    return "W jego czole tkwi czerwony diament.\n";
}
	

int
otworz( string str )
{
    if (!TP->query_prop("_ma_wbity_diament"))
	return 0;

    if ( str != "portal" )
	return notify_fail("Otworz co?\n");

    if (portale)
	return notify_fail("Juz otworzyles jeden portal.\n");

    TP->catch_msg("Wznosisz swa szponiasta lape, otwierajac "+
	"wielki, czerwony portal do wnetrza ziemi.\n");
    saybb(QCIMIE(TP,PL_MIA)+" wznosi swa szponiasta lape, "+
	"otwierajac w przestrzeni wielki, czerwony portal "+
	"do wnetrza ziemi.\n");
	
    setuid();seteuid(getuid());
    portale=clone_object(PATH+"Itemy/portal.c");
    portale->move(environment(TP));

    return 1;
}


void
init()
{
    ::init();
    add_action("wbij","wbij");
    add_action("otworz","otworz");
}

void
laduj()
{
object p = environment(TO);


    p->remove_subloc(S);
    p->add_subloc(S,TO);
    TO->move(TP,S);
    
    p->set_stat_extra(0,150);
    p->set_stat_extra(1,150);
    p->set_stat_extra(2,150);
    p->set_skill_extra(SS_DEFENCE,30);
    p->set_skill_extra(SS_PARRY,30);
    p->add_prop("_ma_wbity_diament",1);    
    
}

//string
//query_auto_load()
//{
//    return MASTER+":";
//}

string
init_arg( string arg )
{
    set_alarm(0.5,0.0,"laduj");
}