inherit "/d/Imperium/Nuln/kanaly/kanal_room.c";
#include <std.h>
#include <macros.h>
#include <stdproperties.h>
#include <tasks.h>
#include <ss_types.h>
#include "elear.h"

#define SKRADZIONY "/d/Imperium/Nuln/swiatynie/sigmar2"->query_mlot()
#define MLOT "/d/Imperium/Nuln/obj/mlot.c"
int zabrany=0;

int wsch (string s)
{
  write ("Korytarz powoli sie obniza.\n");
  return 0;
}

int create_imperium_room()
{
  ::create_imperium_room();

  set_short ("Rozwidlenie kanalow");
  
  set_long ("W tym miejscu kanal sie rozwidla i prowadzi w trzech kierunkach:"
    +" na polnoc, wschod i zachod. Swiatlo odbijajac sie od metnej powierzchni"
    +" plynacych posrodku kanalu sciekow oswietla niezwykla architekture"
    +" scian. Zbudowane sa z duzych, dokladnie ociosanych kamieni, a w rownych"
    +" odstepach pojawiaja sie luki, wspierajace masywne sklepienie. Piekno"
    +" tego miejsca jest jednak zbrukane wszechobecnym fetorem gnijacych odpadkow,"
    +" szlamem, ktory widac nawet na suficie, oraz odchodami i martwymi cialami"
    +" szczurow kanalowych.\n");

  add_exit (ELEPATH+"/kan_1.c","polnoc",0,1,0);
  add_exit (ELEPATH+"/kan_3.c","wschod",0,1,0);
  add_exit (ELEPATH+"/kan12.c","poludniowy-zachod",0,1,0);

  add_item("kamienie","Widzisz gladkie i sliskie kamienie, uzyte do budowy tego kanalu. W poludniowej scianie zauwazasz niewielkie zaglebienie.\n");
  add_item("zaglebienie","Zauwazasz ryse w scianie. Trudno ci cokolwiek " +
      "dojrzec wewnatrz.\n");  
  add_item("plaskorzezby","Nie zauwazasz niczego takiego.\n");
}

void init()
{
  ::init();
  add_action (wsch,"wschod");
  add_action (wsch,"e");
  add_action (wsch,"east");
}

string search_fun(string str,int trail)
{
  if(str=="plaskorzezby"&&trail)
  {
    write("Przeszukujesz ostroznie plaskorzezby, ktorych tu nie ma. Pod nimi wisi " +
        "niewielka kartka z napisem:\n"+
        "Drogi Graczu. Twe imie zostalo zapamietane. Jesli jeszcze raz " +
        "bedziesz probowal zrobic zadanie niesamodzielnie zostaniesz surowo " +
        "ukarany.\n");
    write_file("/d/Imperium/log/oszukujacy",ctime(time()) + " Plaskorzezby przeszukiwal - " + 
        capitalize(this_player()->query_real_name(0)) +"\n");
  }  
  if(str=="zaglebienie"&&trail)
  {
    write("Zaczynasz uwaznie przeszukiwac zaglebienie.\n");
    say(QCIMIE(this_player(),PL_MIA)+" zaczyna przeszukiwac rysy w scianie.\n");
    
    if(!SKRADZIONY||zabrany) return "Nie znajdujesz w zaglebieniu nic ciekawego.\n";
        
    if(this_player()->resolve_task(TASK_ROUTINE,({SS_AWARENESS}))<=0)
        return "Nie znajdujesz w zaglebieniu nic ciekawego.\n";

    clone_object(MLOT)->move(this_player());
    this_player()->add_prop("_0_9_znalazl_mlot_sigmara",1);
    zabrany=1;
    return "Przeszukujac zaglebienie znajdujesz w srodku mlot, ktory szybko"+
     " zabierasz.\n";
  }

 return ::search_fun(str,trail);
}

void set_zabrany(int i)
{
 zabrany=i;
}