#define WYBOR ({({"wysoki","wysocy"}),({"silny","silni"}),({"wielki","wielcy"}),({"ogromny","ogromni"}),({"dumny","dumni"}),({"potezny","potezni"}),({"gargantuiczny","gargantuiczni"})})
#define L_PRZYM 7


void
create_monster()
{
    int s,skil,rodzaj_broni;

    s = random(L_PRZYM);

      if (!IS_CLONE)
      return;


    dodaj_przym("czarny","czarni");
    dodaj_przym(WYBOR[s][0],WYBOR[s][1]);

    switch (s)
    {
        case 0 : set_stats(({30,50,30,20,20,70}));
                 skil = 20;
                  add_weapon(SZTYLET);
                  add_armour(PATH + "zbroje/kolczug1.c");
                  add_armour(PATH + "zbroje/helm1.c");
                  
                 break;
        case 1 : set_stats(({40,50,40,20,20,70}));
                 skil = 30;
                  add_weapon(SZTYLET);
                   add_armour(PATH + "zbroje/kolczug1.c");
                 add_armour(PATH + "zbroje/helm1.c");
                 break;
        case 2 : set_stats(({50,50,50,20,20,70}));
                 skil = 30;
                  add_weapon(HALBERD);
                  add_armour(PATH + "zbroje/kolczug1.c");
                add_armour(PATH + "zbroje/helm1.c");
                break;
        case 3 : set_stats(({60,60,60,20,20,70}));
                 skil = 40;
                  add_weapon(MIECZ);
                  add_armour(PATH + "zbroje/kolczug1.c");
                 add_armour(PATH + "zbroje/helm1.c");
                 break;
        case 4 : set_stats(({70,60,70,20,20,70}));
                 skil = 40;
                  add_weapon(MIECZ1);
                  add_armour(PATH + "zbroje/zbroja2.c");
                 add_armour(PATH + "zbroje/helm1.c");
                 break;
        case 5 : set_stats(({80,70,80,20,20,70}));
                 skil = 50;
                 add_weapon(MIECZ1);
                  add_armour(PATH + "zbroje/zbroja2.c");
                 add_armour(PATH + "zbroje/helm1.c");
                 break;
        case 6 : set_stats(({90,70,90,20,20,70}));
                 skil = 60;
                 add_weapon(PALASZ);
                  add_armour(PATH + "zbroje/zbroja1.c");
                 add_armour(PATH + "zbroje/helm1.c");
                 break;
        default:  set_stats (({1,1,1,1,1,1}));
          command ("powiedz Cos mam zjebane! Zglos BUGA!");
          skil = 1;
          add_weapon(MIECZ);
     }

    set_skill(SS_WEP_SWORD, 15 + random(skil));
    set_skill(SS_WEP_POLEARM, 15 + random(skil));
    set_skill(SS_2H_COMBAT, 15 + random(skil));
    set_skill(SS_DEFENCE, skil);
    set_skill(SS_PARRY, 20 + random(skil/2));





    set_hp(query_max_hp());



    seq_new("zbroi_sie");
    seq_addfirst("zbroi_sie",({"@@arm_me"}));
}


void
emote_hook(string emote, object wykonujacy, string przyslowek)
{
 string rasa_goscia;
 int plec;

 rasa_goscia = wykonujacy->query_race();
 plec = wykonujacy->query_gender();
     if(rasa_goscia == "czlowiek")
    switch (emote)
    {
        case "bow": set_alarm(3.0, 0.0, "command", "emote spoglada na ciebie z pogarda.");
        	    break;

        case "french":
        case "kiss":
        case "fondle": if(plec=0) /* facio */
        		{
        		command("say Odpieprz sie ode mnie gosciu.");
        	       command("spit " + wykonujacy->query_name());
        	       break;
        	       }
        	       else if(plec=1)
        	       {
        	        command("say no no..... Zaczynasz mi sie podobac..");
        	        command("snuggle " + wykonujacy->query_name());
        	        break;
        	       } else
        	        {
        	         command("say kim ty wogole jestes ???? Facetem czy baba ??");
        	         command("puke "+ wykonujacy->query_name());
        	         break;
        	        }
        case "kick":
        case "spit": set_alarm(2.0, 0.0, "command", "say Plujesz na mnie ???");
                     set_alarm(5.0, 0.0, "command", "kill "+wykonujacy->query_name());
                     break;
        case "laugh": set_alarm(2.5, 0.0, "return_laugh", wykonujacy);
        	      break;
    }
    else switch (emote)
    {
      case "bow": set_alarm(3.0, 0.0, "command", "spit " +
        				wykonujacy->query_name());
        	  set_alarm(6.0, 0.0, "command", "say jestes po prostu odrazajacy!!!\n ");
        	    break;

        case "french":
        case "kiss":
        case "fondle": command("say Sam sie kurde caluj !!!!");
        	       command("kick " + wykonujacy->query_name());
        	       break;
        case "kick": set_alarm(2.0, 0.0, "wkop_mu_nielubianemu", wykonujacy->query_name());
                     break;
        case "spit": set_alarm(2.0, 0.0, "command", "say Wkurzyles mnie gosciu !!!!");
                     set_alarm(4.0, 0.0, "command", "kill "+ wykonujacy->query_name());
        case "laugh": set_alarm(2.5, 0.0, "return_laugh", wykonujacy);
        	      break;
    }
}



void
wkop_mu(string kto)
{
    int los;

    los = random(4);
    if (los == 0)
    {
        command("say Lepiej nie zaczynaj ze strozem prawa !!!");
        command("slap " + kto);
        command("kick " + kto);
    }
    else if (los == 1)
    {
        command("say Kopnac to se mozesz przekupke, ale nie mnie !!!!");
        command("kick " + kto);
    }
    else if (los == 2)
    {
        command("say Czy naprawde chcesz oberwac ???? ");
        command("kick " + kto);
        command("kick " + kto);
    }
    else
    {
     command("say No nie !!! Teraz to juz NAPRAWDE oberwiesz !!!");
     command("kill "+ kto);
    }

}

void
wkop_mu_nielubianemu(string kto)
{
    int los;

    los = random(5);
    if (los == 0)
    {
       set_alarm(2.0, 0.0, "command", "say Jestes Odmiencem.....");
       set_alarm(7.0, 0.0, "command", "say \n... Wiec WYNOCHA do rezerwatu !");

        command("kill " + kto);
    }
    else if (los == 1)
    {
        command("say Zachowuj sie TY Obrzygana Swinio !!!!!");
        command("kick " + kto);
    }
    else if (los == 2)
    {
        command("say Chyba naprawde wasza rasa jest Rabnieta TOTALNIE !!");
        command("kick " + kto);
        command("kick " + kto);
    }
    else
     {
      command("say Lepiej uwazaj na swoje nogi .....");
      command("kick "+ kto);
     }

}



void
return_laugh(object kto)
{
    int los; object piwo;

    los = random(2);

    if (los)
    {
        set_alarm(3.0, 0.0, "command","emote usmiecha sie.");
        set_alarm(5.5, 0.0, "command","hmm");
        set_alarm(8.5, 0.0, "command", "say Lepiej uwazaj chlopie..... ");
    }
    else
    {

        set_alarm(3.0, 0.0, "command", "say Smiejesz sie z mnie ????");
        set_alarm(6.0, 0.0, "command", "kill "+ kto);
    }
}