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>

string
jaka_bron()
{
  switch(random(3))
  {
    case 0:
    return HOME + "bronie/noz.c";
    case 1:
    return HOME + "bronie/noz_maly.c";    
    case 2:
    return HOME + "bronie/szabla.c";        
  }
}

string
jaka_zbroja()
{
  switch(random(3))
  {
    case 0:
    return HOME + "bronie/kurtka.c";
    case 1:
    return HOME + "bronie/napiersnik.c";    
    case 2:
    return HOME + "bronie/tarcza2.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(10);
    if(!i)
    {

    dodaj_przym("muskularny","muskularni");
    dodaj_przym("czarny","czarni");
    
    set_long("Masz przed soba wielkiego, muskularnego orka. Po uzbrojeniu i ubraniu "+
      "wiesz juz, ze nie jest on zwyczajnym mieszkancem tego obozu. To "+
      "bandyta z elitarnego oddzialu Czarnych Orkow. Szczerzy przegnile zeby w "+
      "zlosliwym usmieszku, pewny swej sily i wyszkolenia.\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(({60+random(20),30+random(20),60+random(30),40,40,100}));

    set_skill(SS_DEFENCE,40+random(20));
    set_skill(SS_PARRY,50+random(20));
    set_skill(SS_WEP_SWORD,75);
        
    set_chat_time(45+random(10));
    set_act_time(100);
    
    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: Co tu robisz, robaku!");
    
    add_cchat("Zabije cie jak psa!");
    add_cchat("ZABIJE CIE!!");
    add_cchat("ALARM! INTRUZI W OBOZIE!!");
    
    set_alignment(-500);
    set_aggressive(1);
    
    add_weapon(HOME+"bronie/szabla2.c");
    add_armour(HOME+"bronie/napiersnik.c");
    add_armour(HOME+"bronie/tarcza2.c");
       
    return;
    }

    przm = losowy_przym();
    przm1 = losowy_przym();
    
    while(przm[0]==przm1[0]) przm1 = losowy_przym();
 
    set_long("Masz przed soba typowego orka. Jest brudny, smierdzacy, zielony i ma insekty. "+
             "Innymi slowy, doskonaly reprezentant gatunku. Szweda sie po obozie i udaje, ze cos robi.\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);

    set_stats(({25+random(20),30+random(20),15+random(30),36,36,45}));

    set_skill(SS_DEFENCE, random(20));
    set_skill(SS_PARRY, random(20));
    set_skill(SS_WEP_KNIFE,random(20));
    set_skill(SS_WEP_SWORD,random(20));
    
    add_prop(IMPERIUM_I_STWOR_CHAOSU, 1);
        
    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: Nienawidze Krepusa. Nienawidze Krepusa. Nienawidze Krepusa.");
    add_act("emote mowi: Durna sluzba... A mama mowila: Wstap do Armii, poznasz swiat.");
    add_act("emote mowi: Cholerne zycie... My sie pocimy a Krepus zbiera wszystkie lupy.");
    add_act("emote mowi: Co tu robisz, robaku!");
    
    add_cchat("Ratunku!");
    add_cchat("RAAAATUNKUUU!!");
    add_cchat("Zabije cie jak psa!");
    add_cchat("Splune ci w oko!");
    add_cchat("ZABIJE CIE!!");
    add_cchat("ALARM! INTRUZI W OBOZIE!!");
    
    set_aggressive(1);
    set_alignment(-330);

    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!"); break;
            case 4: command("krzyknij Smierci!!"); 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 Ratunku!");
    }
}

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

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