/*
 * Przyklad napisany przez Shiv
 */

inherit "/std/creature";
inherit "/std/combat/unarmed";

inherit "/std/act/action";

#include <wa_types.h>
#include <ss_types.h>
#include <macros.h>
#include <filter_funs.h>
#include <stdproperties.h>


#define A_KLY  0
#define A_PAZURY 1
#define H_GLOWA 0
#define H_TULOW 1
int
poglaszcz()
{
  if ( this_player()->query_imie(this_player(), PL_MIA)=="Shiviana")
  {
    saybb(QCIMIE(this_player(), PL_MIA) + " drapie swojego kota "+
         "za uszami. Kot ociera sie o nia pieszczotliwie.\n");
    write("Drapiesz swego kota za uszami, ten zas przymilnie ociera sie o "+
          "ciebie.\n");
  }
  else
  {
    saybb(QCIMIE(this_player(), PL_MIA) + " probuje poglaskac kota lecz ten "+
         "umyka szybko.\n");
    write("Wyciagasz reke by poglaskac kota, lecz on umyka szybko.\n");
  }
  
  return 1;
}

create_creature()
{

   ustaw_odmiane_rasy( ({"kot","kota","kotu","kota","kotem","kocie"}),
		       ({"koty","kotow","kotom","koty","kotami","kota"}),
		       PL_MESKI_OS);

   add_prop(LIVE_I_NEVERKNOWN, 1);

   set_gender(G_MALE);

   dodaj_przym("dumny", "dumne");
    dodaj_przym("czarny", "czarne");

    set_long("Tajemniczy wzrok spoczywa na tobie za sprawa zielonych "+
             "slepi czarnego, jak puszysta noc, kota. Kazdy jego ruch jest "+
             "polaczeniem gracji i harmonii, krok lekki, taneczny, biegnacy "+
             "innymi wymiarami. Kazde z uszu wychwytuje twoj szept, twoj "+
             "oddech i rytm serca. Masz wrazenie ze ten kot wie o tobie "+
             "wiecej niz ty jestes w stanie sobie wyobrazic i tylko glebokie "+
             "milczenie czarnych piersi skrywa jego zdanie o twej osobie.\n");

   set_act_time(110);
   add_act("emote porusza lekko ogonem.");
   add_act("emote mruzy zielone slepia.");
   add_act("emote ociera sie o twoje nogi.");
   add_act("emote mruczy.");
   add_act("emote przeciaga sie lekko.");
   set_stats(({ 100, 100, 100, 100, 100, 100}));
   add_cmd_item("kota", "poglaszcz", poglaszcz);
   set_hp(query_max_hp());

   set_skill(SS_DEFENCE, 5);

   set_attack_unarmed(A_KLY, 2, 5, W_IMPALE, 40, "klami");
   set_attack_unarmed(A_PAZURY, 15, 15, W_BLUDGEON,  30, "pazurami");

   set_hitloc_unarmed(H_GLOWA, ({ 10, 20, 15 }), 20, "glowe");
  set_hitloc_unarmed(H_TULOW, ({ 5, 10, 20 }), 80, "tulow");

   change_prop(OBJ_I_NO_GET,0);
   change_prop(OBJ_I_NO_GIVE, 0);
}