inherit "/d/Imperium/std/monster";
inherit "/std/combat/unarmed";
#include <money.h>
#include <ss_types.h>
#include <wa_types.h>
#include <macros.h>
#include <stdproperties.h>
#include <pl.h>
object GEMS ="/d/Standard/gems/mobs.c";

#define A_BITE  0
#define A_LCLAW 1
#define A_RCLAW 2

#define H_HEAD 0
#define H_BODY 1

#define PRZYMIOTNIKI ({({"potworny","potworni"}), ({"krwiozerczy","krwiozercze"}),\
({"ogromny","ogromni"}), ({"straszny","straszne"}), ({"odrazajacy","odrazajacy"}),\
({"bezlitosny","bezlitosni"}),({"wyglodnialy","wyglodnialy"})})
#define LICZBA_PRZYMIOTNIKOW 7

void
create_monster()
{        
int i, j;
        i = random(LICZBA_PRZYMIOTNIKOW);
        j = random(LICZBA_PRZYMIOTNIKOW - 1);

        if(j >= i)
           ++j;
        dodaj_przym(PRZYMIOTNIKI[i][0], PRZYMIOTNIKI[i][1]);
        dodaj_przym(PRZYMIOTNIKI[j][0], PRZYMIOTNIKI[j][1]);

  ustaw_odmiane_rasy( ({"wiverna","wiverny","wivernie","wiverne","wiverna","wivernie"}), ({"wiverny","wivern","wivernom","wiverny","wivernami","wivernach"}), PL_ZENSKI); 
    
set_long("Ta wiverna zdecydowanie sie wyroznia sposrob reszty jej rasy. "+
"Unosi dumnie swoj leb nad wszystkimi mniejszymi, bedac tym samym pewnego rodzaju "+
"przywodczynia. Jest ona conajmniej dwa razy wieksza od jej podobnych, "+
"kly majac tym samym dlugosci ich konczyn.\n");
    
  set_alignment(-50);
  set_aggressive(1);
  set_gender(G_FEMALE);

  add_prop(CONT_I_HEIGHT, 500);
  add_prop(CONT_I_WEIGHT, 8000);
  add_prop(NPC_M_NO_ACCEPT_GIVE, 1);
  add_prop(LIVE_I_NEVERKNOWN, 1);

  set_attack_unarmed(A_BITE,  40, 50, W_IMPALE, 60, "ostrymi zebiskami");
  set_attack_unarmed(A_LCLAW, 50, 50, W_SLASH,  60, "pazurami lewej konczyny");
  set_attack_unarmed(A_RCLAW, 50, 50, W_SLASH,  60, "pazurami prawej konczyny");

  set_hitloc_unarmed(H_HEAD, ({ 15, 25, 40, 30 }), 30, "leb");
  set_hitloc_unarmed(H_BODY, ({ 10, 15, 50, 60 }), 70, "lodowe cialo");

  set_skill(SS_DEFENCE, 90);
  set_skill(SS_UNARM_COMBAT, 90);
  set_skill(SS_BLIND_COMBAT, 100);


  set_stats(({130, 170, 200, 40, 50, 250, 60, 0, 0}));

    setuid();
    seteuid(getuid());
    clone_object(GEMS->losujkamien("undeadstrong"))->move(this_object());
  set_act_time(5);
  add_act("emote wydaje z siebie dziwny, przenikliwy syk.");
  add_act("emote obraca lbem poszukujac ofiary.");
  add_act("emote otrzasa sie, a z jej lodowej skory odpada kilka sopli.");
}