inherit "/std/monster";

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


void
create_monster()
{
    if (!IS_CLONE)
         return;
    
    ustaw_imie (({"Fryderik Glossenbauer", "Fryderika Glossenbauera",
    		  "Fryderikowi Glossenbauerowi", "Fryderika Glossenbauera",
    		  "Fryderikiem Glossenbauerem", "Fryderiku Glossenbauerze"}));

    dodaj_nazwy (({"fryderik", "fryderika", "fryderikowi", 
                   "fryderika", "fryderikiem", "fryderiku"}),
    		 ({"fryderik", "fryderika", "fryderikowi", 
    		   "fryderika", "fryderikiem", "fryderiku"}),
    		   PL_MESKI_OS);
    		   

    set_title("Pulkownik Gwardii Miejskiej w stanie spoczynku"); 
    dodaj_nazwy(({"miecznik","miecznika","miecznikowi","miecznika","miecznikiem",
    		  "mieczniku"}),({"miecznicy","miecznikow","miecznikom","miecznikow",
    		  "miecznikami","miecznikach"}), PL_MESKI_OS);
    
    set_long ("Za lada siedzi wysoki czlowiek."
    +" Ma na twarzy wyraz specyficznego znudzenia, ktory sprawia,"
    +" iz odnosi sie wrazenie, ze siedzi tu od paru lat bez przerwy. "
    +"W jego zmeczonej zyciem twarzy blyszcza nieduze, bystre oczy,"
    +" ktore nieprzerwanie lustruja przestrzen wokolo; fakt ten nasuwa ci na"
    +" mysl, iz, mimo wieku okolo 80 lat, wciaz jest w"+
     " pelni sprawny fizycznie, "+
     "jak i umyslowo.\n");

    ustaw_odmiane_rasy (PL_CZLOWIEK);
    
    dodaj_przym ("wysoki","wysocy");
    dodaj_przym ("mocny","mocni");

    set_gender(G_MALE);
 
    add_prop(CONT_I_WEIGHT, 89000);
    add_prop(CONT_I_HEIGHT, 197);

    set_skill(SS_DEFENCE, 40 + random(10));
    set_skill(SS_UNARM_COMBAT, 55 + random(5));
    set_skill(SS_PARRY,  40 + random(10));

    set_stats(({ 55, 75, 75, 38, 44, 82}));

    set_act_time(10);

}

void
add_introduced (string imie)
{
     set_alarm(2.0,0.0,"return_introduce", imie);
}

void
return_introduce(string kto) 
{
    command("powiedz Jestem zaszczycony, goszczac pan" + koncowka("a","ia") + 
            " w moim sklepie.");
    command("przedstaw sie " + OB_NAME(find_living(kto, 0)));
}