/* -*- LPC -*- */
/*
* $Locker: $
* $Id: basic.c,v 1.3 2002/03/26 01:07:07 pinkfish Exp $
* $Log: basic.c,v $
* Revision 1.3 2002/03/26 01:07:07 pinkfish
* Make all of these rooms have the basic details for handling
* terrain map rooms.
*
* Revision 1.2 2000/06/22 01:19:30 pinkfish
* Make it use autodoc and fix up the inherit paths.
*
* Revision 1.1 1998/01/06 04:29:46 ceres
* Initial revision
*
*/
#include <terrain_map.h>
#define CREATOR "Ceres"
/**
* This is a really basic outside room. It has rocks and that's about all.
* @author Ceres
*/
inherit TERRAIN_MAP_OUTSIDE_BASE;
mixed do_get_rock( string verb, object *dest ) {
int rock_size;
string rock_type;
object rock;
if ( query_property( "rock object" ) )
return ( rock = clone_object( (string)query_property( "rock object" ) ) );
if ( undefinedp( rock_size = (int)query_property( "rock size" ) ) )
rock_size = 3;
if ( !rock_size ) return 0;
rock = clone_object( "/obj/mineral" );
if ( undefinedp( rock_type = (string)query_property( "rock type" ) ) )
rock_type = ({ "cinnabar", "coal", "rosy-quartz", "chalk", "flint",
"slate" })[ random( 6 ) ];
rock->make_mineral( rock_type, 1 + random( rock_size ) );
if ( !( rock->move( this_player() ) ) ) return 1;
rock->dest_me();
return 0;
}
