inherit "/std/object";
inherit "/cmd/std/command_driver.c";
#include "zwiad.h"
#include "/d/Imperium/std/reload.h"
int rog=0;
#include "emoty.h"
#include "pomoc.h"

#define A "rekawice_feministek"

int zalozony;
int wear();
int remove();

void
create_object()
{
        ustaw_nazwe (({"szarfa","szarfy","szarfie","szarfe","szarfa","szarfie"}),
                ({"szarfy","szarf","szarfom","szarfy","szarfami","szarfach"}),
                PL_ZENSKI);

   dodaj_przym("rozowy","rozowi");

   add_prop("rekawice_zwiadowcow",1);
   add_name("rekawice_zwiadowcow");   
   set_long("Szarfa jest po to by je nosic. Po wewnetrznej stronie widzisz "+
           "male literki ukladajace sie w napis <fpomoc>.\n");

   add_prop(OBJ_I_WEIGHT,   5000);
   add_prop(OBJ_I_VOLUME,    500);
   add_prop(OBJ_I_VALUE,   24000);
}

dodaj_propy()
{
    add_prop(OBJ_M_NO_SELL,"");
    add_prop(OBJ_M_NO_DROP,"");
    add_prop(OBJ_M_NO_GIVE,"");
    add_prop(OBJ_M_NO_STEAL, 1);
    add_prop(OBJ_M_NO_GET,"");


}

usun_propy()
{
    remove_prop(OBJ_M_NO_SELL);
    remove_prop(OBJ_M_NO_DROP);
    remove_prop(OBJ_M_NO_GIVE);
    remove_prop(OBJ_M_NO_STEAL);
    remove_prop(OBJ_M_NO_GET);
}


int
wear()
{
    if (this_player()->query_subloc_obj(A))
        { remove_object(); return 1;}
    this_player()->add_subloc(A, this_object());
    move(TP, A);
    zalozony=1;
    this_player()->add_prop("feministka",1);
    this_player()->add_prop("szef_feministek",1);
    return 1;
}

int
remove()
{
    this_player()->remove_subloc(A);
    zalozony=0;
    move(TP);
    return 1;
}

void
enter_env(object ob, object from)
{
    ::enter_env(ob, from);
    dodaj_propy();
    wear();
}

string
show_subloc(string subloc, object on_obj, object for_obj)
{
    if (on_obj == for_obj)
       return "Twa szarfa symbolizuja twa przynaleznosc do ruchu feministek.\n";
    return "Jej "+short(PL_BIE)+" jest znakiem przynaleznosci do ruchu feministek.\n";
}

string
query_auto_load ()
{
        return MASTER_OB(this_object());
}

int no_way(string what)
{
   if (what=="szarfe")
       {
             write("Chyba nie chcesz zniszczyc znaku przynaleznosci do "+
                    "feministek?\n");
             say(QCIMIE(this_player(),PL_MIA)+" spoglada na swa "+
                 "szarfe.\n");
             return 1;
       }
  return 0;
}


void init()
{
   ::init();
   add_action(no_way, "zdejmij");
   add_action("usun", "usun");
   add_action("pomoc", "fpomoc");
   add_action("skopaj", "skopaj");
}



int
wywal(object kto)
{
kto->remove_autoshadow(OBJ+"shadow:0");
this_object()->remove_object();
kto->command("zakoncz");
return 1;
}


int
usun(string str)
{
    object *kogo;
    if (!TP->query_prop("szef_feministek")) return 0;
    if (!str)
        return notify_fail("Kogo wyrzucic?\n");
    kogo=parse_this(str, "%l:"+PL_DOP);
    if (!sizeof(kogo))
        return notify_fail("Kogo usunac z gildii?\n");

    if (sizeof(kogo)>1)
        return notify_fail("Usuwac mozesz tylko pojedynczo.\n");

    if (kogo[0]->query_guild_name_race()!=GUILD_NAME)
        return notify_fail(QCIMIE(kogo[0], PL_MIA) +" nie jest feministka.\n");
    if (!interactive(kogo[0]))
       return notify_fail("Nie mozesz go usunac!\n");
    wywal(kogo[0]);
    return 1;
}

void
ublok()
{
rog=0;
write("Czujesz ze znow mozesz skopac jakiegos gnoja.\n");
}

int
skopaj( string str )
{
object wrog;
    if (!TP->query_attack())
        {
        write("Nie walczysz z nikim!\n");
        return 1;
        }
    if (rog==1)
        {
        write("Wpierw moze troche odpocznij.\n");
        return 1;
        }
        
        wrog = TP->query_attack();
        
        
    if (!str)
        {
        TP->catch_msg("Wykonujesz szybki ruch noga, w wyniku czego twoj "+
            "ciezki bucior trafia "+QIMIE(wrog,PL_BIE)+" w okolice "+
            "narzadow intymnych, zadajac ofierze nie male obrazenia.\n");
        tell_room(environment(TP),""+QCIMIE(TP,PL_MIA)+" wykonuje "+
            "szybki ruch noga, w wyniku czego jej ciezki bucior trafia "+
            ""+QIMIE(wrog,PL_BIE)+" w pewne dosc intymne miejsce, zadajac "+
            "ofierze nie male obrazenia.\n",({TP,wrog}));
        wrog->catch_msg(""+QCIMIE(TP,PL_MIA)+" wykonuje szybki ruch swa noga "+
            "w wyniku czego jej bucior trafia cie zdziebko ponizej brzucha... "+
            "Aaaaj ale boli! Musisz oddac tej kurwie!\n");
        wrog->reduce_hit_point(random(250)+500);
        
        rog=1;
        set_alarm(20.0,0.0,"ublok");
        return 1;
        }
        
        
write("Skopaj?\n");
return 1;

}