// weltoramix
// moze uda mi sie zrobic auto ?
// ale watpie;p

inherit "/std/object.c";

#include <pl.h>
#include <stdproperties.h>
#include <macros.h>
#include <filter_funs.h>

#define TP this_player()
#define TO this_object()
#define PATH "/d/Utopia/kasan/auto"
void blah(object gracz);

void
create_object()
{
    string str;

 ustaw_nazwe(({"samochod", "samochodu", "samochodowi", "samochod", "samochodem", "samochodzie"}),
	({"samochody", "samochodow", "samochodom", "samochody", "samochodami", "samochodach"}),
		PL_MESKI_NZYW);

  set_long("Zwykle auto. Ciekawe czy dziala ?\n");

  add_prop(OBJ_I_WEIGHT, 1300000);
  add_prop(OBJ_I_VOLUME, 1500000);
  add_prop(OBJ_M_NO_GET, "Podniesc auto? Czy ty aby delikatnie nie przeceniasz wlasnych " +
	     "mozliwosci?\n");
}

void init()
{
   ::init();
   add_action("wej", "wejdz");
}

void
blah(object gracz) 
{
  tell_room(PATH + "wnetrze.c", QCIMIE(gracz,PL_MIA)+" wychodzi" +
  " przez okno w kapliczce\n");
  this_player()->move_living("M", "/d/Utopia/kasan/auto/wnetrze.c",1,0 );
  TP -> command("sp");
}

int wej(string str)
{
  notify_fail("Gdzie chcesz wejsc ? Moze do auta?\n");

  if(!str)
  return 0;

  if(str == "do auta")
  {
      write("Wchodzisz przez okno do srodka.\n");

      say(QCIMIE(TP,PL_MIA) + " wchodzi do srodka. \n");

    set_alarm(1.0,0.0,&blah(this_player()));

      return 1;
   } 
}