// Bar - chat room

#include <mudlib.h>

inherit ROOM;

void create()
{
  ::create();
  seteuid(getuid());

  set( "light", 1 );
  set( "short", "The Conference Bar" );
  set( "long", wrap(
"From the variety of half-full bottles scattered about, you can tell this"+
" must be the bar thoughtfully provided by the conference organisers so"+
" that the attendees have a place to relax and chat about nothing in"+
" particular. The gathering centre is to the south.  Private rooms are north."+
" There's a sign on the wall you could look at."+
  "" ) );
  set ("item_desc", ([ "sign" :
"The sign says:\n"+
"Have a drink! All you have to do is \"pour\" it. If you have a few too\n"+
"many drinks, the bathroom is at the end of the north hall.\n"
]) ) ;
  set( "exits", ([
    "south" : "/d/Conf/room/centre",
    "north" : "/d/Conf/room/0,0.hall",
  ]) );
// if want can set an exit_msg
  
  call_other( "/d/Conf/boards/bar", "frog" );
}

void init()
{
  add_action( "cmd_pour", "pour" );
}

int cmd_pour( string a )
{
  object drink;
  string drink_name;

  if( !a )
  {
    notify_fail( "Syntax: pour <drink>\neg \"pour vodka\".\n" );
    return 0;
  }
  if( !sscanf( a, "a %s", drink_name  ) ) drink_name = a;
  if( sscanf( drink_name, "an %s", a ) ) drink_name = a;
  drink = new( "/d/Conf/obj/drink" );
  drink-> set_type( drink_name );
  drink-> move( this_player() );
  drink_name = article( drink_name ) + " " + drink_name;
  write( "You pour yourself " + drink_name + ".\n" );
  say( sprintf( "%s pours %s %s.\n",
    this_player()-> query( "cap_name" ),
    possessive( this_player() ),
    drink_name,
  ) );
  return 1;
}