#include <stdproperties.h>
#include <pl.h>
#include <wa_types.h>
#include <const.h>
#include <ss_types.h>

#include "morley.h"

inherit "/d/Imperium/std/undead";
inherit "/std/combat/unarmed";

mixed przymiotniki1 = ({ ({"pozolkly", "pozolkli"}), ({"sczernialy", "sczerniali"}),
			 ({"bialy", "biali"}), ({"trzeszczacy", "trzeszczacy"}) });

mixed przymiotniki2 = ({ ({"zlowrogi", "zlowrodzy"}), ({"gniewny", "gniewni"}),
			 ({"wysoki", "wysocy"}), ({"niski", "niscy"}),
			 ({"posepny", "posepni"}) });

string *bronie = ({WEP_PATH + "miecz1.c",
                   WEP_PATH + "miecz2.c",
                   WEP_PATH + "topor1.c"});

string *tarcze = ({ARM_PATH + "tarcza1.c",
                   ARM_PATH + "tarcza2.c" });

void
create_undead()
{
    ustaw_odmiane_rasy(({ "szkielet", "szkieleta", "szkieletowi", "szkielet",
			      "szkieletem", "szkielecie" }), ({ "szkielety", "szkieletow",
			       "szkieletom", "szkielety", "szkieletami", "szkieletach" }),
			      PL_MESKI_NOS_NZYW);
            
    set_gender(G_MALE);
	
    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("Osobnik ow wyglada jak wiekowy, oczyszczony juz przez czas " +
	     "ludzki szkielet, ktory nagle zapragnal na nowo zaczac stapac " +
	     "po ziemi. Jedyne co go odroznia od swych spokojnie spoczywajaych " +
	     "braci to dziwne, zle swiatlo ktore tli sie w glebi jego oczodolow, " +
	     "a z jego palakowatej zwisa ryngraf ze znakiem Slaanesha.\n");

    add_prop(LIVE_I_NO_CORPSE, 1);
    add_prop(LIVE_I_SEE_DARK, 10);
    add_prop(LIVE_I_UNDEAD, 1);
    add_prop(NPC_I_NO_FEAR, 1);
    add_prop(CONT_I_VOLUME, 350);
    add_prop(CONT_I_WEIGHT, 50000);
    add_prop(CONT_I_HEIGHT, 160 + random(40));
    add_prop(NPC_M_NO_ACCEPT_GIVE, " nie jest na tyle glupi zeby cos od ciebie brac.\n");
    add_prop(OBJ_S_WIZINFO, "czesciowo by Morley '99\n");

    set_alignment(-500-random(200));

    set_attack_unarmed(W_RIGHT, 40, 50, W_SLASH, 45, 
		       "dlugimi ostrymi szponami");
    set_attack_unarmed(W_LEFT, 40, 50, W_SLASH, 45, 
		       "dlugimi ostrymi szponami");
    set_attack_unarmed(1, 40, 50, W_IMPALE, 45, 
		       "pozoklymi zebiskami");
    set_hitloc_unarmed(A_HEAD, ({200, 200, 1}), 10, "pozolka czaszke");
    set_hitloc_unarmed(A_R_ARM, ({200, 200, 1}), 10, "prawe szponiaste ramie");
    set_hitloc_unarmed(A_L_ARM, ({200, 200, 1}), 10, "lewe szponiaste ramie");
    set_hitloc_unarmed(A_TORSO, ({200, 200, 1}), 60, "pozokle zebra");
    set_hitloc_unarmed(A_LEGS, ({200, 200, 1}), 30, "pozolke kosci nog");
	
    set_skill(SS_DEFENCE, 30);
    set_skill(SS_UNARM_COMBAT, 40);
    set_skill(SS_WEP_SWORD, 50);
    set_skill(SS_WEP_AXE, 50);
    set_skill(SS_AWARENESS, 50);
    set_skill(SS_PARRY, 40);
    set_skill(SS_SHIELD_PARRY, 40);
    set_skill(SS_HUNTING, 40);
	
    set_aggressive(1);

    if ( tmp = sizeof(bronie) )
	add_weapon(bronie[random(tmp)]);
    if ( tmp = sizeof(tarcze) )
	add_armour(tarcze[random(tmp)]);

    set_act_time(20 + random(20));
    set_cact_time(5);

    add_act("emote postukuje koscmi o posadzke.");
    add_act("emote oglada swoje uzbrojenie.");
    add_act("emote przyglada sie ziemi uwaznie.");
    add_act("emote skrobie sie reka po bielejacej czaszce.");
    add_act("emote stuka groznie zebami.");

    add_cact("emote smaga cie spojrzeniem swoich swiecacych oczu.");
    add_cact("emote chrzesci glucho skladajac sie do ciosu.");
    add_cact("emote wymachyje gniewnie w twoja strone koscista dlonia.");

    set_random_move(30);
}