/* snotling oficer */
/* Nathaniel 1998 */

inherit "/d/Imperium/std/monster";


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

#define CECHY_LP1 ({"krepy", "gruby", "owrzodzialy"})
#define CECHY_LP2 ({"niski", "wysoki", "cuchnacy"})
#define CECHY_LM1 ({"krepi", "grubi", "owrzodziali"})
#define CECHY_LM2 ({"niscy", "wysocy", "cuchnacy"})
#define BRONIE ({"maczuga1.c", "noz1.c"})
/*#define ZBROJE ({"helm1.c", "czapka.c"})
#define ZBROJE1 ({"skora.c", "kaftan.c"})
*/
void
create_monster()
{
	int i, j, y, x, z;
 

	ustaw_odmiane_rasy(({"snotling", "snotlinga", "snotlingowi", "snotlinga",
                "snotlingiem", "snotlingu"}), ({"snotlingi", "snotlingow",
                "snotlingom", "snotlingi", "snotlingami", "snotlingach"}), PL_MESKI_NOS_ZYW); 
    
	set_gender(G_MALE);

        /* 
         * Losuje liczbe z przedzialu od 0..wielkosc tablicy
         * (sizeof)
         */

        i = random(sizeof(CECHY_LP1));
        j = random(sizeof(CECHY_LP2));

        /*
         * Dodaje wylosowane przymiotniki z tablic 
         *       
         */

	dodaj_przym(CECHY_LP1[i], CECHY_LM1[i]);
	dodaj_przym(CECHY_LP2[j], CECHY_LM2[j]);
	
	set_long(
              " Przed Toba stoi wyraznie lepiej odzywiony od pozostalych" +
              " smierdzacy snotling. Mimo to nadal jest to stworzenie miernej" +
              " postury. Szczerzy zolte kly w twoim kierunku w" +
              " zlosliwym usmiechu.\n"); 

	set_alignment(-80);

	

	set_skill(SS_DEFENCE, 20 + random(10));
    set_skill(W_KNIFE, 20 + random(20));    
    set_skill(W_CLUB, 20 + random(20));
    set_skill(SS_PARRY, random(15));
        
    set_all_hitloc_unarmed(2);      
    add_prop(CONT_I_HEIGHT, 50 + random(30));
    add_prop(CONT_I_WEIGHT, 5000 + random(1500));
    add_prop(LIVE_I_NEVERKNOWN,1);

	set_default_answer(VBFC_ME("odpowiedz_zazwyczaj"));

	set_stats(({15 + random(10), 30 + random(15), 15 + random(10), 20, 15, 55 }));
        
        
        set_act_time(10 + random(15));
        set_cact_time(10);
        

        
        add_act("emote drapie sie po podniebieniu");
        add_act("emote ziewa ukazujac kilka zoltych zebow");
        add_act("emote probuje siegnac jezykiem do nosa");
        add_act("emote dlubie noga w ziemi w poszukiwaniu jedzenia");
		

        add_cact("emote mowi Ja zjesc Ciebie dzis na kolacje.");
        add_cact("emote krzyczy Wszyscy do ataku !");
        add_cact("emote mowi Nie obijac sie, bic.");
        add_cact("emote wyrzuca z siebie stek przeklenstw.");
		add_cact("emote mowi My poswiecic Twoja cialo czci nasz Wielki Pan");
		
     x = random(sizeof(BRONIE));
     /*y = random(sizeof(ZBROJE));   
	 z = random(sizeof(ZBROJE1));
	*/

     add_weapon("/d/Imperium/nathaniel/bronie/" + BRONIE[x]);
     add_armour("/d/Imperium/nathaniel/zbroje/helm.c");
     add_armour("/d/Imperium/nathaniel/zbroje/kurta.c"); 
	 
}	
		
string
odpowiedz_zazwyczaj()
   {
   command("My tu nie myslec nad taka glupia rzecz!!");
   return"";
   }	
		

public void
wesprzyj(object ob)
{
    if (query_attack())
    {
	    return ;
    }
    
    command("wesprzyj " + OB_NAME(ob));
    
    if (query_attack())
    {
        switch(random(5))
        {
            case 0: command("krzyknij Bij, zabij!"); break;
            case 1: command("krzyknij Aaaa....!"); break;
            case 2: command("krzyknij Jeeeeesc!"); break;
            case 3: command("krzyknij Bum bum!"); break;
            case 4: command("krzyknij Na niego!"); break;
        }
        return ;
    }

    switch(random(5))
    {
        case 0: command("powiedz do "+OB_NAME(ob)+" Hehe...wpadles"); break;
        case 1: command("powiedz do "+OB_NAME(ob)+" A ze niby co ?"); break;
        case 2: command("powiedz do "+OB_NAME(ob)+" Ja ? Nie..."); break;
        case 3: command("powiedz do "+OB_NAME(ob)+" A co dostane ?");
                                        break;
        case 4: command("powiedz do "+OB_NAME(ob)+" Ratunku!");
    }
}

public void
pomocy()
{
    (all_inventory(environment(this_object())) - ({ this_object() }))->wesprzyj(this_object());
}

void
attacked_by(object wrog)
{
    command("krzyknij Bija wasz wodz!!");
    set_alarm(0.1, 0.0, "pomocy");
    return ::attacked_by(wrog);
}