#pragma strict_types
#pragma no_clone

inherit "/std/room";

#include "/sys/stdproperties.h"
#include "/sys/macros.h"

int czytaj(string str);
int spojrz(string str);

/*
 * Notes:
 *
 * komendy najwyrazniej musza zwracac 1, inaczej zwraca komende i
 * 'What?'
 */
int foo(string str);

void
create_room()
{

  set_short("Lokacja startowa");
  set_long("Hym hym.\n");

  add_item("teleporter", "Teleporter sluzy do przenoszenia " +
	   "czarodziei w im tylko znane miejsce.\n");

  add_exit("/klon_lib/d/Standard/start/mailroom", "poludnie");
  add_exit("/klon_lib/d/Imperium/Nuln/lokacje/glowna","otchlan");

  add_prop(OBJ_S_WIZINFO, "@@wizinfo");
  add_prop(ROOM_I_INSIDE,1);
}

int
czy_nie_wiz()
{
  if (!this_player()->query_wiz_level())
    {
      write("Teleporter dziala tylko dla czarodziei.\n");

      return 1;
    }
    
  return 0;
}

string
wizinfo()
{
  return "This is the starting location for all players in the " +
    "standard distribution of this mudlib. It should be replaced as " +
    "soon as possible by the local administrator.\n";
}

void
init()
{
  //::init();
  
  add_action(czytaj, "czytaj");
  add_action(spojrz, "spojrz");
  add_action(spojrz, "sp");
  add_action("obejrzyj", "obejrzyj");
  add_action("obejrzyj", "ob");
  add_action(foo, "foo");

  ::init();
}

int
foo(string str)
{
  write("Works!\n");

  return 1;
}

int
czytaj(string str)
{
    write("Komendy na Arkadii wystepuja w formie dokonanej. Proponuje " +
	  "uzyc 'przeczytaj'.\n");
    
    return 1;
}

int
spojrz(string str)
{
    if ((str == "tablica" || str == "na tablica") && present("tablica"))
    {
        write("Skladnia komend na Arkadii jest taka jak w jezyku " +
	      "polskim. Proponuje uzyc 'spojrz na tablice' lub " +
	      "'obejrzyj tablice'.\n");
	
        return 1;
    }
    
    return 0;
}

int
obejrzyj(string str)
{
    if (str == "tablica" && present("tablica"))
    {
        write("Skladnia komend na Arkadii jest taka jak w jezyku " +
	      "polskim. Proponuje uzyc 'obejrzyj tablice' lub " +
	      "'spojrz na tablice'.\n");
	
        return 1;
    }
    
    return 0;
}