/*
Beach inheritable object for FR OMIQ ... bingle on
*/
inherit "/std/room";
init()
{
add_action("get_sand", "", 1000);
::init();
}
int get_sand(string bong)
{
string *bing;
object wibble;
bing=explode(bong, " ");
if(bing[0]!="get" || bing[0]!="fill" || bing[0]!="put") return 0;
if(member_array("bucket", bong)==-1 && (bong!="fill bucket with sand" || bong!="put sand in bucket" || bong!="get sand in bucket"))
{
notify_fail("The sand dribbles all over the place. You'll need something solid "+
"to carry it in.\n");
return 0;
}
wibble=clone_object(SAND_OBJECT);
wibble->move(present("bucket", this_player()));
return 1;
}