/* Autor: Mezon  */
/* Cos podobne do centaura lecz z innych skladnikow*/

inherit "/d/Imperium/std/monster";
#include "mezon.h"
#include <wa_types.h>

#define A_RAMIONA 0
#define H_GLOWA 0
#define H_CIALO 1


string
jaka_bron2()
{
    return NPATH + "bronie/p_mlot.c";
}

string
jaka_bron1()
{
  switch(random(2))
  {
    case 0:
    return NPATH + "bronie/smog_sword.c";
    case 1:
    return NPATH + "bronie/morgenstern.c";
  }
}

string
jaka_zbroja_kolcz()
{
   switch(random(1))
     {
        case 0: 
        return NPATH + "zbroje/karacena.c";
     }
}

string
jaka_zbroja_kir()
{
  switch(random(2))
  {
    case 0:
    return NPATH + "zbroje/zb_kolkowa.c";
    case 1:
    return NPATH + "zbroje/zb_plytkowa.c";
  }

}
string
jaka_zbroja_tar()
{
  switch(random(2))
  {
    case 0:
    return NPATH + "zbroje/l_tarcza.c";
    case 1:
    return NPATH + "zbroje/tarcza1.c";
  }
}

string
jaka_zbroja_naram()
{
   switch(random(1))
      {
         case 0: return NPATH + "zbroje/naramienniki.c";
      }
}

string 
jaka_zbroja_dod()
{
  switch(random(3))
     {
       case 0:
       return NPATH + "zbroje/kol_rekawice.c";
       case 1:
       return NPATH + "zbroje/karawasze.c";
     }
}

string *losowy_przym()
 {
 string *lp;
 string *lm;
 int i;
 lp=({ "ogromny"  ,"glupi"  ,"powolny"  ,"sapiacy"  ,"oblesny" ,
       "szkaradny" ,"okrutny","muskularny","morderczy","przygarbiony"});
 lm=({ "ogromni"  ,"glupi"  ,"powolni" ,"sapiacy"  ,"oblesni"  ,
       "szkaradni" ,"okrutni","muskularni","morderczy","przygarbieni"});
 i=random(10);

 return ({ lp[i] , lm[i] });

 }

void
create_monster()

{
 string *przm = losowy_przym();
 string *przm1;


    ustaw_odmiane_rasy(PL_OGR);

        set_gender(G_MALE);

        
    przm = losowy_przym();
    przm1 = losowy_przym();
    
    while(przm[0]==przm1[0]) przm1 = losowy_przym();
 
    dodaj_przym( przm[0], przm[1] );  
    dodaj_przym( przm1[0], przm1[1] );
    dodaj_przym("smoczy", "smoczy");

            
        set_long("Jest to potezny smoczy ogr zamieszkujacy jaskinie. Wyglada na "+
                 "nieodrodne dziecie Chaosu. Na pierwszy rzut oka jest to skrzyzowanie " +
                 "ogra ze smokiem. Stworzenie to posiada szesc konczyn, z czego tylko dwie " +
                 "gorne przypominaja potezne ogrze ramiona. Cztery pozostale to typowe smocze " +
                 "lapy pokryte luskami. Smoczy jest rowniez ogon tego stwora - pomiotu Chaosu.\n");

    set_stats(({105 + random(25),70 + random(15), 95 + random(20), 25, 19, 103}));

        set_hp(query_max_hp());

        set_skill(SS_WEP_SWORD, 40+random(15));
        set_skill(SS_WEP_CLUB, 40+random(15));
        set_skill(SS_WEP_WARHAMMER, 50+random(15));
        set_skill(SS_WEP_AXE, 40+random(15));
        set_skill(SS_DEFENCE, 20+random(15));
        set_skill(SS_PARRY, 40+random(10));
        set_skill(SS_BLIND_COMBAT, 80);

        add_prop(LIVE_I_NEVERKNOWN, 1);

        set_alignment(-100);
        set_aggressive(1);
        
        set_cchat_time(20+random(20)); 

        
        add_cchat("Twac nie przeraz!");


       switch(random(10))
       {
         case 0..1:
           add_armour(jaka_zbroja_kolcz());
           add_weapon(jaka_bron2());
           add_armour(jaka_zbroja_dod());
           break;
         default:
           if (random(2))
              {
                 add_armour(jaka_zbroja_kir());
                 add_armour(jaka_zbroja_tar());
                 add_weapon(jaka_bron1());
                 add_armour(jaka_zbroja_naram());
              }
           else
              {
                 add_armour(jaka_zbroja_kolcz());
                 add_weapon(jaka_bron1());
                 if (random(2)) add_armour(jaka_zbroja_tar());
                 add_armour(jaka_zbroja_dod());
              }
           break;
       }

}