#include <macros.h>
#include <stdproperties.h>
#include <ss_types.h>
#include <wa_types.h>
#include "morley.h"
inherit "/std/creature.c";
inherit "/std/combat/unarmed.c";
inherit "/std/act/domove.c";
inherit "/std/act/attack.c";
mixed przymiotniki1 = ({ ({"czarny", "czarni"}), ({"ziemisty", "ziemisci"}),
			 ({"brudny", "brudni"}), ({"brazowy", "brazowi"}),
			 ({"iluminujacy", "iluminujacy"}) });
mixed przymiotniki2 = ({ ({"ruchliwy", "ruchliwi"}), ({"chlupoczacy", "chlupoczacy"}),
			 ({"niespokojny", "niespokojni"}), ({"niepozorny", "niepozorni"}),
			 ({"cuchnacy", "cuchnacy"}) });
int q_att();
void
create_creature()
{
    int tmp;
    ustaw_odmiane_rasy(({"sluz", "sluzu", "sluzowi", "sluz", "sluzem", "sluzie"}),
		       ({"sluzy", "sluzow", "sluzom", "sluzy", "sluzami", "sluzach"}),
		       PL_MESKI_NZYW);
    tmp = random(sizeof(przymiotniki1));
    dodaj_przym(przymiotniki1[tmp][0], przymiotniki1[tmp][1]);
    tmp = random(sizeof(przymiotniki2));
    dodaj_przym(przymiotniki2[tmp][0], przymiotniki2[tmp][1]);    
    set_long("Z pozoru wyglada to na dziwna kaluze blota, ale kiedy przyjrzec sie " +
	     "blizej mozna zauwazyc, ze owo cos ma bardziej sluzowata konsystencje " +
	     "i ewidentnie jakas sila trzyma to w calosci i pozwala sie temu " +
	     "poruszac. Chociaz ow sluz nie ma zadnych broni ani odnozy jest w stanie " +
	     "uformowac ze swego ciala calkiem dluga macke, ktora potrafi mocno " +
	     "przylozyc nieroztropnemu wedrowcy.\n");
    set_gender(G_MALE);
    set_stats(({35 + random(10), 45 + random(10), 50 + random(20), 10, 10, 45 + random(10)}));
    add_prop(LIVE_I_NEVERKNOWN, 1);
    add_prop(CONT_I_VOLUME, 40000);
    add_prop(CONT_I_HEIGHT, 50);
    add_prop(CONT_I_WEIGHT, 40000 + random(10000));
    add_prop(NPC_I_NO_FEAR, 1);
    add_prop(LIVE_I_SEE_DARK, 10);
    add_prop(LIVE_I_NO_CORPSE, 1);
    add_prop(NPC_M_NO_ACCEPT_GIVE, " nie bardzo ma jak to wziac.\n");
    add_prop(OBJ_S_WIZINFO, "by Morley '99\n");
    set_skill(SS_DEFENCE, 30);
    set_skill(SS_AWARENESS, 80);
    set_alignment(-300 - random(100));
    set_attack_unarmed(0, 50, 20, W_CLUB, 100, "macka");
    set_hitloc_unarmed(0, 15, 40, "macke");
    set_hitloc_unarmed(1, 15, 60, "korpus");
    set_random_move(30);
    set_aggressive(q_att);
}
void
do_die(object killer)
{
    string str = (environment()->query_prop(ROOM_I_INSIDE) ? "rozlewa sie po posadzce" :
		  "wsiaka szybko w ziemie");
    say("Nagle sila trzymajaca " + QIMIE(this_object(), PL_BIE) + " w calosci znika, " +
	"a sliska maz " + str + ".\n");
    ::do_die(killer);
}
int
q_att()
{
    if (this_player()->query_prop(IMPERIUM_STWOR_CHAOSU) == 1)
	return 0;
    return 1;
}