/* Plik:          pajak
 * Autor:         Julian
 * Data:          23.04.99
 * Last update:   none
 * Opis:          Gigantyczny pajak
 */

inherit "/d/Imperium/std/zwierze.c";
#include <wa_types.h>
#include <formulas.h>
#include <pl.h>
#include <stdproperties.h>
#include <macros.h>
#include <ss_types.h>

#define A_ZEBY 0
#define A_NOGI 1

#define H_GLOWA 0
#define H_NOGI  1
#define H_CIALO 2


void
create_zwierze()
{

    jak_znikac_podczas_walki(" ucieka w poplochu.");

    dodaj_nazwy(({"pajak", "pajaka", "pajakowi", "pajaka", "pajakiem",
                  "pajaku"}), ({"pajaki", "pajakow", "pajakom", "pajakow",
                  "pajakami", "pajakach"}), PL_MESKI_NOS_ZYW);
    ustaw_odmiane_rasy(({"pajak", "pajaka", "pajakowi", "pajaka", "pajakiem",
                  "pajaku"}), ({"pajaki", "pajakow", "pajakom", "pajakow",
                  "pajakami", "pajakach"}), PL_MESKI_NOS_ZYW);

    add_prop(LIVE_I_NEVERKNOWN, 1);

    set_gender(G_MALE);

    dodaj_przym("gigantyczny", "gigantyczni");
	dodaj_przym("owlosiony", "owlosieni");


    set_long("Jest to monstrualnych rozmiarow pajak. Jego cialo pokrywa gruba warstwa posklejanych "
	       + "wlosow. Z jego geby wyplywa lepka ciecz powoli skapujac na ziemie. Potworny smrod, ktory "
	       + "rostacza sie wokol ledwo pozwala oddychac. To dziwne stworzenie bez watpienia nie jest "
		   + "nastawione pokojowo.\n");

    set_stats(({30 + random(10), 25 + random(10), 75 + random(10), 15, 5, 35 }));


    add_prop(CONT_I_WEIGHT, 65000);
    add_prop(CONT_I_HEIGHT, 193);

    set_skill(SS_DEFENCE, 90);
    set_skill(SS_UNARM_COMBAT, 50);
    
    set_attack_unarmed(A_ZEBY,10,25,W_IMPALE,50,"ostrymi zebami");
    set_attack_unarmed(A_NOGI,25,10,W_IMPALE,50,"wlochata noga");

    set_hitloc_unarmed(H_NOGI, 20, 20, "nogi");
    set_hitloc_unarmed(H_CIALO, 20, 60, "korpus");
    set_hitloc_unarmed(H_GLOWA, 20, 20, "glowe");
    
    ustaw_whimpy(20);

        
	}