inherit "/d/Imperium/std/monster.c";
#include <stdproperties.h>
#include <ss_types.h>
#include <macros.h>
#include "local.h"
#include <wa_types.h>
#include <filter_funs.h>
#define PEN_SPECJALA 100
#include "/d/Imperium/funkcje/specjal1.c"
string
jaka_bron()
{
  switch(random(3))
  {
    case 0:
    return HOME + "bronie/oszabla.c";
    case 1:
    return HOME + "bronie/obulawa.c";    
    case 2:
    return HOME + "bronie/omiecz.c";        
  }
}
string
jaka_zbroja()
{
  switch(random(3))
  {
    case 0:
    return HOME + "bronie/onapierch.c";
    case 1:
    return HOME + "bronie/okolcz.c";    
    case 2:
    return HOME + "bronie/oshield.c";        
  }
}
string *losowy_przym()
 {
 string *lp;
 string *lm;
 int i;
 lp=({ "brutalny"  ,"zielony"  ,"szalony"  ,"zlosliwy"  ,"maly" ,
       "silny" ,"kulejacy","ordynarny","smierdzacy","przygarbiony"});
 lm=({ "brutalni"  ,"zielony"  ,"szaleni" ,"zlosliwi"  ,"mali"  ,
       "silni" ,"kulejacy","ordynarni","smierdzacy","przygarbieni"});
 i=random(10);
 return ({ lp[i] , lm[i] });
 }
create_monster()
{
    string *przm = losowy_przym();                
    string *przm1;
    int i = random(5);
    if(!i)
    {
    dodaj_przym("ogromny", "ogromni");
    dodaj_przym("czarnoskory", "czarnoskorzy");
    
    set_long("Jest to jeden z oficerow wielkiej bandy orkow, ktora osiedlila sie " + 
             "w tej okolicy. Jego czarna skora i wielkie kly sa swiadectwem wypaczenia " +
             "przez spaczen. Ma okolo dwuch metrow wzrostu co jest niespotykane u orkow.\n");
             
    ustaw_odmiane_rasy(PL_ORK);
                            
    set_gender(G_MALE);
      
    add_prop(LIVE_I_NEVERKNOWN, 1);
    add_prop(IMPERIUM_I_STWOR_CHAOSU, 1);
    set_stats(({150+random(60),100+random(40),190+random(40),200,150,100}));
    set_skill(SS_DEFENCE,80+random(20));
    set_skill(SS_PARRY,70+random(20));
    set_skill(SS_WEP_SWORD,100);
    set_skill(SS_SHIELD_PARRY, 90);
        
    set_chat_time(45+random(10));
    set_act_time(100);
    
    add_act("emote mowi: O kurwa!!! Wygladasz jak krasnolud wydymany przez stado trolli.");
    add_act("emote mowi: No prosze, prosze...ktos brzydszy od mojej zony.");
    add_act("emote spiewa sobie cicho: Hej ho hej ho by sie poruchalo....");
    add_act("emote bezceremonialnie drapie sie po jajach.");
    
    add_act("emote mowi: Co sie jopisz kwasigebo!");
    
    add_cchat("Wiesz co? Walczysz jak pijany halfling!");
    add_cchat("ZMIARZDZE CI CZACHE!!");
    add_cchat("HAHA!! KACYK COOO?");
    
    set_restrain_path("/d/Imperium/alkin/orki/lokacje/");
    
    set_random_move(25);
    set_alignment(-500);
    set_aggressive(1);
    
    add_weapon(HOME+"bronie/oszabla.c");
    add_armour(HOME+"bronie/cnapierch.c");
    add_armour(HOME+"bronie/oshield.c");
       
    return;
    }
    przm = losowy_przym();
    przm1 = losowy_przym();
    
    while(przm[0]==przm1[0]) przm1 = losowy_przym();
 
    set_long("Maly, smierdzacy i wylgarny ork stoi przed toba i dlubie w nosie.\n");
             
    ustaw_odmiane_rasy(PL_ORK);
                            
    dodaj_przym( przm[0], przm[1] );  
    dodaj_przym( przm1[0], przm1[1] );
    set_gender(G_MALE);
      
    add_prop(LIVE_I_NEVERKNOWN, 1);
    add_prop(IMPERIUM_I_STWOR_CHAOSU, 1);
    set_stats(({125+random(20),130+random(20),115+random(30),186,186,145}));
    set_skill(SS_DEFENCE, random(70));
    set_skill(SS_PARRY, random(70));
    set_skill(SS_WEP_SWORD,random(100));
    set_skill(SS_WEP_CLUB,random(100));
        
    set_chat_time(45+random(10));
    set_act_time(40+random(10));
    
    add_act("emote podejrzliwie sie rozglada.");
    add_act("emote leniwie sie przeciaga.");
    add_act("emote podspiewuje sobie frywolna piosenke o elfkach.");
    add_act("emote pluje na ziemie.");
    
    add_act("emote mowi: Kurna ale smierdzisz...stary....");
    add_act("emote mowi: Jak ja nie cierpie snotlingow...");
    add_act("emote mowi: Cholerne zycie...My sie pocimy a szef to se moze podupcyc.");
    add_act("emote mowi: Twoja matka chyba nadal jest dziewica.");
    
    add_cchat("Jeeeeejuuuuuu!");
    add_cchat("PEEEEDRYLE W OBOOOZIE!!! CHOWAC GORZALE I KOBITY");
    add_cchat("Zabije cie jak psa!");
    add_cchat("Kal ci w dziaslo!");
    add_cchat("ZABIJE CIE!!");
    
    set_restrain_path("/d/Imperium/alkin/orki/lokacje/");
    
    set_random_move(25);
    set_alignment(-330);
    ustaw_whimpy(20, random(3));
    add_armour(jaka_zbroja());
    add_weapon(jaka_bron());
}
public void
wesprzyj(object ob)
{
    if (query_attack())
    {
        return ;
    }
    
    command("wesprzyj " + OB_NAME(ob));
    
    if (query_attack())
    {
        switch(random(5))
        {
            case 0: command("krzyknij Do boju!"); break;
            case 1: command("krzyknij Waaaaaagh!"); break;
            case 3: command("krzyknij Krwiiiii i wodki...ale to pozniej!"); break;
            case 4: command("krzyknij SMIERDZIII!!"); break;
        }
        return ;
    }
    switch(random(5))
    {
        case 0: command("powiedz do "+OB_NAME(ob)+" O Mamo !!!"); break;
        case 1: command("powiedz do "+OB_NAME(ob)+" Sam se radz."); break;
        case 2: command("powiedz do "+OB_NAME(ob)+" Chyba zartujesz ?!"); break;
        case 3: command("powiedz do "+OB_NAME(ob)+" He, he. Ja Ci nie pomoge..."); break;
        case 4: command("powiedz Kurwa jaki bydlak!");
    }
}
public void
pomocy()
{
    (all_inventory(environment(this_object())) - ({ this_object() }))->wesprzyj(this_object());
}
void
attacked_by(object wrog)
{
    command("krzyknij Ajajaj chyba ci zaraz zajebie!!!");
    set_alarm(0.1, 0.0, "pomocy");
    return ::attacked_by(wrog);
}