/* 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("Wewnatrz dylizansu");
  set_long("Znajdujesz sie wewnatrz dylizansu. "+
     "Wiszace w rogach malutkie lampki, daja malo swiatla. "+
     "Po lewej i prawej stronie znajduja sie okna, zasloniete "+
     "wyszywanymi srebrna nicia kotarami.\n");
  
  add_item(({"lampki","malutkie lampki"}),"Sa to malutki naftowe lampki. "+
    "Ich slabe swiatlo ledwie rozswietla mroki dylizansu.\n");
  add_item(({"kotary","wyszywane kotary"}),"Kotary sa wyszywane srebrna "+
    "nicia. Znakomicie spelniaja swoja role, polegajaca na ochronie "+
    "pasazerow przed wscibskimi spojrzeniami.\n");
  add_item("okna","Okna sa lekko przyciemnione, lecz przy odrobinie dobrej "+
    "woli mozna przez nie wyjrzec na zewnatrz.\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_ATTACK, "Niestety masz za malo miejsca, by atakowac.\n");
  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(),"Powoli dylizans zaczyna tracic predkosc, "+
  	"by po chwili zatrzymac sie.\n");
}


public void
odjazd()
{
  tell_room(this_object(),"Drzwiczki sie zamykaja, drzenie przebiega "+
    "przez caly pojazd, dylizans 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": 
      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;
}