/*
 * Standardowy las
 * Silvy 08/98
 */
 
#pragma strict_types
#pragma save_binary

inherit "/d/Imperium/std/room";

#include "/d/Imperium/sys/ziola.h"
#include <macros.h>
#include <stdproperties.h>
#include <wa_types.h>

int ile_drzew;

public void
create_las_room()
{
}

void
create_imperium_room()
{
  ile_drzew = random(5);
  rodzaj_ziol(ZIOLA_LASY);
  add_prop(ROOM_I_HIDE, 5);
  create_las_room();
}
 
public void
reset_imperium_las()
{
}

void
reset_imperium_room()
{
  ile_drzew = random(5);
  reset_imperium_las();
}

void
init()
{
  add_action("zrab","zrab");
  add_action("zrab","zetnij");
  ::init();
}

int
zrab(string str)
{
  int i;
  object czym;
  object kto;
  
  notify_fail("Co chcesz sciac?\n");
  if(!str) return 0;
  if(str != "drzewo") return 0;
  
  
  notify_fail("Musisz miec odpowiednie narzedzie by scinac drzewa.\n");
  if(!(this_player()->query_weapon(-1))) return 0;
  for(i = 0; i < sizeof(this_player()->query_weapon(-1)); i++)
  {
    if(this_player()->query_weapon(-1)[i]->query_wt() == W_AXE) 
      czym = this_player()->query_weapon(-1)[i];
  }
  if(czym == 0) return 0;
  
  
  notify_fail("Nie zauwazasz zadnego drzewa zdatnego do sciecia.\n");
  if(!ile_drzew) return 0;

  notify_fail("Jestes zbyt "+this_player()->koncowka("zmeczony","zmeczona")+
    " by scinac drzewa.\n");
  if(this_player()->query_fatigue() < 20) return 0;  

  // No to scinamy
  
  write("Uzywajac "+czym->koncowka("swego","swej")+" "+czym->short(PL_DOP)+" udaje ci "+
    "sie sciac jakies drzewo.\n");
  say(QCIMIE(this_player(), PL_MIA) + " scina jakies drzewo " + czym->koncowka("swym","swa")+
    " " + czym->short(PL_NAR) + ".\n");
  kto = this_player();

  clone_object("/d/Imperium/std/drzewo.c")->move(this_object());    
  ile_drzew -= 1;
  
  set_this_player(kto);
  
  this_player()->add_fatigue(-10);
  
  if(!random(2)) 
  {
    write("Zauwazasz, ze "+czym->koncowka("twoj","twoja")+" "+czym->short(PL_MIA)+
      " wyraznie sie "+czym->koncowka("stepil","stepila")+".\n");
    czym->set_dull(czym->query_dull()+1);
  }  
  return 1;
}

int
ile_drzew()
{
   return ile_drzew;
}
   