/* Wnetrze dylizansu, napisane przez Alfena
 */
 
 
#include "local.h"
#include <pl.h>
#include <stdproperties.h>
#include <macros.h>

inherit GPATH + "std/room.c";

private static object dylizans;


public int
query_jedzie()
{
  return dylizans->query_jedzie();
}


public void
ustaw_dylizans(object ob)
{
  dylizans = ob;
}


public object
query_dylizans()
{
  return dylizans;
}


public void
create_wnetrze_dylizansu()
{
  set_short("Wagon");
  set_long("Jest to obszerny wagon, w ktorym raczej wozi sie swiniaki, no "+
    "ale coz, zycie jest trudne.\n");
  
  add_exit(VBFC_ME("wysiadz"),({"wyjscie","na zewnatrz, przez otwarte drzwi"}),
     "@@komunikat",0,"@@query_jedzie");
}


mixed
wysiadz()
{
  return environment(dylizans);
}


public nomask void 
create_imperium_room()
{
  add_prop(ROOM_I_IS,1);
  add_prop(ROOM_I_INSIDE,1);
  add_prop(ROOM_I_NO_SKY,1);
  add_prop(ROOM_I_NO_ATTACK, 1);
  add_prop(ROOM_I_NO_MAGIC, 1);
  add_prop(ROOM_I_LIGHT, 1);
  add_prop(ROOM_M_NO_MAGIC,"Niestety masz za malo miejsca, by rzucic czar.\n"); 
  add_prop(ROOM_I_HIDE, -1);
  
  
  
  create_wnetrze_dylizansu();
}




public void
przyjazd()
{
  tell_room(this_object(),"Pociag przy wtorze iskier i ogromnego huku "+
	"zatrzymuje sie!\n");
}


public void
odjazd()
{
  tell_room(this_object(),"Drzwiczki sie zamykaja, drzenie przebiega "+
    "przez caly pojazd, pociag rusza.\n");
}


void
init()
{
  ::init();
  add_action("do_wyjrzyj","wyjrzyj");
//  add_action("do_wysiadz","wysiadz");
}


int
do_wyjrzyj(string s)
{
  int i;
  notify_fail("Wyjrzec przez co?\n");
  if (!s)
    return 0;
  
  switch (s)
  {
    case "na zewnatrz":
    case "przez okno":
    case "przez okienko": 
    case "przez zaslonki":
      say(QCIMIE(this_player(), PL_MIA)+ " wyglada przez okno.\n");
      write("Wygladasz przez okno.\n");
      write(environment(dylizans)->long());
      return 1;
  }
  return 0;
}


int
komunikat ()
{
  if (dylizans->query_jedzie())
  {
    write("Wolisz nie probowac wysiasc z jadace"+
      dylizans->koncowka("go","j")+" "+
      dylizans->query_nazwa(PL_DOP)+".\n");
   return 1;
  }
  return 0;
}